Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGRPECE2

Package: Registration

Routine: DGRPECE2


Information

DGRPECE2 ;ALB/MRY - REGISTRATION CATASTROPHIC EDITS REPORT ; 11/16/04 9:00am

Source Information

Source file <DGRPECE2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 ^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
Registration 3 $$DATE4^DGRPECE1  START^DGRPECE2  (CLOSE,ZIS)^DGUTQ  
Kernel 2 $$FMTE^XLFDT  ALERTDAT^XQALBUTL  
Master Patient Index VistA 1 $$GETICN^MPIF001  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG PATIENT CE REPORT  DGRPECE2  

Entry Points

Name Comments DBIA/ICR reference
QUIT
HEAD
FMT
FDT1
DETAIL ;Print detail
RET
SUMMARY ;print summary
CHKL
START ;
FDT
LDT

External References

Name Field # of Occurrence
^%DT FDT1, LDT
NOW^%DTC START+2
$$DATE4^DGRPECE1 DETAIL+14, DETAIL+22
START^DGRPECE2 LDT+4
CLOSE^DGUTQ LDT+5, QUIT
ZIS^DGUTQ LDT+4
$$GET1^DIQ START+11, START+13, DETAIL+7, DETAIL+27
^DIR FMT+5, FMT+13, SUMMARY+5, RET
$$GETICN^MPIF001 START+16
$$FMTE^XLFDT START+2, HEAD+2
ALERTDAT^XQALBUTL DETAIL+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"***CATASTROPHIC EDIT ALERTS ARE ONLY RETAINED FOR 365 DAYS.***"
  • Line Location: FDT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LDT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Ending date must be after beginning date!"
  • Line Location: LDT+1
Function Call: WRITE
  • Prompt: !!,"TOTAL 'POTENTIAL CATASTROPHIC EDIT' ALERTS POSTED: ",DGTA
  • Line Location: SUMMARY+1
Function Call: WRITE
  • Prompt: !,"TOTAL 'POTENTIAL CATASTROPHIC EDIT' ALERTS REVIEWED: ",DGTR
  • Line Location: SUMMARY+2
Function Call: WRITE
  • Prompt: !,"TOTAL 'POTENTIAL CATASTROPHIC EDIT' ALERTS DETERMINED TO BE CATASTROPHIC: ",DGTC
  • Line Location: SUMMARY+3
Function Call: WRITE
  • Prompt: !!,$TR($J("",IOM)," ","*")
  • Line Location: DETAIL+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(HDRS)/2),HDRS,!
  • Line Location: DETAIL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+9
Function Call: WRITE
  • Prompt: !,"Patient: "_$P($P(DGA(2),U,8),";")_" (ICN: "_DGICN_")",?60,"Station: ",$P(DGA(2),U,13)
  • Line Location: DETAIL+10
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DETAIL+11
Function Call: WRITE
  • Prompt: !?3,"Patient Identification (before edit)"
  • Line Location: DETAIL+12
Function Call: WRITE
  • Prompt: !?4,"Name: ",$P(DGA(2),U),?45,"Soc. Security Number: ",$P(DGA(2),U,2)
  • Line Location: DETAIL+13
Function Call: WRITE
  • Prompt: !?4,"Date of Birth: ",$$DATE4^DGRPECE1($P(DGA(2),U,3)),?45,"Gender: ",$S($P(DGA(2),U,4)="M":"MALE",$P(DGA(2),U,4)="F":"FEMALE",1:$P(DGA(2),U,4))
  • Line Location: DETAIL+14
Function Call: WRITE
  • Prompt: !?4,"Mother's Maiden Name: ",$P(DGA(2),U,5)
  • Line Location: DETAIL+15
Function Call: WRITE
  • Prompt: !?4,"Place of Birth [city]: ",$P(DGA(2),U,6)
  • Line Location: DETAIL+16
Function Call: WRITE
  • Prompt: !?4,"Place of Birth [state]: "
  • Line Location: DETAIL+17
Function Call: WRITE
  • Prompt: $P(^DIC(5,$P(DGA(2),U,7),0),U)
  • Line Location: DETAIL+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+18
Function Call: WRITE
  • Prompt: !?3,"Patient Identification fields (after edit)"
  • Line Location: DETAIL+19
Function Call: WRITE
  • Prompt: !?3
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(DGA(2),U,8),";",2)="*"
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: ?4,"Name: ",$P($P(DGA(2),U,8),";")
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: ?4,"Name: ",$P($P(DGA(2),U,8),";")
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(DGA(2),U,9),";",2)="*"
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: ?45,"Soc. Security Number: ",$P($P(DGA(2),U,9),";")
  • Line Location: DETAIL+20
Function Call: WRITE
  • Prompt: !?3
  • Line Location: DETAIL+22
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(DGA(2),U,10),";",2)="*"
  • Line Location: DETAIL+22
Function Call: WRITE
  • Prompt: ?4,"Date of Birth: ",$$DATE4^DGRPECE1($P($P(DGA(2),U,10),";"))
  • Line Location: DETAIL+22
Function Call: WRITE
  • Prompt: ?44
  • Line Location: DETAIL+23
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(DGA(2),U,11),";",2)="*"
  • Line Location: DETAIL+23
Function Call: WRITE
  • Prompt: ?45,"Gender: ",$S($P($P(DGA(2),U,11),";")="M":"MALE",$P($P(DGA(2),U,11),";")="F":"FEMALE",1:"")
  • Line Location: DETAIL+23
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+25
Function Call: WRITE
  • Prompt: !?3,"Edited by: ",$P(DGA(.05),U,2),?45,"Generated: ",$P(DGA(.02),U,2)
  • Line Location: DETAIL+26
Function Call: WRITE
  • Prompt: !?3,"With Option: ",$$GET1^DIQ(19,+$P(DGA(2),U,14)_",",.01)
  • Line Location: DETAIL+27
Function Call: WRITE
  • Prompt: !?3,"Reviewed by: "
  • Line Location: DETAIL+28
Function Call: WRITE
  • Prompt: $P(^VA(200,$P(DGA(2),U,15),0),U)
  • Condition for execution: $P(DGA(2),U,15)
  • Line Location: DETAIL+28
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+31
Function Call: WRITE
  • Prompt: @IOF,?(IOM-($L(DGDT)+7+$L(DGPG))),DGDT," PAGE ",DGPG,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?(IOM-$L(HDR)/2),HDR,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?(IOM-$L(DGT)/2),DGT
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?(IOM-$L(HDR2)/2),HDR2
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM-$X)," ","*")
  • Line Location: HEAD+5
Routine Call
  • DIR
  • Line Location:
    • FMT+5
    • FMT+13
    • SUMMARY+5
    • RET

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] GET1^DIQ
^XTV(8992.1 - [#8992.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" FDT1+1, LDT+2
^DIC(5 - [#5] DETAIL+17
^TMP($J START+9!, START+18*, START+20*, START+22*, SUMMARY+4, DETAIL+4, DETAIL+5, DETAIL+6
^VA(200 - [#200] DETAIL+28
^XTV(8992.1 - [#8992.1] START+10

Label References

Name Line Occurrences
CHKL DETAIL+9, DETAIL+10, DETAIL+11, DETAIL+12, DETAIL+13, DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+18
, DETAIL+19, DETAIL+21, DETAIL+24, DETAIL+25, DETAIL+26, DETAIL+27, DETAIL+30, DETAIL+31
FDT1 FDT1+1
HEAD START+24, CHKL
LDT LDT+1
QUIT SUMMARY+4
RET CHKL

Naked Globals

Name Field # of Occurrence
^( START+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+2
%DT FDT1*, LDT+5!
%DT("A" FDT1*, LDT*
DGA START+1~
DGA( DETAIL+26
DGA(2 DETAIL+10, DETAIL+13, DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+20, DETAIL+22, DETAIL+23, DETAIL+27
, DETAIL+28, DETAIL+29
DGADT START+1~, DETAIL+5*, DETAIL+6
DGBEG FDT1+1*, LDT+1, LDT+5!, START+8, HEAD+2
DGDATA START+1~, START+13*, START+14, START+15, START+16, START+19, START+21
DGDT START+1~, START+2*, HEAD
DGEDT START+1~, START+8*, START+10
DGEND LDT+2*, LDT+5!, START+8, HEAD+2
DGFMT DGRPECE2+3~, FMT+6*, FMT+7, LDT+3, LDT+5!, START+4, START+5, START+6, SUMMARY+4
DGFMTD DGRPECE2+3~, FMT+6*, FMT+14*, LDT+5!, START+6, START+17, START+19, START+21
DGICN START+1~, START+16*, START+18, START+20, START+22, DETAIL+4*, DETAIL+5, DETAIL+6, DETAIL+10
DGIEN START+1~, START+10*, START+11, START+13, START+18, START+20, START+22, DETAIL+6*, DETAIL+7
DGPG START+1~, START+9*, HEAD*
DGPGM LDT+4*, LDT+5!
DGQUIT START+1~, DETAIL+4, DETAIL+5, DETAIL+6, DETAIL+9, DETAIL+10, DETAIL+11, DETAIL+12, DETAIL+13, DETAIL+14
, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+18, DETAIL+19, DETAIL+21, DETAIL+24, DETAIL+25, DETAIL+26, DETAIL+27
, DETAIL+30, DETAIL+31, CHKL*, RET*
DGS1 FDT1+1*, LDT+2*, LDT+5!
DGSDT START+1~, START+8*, START+10*, START+18, START+20, START+22
DGT START+1~, HEAD+2*, HEAD+3
DGTA START+1~, START+9*, START+12*, SUMMARY+1
DGTAG LDT+3*, LDT+5!
DGTC START+1~, START+9*, START+15*, SUMMARY+3
DGTR START+1~, START+9*, START+14*, SUMMARY+2
DGVAR LDT+4*, LDT+5!
DIR DGRPECE2+3~, FMT!, FMT+8!, LDT+5!, START+1~, SUMMARY+5!, RET!
DIR("?" FMT+1*, FMT+2*, FMT+3*, FMT+4*, FMT+9*, FMT+10*, FMT+11*, FMT+12*
DIR("A" FMT*, FMT+8*
DIR("B" FMT+5*, FMT+13*
DIR(0 FMT*, FMT+8*, SUMMARY+5*!, RET*!
DIRUT FMT+5, QUIT!, RET
DTOUT FDT1, LDT, QUIT!
HDR START+1~, START+3*, START+4*, START+5*, HEAD+1
HDR2 START+1~, START+6*, HEAD+4
HDRS START+1~, DETAIL+2*, DETAIL+3
IO LDT+4
IOF HEAD
IOM DETAIL+1, DETAIL+3, DETAIL+11, HEAD, HEAD+1, HEAD+3, HEAD+4, HEAD+5
IOSL CHKL
IOST SUMMARY+5, CHKL
POP LDT+4, LDT+5!
U FDT1, FDT1+1, LDT, LDT+1, LDT+2, START+14, START+15, START+16, START+19, START+21
, DETAIL+10, DETAIL+13, DETAIL+14, DETAIL+15, DETAIL+16, DETAIL+17, DETAIL+20, DETAIL+22, DETAIL+23, DETAIL+26
, DETAIL+27, DETAIL+28, DETAIL+29
X FDT1, LDT, LDT+5!
XQAID START+1~, DETAIL+7*, DETAIL+8
Y FMT+6, FMT+14, FDT1+1, LDT+1, LDT+2, LDT+5!, START+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All