DGPFUT ;ALB/RPM - PRF UTILITIES ; 6/7/05 3:13pm
Source file <DGPFUT.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | $$GET1^DID CHK^DIE $$EXTERNAL^DILFD ^DIR |
| Registration | 1 | $$BLDTFL^DGPFUT2 |
| Uncategorized | 1 | ($$GETICN,$$IFLOCAL,GETICN)^MPIF001 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETNXTF(DGDFN,DGLTF) | ;get previous treating facility
|
|
| BLDXR(DGRTN,DGFLDA) | ;build name/field xref array
|
|
| CONTINUE() | ;pause display
|
|
| MPIOK(DGDFN,DGICN) | ;return national ICN
|
|
| ANSWER(DGDIRA,DGDIRB,DGDIR0,DGDIRH,DGDIRS) | ||
| STATUS(DGACT) | ;calculate the assignment STATUS given an ACTION code
|
|
| ISDIV(DGSITE) | ;is site local division
|
|
| CKWP(DGROOT) | ;ck word processing required fields
|
|
| VALID(DGRTN,DGFILE,DGIP,DGERR) | ;validate input values before filing
|
|
| TESTVAL(DGFIL,DGFLD,DGVAL) | ;validate individual value against field def
|
| FileNo | Call Tags |
|---|---|
| ^DGPF(26.14 - [#26.14] | CHK^DIE, EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | ISDIV+9 |
| Name | Line Occurrences |
|---|---|
| $$CKWP | VALID+26 |
| $$TESTVAL | VALID+32 |
| BLDXR | VALID+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGACT | STATUS~, STATUS+14, STATUS+15*, STATUS+17 |
| DGARR | GETNXTF+14~, GETNXTF+34*, GETNXTF+35, GETNXTF+36, GETNXTF+37*, GETNXTF+38*, GETNXTF+40 |
| DGDARR | GETNXTF+15~ |
| DGDARR( | GETNXTF+30* |
| DGDFN | MPIOK~, MPIOK+20, MPIOK+21, MPIOK+27, GETNXTF~, GETNXTF+21 |
| DGDIR0 | ANSWER~, ANSWER+22 |
| DGDIRA | ANSWER~, ANSWER+23 |
| DGDIRB | ANSWER~, ANSWER+24 |
| DGDIRH | ANSWER~, ANSWER+25 |
| DGDIRS | ANSWER~, ANSWER+26 |
| DGERR | VALID~, VALID+29*, VALID+33*, STATUS+9~, STATUS+16, STATUS+18 |
| DGFIL | TESTVAL~, TESTVAL+16, TESTVAL+17, TESTVAL+19, TESTVAL+20 |
| DGFILE | VALID~, VALID+11, VALID+29, VALID+32, VALID+33 |
| DGFLD | TESTVAL~, TESTVAL+16, TESTVAL+17, TESTVAL+19, TESTVAL+20 |
| DGFLDA | BLDXR~ |
| DGFLDA( | BLDXR+23* |
| DGFXR | VALID+13~, VALID+20 |
| DGFXR( | VALID+22, VALID+23, VALID+24, VALID+29, VALID+32, VALID+33 |
| DGICN | MPIOK~, MPIOK+21*, MPIOK+24 |
| DGINST | GETNXTF+16~, GETNXTF+28*, GETNXTF+29*, GETNXTF+30 |
| DGIP | VALID~ |
| DGIP( | VALID+27, VALID+32 |
| DGLIN | CKWP+10~, CKWP+14*, CKWP+15*, CKWP+16 |
| DGLINE | BLDXR+20~, BLDXR+22*, BLDXR+23 |
| DGLTF | GETNXTF~, GETNXTF+24*, GETNXTF+25*, GETNXTF+35, GETNXTF+36, GETNXTF+37 |
| DGN | VALID+16~, VALID+19*, VALID+22*, VALID+23, VALID+24, VALID+27, VALID+29, VALID+32, VALID+33 |
| DGNAM | GETNXTF+17~, GETNXTF+33*, GETNXTF+34 |
| DGOFF | BLDXR+19~, BLDXR+22* |
| DGREQ | VALID+14~, VALID+23*, VALID+25 |
| DGROOT | CKWP~, CKWP+13, CKWP+15, CKWP+16 |
| DGRSLT | CKWP+11~, CKWP+12*, CKWP+15, CKWP+16*, CKWP+17, TESTVAL+12~, TESTVAL+20, STATUS+10~, STATUS+17, MPIOK+18~ , MPIOK+19*, MPIOK+29*, MPIOK+30 |
| DGRSLT(0 | STATUS+19 |
| DGRTN | VALID~, VALID+11, VALID+20, BLDXR~, BLDXR+14*, BLDXR+15, BLDXR+16*, BLDXR+22 |
| DGSITE | ISDIV~, ISDIV+8*, ISDIV+9 |
| DGSTAT | STATUS+11~, STATUS+13*, STATUS+19*, STATUS+20*, STATUS+21 |
| DGTAG | BLDXR+18~, BLDXR+22* |
| DGTFARR | GETNXTF+18~, GETNXTF+21 |
| DGTFARR( | GETNXTF+25, GETNXTF+29, GETNXTF+30 |
| DGTYP | TESTVAL+11~ |
| DGVAL | TESTVAL~, TESTVAL+16, TESTVAL+17 |
| DGVALEX | TESTVAL+10~, TESTVAL+17*, TESTVAL+18, TESTVAL+20 |
| DGVLD | VALID+12~, VALID+18*, VALID+22, VALID+26*, VALID+27*, VALID+28, VALID+33*, VALID+34 |
| DGWP | VALID+15~, VALID+24*, VALID+26, VALID+27, VALID+30 |
| DIR | ANSWER+20~, CONTINUE+7~ |
| DIR("?" | ANSWER+25* |
| DIR("A" | ANSWER+23* |
| DIR("B" | ANSWER+24* |
| DIR("S" | ANSWER+26* |
| DIR(0 | ANSWER+22*, CONTINUE+8* |
| DIROUT | ANSWER+20~, ANSWER+28 |
| DIRUT | ANSWER+20~ |
| DTOUT | ANSWER+20~, ANSWER+28 |
| DUOUT | ANSWER+20~, ANSWER+28 |
| U | ANSWER+28, VALID+23, VALID+24, VALID+32, BLDXR+23 |
| VALID | TESTVAL+13~, TESTVAL+15*, TESTVAL+18*, TESTVAL+20*, TESTVAL+21 |
| X | ANSWER+20~, ANSWER+28 |
| Y | ANSWER+20~, ANSWER+28, CONTINUE+7~, CONTINUE+9 |
| Name | Field # of Occurrence |
|---|---|
| $T(@DGRTN | BLDXR+17 |
| $T(@DGTAG | BLDXR+22 |
| $T(GETICN^MPIF001 | MPIOK+17 |