Routine: ADGSRVC

Information

ADGSRVC ; IHS/ADC/PDW/ENM - HSA-202 CALCULATE ; [ 09/25/2000 4:00 PM ]

Source Information

Source file <ADGSRVC.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS Changes To ADT	3	^ADGSRVP ^ADGSRVP1 KILL^ADGUTIL
Kernel	1	^%ZISC
Registration	1	^DGPMLOS
VA Fileman	1	C^%DTC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGSRVQ

Entry Points

Name	Comments	DBIA/ICR reference
A	; -- driver
AB	; -- authorized beds by category
LRD	; -- loop days
NB	; -- # of non-beneficiaries discharged
LTX	; -- loop census file
EOM	; -- patients in service (end of month)
SS()	; -- special service 3 ob, 4 nb, 5 tb, 6 mh, 7 al ;non SS ; -- ts ihs code 08 07 13 12 15 ;------
Q	; -- cleanup
INI	; -- initialize variables
SC	; -- counts, special service
PK	; -- peak and minimum
OS	; -- counts, other service
BOM	; -- patients in service (beginning of month) ; -- special service

External References

Name	Field # of Occurrence
C^%DTC	INI+3
^%ZISC	Q+1
^ADGSRVP	A+1
^ADGSRVP1	A+1
KILL^ADGUTIL	Q+1
^DGPMLOS	NB+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No data",!! Line Location: ADGSRVC+4
Function Call: WRITE	Prompt: @IOF Line Location: Q+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADGTX - [#9009011.5]	ADGSRVC+4, LTX+1, BOM+2, BOM+4, BOM+5, LRD+1, LRD+2, EOM+1, EOM+2, EOM+3
^ADGTX(0	ADGSRVC+4
^AUPNPAT - [#9000001]	NB+4
^DGPM("AMV1"	NB+2, NB+3, NB+5
^DIC(42 - [#42]	AB+3, AB+4, AB+7, AB+8
^DIC(45.7 - [#45.7]	SS+2

Label References

Name	Line Occurrences
$$SS	BOM+2, LRD+3, SC+1, SC+2, SC+3, SC+4, SC+5, SC+6, SC+7, SC+13 , SC+15, EOM+1
AB	A+1
BOM	LTX+1
EOM	LTX+1
INI	ADGSRVC+4
LRD	LTX+1
LTX	A+1
NB	A+1
OS	LRD+3
PK	A+1
Q	A+1
SC	LRD+3

Naked Globals

Name	Field # of Occurrence
^("IHS1"	AB+4
^(1	BOM+2, LRD+2, EOM+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADU	ADGSRVC+3~, LRD+2*, SC+1, SC+2, SC+3, SC+4, SC+6, SC+7, SC+9, SC+10 , SC+11, SC+13, OS+1, OS+3, OS+4, OS+5, OS+6, OS+7, OS+8, OS+9 , OS+10, OS+11
C	AB+1~, AB+2, AB+5, AB+6
>> DFN	NB+3*, NB+4, NB+5
DGA	Q+1!
DGA(	INI+1, BOM+2, SC+1, SC+2, SC+3, SC+4, SC+5, SC+6, SC+7, EOM+1
DGA(1	BOM+4, SC+9, SC+10, OS+3, OS+4, OS+5, OS+6, OS+7, OS+8, OS+9 , OS+10, EOM+2
DGA(2	BOM+5, SC+20, SC+21, OS+13, OS+14, OS+15, OS+16, OS+17, OS+18, OS+19 , OS+20, EOM+3
DGA(4	SC+16, SC+17
>> DGBED(	AB+2, AB+6
>> DGBED("I"	AB+7*
>> DGBED("P"	AB+8*
>> DGC(	LRD+2, SC+13, OS+1*, PK+1, PK+2, PK+3, PK+4
>> DGC(0	PK+1
>> DGCNT	NB+1, NB+6
>> DGLOS	NB+1, NB+6
>> DGLOS(	INI+2*
>> DGLOS(1	SC+11, OS+11
>> DGLOS(2	SC+22, OS+21
>> DGLOS(4	SC+18*
DGMAX	PK+1, PK+3, Q+1!
DGMIN	PK+1, PK+4, Q+1!
DGMON	INI+3, INI+4, Q+1!
DGPMIFN	NB+6*, Q+1!
DGX	Q+1!
ED	ADGSRVC+3~, INI+4*, LRD+1, NB+2
I	INI+1~, INI+2
IEN	ADGSRVC+3~, NB+5*, NB+6
IOF	Q+1
J	INI+1~*
LD	ADGSRVC+3~, LRD+3*, EOM+1, EOM+2, EOM+3
LN	ADGSRVC+3~
N	AB+1~, AB+4*, AB+6
ND	ADGSRVC+3~
P	AB+1~, AB+5, AB+6
PD	ADGSRVC+3~, ADGSRVC+4, INI+3*, BOM+2, BOM+4, BOM+5, LRD+1, NB+1
PED	ADGSRVC+3~, LRD+2*, SC+1, SC+2, SC+3, SC+5, SC+6, SC+7, SC+13, SC+16 , SC+17, SC+18, SC+20, SC+21, SC+22, OS+1, OS+13, OS+14, OS+15, OS+16 , OS+17, OS+18, OS+19, OS+20, OS+21
RD	ADGSRVC+3~, LRD+1, LRD+2, LRD+3, SC+13, OS+1, PK+1, PK+2, PK+3, PK+4 , NB+1, NB+2*, NB+3, NB+5
>> TS	LTX+1*, BOM+2, BOM+4, BOM+5, LRD+1, LRD+2, EOM+1, EOM+2, EOM+3, SS+2
U	BOM+2, BOM+4, BOM+5, SC+1, SC+2, SC+3, SC+4, SC+5, SC+6, SC+7 , SC+9, SC+10, SC+11, SC+13, SC+16, SC+17, SC+18, SC+20, SC+21, SC+22 , OS+1, OS+3, OS+4, OS+5, OS+6, OS+7, OS+8, OS+9, OS+10, OS+11 , OS+13, OS+14, OS+15, OS+16, OS+17, OS+18, OS+19, OS+20, OS+21, EOM+1 , EOM+2, EOM+3, AB+6, AB+7, AB+8, NB+4, NB+6, SS+2
WD	AB+1~, AB+3*, AB+4, AB+7, AB+8
X	ADGSRVC+3~, INI+3, NB+6, SS+2~*, SS+3
X1	ADGSRVC+3~, INI+3*
X2	ADGSRVC+3~, INI+3*
Y	ADGSRVC+3~

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGSRVC

Call Graph Total: 6

Caller Graph Total: 1