DG712PST ;BIR/CMC/TKW,PTD-PATCH DG*5.3*712 POST INSTALLATION ROUTINE ;1/29/09 17:41
Source file <DG712PST.m>
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
|
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DD("IX" - [#.11] | FIND^DIC, WP^DIE |
2.01 | TURNON^DIAUTL |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | DQUPDBAI+7, DQUPDBAI+9 |
Name | Line Occurrences |
---|---|
ALIAS | POST+8 |
LOOP | TEMPL+5 |
TEMPL | POST+6 |
UPDBAI | POST+10 |
XR | POST+3, POST+4, POST+5 |
>> | 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 |
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 |