Routine: DGPTFFB

Package	Total	Call Graph
Registration	7	GETD^DGPTF CREATE^DGPTFCR RTY^DGPTUTL INCOME^DGPTUTL1 (,HEAD)^DGPTXB LO^DGUTL PID^VADPT6
VA FileMan	3	^%DT ^DIC ^DIR
Kernel	1	^%ZIS

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DG PTF FEE BASIS ADD

Entry Points

Name	Comments	DBIA/ICR reference
EN
SEL	; -- ask for pt
AD	; -- ask for adm date
SELQ	; -- clean-up
INFO	; -- brief PTF rec profile for DFN pt ; -- is template compiled?
INFOQ
CHK	; -- check if adm on date already exists
CHKQ

External References

Name	Field # of Occurrence
^%DT	AD+1
^%ZIS	INFO+3
GETD^DGPTF	AD+8
CREATE^DGPTFCR	AD+4
RTY^DGPTUTL	AD+4
INCOME^DGPTUTL1	AD+8
^DGPTXB	INFO+9
HEAD^DGPTXB	INFO+5
LO^DGUTL	EN
^DIC	SEL+3
^DIR	CHK+9
PID^VADPT6	INFO+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SEL+1
Function Call: READ	Formatting: !! Prompt: "Enter NEW Non-VA PTF Admission Date: " Variable: X Timeout: DTIME Line Location: AD+1
Function Call: WRITE	Prompt: @IOF,?5,"** PTF Record Profile for ",$E($P(Y(0),U),1,25)," (",VA("PID"),") **" Line Location: INFO+4
Function Call: WRITE	Prompt: ! Line Location: INFO+9
Function Call: WRITE	Prompt: !?5,"...only last ",DGPTMAX," records are displayed." Line Location: INFO+10
Function Call: WRITE	Prompt: !?5," No PTF records on file for patient." Line Location: INFO+11
Function Call: WRITE	Prompt: !!,*7,"PTF #",I," already exist for that admission date (",Y,").",! Line Location: CHK+4
Routine Call	DIC Line Location: SEL+3
Routine Call	DIR Line Location: CHK+9
Routine Call	%ZIS Line Location: INFO+3

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("TEST"	INFO+2
^DD("DD"	CHK+4
^DGPT - [#45]	INFO+7, CHK+2
^DGPT("B"	INFO+7, CHK+2
^XUSEC("DG PTFREL"	AD+7

Label References

Name	Line Occurrences
AD	AD+1
CHK	AD+1
CHKQ	CHK+3
INFO	SEL+4
INFOQ	INFO+2
SEL	EN
SELQ	SEL+3, AD+1

Naked Globals

Name	Field # of Occurrence
^(0	INFO+7, CHK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	AD+1*
C	SELQ+1!
D0	SELQ+1!, INFO+9*, INFOQ!
DA	SEL+4*, SELQ+1!
DFN	SEL+4*, SELQ+1!, INFO+7, CHK+2
DGADM	AD+1*, AD+4, SELQ+1!, CHK+2
DGADPR	AD+7*, SELQ+1!
DGDD	SELQ+1!
DGDFN	AD+7!, SELQ+1!
DGDUMB	EN*, EN+1!
>> DGPR	AD+7*
DGPTCNT	INFO+5, INFO+9, INFO+10, INFOQ!
DGPTF	SELQ+1!
>> DGPTFE	AD+7*
DGPTMAX	INFO+5*, INFO+9, INFO+10, INFOQ!
DGPTOUT	EN!, EN+1!, SEL+3*
DGPTX	INFO+5!, INFO+9*, INFO+11, INFOQ!
DGPTX(	INFO+7*, INFO+9
DGREL	AD+7*, SELQ+1!
DGRTY	SELQ+1!
DGRTY0	SELQ+1!
>> DGST	AD+7*
DIC	SEL+1!, SEL+2*, SEL+3!, SELQ+1!
DIC("A"	SEL+2*
DIC(0	SEL+2*
DIE	SELQ+1!
DIK	SELQ+1!
DIPGM	EN+1!
DIR	CHK+9!
DIR("?"	CHK+6, CHK+7, CHK+8*
DIR("A"	CHK+5*
DIR("B"	CHK+9*
DIR(0	CHK+5*
DISYS	EN+1!
DN	EN+1!, SELQ+1!
DR	SELQ+1!
DTIME	AD+1
DUZ	AD+7
DXS	INFO+2!, INFO+9!, INFOQ!
I	SELQ+1!, INFO+7, CHK+2, CHK+4
IOF	INFO+4
IOP	INFO+3*!
L	SELQ+1!
POP	SELQ+1!
PTF	AD+4, SELQ+1!, INFO+9, INFOQ!
U	AD+1, INFO+4, CHK+2
VA	INFOQ!
VA("PID"	INFO+4
X	AD+1, SELQ+1!, INFO+2
Y	SEL+3, SEL+4, AD+1, AD+4, SELQ+1!, CHK+1!, CHK+2, CHK+3*, CHK+4
Y(0	INFO+4

Customize PDF page

Package: Registration

Routine: DGPTFFB

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: