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

Package	Total	Caller Graph
Registration	1	DG PTF FEE BASIS ADD

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SEL+1
Function Call: READ	Prompt: "Enter NEW Non-VA PTF Admission Date: " Formatting: !! Timeout: DTIME Variable: X 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

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

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

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

Name	Field # of Occurrence
>> %DT	AD+1*
C	SELQ!
D0	SELQ!, INFO+9*, INFOQ!
DA	SEL+4*, SELQ!
DFN	SEL+4*, SELQ!, INFO+7, CHK+2
DGADM	AD+1*, AD+4, SELQ!, CHK+2
DGADPR	AD+7*, SELQ!
DGDD	SELQ!
DGDFN	AD+7!, SELQ!
DGDUMB	EN*, EN+1!
>> DGPR	AD+7*
DGPTCNT	INFO+5, INFO+9, INFO+10, INFOQ!
DGPTF	SELQ!
>> 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!
DGRTY	SELQ!
DGRTY0	SELQ!
>> DGST	AD+7*
DIC	SEL+1!, SEL+2*, SEL+3!, SELQ!
DIC("A"	SEL+2*
DIC(0	SEL+2*
DIE	SELQ!
DIK	SELQ!
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!
DR	SELQ!
DTIME	AD+1
DUZ	AD+7
DXS	INFO+2!, INFO+9!, INFOQ!
I	SELQ!, INFO+7, CHK+2, CHK+4
IOF	INFO+4
IOP	INFO+3*!
L	SELQ!
POP	SELQ!
PTF	AD+4, SELQ!, INFO+9, INFOQ!
U	AD+1, INFO+4, CHK+2
VA	INFOQ!
VA("PID"	INFO+4
X	AD+1, SELQ!, INFO+2
Y	SEL+3, SEL+4, AD+1, AD+4, SELQ!, CHK+1!, CHK+2, CHK+3*, CHK+4
Y(0	INFO+4