Routine: IB20PT82

Package	Total	Call Graph
Registration	8	(CEN,KVAR)^DGPTC1 (,FAC)^DGPTF1 ^DGPTFQWK SUDO1^DGPTSUDO LE^DGPTTS (D,FMT,MT,PM)^DGPTUTL (INCOME,KVAR)^DGPTUTL1 LO^DGUTL
VA Fileman	2	^DIC ^DIE

Package

Total

Call Graph

(CEN,KVAR)^DGPTC1 (,FAC)^DGPTF1 ^DGPTFQWK SUDO1^DGPTSUDO LE^DGPTTS (D,FMT,MT,PM)^DGPTUTL (INCOME,KVAR)^DGPTUTL1 LO^DGUTL

^DIC ^DIE

Name	Line Occurrences
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: ",$E(DGADM,4,5)_"-"_$E(DGADM,6,7)_"-",$E(DGADM,2,3)," " Line Location: WR+0
Function Call: WRITE	Prompt: $P($P(%,";"_$P(DGNODE,U,DGZ)_":",2),";",1)_" " Line Location: WR+1
Function Call: WRITE	Prompt: !,"Pointer from Patient file is incorrect. Record changed to Fee Basis",! Line Location: UP+0
Routine Call	DIE Line Location: GETD+10 DC+4 UP
Routine Call	DIC Line Location: ASK+1

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	Q1+1
^DD(45	WR+1
^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+4, GETD+10, Q, SUF*, ADM , ADM+1, DC+3
^DGPT("AAD"	ADM+1
^DGPT("B"	DGPTF+4
^DIC(42 - [#42]	SUF
^DISV(	DGPTF+4, ASK+3, GETD+10*
^DPT - [#2]	DGPTF+4, GETD+3
^XUSEC("DG PTFREL"	ASK+1

Name	Field # of Occurrence
>> %	ADM, WR+1
A	DGPTF+4*, GETD+1!
A(	GETD+3*
A(0	GETD+7
B	DGPTF+4*, GETD+4!
B(	GETD+4*
B(0	GETD+5
B(70	GETD+5
>> DA	GETD+10, ADM, ADM+1, DC+4, UP*
>> DFN	ASK+3, GETD+3, GETD+10, ADM, ADM+1, DC+2
DG72	DC+1*, DC+4, DC+6!
>> DGAD	GETD+7*, GETD+10
>> DGADM	ASK+3, GETD+7, GETD+10, Q, WR
>> DGADPR	Q+2
>> DGDC	DC+1*, DC+2, DC+4, DC+5
>> DGDD	GETD+5*, GETD+6
>> DGFC	GETD+5*
>> DGN	GETD+8*
DGNODE	WR*, WR+1, WR+2!
DGPDN	DC*, DC+1, DC+5, DC+6!
DGPMAN	ASK+4~, EN1+2, SUF, DC
DGPMCA	ASK+4~, DC+2
>> DGPR	ASK*, GETD+8, GETD+9
DGPTFE	EN1+1!, EN1+2, GETD+9, GETD+10, 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+8, GETD+9, GETD+10
DGTY	DC+1, DC+2, DC+4, DC+6!
DGZ	WR+1*, WR+2!
DIC	ASK!*, ASK+3!
DIC("S"	ASK*
DIC(0	ASK*
>> DIE	GETD+10, DC+4, UP*
DR	GETD+10!, DC+4, UP*
DT	DC+5
DUZ	DGPTF+4, ASK+1, ASK+3, GETD+10
>> HEAD	GETD+7, GETD+10
>> I	GETD+3, GETD+4, 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+4, GETD+10, Q, SUF , DC+3, DC+4, UP
U	ASK+3, GETD+2, GETD+5, GETD+7, GETD+10, Q, SUF, ORDER+2, ADM+1, WR , WR+1, DC+2
X	Q1+1, SUF, ADM!, ADM+1!, DC+3*, DC+4
>> Y	ASK+1, GETD+6, GETD+7, GETD+10*
>> Y(0	ASK+3
>> ZTQUEUED	DC+5

Information

Name	Comments	DBIA/ICR reference
Q1	; -- housekeeping
SUF
GETD	;
DC
UP
Q
EN1	;
WR
DGPTF	;ALB/JDS/AS - PTF LOAD/EDIT DRIVER ; 12/13/89 @8
ASK
ADM
ORDER	; -- order mvt ; I1 := #mvts+1 ; M() := mvt array