DG648PST ;BIR/CMC-PATCH DG*5.3*648 POST INSTALLATION ROUTINE ;2/11/05
Source file <DG648PST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOOP(FIELD,FILE) | ;
|
|
| XR(DGFILE,DGFLD) | ;File index type cross references
|
|
| TEMPL | ||
| CHKSUM | ;fix missing leading zeros for ICN Checksums
|
|
| POST | ;Post init
|
|
| LOCK(IEN) | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | POST+11 |
| FIND^DIC | XR+10 |
| ^DIE | CHKSUM+17 |
| UPDATE^DIE | XR+39 |
| WP^DIE | XR+51 |
| EN^DIEZ | LOOP+15 |
| $$ROUSIZE^DILF | LOOP+14 |
| EN^DIPZ | LOOP+16 |
| $$SITE^VASITE | CHKSUM+5, CHKSUM+25, CHKSUM+30, CHKSUM+35, CHKSUM+41 |
| $$FMADD^XLFDT | POST+9 |
| $$NOW^XLFDT | POST+9 |
| ^XMD | CHKSUM+27, CHKSUM+32, CHKSUM+37, CHKSUM+43 |
| BMES^XPDUTL | TEMPL+1, TEMPL+8, LOOP+7, LOOP+9, LOOP+15, LOOP+16 |
| MES^XPDUTL | POST+7, XR+12, XR+42, XR+43, XR+45, XR+49, TEMPL+11 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DD("IX" - [#.11] | FIND^DIC, WP^DIE |
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | CHKSUM+7, CHKSUM+9, CHKSUM+18, LOCK+1 |
| ^DPT("AICN" | CHKSUM+4, CHKSUM+6 |
| ^XTMP("DG648" | CHKSUM+1!, CHKSUM+10*, CHKSUM+19*, CHKSUM+20*, CHKSUM+21*, CHKSUM+22*, CHKSUM+44! |
| Name | Line Occurrences |
|---|---|
| LOCK | CHKSUM+16 |
| LOOP | TEMPL+4 |
| TEMPL | POST+5 |
| XR | POST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | POST+12! |
| ARR | CHKSUM+39~ |
| ARR(1 | CHKSUM+40* |
| CFIELD | TEMPL+12! |
| CFIELD( | TEMPL+9, LOOP+11, LOOP+12* |
| CHECK | CHKSUM+2~, CHKSUM+9*, CHKSUM+10, CHKSUM+11, CHKSUM+13*, CHKSUM+19, CHKSUM+20 |
| CNT | CHKSUM+2~, CHKSUM+3*, CHKSUM+20*, CHKSUM+21, CHKSUM+23, CHKSUM+38, TEMPL~, TEMPL+3*, TEMPL+4* |
| CNT2 | CHKSUM+2~, CHKSUM+3*, CHKSUM+10*, CHKSUM+21, CHKSUM+28, CHKSUM+38 |
| CNT3 | CHKSUM+2~, CHKSUM+3*, CHKSUM+19*, CHKSUM+22, CHKSUM+33, CHKSUM+38 |
| DA | CHKSUM+2~, CHKSUM+14!, CHKSUM+15*, CHKSUM+16, CHKSUM+18 |
| DFN | CHKSUM+2~, CHKSUM+6*, CHKSUM+7, CHKSUM+9, CHKSUM+10, CHKSUM+15, CHKSUM+19, CHKSUM+20 |
| DGERR | XR+2~ |
| DGERR("DIERR" | XR+44, XR+45 |
| DGFDA | XR+2~ |
| DGFDA( | XR+15*, XR+16*, XR+17*, XR+18*, XR+19*, XR+20*, XR+21*, XR+22*, XR+23*, XR+24* , XR+25*, XR+27*, XR+28*, XR+29*, XR+30*, XR+31* |
| DGFILE | POST+1~, XR~, XR+9, XR+15, XR+22, XR+24, XR+25, XR+29, XR+48 |
| DGFLD | POST+1~, XR~, XR+7, XR+24, XR+25, XR+30, XR+48 |
| DGFLD( | XR+48* |
| DGI | XR+41~*, XR+44*, XR+45 |
| DGIEN | XR+2~ |
| DGIEN(1 | XR+51 |
| DGMFLD | POST+1~ |
| DGOUT | POST+1~, XR+2~ |
| DGOUT("DILIST" | XR+11 |
| DGVAL | XR+2~, XR+10 |
| DGVAL(1 | XR+9* |
| DGVAL(2 | XR+9* |
| DGWP | XR+2~ |
| DGWP(1 | XR+33* |
| DGWP(2 | XR+34* |
| DGWP(3 | XR+35* |
| DGWP(4 | XR+36* |
| DGWP(5 | XR+37* |
| DGXR | XR+2~, XR+7*, XR+9, XR+12, XR+16, XR+42, XR+49 |
| DIE | CHKSUM+2~, CHKSUM+14!, CHKSUM+17* |
| DIERR | XR+2~, XR+40 |
| DIFROM | CHKSUM+24~, CHKSUM+29~, CHKSUM+34~, CHKSUM+39~ |
| DMAX | LOOP+1~, LOOP+14* |
| DR | CHKSUM+2~, CHKSUM+14!, CHKSUM+17* |
| DUZ | POST+10, CHKSUM+25, CHKSUM+30, CHKSUM+35, CHKSUM+41 |
| FIELD | TEMPL~, TEMPL+3*, TEMPL+4*, LOOP~, LOOP+3, LOOP+5 |
| FILE | TEMPL~, TEMPL+3*, TEMPL+4, LOOP~, LOOP+3, LOOP+5 |
| GLOBAL | TEMPL~, LOOP+1~, LOOP+2*, LOOP+3, LOOP+5, LOOP+6, LOOP+8, LOOP+9, LOOP+10, LOOP+15 , LOOP+16 |
| ICN | CHKSUM+2~, CHKSUM+3*, CHKSUM+4*, CHKSUM+5, CHKSUM+6, CHKSUM+7, CHKSUM+10, CHKSUM+19, CHKSUM+20 |
| IEN | LOCK~, LOCK+1 |
| LEN | CHKSUM+2~, CHKSUM+11*, CHKSUM+12, CHKSUM+13 |
| NFIELD | TEMPL~, TEMPL+3*, TEMPL+4 |
| TEMPL+11, TEMPL+12! | |
| PRINT( | TEMPL+9* |
| 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 |
| X | CHKSUM+2~, CHKSUM+14!, TEMPL+7*, TEMPL+9*, TEMPL+12!, LOOP+1~, LOOP+8*, LOOP+9, LOOP+10, LOOP+11 , LOOP+12 |
| XMSUB | CHKSUM+24~, CHKSUM+25*, CHKSUM+29~, CHKSUM+30*, CHKSUM+34~, CHKSUM+35*, CHKSUM+39~, CHKSUM+41* |
| XMTEXT | CHKSUM+24~, CHKSUM+26*, CHKSUM+29~, CHKSUM+31*, CHKSUM+34~, CHKSUM+36*, CHKSUM+39~, CHKSUM+42* |
| XMY | CHKSUM+24~, CHKSUM+29~, CHKSUM+34~, CHKSUM+39~ |
| XMY( | CHKSUM+25*, CHKSUM+30*, CHKSUM+35*, CHKSUM+41* |
| XMY("CHESNEY.CHRISTINE_M@FORUM.VA.GOV" | CHKSUM+26*, CHKSUM+31*, CHKSUM+36*, CHKSUM+42* |
| Y | CHKSUM+2~, CHKSUM+14!, CHKSUM+19, TEMPL+7*, TEMPL+9*, TEMPL+12!, LOOP+1~, LOOP+13* |
| ZTDESC | POST+8*, POST+12! |
| ZTDTH | POST+9*, POST+12! |
| ZTIO | POST+9*, POST+12! |
| ZTQUEUED | POST+12! |
| ZTREQ | POST+12! |
| ZTRTN | POST+8*, POST+12! |
| ZTSAVE | POST+12! |
| ZTSAVE("DUZ" | POST+10* |
| ZTSK | POST+12! |