Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGPFUT

Package: Registration

Routine: DGPFUT


Information

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

Source Information

Source file <DGPFUT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 $$GET1^DID  CHK^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Master Patient Index VistA 1 ($$GETICN,$$IFLOCAL)^MPIF001  
Registration 1 $$BLDTFL^DGPFUT2  

Caller Graph

Caller Graph Total: 44

Package Total Caller Graph
Registration 44 DGPFAA  DGPFAA2  DGPFAAH  DGPFALF  DGPFALH  DGPFAPI  DGPFAPI1  DGPFAPI2  
DGPFCNV  DGPFDD  DGPFDIV  DGPFDIV1  DGPFHLF  DGPFHLL  DGPFHLR  DGPFHLS  
DGPFHLT  DGPFHLU  DGPFHLUQ  DGPFLF2  DGPFLF3  DGPFLF4  DGPFLF5  DGPFLF6  
DGPFLMA1  DGPFLMA2  DGPFLMA3  DGPFLMA4  DGPFLMQ1  DGPFLMQ2  DGPFLMT1  DGPFRAB  
DGPFRAL  DGPFRAL1  DGPFRDB  DGPFRFA1  DGPFRFR  DGPFRPA  DGPFRPI  DGPFTR1  
DGPFUT1  DGPFUT6  DGPFUT63  DGPFUT7  

Entry Points

Name Comments DBIA/ICR reference
ANSWER(DGDIRA,DGDIRB,DGDIR0,DGDIRH,DGDIRS,DIRX) ;
; Wrap FileMan Classic Reader call
; Input
; DGDIR0 - DIR(0) string
; DGDIRA - DIR("A") string (may be passed by reference [dg*951])
; DGDIRB - DIR("B") string
; DGDIRH - DIR("?") string (may be passed by reference [dg*951])
; DGDIRS - DIR("S") string
; .DIRX - [optional] - multi-function - DG*5.3*951
; a) you may pass .DIR() instead of individual variables
; b) if DIRX=-2 you wish this API to return -2 upon time-out
CONTINUE() ;pause display
CKWP(DGROOT,DGTX) ; ck word processing required fields
DIQ(FILE,XDA,FLD) ; retrieve single value from record; DG*5.3*951
GET1(FILE,FLD,FLG,ATT,PAD) ; call $$GET1^DID ; dg*951
GETNXTF(DGDFN,DGLTF) ;get previous treating facility
ISDIV(DGSITE) ;is site local division
MPIOK(DGDFN,DGICN) ;return national ICN
STATUS(DGACT) ;calculate the assignment STATUS given an ACTION code
TESTVAL(DGFIL,DGFLD,DGVAL) ;validate individual value against field def
VALID(DGRTN,DGFILE,DGIP,DGERR) ;validate input values before filing
BLDXR(DGRTN,DGFLDA) ;build name/field xref array

External References

Name Field # of Occurrence
$$BLDTFL^DGPFUT2 GETNXTF+21
$$GET1^DID GET1+7
CHK^DIE STATUS+18, TESTVAL+23
$$EXTERNAL^DILFD STATUS+16, TESTVAL+19
$$GET1^DIQ DIQ+6
^DIR ANSWER+36, CONTINUE+8
$$GETICN^MPIF001 MPIOK+20
$$IFLOCAL^MPIF001 MPIOK+26

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+27
$$GET1 TESTVAL+22, VALID+31, VALID+36
$$TESTVAL VALID+35
BLDXR VALID+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALPHA CKWP+16~, CKWP+17*, CKWP+20, CKWP+21*, CKWP+28
ATT GET1~, GET1+5, GET1+7
DGACT STATUS~, STATUS+14, STATUS+16*, STATUS+18
DGARR GETNXTF+14~, GETNXTF+34*, GETNXTF+35, GETNXTF+36, GETNXTF+37*, GETNXTF+38*, GETNXTF+40
DGDARR GETNXTF+15~
DGDARR( GETNXTF+30*
DGDFN GETNXTF~, GETNXTF+21, MPIOK~, MPIOK+19, MPIOK+20, MPIOK+26
DGDIR0 ANSWER~, ANSWER+28
DGDIRA ANSWER~, ANSWER+29, ANSWER+30
DGDIRA("A" ANSWER+30
DGDIRB ANSWER~, ANSWER+31
DGDIRH ANSWER~, ANSWER+32, ANSWER+33
DGDIRS ANSWER~, ANSWER+34
DGERR DIQ+1~, STATUS+9~, STATUS+17, STATUS+19, VALID~, VALID+31*, VALID+36*
DGFIL TESTVAL~, TESTVAL+16*, TESTVAL+17, TESTVAL+19, TESTVAL+22, TESTVAL+23
DGFILE VALID~, VALID+11, VALID+31, VALID+35, VALID+36
DGFLD TESTVAL~, TESTVAL+16*, TESTVAL+17, TESTVAL+19, TESTVAL+22, TESTVAL+23
DGFLDA BLDXR~
DGFLDA( BLDXR+21*
DGFXR VALID+13~, VALID+20
DGFXR( VALID+22, VALID+24, VALID+25, VALID+31, VALID+35, VALID+36
DGICN MPIOK~, MPIOK+20*, MPIOK+23
DGINST GETNXTF+16~, GETNXTF+28*, GETNXTF+29*, GETNXTF+30
DGIP VALID~
DGIP( VALID+28, VALID+35
DGLTF GETNXTF~, GETNXTF+24*, GETNXTF+25*, GETNXTF+35, GETNXTF+36, GETNXTF+37
DGN VALID+16~, VALID+19*, VALID+22*, VALID+24, VALID+25, VALID+28, VALID+31, VALID+35, VALID+36
DGNAM GETNXTF+17~, GETNXTF+33*, GETNXTF+34
DGPFERR GET1+1~, TESTVAL+18~, VALID+23~
DGREQ VALID+14~, VALID+24*, VALID+26
DGROOT CKWP~, CKWP+18, CKWP+19
DGRSLT MPIOK+17~, MPIOK+18*, MPIOK+28*, MPIOK+29, STATUS+10~, STATUS+18, TESTVAL+12~, TESTVAL+23, TESTVAL+24
DGRSLT(0 STATUS+20
DGRTN VALID~, VALID+11, VALID+20, BLDXR~, BLDXR+14*, BLDXR+15*, BLDXR+19
DGSITE ISDIV~, ISDIV+8*, ISDIV+9
DGSTAT STATUS+11~, STATUS+13*, STATUS+20*, STATUS+21*, STATUS+22
DGTFARR GETNXTF+18~, GETNXTF+21
DGTFARR( GETNXTF+25, GETNXTF+29, GETNXTF+30
DGTX CKWP~, CKWP+31
DGTX( CKWP+28*, CKWP+29*, CKWP+30*
DGTYP TESTVAL+11~
DGVAL TESTVAL~, TESTVAL+16*, TESTVAL+17, TESTVAL+19
DGVALEX TESTVAL+10~, TESTVAL+19*, TESTVAL+21, TESTVAL+23
DGVLD VALID+12~, VALID+18*, VALID+22, VALID+27*, VALID+28*, VALID+30, VALID+36*, VALID+37
DGWP DIQ+1~, DIQ+6, VALID+15~, VALID+25*, VALID+27, VALID+28, VALID+33
DIERR DIQ+1~, DIQ+7, GET1+1~, GET1+8, STATUS+15~, TESTVAL+18~, TESTVAL+20, TESTVAL+23, TESTVAL+24, TESTVAL+26
, VALID+23~
DIR ANSWER+25~, ANSWER+26*, CONTINUE+7~
DIR("?" ANSWER+32*, ANSWER+33*
DIR("A" ANSWER+29*, ANSWER+30*
DIR("B" ANSWER+31*
DIR("S" ANSWER+34*
DIR(0 ANSWER+28*, CONTINUE+8*
DIROUT ANSWER+25~, ANSWER+40, ANSWER+43
DIRUT ANSWER+25~
DIRX ANSWER~, ANSWER+26, ANSWER+39
DTOUT ANSWER+25~, ANSWER+40, ANSWER+43
DUOUT ANSWER+25~, ANSWER+40, ANSWER+43
FILE DIQ~, DIQ+2*, DIQ+6, GET1~, GET1+3, GET1+7
FLD DIQ~, DIQ+3*, DIQ+6, GET1~, GET1+4, GET1+7
FLG GET1~, GET1+6*, GET1+7
I CKWP+19~*
LINE CKWP+16~, CKWP+17*, CKWP+28*, CKWP+29*, CKWP+30*, BLDXR+17~, BLDXR+19, BLDXR+20*, BLDXR+21
MSG GET1+1~, GET1+2*, GET1+3, GET1+4, GET1+5, GET1+8
NM BLDXR+20~, BLDXR+21*
NOCTRL CKWP+16~, CKWP+17*, CKWP+24*, CKWP+30
NOTAB CKWP+16~, CKWP+17*, CKWP+22*, CKWP+29
OFF BLDXR+17~, BLDXR+19*
PAD GET1~, GET1+6*, GET1+9
REF BLDXR+17~, BLDXR+19*
STR CKWP+16~, CKWP+17*, CKWP+20*, CKWP+21
TEMP CKWP+16~
U ANSWER+41, ANSWER+44, VALID+24, VALID+25, VALID+35, BLDXR+21
VALID TESTVAL+13~, TESTVAL+15*, TESTVAL+20*, TESTVAL+21*, TESTVAL+24*, TESTVAL+26*, TESTVAL+27
X ANSWER+25~, ANSWER+41, ANSWER+44, CKWP+16~, CKWP+19~*, CKWP+20, CKWP+22, CKWP+23*, CKWP+24, DIQ+1~
, DIQ+6*, DIQ+7*, DIQ+8, GET1+1~, GET1+7*, GET1+9*, GET1+10
XDA DIQ~, DIQ+4*, DIQ+5*, DIQ+6
Y ANSWER+25~, ANSWER+41, ANSWER+44, CONTINUE+7~, CONTINUE+9, CKWP+16~
Z ANSWER+25~, ANSWER+39, ANSWER+40*, ANSWER+41*

Marked Items

Name Field # of Occurrence
$T(@DGRTN BLDXR+16
$T(@REF BLDXR+20
$T(CKWP+1 CKWP+28
$T(CKWP+2 CKWP+29
$T(CKWP+3 CKWP+30
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All