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 |  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: DG712PST

Package: Registration

Routine: DG712PST


Information

DG712PST ;BIR/CMC/TKW,PTD-PATCH DG*5.3*712 POST INSTALLATION ROUTINE ;1/29/09 17:41

Source Information

Source file <DG712PST.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA Fileman 6 TURNON^DIAUTL  FIND^DIC  (UPDATE,WP)^DIE  EN^DIEZ  $$ROUSIZE^DILF  EN^DIPZ  
Uncategorized 3 $$GETICN^MPIF001  $$A31^MPIFA31B  (EXC,START,STOP)^RGHLLOG  
Kernel 2 ^%ZTLOAD  (BMES,MES)^XPDUTL  
MailMan 1 ^XMD  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
LOOP(FIELD,FILE) ;Compile templates.
UPDBAI ; Send A31 to update the BAD ADDRESS INDICATOR for all patients
XR(DGFILE,DGFLD) ;File index type cross references
TEMPL ;Determine templates on the PATIENT (#2) file to be compiled.
ALIAS ;TURNING ON ALIAS AUDITING
DQUPDBAI ; Entry point to queue job to update BAD ADDRESS INDICATOR for all patients
POST ;Post init

External References

Name Field # of Occurrence
^%ZTLOAD UPDBAI+5
TURNON^DIAUTL ALIAS+2, ALIAS+3
FIND^DIC XR+7
UPDATE^DIE XR+36
WP^DIE XR+48
EN^DIEZ LOOP+15
$$ROUSIZE^DILF LOOP+14
EN^DIPZ LOOP+16
$$GETICN^MPIF001 DQUPDBAI+11
$$A31^MPIFA31B DQUPDBAI+16
EXC^RGHLLOG DQUPDBAI+19
START^RGHLLOG DQUPDBAI+18
STOP^RGHLLOG DQUPDBAI+20
$$SITE^VASITE DQUPDBAI+3
^XMD DQUPDBAI+37, DQUPDBAI+53
BMES^XPDUTL XR+39, TEMPL+2, TEMPL+8, LOOP+7, LOOP+9, LOOP+15, LOOP+16, UPDBAI+1
MES^XPDUTL XR+9, XR+40, XR+42, XR+46, TEMPL+11, UPDBAI+6, UPDBAI+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: TEMPL+6
Function Call: WRITE
  • Prompt: !,"Adding AUDIT to sub-file 2.01 Alias, field #",FLDNUM
  • Line Location: ALIAS+2
Function Call: WRITE
  • Prompt: !,"Adding AUDIT to sub-file 2.01 Alias, field #",FLDNUM
  • Line Location: ALIAS+3
Routine Call
  • DIE
  • Line Location:
    • XR+36
Routine Call
  • DIC
  • Line Location:
    • XR+7
Routine Call
  • DIE
  • Line Location:
    • XR+48

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DD("IX" - [#.11] FIND^DIC,  WP^DIE
2.01 TURNON^DIAUTL

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DQUPDBAI+7, DQUPDBAI+9

Label References

Name Line Occurrences
ALIAS POST+8
LOOP TEMPL+5
TEMPL POST+6
UPDBAI POST+10
XR POST+3, POST+4, POST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CFIELD TEMPL+12!
CFIELD( TEMPL+9, LOOP+11, LOOP+12*
CNT TEMPL+1~, TEMPL+4*, TEMPL+5*
DGBAI DQUPDBAI+1~, DQUPDBAI+9*, DQUPDBAI+10
DGCNT DQUPDBAI+1~, DQUPDBAI+5*, DQUPDBAI+22*, DQUPDBAI+26, DQUPDBAI+42
DGDFN DQUPDBAI+1~, DQUPDBAI+7*, DQUPDBAI+9, DQUPDBAI+11, DQUPDBAI+16, DQUPDBAI+19
DGECNT DQUPDBAI+1~, DQUPDBAI+5*, DQUPDBAI+21*, DQUPDBAI+27, DQUPDBAI+28, DQUPDBAI+30, DQUPDBAI+43, DQUPDBAI+45
DGERR XR+2~, DQUPDBAI+1~, DQUPDBAI+16*, DQUPDBAI+17, DQUPDBAI+19
DGERR("DIERR" XR+41, XR+42
DGFDA XR+2~
DGFDA( XR+12*, XR+13*, XR+14*, XR+15*, XR+16*, XR+17*, XR+18*, XR+19*, XR+20*, XR+21*
, XR+22*, XR+24*, XR+25*, XR+26*, XR+27*, XR+28*
DGFILE POST+1~, XR~, XR+6, XR+12, XR+19, XR+21, XR+22, XR+26, XR+45
DGFLD POST+1~, XR~, XR+4, XR+21, XR+22, XR+27, XR+45
DGFLD( XR+45*
DGI XR+38~*, XR+41*, XR+42
DGICN DQUPDBAI+1~, DQUPDBAI+11*, DQUPDBAI+13, DQUPDBAI+14
DGIEN XR+2~
DGIEN(1 XR+48
DGMFLD POST+1~
DGOUT POST+1~, XR+2~
DGOUT("DILIST" XR+8
DGSITE DQUPDBAI+1~, DQUPDBAI+4*, DQUPDBAI+14, DQUPDBAI+40, DQUPDBAI+49
DGSNAME DQUPDBAI+1~, DQUPDBAI+4*, DQUPDBAI+40
DGVAL XR+2~, XR+7
DGVAL(1 XR+6*
DGVAL(2 XR+6*
DGWP XR+2~
DGWP(1 XR+30*
DGWP(2 XR+31*
DGWP(3 XR+32*
DGWP(4 XR+33*
DGWP(5 XR+34*
DGXR XR+2~, XR+4*, XR+6, XR+9, XR+13, XR+39, XR+46
DIERR XR+2~, XR+37
DMAX LOOP+1~, LOOP+14*
DUZ DQUPDBAI+36, DQUPDBAI+50
FIELD TEMPL+1~, TEMPL+4*, TEMPL+5*, LOOP~, LOOP+3, LOOP+5
FILE TEMPL+1~, TEMPL+4*, TEMPL+5, LOOP~, LOOP+3, LOOP+5
FLDNUM ALIAS+1~, ALIAS+2*, ALIAS+3*
GLOBAL TEMPL+1~, LOOP+1~, LOOP+2*, LOOP+3, LOOP+5, LOOP+6, LOOP+8, LOOP+9, LOOP+10, LOOP+15
, LOOP+16
NFIELD TEMPL+1~, TEMPL+4*, TEMPL+5
PRINT TEMPL+11, TEMPL+12!
PRINT( TEMPL+9*
R DQUPDBAI+1~, DQUPDBAI+25~, DQUPDBAI+39!
R(1 DQUPDBAI+26*, DQUPDBAI+40*
R(2 DQUPDBAI+27*, DQUPDBAI+29*, DQUPDBAI+41*
R(3 DQUPDBAI+27*, DQUPDBAI+30*, DQUPDBAI+42*
R(4 DQUPDBAI+31*, DQUPDBAI+44*
R(5 DQUPDBAI+32*, DQUPDBAI+45*
R(6 DQUPDBAI+46*
R(7 DQUPDBAI+47*
TEMPLATN LOOP+1~, LOOP+6*, LOOP+7, LOOP+9
TEMPLATP LOOP+1~, LOOP+4*, LOOP+5*, LOOP+6, LOOP+8, LOOP+9, LOOP+10, LOOP+13
U DQUPDBAI+9
X TEMPL+7*, TEMPL+9*, TEMPL+12!, LOOP+1~, LOOP+8*, LOOP+9, LOOP+10, LOOP+11, LOOP+12, DQUPDBAI+1~
, DQUPDBAI+3*, DQUPDBAI+4, DQUPDBAI+25~
XMDUN DQUPDBAI+25~, DQUPDBAI+39!
XMDUZ DQUPDBAI+25~, DQUPDBAI+35*, DQUPDBAI+39!, DQUPDBAI+50*
XMSUB DQUPDBAI+25~, DQUPDBAI+34*, DQUPDBAI+39!, DQUPDBAI+49*
XMTEXT DQUPDBAI+25~, DQUPDBAI+34*, DQUPDBAI+39!, DQUPDBAI+49*
XMY DQUPDBAI+25~, DQUPDBAI+39!
XMY( DQUPDBAI+36*
XMY("CHRISTINE.LINK@VA.GOV" DQUPDBAI+52*
XMY("TAMI.WINN@VA.GOV" DQUPDBAI+51*
XMZ DQUPDBAI+25~, DQUPDBAI+39!
Y TEMPL+7*, TEMPL+9*, TEMPL+12!, LOOP+1~, LOOP+13*, UPDBAI+2~
ZTDESC UPDBAI+2~, UPDBAI+4*
ZTDTH UPDBAI+2~, UPDBAI+3*
ZTIO UPDBAI+2~, UPDBAI+3*
ZTRTN UPDBAI+2~, UPDBAI+3*
ZTSAVE UPDBAI+2~
ZTSK UPDBAI+2~, UPDBAI+6, UPDBAI+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All