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 |