Routine: IB20PT83

Package	Total	Call Graph
Registration	6	BS^DGPTFM6 MSG^DGPTMSG1 VARS^DGPTSUDO EV^DGPTTS0 ^DGPTTS1 EN^DGPTTS3
VA FileMan	2	^DIE ^DIK

Entry Points

Name	Comments	DBIA/ICR reference
DGPTTS	;ALB/AS - UPDATE FACILITY TREATING SPECIALTY/501 MOVEMENTS IN PTF ; 1/30/90 @12
EV	;entry point from event driver
DEL	;facility treating specialty has been deleted from ^DGPM
DEL1
LE	;entry point for PTF record update
Q
NTR
NOTS	;
DGDT	; -- get first ts before dc date
CA	; -- determine CA info

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DEL+11
^DGPM - [#405]	LE+2, CA+2
^DGPM("ATS"	LE+2, DGDT+2
^DGPT - [#45]	DEL+2, DEL1+3, DEL1+6, LE+6, NOTS+2
^DIC(42.4 - [#42.4]	DEL+11
^DPT - [#2]	DEL+11, DEL1
^ICD9 - [#80]	DEL+4
^UTILITY("DGPM"	DEL+1
^UTILITY($J	DEL+5, DEL+9, LE+1!, LE+5!
^VA(200 - [#200]	DEL+11, DEL1

Name	Line Occurrences
DEL1	DEL+2, DEL+5
NOTS	LE+3

Name	Field # of Occurrence
^(0	DEL+3, DEL+4, LE+2, CA+2
^(300	DEL+3, DEL1+6

Name	Field # of Occurrence
%DT	LE+5!
A	LE+5!
ADM	LE+5!
B	LE+5!
C	LE+5!
D	LE+5!
DA	DEL+3!, DEL1+4, DEL1+7, DEL1+8!, LE+5!, LE+6, Q!, NOTS+1, NOTS+2
DA(1	DEL+3, DEL1+4, DEL1+7, LE+6, NOTS+1, NOTS+2
>> DFN	DEL+11, DEL1, LE+2, DGDT+2
>> DG1	DEL+7, DEL+8, DEL+9
DGAD	LE+5!
>> DGADM	CA+2*
DGDEL	LE+5!
DGDR	LE+5!
DGDT	LE+2*, LE+4, Q!, DGDT+1
DGDT1	LE+5!
DGEX	DEL+3*, DEL+8, DEL1+8!
DGI	DEL+10!
DGMOVM	LE+6, Q!
DGMSG	DEL+4, DEL+5, DEL+11, DEL1, Q!, NTR
>> DGMSG1	DEL+12, DEL1+1, NTR+1*
>> DGMV	DEL+1
>> DGMVA	NTR
>> DGMVP	DEL1
>> DGMVT	CA+2*
DGP0	Q!
>> DGPMA	CA+1, CA+2
>> DGPMAN	LE+2, CA+2*
>> DGPMCA	LE+2, DGDT+2, CA+1*, CA+2
>> DGPMP	CA+1, CA+2
DGPREV	LE+2, LE+3, LE+4, Q!, DGDT+2
DGPTFP	DEL+1*, DEL+2, DEL+3, DEL+5, DEL+9, DEL1+3, DEL1+6, DEL1+8!
DGREC	DEL+3, DEL+4, DEL+11, DEL1+3, DEL1+6*, DEL1+8!, LE+5!, Q!
DGTEMP	LE+5!
DGTLOS	LE+5!
DGTNX	LE+5!
DGTPR	LE+5!
DGTR	LE+5!
DIC	LE+5!, Q!
DIE	DEL1+4, DEL1+8!, LE+5!, LE+6, Q!, NOTS+1, NOTS+2
>> DIK	DEL+3*
DIS	LE+5!
DR	DEL1+3, DEL1+4, DEL1+6, DEL1+7, DEL1+8!, LE+5!, LE+6, Q!, NOTS+1, NOTS+2*
DUZ	DEL+11, DEL1
I	LE+5!
I1	LE+5!
J	LE+5!
L	LE+5!
L1	LE+5!
L2	LE+5!
LL	LE+5!
LOL	LE+5!
LOP	LE+5!
MN	LE+5!
NOW	LE+5!
NTR	LE+5!
NX	LE+5!
NXX	LE+5!
PR	LE+5!
>> PTF	DEL+2, DEL+3, DEL1, DEL1+3, DEL1+4, DEL1+6, DEL1+7, LE+1, LE+6, NTR , NOTS+1, NOTS+2, CA+2*
PTN	LE+5!
T	LE+5!
T(	LE+4*
T1	LE+5!
T2	LE+5!
TD	LE+5!
TDD	LE+5!
TRN	LE+5!
U	DEL+4, DEL+8, DEL+9, DEL+11, DEL1, DEL1+3, DEL1+6
V	Q!
X	DEL+4, DEL+8, DEL1, DEL1+3, DEL1+6, DEL1+8!, Q!, DGDT+1~, DGDT+2
X1	LE+5!
X2	LE+5!
Y	DEL+11*, DEL1+8!, LE+5!, Q!
Z	LE+5!
>> ZTQUEUED	LE+1, LE+7
ZTSK	LE+5!