Routine: DGPTODB2

Information

DGPTODB2 ;ALB/AS - PTF DRG Breakeven REPORTS (CONT) ; 26 JUN 87 10:00

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Registration	3	BE^DGPTOD1 HD^DGPTODB1 TP^DGUTL
VA FileMan	1	COMMA^%DTC

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: 1

Package	Total	Caller Graph
Registration	1	DGPTODB1

Entry Points

Name	Comments	DBIA/ICR reference
LN
WLN
AA
BA
PG
SV
S
WT
WM
WS
WB

External References

Name	Field # of Occurrence
COMMA^%DTC	WLN+2, WT+1
BE^DGPTOD1	PG+1
HD^DGPTODB1	LN, SV
TP^DGUTL	WM

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$J(DRG,3),$J(DGLOTRIM,5),$J($P(Z,"^",4),6),$J($P(Z,"^",5),9),$J(DGWU,6),$J($P(Z,"^",7),7) Line Location: LN+2
Function Call: WRITE	Prompt: ?37,"\|" Line Location: WLN+0
Function Call: WRITE	Prompt: $J(DGDU,6),$J(DGLU,8),$J(DGLU/DGDU,7,1)," \|" Condition for execution: DGU="B" Line Location: WLN+0
Function Call: WRITE	Prompt: ?66,"0 0 0" Condition for execution: DGU'="B" ?43,"0 0 0 \|" W:DGA="A" $J(DGDA,6),$J(DGLA,8),?70,$J(DGLA/DGDA,7,1) W:DGA'="A" Line Location: WLN+0
Function Call: WRITE	Prompt: ?83,"\|",$J(DGTD,6),$J(DGTL,9),$J(DGTL/DGTD,7,1),?107,"\|" Line Location: WLN+1
Function Call: WRITE	Prompt: $J(DGTWW,9,2) Line Location: WLN+2
Function Call: WRITE	Prompt: $J(X,13) Line Location: WLN+2
Function Call: WRITE	Prompt: ! Line Location: PG+0
Function Call: WRITE	Prompt: !!?64,"-",DGPAG,"-",! Line Location: PG+1
Function Call: WRITE	Prompt: ?37,"\|",$J(DGTT(1),6),$J(DGTT(2),8) Line Location: WT+0
Function Call: WRITE	Prompt: $S(%]"":$J(%,7,1),1:" 0")," \|" Line Location: WT+0
Function Call: WRITE	Prompt: $J(DGTT(3),6),$J(DGTT(4),8) Line Location: WT+1
Function Call: WRITE	Prompt: $S(%]"":$J(%,7,1),1:" 0")," \|",$J(DGTT(5),6),$J(DGTT(6),9),$J(DGTT(6)/DGTT(5),7,1)," \|",$J(DGTT(7),9,2) Line Location: WT+1
Function Call: WRITE	Prompt: $S(%]"":$J(%,7,1),1:" 0")," \|",$J(DGTT(5),6),$J(DGTT(6),9),$J(DGTT(6)/DGTT(5),7,1)," \|",$J(DGTT(7),9,2) Line Location: WT+1
Function Call: WRITE	Prompt: !,DGLN,!?3,"Totals for Medical Center:" Line Location: WM+0
Function Call: WRITE	Prompt: !,DGLN,!?3,"Totals for Service:" Line Location: WS+1
Function Call: WRITE	Prompt: !,DGLN2,!?3,"Totals for Specialty:" Line Location: WB+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	DGPTODB2+2, LN+3, LN+4, AA, AA+1, BA, BA+1, BA+2, SV, S* , S+1*

Label References

Name	Line Occurrences
AA	LN+3, LN+4
BA	LN+3, LN+4
LN	DGPTODB2+2, SV
PG	WM
S	SV
WB	SV
WM	DGPTODB2+3
WT	WM, WS+1, WB

Naked Globals

Name	Field # of Occurrence
^(	DGPTODB2+2, LN+3, LN+4, SV, S*
^("AA"	AA+1*
^("BA"	BA+1, BA+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LN+3, LN+4, AA, BA, PG, S+1, WT, WT+1, WS, WS+1 , WB*
>> D	LN+3, LN+4
>> D5	LN+3, LN+4
>> DG1DAWW	WLN+2
>> DG1DAY	LN+1, WLN+2, BA, BA+1
>> DGA	LN+1, WLN, AA
>> DGAMT(	WS, WB
>> DGBNM	LN+4, SV*, S
>> DGBS	LN+4, SV*
>> DGDA	WLN, AA*, AA+1
>> DGDU	WLN, BA*, BA+1
>> DGHI	LN+1, WLN+2, AA, AA+1
>> DGHIWW	WLN+2
>> DGLA	WLN, AA*, AA+1
>> DGLN	WM, WS+1
>> DGLN2	WB
>> DGLODAY	LN+1, WLN+2, BA, BA+2
>> DGLODC	LN+1, WLN+2, BA, BA+2
>> DGLOTRIM	LN+1*, LN+2, WLN+2
>> DGLU	WLN, BA*, BA+1
>> DGMC(	WS*
>> DGPAG	DGPTODB2+2, PG+1, S
>> DGRNO	LN+2, LN+3, AA, BA, WS
>> DGSV	LN+4, AA, AA+1, BA, BA+1, BA+2, SV, S, S+1
>> DGTD	LN+1*, WLN+1, WLN+2
>> DGTL	LN+1*, WLN+1
>> DGTT(	WS, WS+1, WB*
>> DGTT(1	BA*, WT
>> DGTT(2	BA*, WT
>> DGTT(3	AA*, WT+1
>> DGTT(4	AA*, WT+1
>> DGTT(5	LN+1*, WT+1
>> DGTT(6	LN+1*, WT+1
>> DGTT(7	WLN+2*, WT+1
>> DGTWW	WLN+2*
>> DGU	LN+1, WLN, BA
>> DGWU	LN+1*, LN+2, WLN+2
>> DGWWCST	WLN+2, WT+1
>> DRG	DGPTODB2+2, LN+2, LN+3, LN+4, AA, AA+1, BA, BA+1, BA+2, SV , S, S+1
>> I	PG*
IOSL	LN, PG, SV
>> X	WLN+2, WT+1
>> X2	WLN+2, WT+1
>> Z	DGPTODB2+2, LN+1, LN+2, SV, S, S+1

Customize PDF page

Package: Registration