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 |