Routine: ADGSRVP

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGSRVC

Entry Points

Name	Comments	DBIA/ICR reference
A	; -- driver
P2
P1
TOT	; -- totals
WS	;I S=1 W:DGA(3,8) ?40,DGA(3,8)_"t" W:DGA(3,7) ?55,DGA(3,7)_"t"
LS
SRV	;;
HD
MON	;;JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HD+1
Function Call: WRITE	Prompt: ?80-$L(X)/2,X,!,DGLINE,!,"Name and Location of Hospital" Line Location: HD+1
Function Call: WRITE	Prompt: ?64,"Month and Year",!!?5,$P($G(^DIC(4,+DUZ(2),0)),U) Line Location: HD+2
Function Call: WRITE	Prompt: " ",$P(X,U,13)_", "_$P($G(^DIC(5,+$P(X,U,14),0)),U) Line Location: HD+6
Function Call: WRITE	Prompt: ?64,$P($P($T(MON),";;",2)," ",X)_" "_Y,!,DGLINE Line Location: HD+8
Function Call: WRITE	Prompt: !?80-$L(X)/2,X,!,DGLINE Line Location: P1+0
Function Call: WRITE	Prompt: !?31,"Bom",?48,"Discharges",?64,"Eom",?70,"Inpatient" Line Location: P1+1
Function Call: WRITE	Prompt: !?1,"Medical Services Provided",?30,"Census",?40,"Adm" Line Location: P1+2
Function Call: WRITE	Prompt: ?48,"Death",?55,"Other",?63,"Census",?72,"Days",!,DGLINE,! Line Location: P1+3
Function Call: WRITE	Prompt: !,$P($T(SRV+S),";;",2) Line Location: WS+6
Function Call: WRITE	Prompt: ?32,$J(DGA(S,1),3),?40,$J(DGA(S,2),3),?48,$J(DGA(S,3),3) Line Location: WS+7
Function Call: WRITE	Prompt: ?55,$J(DGA(S,4),3),?64,$J(DGA(S,5),3),?72,$J(DGA(S,6),4),! Line Location: WS+8
Function Call: WRITE	Prompt: ?30,"-----",?38,"-----",?46,"-----",?53,"-----",?62,"-----" Line Location: TOT+1
Function Call: WRITE	Prompt: ?70,"------" Line Location: TOT+2
Function Call: WRITE	Prompt: !?10,"TOTAL",?32,$J(DGX(1),3),?40,$J(DGX(2),3),?48,$J(DGX(3),3) Line Location: TOT+4
Function Call: WRITE	Prompt: ?55,$J(DGX(4),3),?64,$J(DGX(5),3),?72,$J(DGX(6),4),!,DGLINE Line Location: TOT+5
Function Call: WRITE	Prompt: ! Line Location: TOT+7
Function Call: WRITE	Prompt: ?40,DGA(4,7)_"t" Condition for execution: DGA(4,7) Line Location: TOT+7
Function Call: WRITE	Prompt: ?54,DGA(4,8)_"t" Condition for execution: DGA(4,8) Line Location: TOT+7
Function Call: WRITE	Prompt: !,"NEWBORN" Line Location: TOT+8
Function Call: WRITE	Prompt: ?32,$J(DGA(4,1),3),?40,$J(DGA(4,2),3),?48,$J(DGA(4,3),3) Line Location: TOT+9
Function Call: WRITE	Prompt: ?55,$J(DGA(4,4),3),?64,$J(DGA(4,5),3),?72,$J(DGA(4,6),4),!,DGLINE Line Location: TOT+10
Function Call: WRITE	Prompt: !?26,"Part II - Special Information",!,DGLINE Line Location: P2+0
Function Call: WRITE	Prompt: !!,"Peak Census, Excluding Newborn................................." Line Location: P2+1
Function Call: WRITE	Prompt: ?64,DGMAX Line Location: P2+2
Function Call: WRITE	Prompt: !!,"Minimum Census, Excluding Newborn..............................." Line Location: P2+3
Function Call: WRITE	Prompt: ?64,DGMIN Line Location: P2+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	HD+3
^DIC(4 - [#4]	HD+2
^DIC(5 - [#5]	HD+6

Label References

Name	Line Occurrences
HD	A+1
LS	A+1
MON	HD+8
P1	A+1
P2	A+1
TOT	LS+1
WS	LS

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DGA(	WS+5, WS+7, WS+8, TOT+3
>> DGA(4	TOT+7, TOT+9, TOT+10
>> DGLINE	ADGSRVP+3*, HD+1, HD+8, P1, P1+3, TOT+5, TOT+10, P2
>> DGMAX	P2+2
>> DGMIN	P2+4
>> DGMON	HD+7
>> DGX(	TOT+2, TOT+3
>> DGX(1	TOT+4
>> DGX(2	TOT+4
>> DGX(3	TOT+4
>> DGX(4	TOT+5
>> DGX(5	TOT+5
>> DGX(6	TOT+5
DUZ(2	HD+2, HD+3
I	LS~, TOT+2, TOT+3
IOF	HD+1
J	LS~, TOT+3*
S	LS~*, WS+5, WS+7, WS+8
U	HD+2, HD+6
X	HD~, HD+1, HD+3, HD+6, HD+7, HD+8, P1
Y	HD~, HD+7*, HD+8

Marked Items

Name	Field # of Occurrence
$T(MON	HD+8
$T(SRV+S	WS+6

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGSRVP

Information

Source Information

Caller Graph

Caller Graph Total: 1

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items