Routine: DGPTODCM

Package	Total	Call Graph
Registration	1	C^DGUTL
VA Fileman	1	DT^DIQ

Package	Total	Caller Graph
Registration	1	DGPTOD1

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	; top of page
UNLOAD	;
COVER	; cover page
SVC	; Service names
TOT	; print totals
PRINT	; print a line

External References

Name	Field # of Occurrence
C^DGUTL	COVER+4
DT^DIQ	HEAD+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,?10,"Total Weight: Sum of all DRGs",!! Line Location: HEAD+2
Function Call: WRITE	Prompt: ?62,"-",P,"-" Condition for execution: P Line Location: HEAD+3
Function Call: WRITE	Prompt: @IOF,!,"DRG Case Mix Summary for ",$S(DGFLAG'["M":G2_" SERVICE",1:"MEDICAL CENTER"),$S(DGFLAG["Spec":" by Specialty",1:"") I 'DGD Line Location: HEAD+3
Function Call: WRITE	Prompt: " for Active Admissions" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,"Discharge Dates from " Line Location: HEAD+4
Function Call: WRITE	Prompt: $P(Y,"@",1)," to " Line Location: HEAD+4
Function Call: WRITE	Prompt: $P(Y,"@",1)," to " Line Location: HEAD+4
Function Call: WRITE	Prompt: E Line Location: HEAD+15
Function Call: WRITE	Prompt: ! Line Location: UNLOAD+21
Function Call: WRITE	Prompt: !,?10,"Total Weight: Sum of all DRGs",!! Line Location: UNLOAD+22
Function Call: WRITE	Prompt: ?62,"-",P,"-" Condition for execution: P Line Location: UNLOAD+23
Function Call: WRITE	Prompt: @IOF,! Line Location: UNLOAD+23
Function Call: WRITE	Prompt: !,?5,B1,?38,$J(B2,12,2),?58,$J(B3,10),?75,$J(B4,14,2) Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,?5,"TOTALS",?38,$J(T2,12,2),?58,$J(T3,10),?75,$J(T4,14,2) Line Location: TOT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	COVER+3, HEAD+4
^DIC(42.4 - [#42.4]	UNLOAD+10
^UTILITY("DGPTOD1"	DGPTODCM+6, DGPTODCM+30!
^VA(200 - [#200]	UNLOAD+17

Label References

Name	Line Occurrences
COVER	DGPTODCM+27
HEAD	DGPTODCM+27, UNLOAD+7, UNLOAD+14, PRINT+1
PRINT	UNLOAD+5, UNLOAD+12, UNLOAD+19
SVC	UNLOAD+3
TOT	UNLOAD+6, UNLOAD+13, UNLOAD+20
UNLOAD	DGPTODCM+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DGPTODCM+5~, COVER+3, HEAD+1, UNLOAD+21*
B1	DGPTODCM+4~, UNLOAD+3, UNLOAD+10, UNLOAD+17*, PRINT+2
B2	DGPTODCM+4~, UNLOAD+4, UNLOAD+11, UNLOAD+18*, PRINT+2, PRINT+3
B3	DGPTODCM+4~, UNLOAD+4, UNLOAD+11, UNLOAD+18*, PRINT+2, PRINT+3
B4	DGPTODCM+4~, UNLOAD+4, UNLOAD+11, UNLOAD+18*, PRINT+2
DGB	DGPTODCM+3~, DGPTODCM+10, DGPTODCM+12, DGPTODCM+18, DGPTODCM+19, COVER+3, HEAD+5
DGBED	DGPTODCM+3~, UNLOAD+8
DGBED(	DGPTODCM+18, DGPTODCM+19, UNLOAD+9, UNLOAD+11
DGCPG	DGPTODCM+5~
DGCPG(1	COVER+1*
DGCPG(2	COVER+2, COVER+3
DGCPG(3	COVER+3*
>> DGD	COVER+2, COVER+3, HEAD+3, HEAD+4
DGDEF	DGPTODCM+3~, DGPTODCM+7*, DGPTODCM+8
>> DGED	COVER+3, HEAD+4
DGFLAG	DGPTODCM+5~, DGPTODCM+26*, COVER+1, HEAD+3
DGP	DGPTODCM+3~, DGPTODCM+10, DGPTODCM+13, DGPTODCM+21, DGPTODCM+22
DGPASS	DGPTODCM+4~, DGPTODCM+25, HEAD+6, HEAD+9, HEAD+12, UNLOAD+7, UNLOAD+14*
DGPRO	DGPTODCM+3~, UNLOAD+15
DGPRO(	DGPTODCM+21, DGPTODCM+22, UNLOAD+16, UNLOAD+18
DGREF	DGPTODCM+3~, DGPTODCM+6, DGPTODCM+7, DGPTODCM+8, DGPTODCM+9, DGPTODCM+10
DGS	DGPTODCM+3~, DGPTODCM+9, DGPTODCM+11, DGPTODCM+15, DGPTODCM+16
>> DGSD	COVER+3, HEAD+4
DGSNM	DGPTODCM+5~, UNLOAD+3, SVC+1*
DGSVC	DGPTODCM+3~, UNLOAD+1
DGSVC(	DGPTODCM+15, DGPTODCM+16, UNLOAD+2, UNLOAD+4
DGTCH	DGPTODCM+5~, COVER+4*
DGWGT	DGPTODCM+3~, DGPTODCM+9*, DGPTODCM+15, DGPTODCM+16, DGPTODCM+18, DGPTODCM+19, DGPTODCM+21, DGPTODCM+22
DT	HEAD+5
E	DGPTODCM+5~, HEAD+1, HEAD+15!, UNLOAD+21*
>> G2	HEAD+3
IOF	HEAD+3, UNLOAD+23
IOSL	HEAD+1, UNLOAD+21, PRINT+1
P	DGPTODCM+5~, DGPTODCM+25, HEAD+1, HEAD+2, HEAD+3, HEAD+16, UNLOAD+21, UNLOAD+22, UNLOAD+23
P3	DGPTODCM+5~, DGPTODCM+26*, COVER+4
T1	DGPTODCM+4~
T2	DGPTODCM+4~, DGPTODCM+28, PRINT+3, TOT+1, TOT+2*
T3	DGPTODCM+4~, DGPTODCM+28, PRINT+3, TOT+1, TOT+2*
T4	DGPTODCM+4~, PRINT+3*, TOT+1
U	DGPTODCM+9, DGPTODCM+10, DGPTODCM+15, DGPTODCM+16, DGPTODCM+18, DGPTODCM+19, DGPTODCM+21, DGPTODCM+22, UNLOAD+4, UNLOAD+10 , UNLOAD+11, UNLOAD+17, UNLOAD+18
X	DGPTODCM+4~, UNLOAD+1, UNLOAD+2, UNLOAD+4, UNLOAD+8, UNLOAD+9, UNLOAD+10, UNLOAD+11, UNLOAD+15, UNLOAD+16 , UNLOAD+17, UNLOAD+18, SVC+1
Y	DGPTODCM+4~, COVER+3, HEAD+4, HEAD+5*

Customize PDF page

Package: Registration

Routine: DGPTODCM

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

Local Variables

Legend: