Routine: DGPFUT2

Information

DGPFUT2 ;ALB/KCL - PRF UTILITIES CONTINUED ; 12/17/03 2:56pm

Source Information

Source file <DGPFUT2.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	3	BLD^DIALOG FILE^DIE GETS^DIQ
Registration	2	TFL^VAFCTFU1 $$SITE^VASITE
IHS Changes To ADT	1	($$HRCN,$$HRCND)^BDGF2
Kernel	1	($$IEN,$$TF)^XUAF4
Uncategorized	1	$$GETDFN^MPIF001

Caller Graph

Caller Graph Total: 20

Package	Total	Caller Graph
Registration	20	DGPFAPI DGPFBGR DGPFHLQ DGPFHLR DGPFHLU DGPFHLU5 DGPFHLUQ DGPFLMA4 DGPFLMQ1 DGPFLMT1 DGPFLMT3 DGPFLMU DGPFRAB1 DGPFRAL1 DGPFRFA1 DGPFRFR1 DGPFRPA1 DGPFRPI1 DGPFUT DGPFUT3

Entry Points

Name	Comments	DBIA/ICR reference
BLDTFL(DGDFN,DGTFL)	;build array of Treating Facilities ; This function builds an array of INSTITUTION (#4) file pointers ; that are non-local medical treating facilities for a given patient.
GETDFN(DGICN,DGEROOT)	;Used to convert an ICN to a DFN.
GETPAT(DGDFN,DGPAT)	;retrieve patient identifying information ; Used to obtain identifying information for a patient ; in the PATIENT (#2) file and place it in an array format.
SORT(DGPFARR)	;Re-sort of active record assignments by category then flag name ; This function re-sorts the active record flag assignment list for a ; patient by category (Cat I or Cat II) and then by flag name.
ACTDT	; update PRF Software Activation Date field in (#26.18) ; This utility should only be run at the Alpha and Beta test sites ; of the Patient Record Flags Project, Patch DG5.3425. ; If necessary, this entry point will change the date that the ; Patient Record Flags (PRF) System became active. ; The (#1) PRF SOFTWARE ACTIVATION DATE field of the (#26.18) PRF ; PARAMETERS file, will be changed to: SEP 25, 2003

External References

Name	Field # of Occurrence
$$HRCN^BDGF2	GETPAT+39
$$HRCND^BDGF2	GETPAT+39
BLD^DIALOG	GETDFN+24
FILE^DIE	ACTDT+52, ACTDT+60
GETS^DIQ	ACTDT+37
$$GETDFN^MPIF001	GETDFN+23
TFL^VAFCTFU1	BLDTFL+20
$$SITE^VASITE	BLDTFL+21
$$IEN^XUAF4	BLDTFL+24
$$TF^XUAF4	BLDTFL+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Updating the PRF SOFTWARE ACTIVATION DATE (#1) field in the PRF PARAMETERS FILE (#26.18) to the value of SEP 25, 2003..." Line Location: ACTDT+25
Function Call: WRITE	Prompt: !!,$C(7) Line Location: ACTDT+67
Function Call: WRITE	Prompt: "Field could not be updated...",DGERRMSG Line Location: ACTDT+69
Function Call: WRITE	Prompt: "Field was successfully changed from ",$G(DGPARM(26.18,"1,",1,"E"))," to ",$G(DGFDA(26.18,DGIENS,DGFLD)),"." Line Location: ACTDT+71
Routine Call	DIALOG Line Location: GETDFN+24
Routine Call	DIE Line Location: ACTDT+52 ACTDT+60

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPF(26.18 - [#26.18]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETPAT+26, GETPAT+29
^TMP("DGPFUT2"	SORT+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DGACTDT	ACTDT+12~, ACTDT+20*, ACTDT+59
DGCAT	SORT+15~, SORT+31, SORT+32, SORT+35, SORT+36*, SORT+38, SORT+40
DGDFN	GETPAT~, GETPAT+26, GETPAT+29, GETPAT+31, GETPAT+39, GETDFN+16~, GETDFN+23*, GETDFN+24, GETDFN+26, BLDTFL~ , BLDTFL+18, BLDTFL+20
DGDLT	BLDTFL+13~, BLDTFL+28*, BLDTFL+29
DGEROOT	GETDFN~, GETDFN+20*, GETDFN+21, GETDFN+24
DGERR	ACTDT+16~, ACTDT+40, ACTDT+55, ACTDT+63
DGERR("DIERR"	ACTDT+41, ACTDT+56, ACTDT+64
DGERRMSG	ACTDT+17~, ACTDT+29, ACTDT+32, ACTDT+33, ACTDT+36, ACTDT+41, ACTDT+45, ACTDT+48, ACTDT+56, ACTDT+64 , ACTDT+68, ACTDT+69
DGFAC	BLDTFL+14~, BLDTFL+20
DGFAC(	BLDTFL+23, BLDTFL+24, BLDTFL+28
DGFDA	ACTDT+15~
DGFDA(	ACTDT+51, ACTDT+59, ACTDT+71
DGFLD	ACTDT+14~, ACTDT+22*, ACTDT+71
DGI	BLDTFL+15~, BLDTFL+22, BLDTFL+23, BLDTFL+24, BLDTFL+28
DGICN	GETDFN~, GETDFN+23
DGIENS	ACTDT+13~, ACTDT+21*, ACTDT+51, ACTDT+59, ACTDT+71
DGINDX	SORT+16~
DGINDX(	SORT+32*, SORT+36, SORT+38, SORT+40
DGINST	BLDTFL+16~, BLDTFL+24*, BLDTFL+25, BLDTFL+26, BLDTFL+27, BLDTFL+29
DGLOC	BLDTFL+12~, BLDTFL+21*, BLDTFL+26
DGNAME	SORT+17~, SORT+37, SORT+38, SORT+40
DGNODE	GETPAT+21~, GETPAT+29*, GETPAT+32, GETPAT+33, GETPAT+34, GETPAT+35
DGPARM	ACTDT+18~
DGPARM(	ACTDT+44, ACTDT+71
DGPAT	GETPAT~
DGPAT("DFN"	GETPAT+31*
DGPAT("DOB"	GETPAT+34*
DGPAT("NAME"	GETPAT+32*
DGPAT("SEX"	GETPAT+33*
DGPAT("SSN"	GETPAT+35, GETPAT+39
DGPFARR	SORT~, SORT+22, SORT+23, SORT+30, SORT+31, SORT+32, SORT+40, SORT+43, SORT+44
DGSORT	SORT+18~, SORT+25*, SORT+26, SORT+40, SORT+44, SORT+45
DGTFL	BLDTFL~
DGTFL(	BLDTFL+29*
DGTFL(0	BLDTFL+31
DGX	SORT+19~, SORT+29, SORT+30, SORT+31, SORT+32, SORT+35, SORT+39, SORT+40
DIERR	GETDFN+17~
DT	ACTDT+28, ACTDT+32
DUZ	ACTDT+28
DUZ(0	ACTDT+28
DUZ(2	GETPAT+39
RESULT	GETPAT+22~, GETPAT+24, GETPAT+36, GETPAT+41
U	SORT+31, SORT+32, ACTDT+28, BLDTFL+21, BLDTFL+24, BLDTFL+28

Customize PDF page

Package: Registration

Routine: DGPFUT2

Call Graph Total: 8

Caller Graph Total: 20