Routine: DGPTF

Call Graph Total: 15

Package	Total	Call Graph
Registration	12	$$CVEDT^DGCV $$GETSTAT^DGMSTAPI $$GETCUR^DGNTAPI (CEN,KVAR)^DGPTC1 (,FAC)^DGPTF1 ^DGPTFQWK SUDO1^DGPTSUDO LE^DGPTTS (D,FMT,MT,PM)^DGPTUTL (INCOME,KVAR)^DGPTUTL1 LO^DGUTL $$GETSHAD^DGUTL3
VA Fileman	2	^DIC (,FILE)^DIE
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

$$CVEDT^DGCV $$GETSTAT^DGMSTAPI $$GETCUR^DGNTAPI (CEN,KVAR)^DGPTC1 (,FAC)^DGPTF1 ^DGPTFQWK SUDO1^DGPTSUDO LE^DGPTTS
(D,FMT,MT,PM)^DGPTUTL (INCOME,KVAR)^DGPTUTL1 LO^DGUTL $$GETSHAD^DGUTL3

VA Fileman

^DIC (,FILE)^DIE

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	20	DG PTF QUICK LOAD DG PTF SCREEN DGPTC DGPTC1 DGPTF1 DGPTF2 DGPTF4 DGPTF41 DGPTFFB DGPTFJ DGPTFJC DGPTFM DGPTFM2 DGPTFM4 DGPTFM5 DGPTFM6 DGPTFM7 DGPTFREL DGPTFTR DGPTUTL
Integrated Billing	1	IB20PT86

Package

Total

Caller Graph

Registration

DG PTF QUICK LOAD  DG PTF SCREEN  DGPTC  DGPTC1  DGPTF1  DGPTF2  DGPTF4  DGPTF41
DGPTFFB  DGPTFJ  DGPTFJC  DGPTFM  DGPTFM2  DGPTFM4  DGPTFM5  DGPTFM6
DGPTFM7  DGPTFREL  DGPTFTR  DGPTUTL

Integrated Billing

IB20PT86

External References

Name	Field # of Occurrence
$$CVEDT^DGCV	GETD+10
$$GETSTAT^DGMSTAPI	GETD+5
$$GETCUR^DGNTAPI	GETD+7
CEN^DGPTC1	GETD+2
KVAR^DGPTC1	Q1+2
^DGPTF1	GETD+18
FAC^DGPTF1	GETD+16
^DGPTFQWK	EN1+3
SUDO1^DGPTSUDO	Q
LE^DGPTTS	EN1+2
D^DGPTUTL	GETD+14, GETD+17
FMT^DGPTUTL	GETD+13
MT^DGPTUTL	ASK+5
PM^DGPTUTL	ASK+4
INCOME^DGPTUTL1	ASK+5
KVAR^DGPTUTL1	Q1+2
LO^DGUTL	DGPTF+3
$$GETSHAD^DGUTL3	GETD+11
^DIC	ASK+1
^DIE	GETD+17, DC+4, UP
FILE^DIE	SUF+6
$$FMTE^XLFDT	WR

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+0
Function Call: WRITE	Prompt: !," Updating TRANSFER DRGs" Line Location: Q+0
Function Call: WRITE	Prompt: !,"Not after first movement" Line Location: ADM+0
Function Call: WRITE	Prompt: !,"There is already a PTF entry at that time" Line Location: ADM+1
Function Call: WRITE	Prompt: " Admitted: ",$TR($$FMTE^XLFDT(DGADM,"5DF")," ","0")," " Line Location: WR+0
Function Call: WRITE	Prompt: $P($P(%,";"_$P(DGNODE,U,DGZ)_":",2),";",1)_" " Line Location: WR+3
Function Call: WRITE	Prompt: !,"Pointer from Patient file is incorrect. Record changed to Fee Basis",! Line Location: UP+0
Routine Call	DIC Line Location: ASK+1
Routine Call	DIE Line Location: GETD+17 DC+4 UP
Routine Call	DIE Line Location: SUF+6

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	Q1+1
^DD(45	WR+3
^DG(405.2 - [#405.2]	DC+1
^DGP(45.84 - [#45.84]	GETD+3
^DGPM - [#405]	DC, DC+2
^DGPM("APMV"	DC+2
^DGPT - [#45]	DGPTF+4, ASK+2, EN1+1, EN1+2, GETD+2, GETD+9, GETD+17, Q, ADM, ADM+1 , DC+3
^DGPT("AAD"	ADM+1
^DGPT("B"	DGPTF+4
^DIC(42 - [#42]	SUF
^DISV(	DGPTF+4, ASK+3, GETD+17*
^DPT - [#2]	DGPTF+4, GETD+3
^XUSEC("DG PTFREL"	ASK+1

Name	Line Occurrences
ASK	ASK+6
DC	EN1+2
DGPTF	EN1+3, Q+3
GETD	UP
Q	GETD+17
Q1	ASK+1, EN1+3, Q+1
SUF	EN1+2
UP	EN1+2

Name	Field # of Occurrence
^(	GETD+3, GETD+9, DC+2
^("M"	ADM
^("^DGPT("	DGPTF+4
^("^DPT("	DGPTF+4
^(0	ASK+2*, Q, SUF+1, WR, WR+3, DC, DC+1, DC+2
^(70	DC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ADM, WR+3
A	DGPTF+4*, GETD+1!
A(	GETD+3*
A("CV"	GETD+10*
A("MST"	GETD+5*
A("NTR"	GETD+7*
A("SHAD"	GETD+11*
A(0	GETD+14
B	DGPTF+4*, GETD+9!
B(	GETD+9*
B(0	GETD+10, GETD+12
B(70	GETD+12
>> DA	GETD+17, ADM, ADM+1, DC+4, UP*
>> DFN	ASK+3, GETD+3, GETD+5, GETD+7, GETD+10, GETD+11, GETD+17, ADM, ADM+1, DC+2
DG72	DC+1*, DC+4, DC+6!
>> DGAD	GETD+14*, GETD+17
>> DGADM	ASK+3, GETD+14, GETD+17, Q, WR
>> DGADPR	Q+2
DGANUM	SUF+3, SUF+5, SUF+7!
>> DGDC	DC+1*, DC+2, DC+4, DC+5
>> DGDD	GETD+12*, GETD+13
>> DGFC	GETD+12*
DGFDA	SUF+4~
DGFDA(45	SUF+5*
DGMSG	SUF+4~
>> DGN	GETD+15*
DGNODE	WR*, WR+3, WR+4!
DGNTARR	GETD+6!, GETD+8!
DGNTARR("INTRP"	GETD+7
DGPDN	DC*, DC+1, DC+5, DC+6!
DGPMAN	ASK+4~, EN1+2, SUF, DC
DGPMCA	ASK+4~, DC+2
>> DGPR	ASK*, GETD+15, GETD+16
DGPTFE	EN1+1!, EN1+2, GETD+16, GETD+17, UP*
DGPTOUT	Q+2!
>> DGQWK	ASK+6, EN1+3*
>> DGREL	ASK+1*, ASK+6
DGRT	ORDER+1~*, ORDER+2, ORDER+3, ORDER+4
>> DGST	ASK+3, ASK+5, ASK+6, EN1+2, GETD+3, GETD+15, GETD+16, GETD+17
DGSUFNAM	SUF+7!
DGSUFNAM(	SUF+5
DGTY	DC+1, DC+2, DC+4, DC+6!
DGX	SUF+1*, SUF+2, SUF+3, SUF+7!
DGZ	WR+3*, WR+4!
DIC	ASK!*, ASK+3!
DIC("S"	ASK*
DIC(0	ASK*
>> DIE	GETD+17, DC+4, UP*
DR	GETD+17!, DC+4, UP*
DT	DC+5
DUZ	DGPTF+4, ASK+1, ASK+3, GETD+17
>> HEAD	GETD+14, GETD+17
>> I	GETD+3, GETD+9, ORDER+2, ORDER+3, DC+2*
>> I1	ORDER+1
IOM	Q1+1
>> J	ORDER+3, DC+2
>> K	ORDER+3*
>> M(	ORDER+2, ORDER+3*
>> NU	ORDER+2*
>> PTF	ASK+1*, ASK+2, EN1+1, EN1+2, GETD+2, GETD+3, GETD+9, GETD+17, Q, SUF+5 , DC+3, DC+4, UP
SDCLY	Q1+2!
U	ASK+3, GETD+2, GETD+5, GETD+10, GETD+12, GETD+14, GETD+17, Q, SUF, SUF+1 , ORDER+2, ADM+1, WR, WR+3, DC+2
X	Q1+1, ADM!, ADM+1!, DC+3, DC+4
>> Y	ASK+1, GETD+13, GETD+14, GETD+17*
>> Y(0	ASK+3
>> ZTQUEUED	DC+5

Customize PDF page

Package: Registration

Routine: DGPTF

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 21

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1	; -- housekeeping
SUF
GETD	;
DC
UP
Q
EN1	;
WR
ASK
ADM
ORDER	; -- order mvt ; I1 := #mvts+1 ; M() := mvt array