Routine: DGPTTS

Package	Total	Call Graph
Registration	8	(EDITADMIT,SETPTFMVMT)^DGCOMPACT BS^DGPTFM6 EFFDATE^DGPTIC10 MSG^DGPTMSG1 VARS^DGPTSUDO EV^DGPTTS0 ^DGPTTS1 EN^DGPTTS3
VA FileMan	2	^DIE ^DIK
DRG Grouper	1	$$ICDDATA^ICDXCODE
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Registration

(EDITADMIT,SETPTFMVMT)^DGCOMPACT BS^DGPTFM6 EFFDATE^DGPTIC10 MSG^DGPTMSG1 VARS^DGPTSUDO EV^DGPTTS0 ^DGPTTS1 EN^DGPTTS3

^DIE ^DIK

$$ICDDATA^ICDXCODE

$$FMTE^XLFDT

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Registration	4	DGPM TREATING SPECIALTY EVENT DGPTF DGPTTS0 DGPTUTL
Integrated Billing	2	IB20PT82 IB20PT86
Kernel	1	^ORD(101

Package

Total

Caller Graph

Registration

DGPM TREATING SPECIALTY EVENT DGPTF DGPTTS0 DGPTUTL

Integrated Billing

IB20PT82 IB20PT86

Kernel

^ORD(101

Name	Comments	DBIA/ICR reference
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

Comments

DBIA/ICR reference

;entry point from event driver

DEL

;facility treating specialty has been deleted from ^DGPM

DEL1

;entry point for PTF record update

NTR

NOTS

;

DGDT

; -- get first ts before dc date

; -- determine CA info

Name	Field # of Occurrence
EDITADMIT^DGCOMPACT	LE+2
SETPTFMVMT^DGCOMPACT	LE+6
BS^DGPTFM6	LE+8
EFFDATE^DGPTIC10	DEL+2
MSG^DGPTMSG1	DEL+17, DEL1+1, NTR+1
VARS^DGPTSUDO	LE+6
EV^DGPTTS0	EV+1
^DGPTTS1	LE+6
EN^DGPTTS3	LE+9
^DIE	DEL1+9, DEL1+13, LE+8, NOTS+1, NOTS+2
^DIK	DEL+5
$$ICDDATA^ICDXCODE	DEL+7, DEL+8
$$FMTE^XLFDT	DEL1, NTR

Name

Field # of Occurrence

LE+2

LE+6

LE+8

DEL+2

DEL+17, DEL1+1, NTR+1

LE+6

EV+1

LE+6

LE+9

^DIE

DEL1+9, DEL1+13, LE+8, NOTS+1, NOTS+2

^DIK

DEL+5

$$ICDDATA^ICDXCODE

DEL+7, DEL+8

$$FMTE^XLFDT

DEL1, NTR

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Updating PTF Record #",PTF,"..." Line Location: LE+1
Function Call: WRITE	Prompt: "completed." Line Location: LE+9
Routine Call	DIE Line Location: DEL1+9 DEL1+13 LE+8 NOTS+1 NOTS+2

Name

Line Occurrences

Function Call: WRITE

Prompt: !,"Updating PTF Record #",PTF,"..."
Line Location: LE+1

Function Call: WRITE

Prompt: "completed."
Line Location: LE+9

Routine Call

DIE
Line Location:

DEL1+9
DEL1+13
LE+8
NOTS+1
NOTS+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DEL+16
^DGPM - [#405]	LE+4, CA+2
^DGPM("ATS"	LE+4, DGDT+2
^DGPT - [#45]	DEL+4, DEL1+3, DEL1+12, LE+6, LE+8, NOTS+2
^DIC(42.4 - [#42.4]	DEL+16
^DPT - [#2]	DEL+16, DEL1
^UTILITY("DGPM"	DEL+3
^UTILITY($J	DEL+10, DEL+14, LE+2, LE+3!, LE+6!, LE+7!
^VA(200 - [#200]	DEL+16, DEL1

Name

Line Occurrences (* Changed, ! Killed)

DEL+16

LE+4, CA+2

LE+4, DGDT+2

DEL+4, DEL1+3, DEL1+12, LE+6, LE+8, NOTS+2

DEL+16

DEL+16, DEL1

DEL+3

DEL+10*, DEL+14*, LE+2, LE+3!, LE+6!, LE+7!

^VA(200 - [#200]

DEL+16, DEL1

Name	Line Occurrences
DEL1	DEL+4, DEL+9
NOTS	LE+5

Name

Line Occurrences

DEL1

DEL+4, DEL+9

NOTS

LE+5

Name	Field # of Occurrence
^(	DEL+10*
^(0	DEL+4, LE+4, CA+2
^(300	DEL+4, DEL1+12
^(81	DEL+4, DEL+10*, DEL1+3
^(82	DEL+4, DEL1+3

Name

Field # of Occurrence

DEL+10*

^(0

DEL+4, LE+4, CA+2

^(300

DEL+4, DEL1+12

^(81

DEL+4, DEL+10*, DEL1+3

^(82

DEL+4, DEL1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Registration

Routine: DGPTTS

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: