Routine: DGPFUT1

Information

DGPFUT1 ;ALB/RBS - PRF UTILITIES CONTINUED ; 6/9/06 10:56am

Source Information

Source file <DGPFUT1.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Registration	5	$$GETLF^DGPFALF $$GETNF^DGPFANF $$GETACT^DGPFAPI EN^DGPFLMD $$TESTVAL^DGPFUT
VA Fileman	4	CLRMSG^DDS REFRESH^DDSUTL (,LIST)^DIC YN^DICN
Kernel	2	ENDR^%ZISS PARENT^XUAF4

Caller Graph

Caller Graph Total: 15

Package	Total	Caller Graph
Registration	14	DGPFAA2 DGPFAA3 DGPFAPI DGPFBGR DGPFHLRT DGPFHLUQ DGPFLFD DGPFLFD1 DGPFLMA1 DGPFLMA2 DGPFLMQ2 DGPFLMU1 DGPFRPA DGPFUT3
IHS Electronic Health Record	1	BEHOCACV

Entry Points

Name	Comments	DBIA/ICR reference
SELPAT(DGPAT)	;This procedure is used to perform a patient lookup for an existing patient in the PATIENT (#2) file.
CNTRECS(DGFILE)	;return number of records of a file
FMTPRNT(DGCHILD)	;lookup and return parent of a child in display format
DISPPRF(DGDFN)	; Patient Record Flags screen Display
GETFLAG(DGPFPTR,DGPFLAG)	;retrieve a single FLAG record ; This function acts as a wrapper around the $$GETLF and $$GETNF ; API's. Function will be used to obtain a single flag record from ; either the PRF LOCAL FLAG (#26.11) file or the PRF NATIONAL FLAG ; (#26.15) file depending on the value of the DGPFPTR input parameter.
ASKDET()	;does user want to display flag details?
DISPACT(DGPFAPI)	;Display all ACTIVE Patient Record Flag's for a patient ; Input: DGPFAPI() = Array of patients active flags ; (passed by reference) ; See $$GETACT^DGPFAPI for array format. ; Output: None
PARENT(DGCHILD)	;lookup and return the parent of a child

External References

Name	Field # of Occurrence
ENDR^%ZISS	DISPACT+19
CLRMSG^DDS	DISPACT+12, DISPACT+27, ASKDET+14, DISPPRF+31
REFRESH^DDSUTL	DISPPRF+31
$$GETLF^DGPFALF	GETFLAG+33
$$GETNF^DGPFANF	GETFLAG+38
$$GETACT^DGPFAPI	DISPPRF+19
EN^DGPFLMD	DISPPRF+28
$$TESTVAL^DGPFUT	GETFLAG+25
^DIC	SELPAT+20
LIST^DIC	CNTRECS+14
YN^DICN	ASKDET+12
PARENT^XUAF4	PARENT+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ">>> Active Patient Record Flag(s):" Line Location: DISPACT+13
Function Call: WRITE	Prompt: !,"Press RETURN to continue..." Line Location: DISPACT+25
Function Call: WRITE	Prompt: ">>> Active Patient Record Flag(s):" Line Location: DISPACT+28
Function Call: WRITE	Prompt: !?5,IORVON,"<"_DGPFFLAG_">",IORVOFF,?45,"CATEGORY ",DGPFCAT Line Location: DISPACT+33
Function Call: WRITE	Prompt: !,"Do you wish to view active patient record flag details" Line Location: ASKDET+10
Function Call: WRITE	Prompt: !,"Enter either 'Y' or 'N'." Line Location: ASKDET+14
Routine Call	DIC Line Location: CNTRECS+14
Routine Call	DDS Line Location: DISPACT+12 DISPACT+27 ASKDET+14 DISPPRF+31
Routine Call	DIC Line Location: SELPAT+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	DISPPRF+34

Label References

Name	Line Occurrences
$$ASKDET	DISPPRF+28
$$PARENT	FMTPRNT+11
DISPACT	DISPPRF+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASKDET+8~, ASKDET+11*, ASKDET+13
%Y	ASKDET+8~
>> DDS	DISPACT+12, DISPACT+13, DISPACT+24, DISPACT+35, ASKDET+14, DISPPRF+31
DGCHILD	PARENT~, PARENT+12, PARENT+13, FMTPRNT~, FMTPRNT+10, FMTPRNT+11
DGCNT	DISPACT+9~, DISPACT+22, DISPACT+24, DISPACT+29, DISPACT+34, CNTRECS+8~, CNTRECS+12, CNTRECS+16*, CNTRECS+17
DGDFN	DISPPRF~, DISPPRF+13*, DISPPRF+14, DISPPRF+19, DISPPRF+28
DGERR	CNTRECS+9~, CNTRECS+15
DGFILE	CNTRECS~, CNTRECS+13, CNTRECS+14
DGLIST	CNTRECS+10~
DGLIST("DILIST"	CNTRECS+16
DGPARENT	PARENT+9~, PARENT+14, PARENT+15, PARENT+16, FMTPRNT+9~, FMTPRNT+11*, FMTPRNT+12
DGPARR	PARENT+10~
DGPARR("P"	PARENT+14, PARENT+15
DGPAT	SELPAT~, SELPAT+23, SELPAT+26, SELPAT+27
DGPAT(0	SELPAT+28, SELPAT+29
DGPF	DISPACT+8~
DGPFAPI	DISPACT~, DISPACT+6, DISPPRF+16~, DISPPRF+19*, DISPPRF+22, DISPPRF+25, DISPPRF+28
DGPFAPI(	DISPACT+23, DISPACT+30, DISPACT+32
DGPFCAT	DISPACT+8~, DISPACT+32*, DISPACT+33
DGPFFLAG	DISPACT+8~, DISPACT+30*, DISPACT+31, DISPACT+33
DGPFIEN	DISPACT+8~, DISPACT+23, DISPACT+30, DISPACT+32, GETFLAG+17~, GETFLAG+28, GETFLAG+33, GETFLAG+38
DGPFILE	GETFLAG+18~, GETFLAG+29*, GETFLAG+32, GETFLAG+37
DGPFLAG	GETFLAG~, GETFLAG+33, GETFLAG+38
DGPFPTR	GETFLAG~, GETFLAG+24, GETFLAG+25, GETFLAG+28, GETFLAG+29
DGRET	DISPACT+10~, DISPACT+26*
DIC	SELPAT+16~, SELPAT+17*, SELPAT+20!
DIC(0	SELPAT+17*
DTIME	DISPACT+26
DTOUT	SELPAT+16~
DUPOT	SELPAT+16~
IORVOFF	DISPACT+8~, DISPACT+17*, DISPACT+33
IORVON	DISPACT+8~, DISPACT+17*, DISPACT+33
IOST(0	DISPACT+18
RESULT	GETFLAG+16~, GETFLAG+20, GETFLAG+34, GETFLAG+39*, GETFLAG+41
U	DISPACT+30, DISPACT+32, PARENT+15, FMTPRNT+11
X	DISPACT+19~, DISPPRF+33~, DISPPRF+34, SELPAT+16~
Y	SELPAT+16~, SELPAT+23, SELPAT+27
Y(0	SELPAT+28, SELPAT+29
YN	ASKDET+8~, ASKDET+9, ASKDET+13*, ASKDET+14, ASKDET+15

Customize PDF page

Package: Registration

Routine: DGPFUT1

Call Graph Total: 11

Caller Graph Total: 15