Routine: DGPTTS2

Package	Total	Call Graph
VA Fileman	2	^%DTC (,FILE)^DIE
Registration	1	ASIH^DGUTL2

Package	Total	Caller Graph
Integrated Billing	1	IB20PT84
Registration	1	DGPTTS1

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"warning: A PTF record does not exist for this admission - cannot edit",!?10,"Treating Specialty. MIS personnel and your supervisor should",!?10,"be notified." Line Location: CK+2
Function Call: WRITE	Prompt: " The PTF option, 'Establish PTF record from Past",!?10,"Admission', may be used to create a PTF record." Line Location: CK+3
Routine Call	DIE Line Location: LOOP1+4 ADT1+6 TD5 ASIH+1
Routine Call	DIE Line Location: DGPTTS2+7 ADT1+4

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

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	LOL+1, CK+1
^DGPM("APTT2"	LOL+1, LOL1
^DGPT - [#45]	DGPTTS2+4, LOOP1+3, ADT1*, ADT1+1, ONE, ONE+1, CK+1
^UTILITY($J	DGPTTS2+3, LOOP1, O1, O1+3, Q

Name	Field # of Occurrence
>> A	LOOP1+3*
>> B(501	DGPTTS2+3*
C	LOL+1*, LOL1!
DA	LOOP1+4, ADT1+6, TD5, ASIH+1, ASIH+2!
DA(1	TD5*
DE	ASIH+2!
>> DFN	LOL+1, LOL1
>> DG1	LOL*, LOL+1
>> DG1(	LOOP1+1*, LOOP1+3
>> DGADM	LOL+1, ASIH
DGBDT	ASIH*, ASIH+2!
>> DGDOC	LOOP1+1*
>> DGDR	DGPTTS2+3, ONE, ONE+2
DGDR300	ONE+1*, ONE+2, ONE+3!
>> DGDT	LOL, ASIH
DGEDT	ASIH*, ASIH+2!
>> DGEX	O1+3*
DGFDA	DGPTTS2+5~, ADT1+2~
DGFDA(	DGPTTS2+6, ADT1+3
DGMSG	DGPTTS2+5~, ADT1+2~
DGMVTP	ASIH+2!
>> DGPMCA	LOL+1
>> DGREC	ASIH+1
DIE	LOOP1+4, ADT1+6, TD5, ASIH+1, ASIH+2!
>> DP	TD5*
DQ	ASIH+2!
DR	LOOP1+3, LOOP1+4, ADT1+6, ONE, ONE+2, ASIH+1, ASIH+2!, O1, O1+1, O1+3 , O1+4
DR300	ONE+1*, ONE+2, ONE+3!
DT	LOL, ASIH
FLD	DGPTTS2+5~, DGPTTS2+6*
>> I	DGPTTS2+4, DGPTTS2+6, LOOP1+1, ADT1, ONE, ONE+1, LOL+1, LOL1, O1, O1+3
>> I1	LOOP1+1, LOOP1+2, LOOP1+3, LOOP1+4, ADT1, ADT1+1, ADT1+3, ADT1+5, ADT1+6, ONE+2 , TD5, O1+1*
>> I2	DGPTTS2+3, LOOP1+1, ONE*, ONE+1, ONE+2, O1, O1+3
>> J	ADT1+1, ONE, ONE+1, LOL+1, O1*
>> LOL	LOOP1+3, LOL*
>> LOP	LOOP1+3, LOL*
>> NX	DGPTTS2+3, LOOP1, LOOP1+1, LOOP1+3, ADT1+5, ADT1+6, ONE+2, LOL1, O1+1, Q*
>> PR	LOOP1*, LOOP1+1, LOOP1+2, LOOP1+3, LOOP1+4, ONE, LOL1, Q
>> PTF	DGPTTS2+4, DGPTTS2+6, LOOP1+3, ADT1, ADT1+1, ADT1+3, ONE, ONE+1, TD5, ASIH+1
>> T(	DGPTTS2+3, LOOP1!, LOOP1+1, LOOP1+2, LOOP1+4, ADT1+5, ADT1+6, ONE, ONE+2, O1+1 , Q
>> T(1	Q*
U	DGPTTS2+3, LOOP1+1, LOOP1+2, LOOP1+3, LOOP1+4, ADT1+1, ADT1+5, ONE, ONE+1, ONE+2 , O1+1, O1+3, Q
X	LOL1!
X1	LOL1*!
X2	LOL1*!
Y	LOL1!, CK+1, CK+2
>> Z	LOL1*

Name	Comments	DBIA/ICR reference
CK	; -- checks for PTF# in ^DGPM and $D of the PTF in ^DGPT; Y = ifn of adm
ASIH
LOL
ONE
Q
LOL1
O1
ADT1
LOOP1
TD5