Routine: DGPTODI3

Package	Total	Call Graph
DRG Grouper	1	$$DRGD^ICDGTDRG
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	1	DGPTODI2

Entry Points

External References

Name	Field # of Occurrence
$$DRGD^ICDGTDRG	HD1+6
$$FMTE^XLFDT	DT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?61,"Summary Page",!!!,"Total combined hits for Medical Center of all DRGs: ",DGTP(1),!,"The following list gives the total hits by DRG:" Line Location: DGPTODI3+4
Function Call: WRITE	Prompt: ! Line Location: DGPTODI3+5
Function Call: WRITE	Prompt: " DRG ",$J(DRG,3),":",$J(DRG(DRG),4) Line Location: DGPTODI3+5
Function Call: WRITE	Prompt: $P(^DPT(DFN,0),"^",1) Line Location: LN+1
Function Call: WRITE	Prompt: ?55,"----------" Condition for execution: DGD=0 Line Location: LN+2
Function Call: WRITE	Prompt: ?55 Line Location: LN+2
Function Call: WRITE	Prompt: ?76 Line Location: LN+4
Function Call: WRITE	Prompt: $J(DGLOS,4),?83,$J(DGBE,5) Line Location: LN+4
Function Call: WRITE	Prompt: $J(DGLOS,4),?83,$J(DGBE,5) Line Location: LN+4
Function Call: WRITE	Prompt: ?99 Line Location: LN+5
Function Call: WRITE	Prompt: $S(DGSTAT=0:"O",DGSTAT=1:"C",DGSTAT=2:"R",1:"T") Line Location: LN+5
Function Call: WRITE	Prompt: $S($D(^VA(200,DGPRO,0)):$E($P(^VA(200,DGPRO,0),"^",1),1,29),1:"not specified"),"/" Line Location: LN+6
Function Call: WRITE	Prompt: !,?103,$E($P(^DIC(42.4,DGBS,0),"^",1),1,29) Line Location: LN+7
Function Call: WRITE	Prompt: " *" Line Location: FLG+0
Function Call: WRITE	Prompt: ! Line Location: TOT+0
Function Call: WRITE	Prompt: !!,"FLAGS: H - Total Above High Trim: ",DGAT," * - Total 1 Day LOS: ",DG1DAY," A - Total Above ALOS: ",DGAAL Line Location: TOT+1
Function Call: WRITE	Prompt: !!?64,"-",DGPAG,"-" Line Location: TOT+2
Function Call: WRITE	Prompt: $TR($$FMTE^XLFDT(Y,"5DF")," ","0") Line Location: DT+0
Function Call: WRITE	Prompt: @IOF,!,"DRG INDEX FOR DRG ",DRG,?30,"Weight: " Line Location: HDR+0
Function Call: WRITE	Prompt: $P(%,"^",2),?46,"Low Trim: " Line Location: HD1+3
Function Call: WRITE	Prompt: DGLO,?60,"High Trim: ",DGHI,?76,"Avg LOS: ",DGAL Line Location: HD1+3
Function Call: WRITE	Prompt: ?105,"PRINTED: " Line Location: HD1+4
Function Call: WRITE	Prompt: Y,!?3,"For ",$S(DGD:"Discharge Dates from: ",1:"Active Admissions") Line Location: HD1+4
Function Call: WRITE	Prompt: Y,!?3,"For ",$S(DGD:"Discharge Dates from: ",1:"Active Admissions") Line Location: HD1+4
Function Call: WRITE	Prompt: Y,!?3,"For ",$S(DGD:"Discharge Dates from: ",1:"Active Admissions") Line Location: HD1+4
Function Call: WRITE	Prompt: Y,!?3,"For ",$S(DGD:"Discharge Dates from: ",1:"Active Admissions") Line Location: HD1+4
Function Call: WRITE	Prompt: ?18,^ICD(DRG,1,%,0),! Line Location: HD1+5
Function Call: WRITE	Prompt: ?18,DGDX(%),! Line Location: HD1+7
Function Call: WRITE	Prompt: !!,?44,"ADMISSION",?55,"DISCHARGE",?66,"TRANSFER",?97,"PTF",?103,"TRANSFERRING PROVIDER/" Line Location: HD1+8
Function Call: WRITE	Prompt: !,"PATIENT NAME",?33,"SSN",?44,"DATE",?55,"DATE",?66,"DATE",?77,"LOS",?91,"FLGS",?97,"STAT",?103,"LOSING SPECIALTY" Line Location: HD1+9
Function Call: WRITE	Prompt: !,DGNC,?9,$P(^DPT(DFN,0),"^"),?45,$P(^(0),"^",9),?63 Line Location: PNC+0
Function Call: WRITE	Prompt: !,?64,"-",DGPAG,"-",@IOF Condition for execution: DGPAG>0 Line Location: HD2+0
Function Call: WRITE	Prompt: !,"PTF #",?9,"PATIENT NAME",?45,"SSN",?60,"ADMISSION DATE",!,DGLN Line Location: HD2+0
Function Call: WRITE	Prompt: @IOF,"A ",$S(DGB:"transfer ",1:""),"DRG can not be computed for 1 or more movement(s) associated with the following PTF records because ",$S(DGB:"transfer ",1:""),"ICD code(s) " Line Location: NC+1
Function Call: WRITE	Prompt: ! Condition for execution: DGB Line Location: NC+2
Function Call: WRITE	Prompt: "are missing:" Line Location: NC+2
Function Call: WRITE	Prompt: ! Line Location: NC+5
Function Call: WRITE	Prompt: !?64,"-",DGPAG,"-",! Line Location: NC+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HD1+4
^DIC(42.4 - [#42.4]	LN+7
^DPT - [#2]	LN+1, PNC
^ICD - [#80.2]	HD1
^UTILITY($J	DGPTODI3+3, DGPTODI3+6, L2, HD1+10*, NC+4
^VA(200 - [#200]	LN+6

Label References

Name	Line Occurrences
DT	LN+2, LN+3, PNC
FLG	LN+4
HD1	HD1+1
HD2	NC+3, NC+4
HDR	DGPTODI3+3, LN
L2	DGPTODI3+3
LN	L2
NC	DGPTODI3+6
PNC	NC+4
TOT	DGPTODI3+3

Naked Globals

Name	Field # of Occurrence
^(	L2, NC+4
^(0	HD1, PNC

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DGPTODI3+5, FLG+1, TOT, HD1, HD1+1, HD1+3, HD1+7, NC+5
>> DFN	LN+1, PNC, NC+4
DG1DAY	DGPTODI3+2, DGPTODI3+6!, FLG, TOT+1, TOT+2*
DGAAL	DGPTODI3+2, DGPTODI3+6!, FLG+1, TOT+1, TOT+2*
DGAL	DGPTODI3+6!, FLG+1, HD1+3*
DGAT	DGPTODI3+2, DGPTODI3+6!, FLG+1, TOT+1, TOT+2*
>> DGB	HD1+4, NC+1, NC+2
>> DGBE	LN+4*, FLG+1
>> DGBS	LN+6*, LN+7
DGBT	DGPTODI3+2, DGPTODI3+6!, FLG+1, TOT+2*
>> DGD	LN+2, HD1+4
DGDT	DGPTODI3+6!, L2, LN+3, PNC, NC+4
DGDX	HD1+6~
DGDX(	HD1+7
>> DGED	HD1+4
>> DGFY2K	HD1, HD1+1, HD1+2
DGFY2KSV	HD1+1~*, HD1+2
DGFY2KYR	HD1+1~*
DGHI	DGPTODI3+6!, FLG+1, HD1+3*
DGLN	DGPTODI3+2*, DGPTODI3+6!, TOT, HD1+10, HD2, NC+5
DGLN2	DGPTODI3+2*, DGPTODI3+6!
DGLO	DGPTODI3+6!, HD1+3*
>> DGLOS	LN+4*, FLG, FLG+1
DGNC	DGPTODI3+6!, PNC, NC+4*
>> DGP	DGPTODI3+3, LN+1
DGPAG	DGPTODI3+2, DGPTODI3+6!, TOT+2, HD1+10, HD2, NC, NC+5*, NC+6
>> DGPRO	LN+6*
DGPT	DGPTODI3+3*, DGPTODI3+6!, LN+1
>> DGSD	HD1+4
>> DGSTAT	LN+5*
DGTD	DGPTODI3+3*, DGPTODI3+6!
DGTDRG	DGPTODI3+2, DGPTODI3+6!, LN+1
DGTP	DGPTODI3+2, DGPTODI3+6!, LN+1, TOT, TOT+2, NC, NC+4*, NC+5
DGTP(1	DGPTODI3+2, DGPTODI3+4, TOT+2
DGUNIQ	DGPTODI3+2, DGPTODI3+6!, LN+2, TOT, TOT+2*
>> DRG	DGPTODI3+3, DGPTODI3+5, L2, TOT+2, HDR, HD1, HD1+6, HD1+10
>> DRG(	DGPTODI3+5, TOT+2*
DT	HD1+4, HD1+6
DXD	HD1+6~*
I	DGPTODI3+6!, TOT, NC+5
IOF	DGPTODI3+4, HDR, HD2, NC+1
IOSL	LN, TOT, NC+4, NC+5
J	DGPTODI3+3, DGPTODI3+5, DGPTODI3+6!
J1	DGPTODI3+3*, DGPTODI3+6!, L2
K	DGPTODI3+6!, L2*
L	DGPTODI3+6!, L2*
>> SSN(1	DGPTODI3+2, LN+2, TOT+2*
>> SSN(2	LN+2*
>> X	L2*, LN+1, LN+2, LN+3, LN+4, LN+5, LN+6
>> Y	LN+2, LN+3, DT, HD1+4, PNC*

Customize PDF page

Package: Registration

Routine: DGPTODI3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: