Routine: DGPTRI3

Information

DGPTRI3 ;ALB/JDS/MJK/BOK,ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;4/23/15 8:59am

Package	Total	Call Graph
Registration	4	$$TSDATA^DGACT ($$STR401,$$STR501,$$STR601,$$STR701)^DGPTFUT EFFDATE^DGPTIC10 (CDR,SAVE)^DGPTRI2
DRG Grouper	1	($$CS,$$CSI)^ICDEX

Caller Graph

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

Caller Graph Total: 4

Package	Total	Caller Graph
Registration	4	DGPTC1 DGPTF4 DGPTFVC DGPTRI2

Entry Points

Name	Comments	DBIA/ICR reference
535	; -- setup 535 transactions
PHY	; -- set up physical mvt
ENTER
ENTER0
SAVE	;
Q
VERCHK(REC)	; -- check version for all diagnosis and procedure codes
CPTDATA	; -- get 801 movement Diagnosis Data in DG801(i,j,"DATA") ; 801 movement uses CPT Record date instead of 701 type dates

External References

Name	Field # of Occurrence
$$TSDATA^DGACT	PHY+7, PHY+17
$$STR401^DGPTFUT	VERCHK+34
$$STR501^DGPTFUT	VERCHK+18
$$STR601^DGPTFUT	VERCHK+26
$$STR701^DGPTFUT	VERCHK+10
EFFDATE^DGPTIC10	VERCHK+5
CDR^DGPTRI2	PHY+3, PHY+13
SAVE^DGPTRI2	SAVE+1
$$CS^ICDEX	VERCHK+6, VERCHK+7, CPTDATA+6
$$CSI^ICDEX	VERCHK+12, VERCHK+20, VERCHK+28, VERCHK+36, VERCHK+44, CPTDATA+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"401 ",$S(ERR4=2:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR4=2:"ICD-10",1:"ICD-9")," Code found." Line Location: VERCHK+51
Function Call: WRITE	Prompt: !,"501 ",$S(ERR2=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR2=1:"ICD-10",1:"ICD-9")," Code found." Line Location: VERCHK+52
Function Call: WRITE	Prompt: !,"601 ",$S(ERR3=2:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR3=2:"ICD-10",1:"ICD-9")," Code found." Line Location: VERCHK+53
Function Call: WRITE	Prompt: !,"601 ",$S(ERR5=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR5=1:"ICD-10",1:"ICD-9")," Code found." Line Location: VERCHK+54
Function Call: WRITE	Prompt: !,"701 ",$S(ERR1=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR1=1:"ICD-10",1:"ICD-9")," Code found." Line Location: VERCHK+55
Function Call: WRITE	Prompt: !,"801 ",$S(ERR6=1:"ICD-9",1:"ICD-10")," Code Expected, ",$S(ERR6=1:"ICD-10",1:"ICD-9")," Code found." Line Location: VERCHK+56

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCPT(46 - [#46]	CPTDATA+8, CPTDATA+10
^DGPT - [#45]	535+5, PHY+11, VERCHK+9, VERCHK+17, VERCHK+25, VERCHK+33, VERCHK+41, CPTDATA+4, CPTDATA+5, CPTDATA+6

Label References

Name	Line Occurrences
CPTDATA	VERCHK+49
ENTER0	PHY+9, PHY+19, PHY+24
PHY	535+5
SAVE	PHY+25

Naked Globals

Name	Field # of Occurrence
^(	535+5, PHY+11
^("401P"	VERCHK+41
^(0	535+5, PHY+11
^(70	VERCHK+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	VERCHK+1~, VERCHK+9, VERCHK+10, VERCHK+11, VERCHK+18, VERCHK+19, VERCHK+26, VERCHK+27, VERCHK+34, VERCHK+35 , VERCHK+41, VERCHK+42*, VERCHK+43
CODSYSD	VERCHK+1~, VERCHK+6*, VERCHK+13, VERCHK+21, VERCHK+45
CODSYSP	VERCHK+1~, VERCHK+7*, VERCHK+29, VERCHK+37
>> DG801(	CPTDATA+6, CPTDATA+8, CPTDATA+10, CPTDATA+11, CPTDATA+17!
DGARRX	PHY+6~, PHY+7, PHY+16~, PHY+17
DGARRY	PHY+6~, PHY+7, PHY+16~, PHY+17
DGARRY(7	PHY+8, PHY+18
DGCPTDT	CPTDATA+2~, CPTDATA+6*
DGCPTSYS	CPTDATA+2~, CPTDATA+6*, CPTDATA+13
>> DGERR	VERCHK+51, VERCHK+52, VERCHK+53, VERCHK+54, VERCHK+55, VERCHK+56
>> DGHEAD	PHY+1
DGICD	VERCHK+1~, VERCHK+11, VERCHK+12, VERCHK+19, VERCHK+20, VERCHK+27, VERCHK+28, VERCHK+35, VERCHK+36, VERCHK+43* , VERCHK+44, CPTDATA+11*, CPTDATA+12
DGM	535+5, PHY+3, PHY+7, PHY+8, PHY+9, PHY+24, PHY+26!
DGPTDAT	VERCHK+2~
DGPTF	VERCHK+1~
>> DGTD	535+5*, PHY+1, PHY+11
EFFDATE	VERCHK+2~, VERCHK+6, VERCHK+7
ERR1	VERCHK+1~, VERCHK+11, VERCHK+13*, VERCHK+55
ERR2	VERCHK+1~, VERCHK+19, VERCHK+21*, VERCHK+52
ERR3	VERCHK+1~, VERCHK+27, VERCHK+29*, VERCHK+53
ERR4	VERCHK+1~, VERCHK+35, VERCHK+37*, VERCHK+51
ERR5	VERCHK+1~, VERCHK+43, VERCHK+45*, VERCHK+54
ERR6	VERCHK+1~, VERCHK+56, CPTDATA+11, CPTDATA+13*
F	CPTDATA+7, CPTDATA+15, CPTDATA+17, CPTDATA+20!
FLD	VERCHK+1~
H	CPTDATA+2~, CPTDATA+3, CPTDATA+4, CPTDATA+5
I	535+5, VERCHK+1~, VERCHK+17, VERCHK+18, VERCHK+25, VERCHK+26, VERCHK+33, VERCHK+34, CPTDATA+2~, CPTDATA+3* , CPTDATA+5*, CPTDATA+6, CPTDATA+20!
I2	CPTDATA+2~, CPTDATA+4, CPTDATA+6, CPTDATA+8, CPTDATA+10, CPTDATA+11, CPTDATA+17
ICD	VERCHK+1~, VERCHK+11, VERCHK+19, VERCHK+27, VERCHK+35, VERCHK+43*
IEN	CPTDATA+2~
IMPDATE	VERCHK+2~
J	535+5, PHY+11, VERCHK+1~
K	CPTDATA+2~, CPTDATA+7, CPTDATA+8, CPTDATA+10, CPTDATA+20!
K1	CPTDATA+2~, CPTDATA+7, CPTDATA+9, CPTDATA+10, CPTDATA+11, CPTDATA+20!
L	PHY+9, PHY+19, PHY+24, PHY+26!, ENTER, ENTER0, CPTDATA+2~, CPTDATA+11
M	VERCHK+1~, VERCHK+17*
N	CPTDATA+2~, CPTDATA+3*, CPTDATA+20!
>> PTF	CPTDATA+4, CPTDATA+5, CPTDATA+6, CPTDATA+8
REC	VERCHK~, VERCHK+3, VERCHK+5, VERCHK+9, VERCHK+10, VERCHK+17, VERCHK+18, VERCHK+25, VERCHK+26, VERCHK+33 , VERCHK+34, VERCHK+41
>> T1	535+5, PHY+1
>> T2	535+5
U	535+5, PHY+3, PHY+7, PHY+8, PHY+13, PHY+17, PHY+18, PHY+24, ENTER, ENTER0 , VERCHK+11, VERCHK+19, VERCHK+27, VERCHK+35, VERCHK+42, VERCHK+43, CPTDATA+6, CPTDATA+10, CPTDATA+11
VER	VERCHK+1~
X	PHY+1, PHY+9, PHY+11, PHY+13, PHY+17, PHY+18, PHY+24, PHY+26!, ENTER, ENTER0 , VERCHK+1~, VERCHK+12, VERCHK+13, VERCHK+20, VERCHK+21, VERCHK+28, VERCHK+29, VERCHK+36, VERCHK+37, VERCHK+44 , VERCHK+45, CPTDATA+12*, CPTDATA+13
Y	PHY+1, ENTER, ENTER0*, VERCHK+1~
Z	PHY+3, PHY+9, PHY+11, PHY+13, PHY+19, PHY+24, PHY+26!, ENTER, ENTER0

Customize PDF page

Package: Registration