Routine: DGPFUT

Information

DGPFUT ;ALB/RPM - PRF UTILITIES ; 6/7/05 3:13pm

Source Information

Source file <DGPFUT.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	4	$$GET1^DID CHK^DIE $$EXTERNAL^DILFD ^DIR
Registration	1	$$BLDTFL^DGPFUT2
Uncategorized	1	($$GETICN,$$IFLOCAL,GETICN)^MPIF001

Caller Graph

Caller Graph Total: 35

Package	Total	Caller Graph
Registration	35	DGPFAA DGPFAA2 DGPFAAH DGPFALF DGPFALH DGPFAPI DGPFAPI1 DGPFAPI2 DGPFDD DGPFDIV DGPFDIV1 DGPFHLL DGPFHLR DGPFHLS DGPFHLU DGPFHLUQ DGPFLF2 DGPFLF3 DGPFLF4 DGPFLF5 DGPFLF6 DGPFLMA1 DGPFLMA2 DGPFLMA3 DGPFLMA4 DGPFLMQ1 DGPFLMQ2 DGPFRAB DGPFRAL DGPFRAL1 DGPFRFA DGPFRFR DGPFRPA DGPFRPI DGPFUT1

Entry Points

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

External References

Name	Field # of Occurrence
$$BLDTFL^DGPFUT2	GETNXTF+21
$$GET1^DID	VALID+29, VALID+33, TESTVAL+19
CHK^DIE	TESTVAL+20, STATUS+17
$$EXTERNAL^DILFD	TESTVAL+17, STATUS+15
^DIR	ANSWER+27, CONTINUE+8
$$GETICN^MPIF001	MPIOK+21
$$IFLOCAL^MPIF001	MPIOK+27
GETICN^MPIF001	MPIOK+17

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPF(26.14 - [#26.14]	CHK^DIE, EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	ISDIV+9

Label References

Name	Line Occurrences
$$CKWP	VALID+26
$$TESTVAL	VALID+32
BLDXR	VALID+20

Local Variables

Legend:

>>	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

Customize PDF page

Package: Registration

Routine: DGPFUT

Call Graph Total: 6

Caller Graph Total: 35