Routine: DGPTFJC

Package	Total	Call Graph
Registration	8	Q^DGPTF ACT1^DGPTF41 (,HELP)^DGPTFJ ^DGPTFM NEXP^DGPTFM2 NEXM^DGPTFM4 NEXM^DGPTFM5 NEXP^DGPTFM6
DRG Grouper	3	($$ICDDX,$$ICDOP)^ICDCODE $$GETDATE^ICDGTDRG $$CPT^ICPTCOD

Package

Total

Call Graph

Registration

Q^DGPTF ACT1^DGPTF41 (,HELP)^DGPTFJ ^DGPTFM NEXP^DGPTFM2 NEXM^DGPTFM4 NEXM^DGPTFM5 NEXP^DGPTFM6

DRG Grouper

($$ICDDX,$$ICDOP)^ICDCODE $$GETDATE^ICDGTDRG $$CPT^ICPTCOD

Package	Total	Caller Graph
Registration	6	DGPTF1 DGPTFM DGPTFM2 DGPTFM4 DGPTFM5 DGPTFM6

Package

Total

Caller Graph

Registration

DGPTF1 DGPTFM DGPTFM2 DGPTFM4 DGPTFM5 DGPTFM6

External References

Name	Field # of Occurrence
Q^DGPTF	101+1, MAS+1, 401+2, 501+1, 601+1, 801+1
ACT1^DGPTF41	701+1
^DGPTFJ	101+1, MAS+1, 401+2, 501+1, 601+1, 801+1
HELP^DGPTFJ	H
^DGPTFM	101+1
NEXP^DGPTFM2	801+1
NEXM^DGPTFM4	501+1
NEXM^DGPTFM5	401+2
NEXP^DGPTFM6	601+1
$$ICDDX^ICDCODE	EN+17, EN3, EN3+5, EN4, EN5
$$ICDOP^ICDCODE	EN1, EN1+4, EN2
$$GETDATE^ICDGTDRG	EN+2, EN1, EN2, EN3, EN4, EN6+1
$$CPT^ICPTCOD	EN6+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter '^N' for Screen N, RETURN for <MAS>,'^' to Abort: <MAS>//" Line Location: 101+0
Function Call: WRITE	Prompt: ! Line Location: H+0
Function Call: WRITE	Prompt: !!,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//" Line Location: MAS+0
Function Call: WRITE	Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//" Line Location: 401+1
Function Call: WRITE	Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//" Line Location: 501+0
Function Call: WRITE	Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//" Line Location: 601+0
Function Call: WRITE	Prompt: !,"Enter '^N' for Screen N, RETURN for <",DGNUM,">,'^' to Abort: <",DGNUM,">//" Line Location: 801+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: READ+1
Function Call: WRITE	Prompt: !,"Cannot use ",$S($D(^ICD9(+Y,0)):$P(^(0),U),1:"")," with ",$S($D(^ICD9(I,0)):$P(^(0),U),1:"") Line Location: EN+22
Function Call: WRITE	Prompt: !,"Cannot enter the same code more than once within a ",$S(DGSB="S":"401",1:"601")," transaction" Line Location: EN1+3
Function Call: WRITE	Prompt: !,"Cannot use ",$P(DGICD0,U,2)," with ",$S(+DGPTTMP2>0:$P(DGPTTMP2,U,2),1:"") Line Location: EN1+4
Function Call: WRITE	Prompt: !,$P(DGICD0,U,2)," requires additional code." Line Location: EN1+6
Function Call: WRITE	Prompt: !,"Cannot use ",$P($G(DGPTTMP),U,2)," with ",$S(+DGPTTMP2>0:$P(DGPTTMP2,U,2),1:"") Line Location: EN3+5
Function Call: WRITE	Prompt: !,$S(+DGPTTMP>0:$P(DGPTTMP,U,2),1:"")," requires additional code." Line Location: EN3+7
Function Call: WRITE	Prompt: !,"Cannot use ",$S($D(^ICD9(+Y,0)):$P(^(0),U),1:"")," with ",$S($D(^ICD9(I,0)):$P(^(0),U),1:"") Line Location: EN4+4
Function Call: WRITE	Prompt: !,$P(N,U,2)," requires additional code." Line Location: EN4+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCPT(46 - [#46]	EN5+2, EN6+2
^DGPT - [#45]	EN+6, EN+8, EN+20, EN+21, EN+22, EN+23, EN1+1, EN1+2, EN1+4, EN1+5 , EN2+1, EN2+2, EN3+2, EN3+3, EN3+4, EN4+2, EN4+3, EN5+1
^DPT - [#2]	EN+20, EN1+1, EN2+1, EN3+2, EN4+2, EN5+1
^ICD0 - [#80.1]	EN1+4, EN1+5
^ICD9 - [#80]	EN+22, EN+23, EN3+5, EN3+6, EN4+4, EN4+5

Name	Line Occurrences
101	101+1
401	401+2
501	501+1
601	601+1
801	801+1
@(	MAS+2
H	101+1, MAS+3, 401+2, 501+1, 601+1, 801+1
MAS	MAS+3
READ	101+1, MAS+1, 401+2, 501+1, 601+1, 801+1

Name	Field # of Occurrence
^(	EN6+2
^("401P"	EN2+2
^(0	EN+20, EN+22, EN1+1, EN2+1, EN3+2, EN4+2, EN4+3, EN4+4, EN5+1, EN6 , EN6+2
^(1	EN6+2
^(70	EN3+3
^(71	EN3+4
^(9	EN6+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+21, EN+22, EN+23, EN1+2, EN1+4, EN1+5, EN2+2, EN3+3, EN3+4, EN3+5 , EN3+6, EN4+3, EN4+4, EN4+5
>> DA	EN+21, EN+22, EN+23, EN1+2, EN1+4, EN1+5, EN2, EN2+1, EN2+2, EN3 , EN3+2, EN3+3, EN3+4, EN4, EN4+3, EN5+2, EN6+1
>> DA(1	EN+2, EN+6, EN+8, EN+20, EN+21, EN+22, EN+23, EN1, EN1+1, EN1+2 , EN1+4, EN1+5, EN4+3
>> DA(2	EN4+2, EN4+3
>> DG1	EN+23, EN+24, EN1+5, EN1+6, EN3+6, EN3+7, EN4+5, EN4+6
>> DGADD	EN+8
>> DGCR	EN1+4, EN1+5
>> DGER	EN+2, EN+17, EN+20, EN+21, EN+22, EN+23, EN1, EN1+1, EN1+4, EN1+5 , EN2, EN2+1, EN2+2, EN3, EN3+1, EN3+2, EN3+4, EN3+5, EN3+6, EN4* , EN4+1, EN4+2, EN4+3, EN4+4, EN4+5, EN5, EN5+1, EN5+2, EN6, EN6+1* , EN6+2*
>> DGI	EN+21, EN1+2, EN2+2, EN3+1, EN3+4, EN4+1, EN4+3
>> DGICD0	EN1*, EN1+1, EN1+4, EN1+6
>> DGMOV	EN+8
>> DGNUM	MAS, 401*, 401+1, 501, 601, 801
>> DGPMT	EN+16
>> DGPRD	EN6+2
>> DGPTDAT	EN+2, EN+6, EN+11, EN+13, EN+14, EN+15, EN+17, EN1, EN1+4, EN3+5
DGPTMVDT	EN+6~, EN+8, EN+9, EN+11, EN+13, EN+14, EN+15
>> DGPTOUT	READ+1*
>> DGPTTMP	EN+17, EN+20, EN+24, EN2, EN2+1, EN3, EN3+1, EN3+2, EN3+5, EN3+7 , EN5, EN5+1
>> DGPTTMP2	EN1+4, EN3+5
>> DGQWK	EN+16
>> DGSB	EN1+2, EN1+4, EN1+5
>> DGZDIAG	MAS+2
DGZM0	EN+5*, EN+6, EN+16!
>> DGZP	EN5
>> DGZPRF	MAS+2
>> DGZPRF(	EN5
>> DGZPRO	MAS+2
>> DGZS0	401
>> DGZSER	MAS+2
>> DGZSUR	MAS+2
DTIME	READ+1
>> I	EN+22, EN+23, EN1+4, EN1+5, EN3+5, EN3+6, EN4+4, EN4+5
>> J	MAS+2
>> K	EN+2, EN+20, EN1, EN1+1, EN2, EN2+1, EN3, EN3+2, EN4, EN4+2 , EN5, EN5+1, EN5+2*
L	EN2+2, EN6+2, EN6+3!
>> M(	EN+5*, EN+6, EN+16!
>> N	EN4, EN4+1, EN4+2, EN4+6, EN6+1
>> PTF	EN5+1, EN6+2
>> S(	401
>> ST	MAS+2*
>> ST1	MAS+2*
U	101+1, MAS+1, MAS+2, 401+2, 501+1, 601+1, 801+1, EN+6, EN+8, EN+17 , EN+20, EN+21, EN+22, EN+24, EN1, EN1+1, EN1+2, EN1+4, EN1+6, EN2 , EN2+1, EN2+2, EN3, EN3+1, EN3+2, EN3+3, EN3+4, EN3+5, EN3+6, EN3+7 , EN4, EN4+1, EN4+2, EN4+3, EN4+4, EN4+5, EN4+6, EN5, EN5+1, EN5+2 , EN6, EN6+2
>> X	101+1, MAS+1, MAS+2, 401+2, 501+1, 601+1, 801+1, READ+1*
>> Y	EN+17, EN+21, EN+22, EN+23, EN1, EN1+4, EN1+5, EN2, EN2+2, EN3 , EN3+4, EN3+5, EN3+6, EN4, EN4+3, EN4+4, EN4+5, EN5, EN5+2, EN6+1 , EN6+2

Customize PDF page

Package: Registration

Routine: DGPTFJC

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
MAS
EN	; DG*636
601
EN6
READ	; -- read X
H
701	;
EN1
EN2
EN3
EN4
EN5
401
801
101
501