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 |  Local Variables  | All
Print Page as PDF
Routine: DGRPECE1

Package: Registration

Routine: DGRPECE1


Information

DGRPECE1 ;ALB/MRY - REGISTRATION CATASTROPHIC EDITS ALERT ; 11/17/04 9:30am

Source Information

Source file <DGRPECE1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 3 (,FILE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  (DELETE,SETUP)^XQALERT  
MailMan 1 ^XMD  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRPECE2  

Entry Points

Name Comments DBIA/ICR reference
ALERT ;setup alert, display
DISP ;display catastrophic alert information
REVIEW ;
REMOVE ;
MSG ;
DATE4(X) ;return date in DD/MM/YYYY format
XQADATA ;XQADATA =

External References

Name Field # of Occurrence
^DIE MSG+13
FILE^DIE REVIEW+11
$$GET1^DIQ DISP+25, DISP+26, DISP+27, DISP+30
^DIR REVIEW+3, REVIEW+6, REMOVE+5
$$GETICN^MPIF001 DISP+9
$$SITE^VASITE ALERT+14, MSG+12
$$FMTE^XLFDT DISP+26
^XMD MSG+13
DELETE^XQALERT REMOVE+6
SETUP^XQALERT ALERT+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !,HDR2
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,"Patient: ",DGNAME_" (ICN:"_$$GETICN^MPIF001($P(XQADATA,U,12))_")",?60,"Station: ",$P(XQADATA,U,13)
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !,"Patient Identification fields (before edit)"
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !?1,"Name: ",$P(XQADATA,U),?45,"Soc. Security Number: ",$P(XQADATA,U,2)
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !?1,"Date of Birth: ",$$DATE4($P(XQADATA,U,3)),?45,"Gender: ",$S($P(XQADATA,U,4)="M":"MALE",$P(XQADATA,U,4)="F":"FEMALE",1:$P(XQADATA,U,4))
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !?1,"Mother's Maiden Name: ",$P(XQADATA,U,5)
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: !?1,"Place of Birth [city]: ",$P(XQADATA,U,6)
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !?1,"Place of Birth [state]: "
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: $P(^DIC(5,$P(XQADATA,U,7),0),U)
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: !,"Patient Identification fields (after edit)"
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(XQADATA,U,8),";",2)="*"
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: ?1,"Name: ",$P($P(XQADATA,U,8),";")
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: ?1,"Name: ",$P($P(XQADATA,U,8),";")
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(XQADATA,U,9),";",2)="*"
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: ?45,"Soc. Security Number: ",$P($P(XQADATA,U,9),";")
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(XQADATA,U,10),";",2)="*"
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: ?1,"Date of Birth: ",$$DATE4($P($P(XQADATA,U,10),";"))
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: ?44
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $P($P(XQADATA,U,11),";",2)="*"
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: ?45,"Gender: ",$S($P($P(XQADATA,U,11),";")="M":"MALE",$P($P(XQADATA,U,11),";")="F":"FEMALE",1:"")
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+24
Function Call: WRITE
  • Prompt: !,"Edited by: ",$$GET1^DIQ(8992.1,+DGIEN_",",.05),?45,"Generated: ",$$FMTE^XLFDT(DGDATA,"2P")
  • Line Location: DISP+26
Function Call: WRITE
  • Prompt: !,"With Option: ",DGDATA
  • Line Location: DISP+28
Function Call: WRITE
  • Prompt: !,"Reviewed by: "
  • Line Location: DISP+31
Function Call: WRITE
  • Prompt: $P(^VA(200,$P(DGDATA,U,15),0),U)
  • Condition for execution: $P(DGDATA,U,15)
  • Line Location: DISP+31
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","-")
  • Line Location: DISP+33
Routine Call
  • DIE
  • Line Location:
    • MSG+13
Routine Call
  • DIE
  • Line Location:
    • REVIEW+11
Routine Call
  • DIR
  • Line Location:
    • REVIEW+3
    • REVIEW+6
    • REMOVE+5

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)
^DIC(5 - [#5] DISP+17
^TMP($J MSG+1!, MSG+3*, MSG+4*, MSG+5*, MSG+6*, MSG+7*, MSG+8*, MSG+9*, MSG+10*, MSG+11*
, MSG+12*, MSG+14!
^VA(200 - [#200] DISP+31
^XTV(8992.1 - [#8992.1] DISP+3
^XUSEC("DG CATASTROPHIC EDIT" ALERT+4
^XUSEC("DG SUPERVISOR" ALERT+6

Label References

Name Line Occurrences
$$DATE4 DISP+14, DISP+22
MSG ALERT+8
REMOVE DISP+38
REVIEW DISP+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BEFORE( ALERT+12
>> BUFFER( ALERT+13
CNT ALERT+2~, ALERT+12*, ALERT+13*
DA MSG+13*, MSG+14!
DGANS REVIEW+1~, REVIEW+3*, REVIEW+4
DGCE REVIEW+1~, REVIEW+6*, REVIEW+9
DGDATA DISP+1~, DISP+25*, DISP+26, DISP+27*, DISP+28, DISP+30*, DISP+31, DISP+32, DISP+36, DISP+38
, REVIEW+8*, REVIEW+9*, REVIEW+10
DGDUZ ALERT+2~, ALERT+4*, ALERT+6*
DGI ALERT+2~, ALERT+12*, ALERT+13*
DGIEN DISP+1~, DISP+3*, DISP+25, DISP+26, DISP+30, REVIEW+10
DGNAME DISP+1~, DISP+8*, DISP+9
DGRFLG DISP+1~, DISP+35*, DISP+36*, REMOVE+3, REMOVE+4
DGSITE ALERT+2~, ALERT+14*, ALERT+15
DIE MSG+13*, MSG+14!
DIR REVIEW+1~, REVIEW+3!, REVIEW+6!, REMOVE+1~, REMOVE+5!
DIR("A" REVIEW+2*, REVIEW+5*, REMOVE+3*, REMOVE+4*
DIR("B" REVIEW+3*, REVIEW+6*, REMOVE+5*
DIR(0 REVIEW+2*, REVIEW+5*, REMOVE+2*
DR MSG+13*, MSG+14!
DUZ REVIEW+8
FDA REVIEW+7~
FDA( REVIEW+10*
HDR DISP+1~, DISP+5*, DISP+6
HDR1 DISP+1~, DISP+6*
HDR2 DISP+1~, DISP+6*, DISP+7
>> IEN ALERT+14, ALERT+17
IOF DISP+4
IOM DISP+6, DISP+10, DISP+12, DISP+18, DISP+20, DISP+24, DISP+33
>> SAVE( ALERT+13
U ALERT+12, ALERT+13, ALERT+14, ALERT+15, DISP+8, DISP+9, DISP+13, DISP+14, DISP+15, DISP+16
, DISP+17, DISP+21, DISP+22, DISP+23, DISP+27, DISP+31, DISP+32, DISP+36, DISP+38, REVIEW+8
, REVIEW+9, MSG+12
X DATE4~, DATE4+1, DATE4+2*, DATE4+3
XMDUZ MSG+2*, MSG+14!
XMSUB MSG+2*, MSG+14!
XMTEXT MSG+13*, MSG+14!
XMY MSG+14!
XMY( ALERT+6*
XMY("G.MPIF E XCEPTIONS" , ALERT+7*
XMZ MSG+13, MSG+14!
XQA ALERT+1!
XQA( ALERT+4*, ALERT+6*
XQA("" ALERT+5, ALERT+9
XQAARCH ALERT+1!, ALERT+16*
XQADATA ALERT+1!, ALERT+12*, ALERT+13*, ALERT+14*, ALERT+15*, DISP+8, DISP+9, DISP+13, DISP+14, DISP+15
, DISP+16, DISP+17, DISP+21, DISP+22, DISP+23, DISP+27
XQAID ALERT+1!, ALERT+17*, DISP+3
XQAKILL DISP+2!, DISP+39!, REMOVE+6*
XQAMSG ALERT+1!, ALERT+10*
XQAROU ALERT+1!, ALERT+16*
>> XQY ALERT+15
Y DISP+1~, REVIEW+3, REVIEW+6, REMOVE+1~, REMOVE+6
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 |  Local Variables  | All