Routine: ADGSVC

Information

ADGSVC ; IHS/ADC/PDW/ENM - HSA-202 CALCULATE ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGSVC.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS Changes To ADT	3	^ADGSVP ^ADGSVP1 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	ADGSVQ

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+2
^ADGSVP	A+1
^ADGSVP1	A+1
KILL^ADGUTIL	Q+2
^DGPMLOS	NB+6

Interaction Calls

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADGTX - [#9009011.5]	ADGSVC+4, LTX+1, BOM+2, BOM+4, BOM+5, LRD+1, LRD+2, EOM+2, EOM+3, EOM+4
^ADGTX(0	ADGSVC+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, EOM+2
AB	A+1
BOM	LTX+1
EOM	LTX+1
INI	ADGSVC+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+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADU	ADGSVC+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
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+2
DGA(1	BOM+4, SC+9, SC+10, OS+3, OS+4, OS+5, OS+6, OS+7, OS+8, EOM+3
DGA(2	BOM+5, SC+20, SC+21, OS+11, OS+12, OS+13, OS+14, OS+15, OS+16, EOM+4
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
DGEMON	INI+4, Q+1!
>> DGLOS	NB+1, NB+6
>> DGLOS(	INI+2*
>> DGLOS(1	SC+11, OS+9
>> DGLOS(2	SC+22, OS+17
>> DGLOS(4	SC+18*
DGMAX	PK+1, PK+3, Q+1!
DGMIN	PK+1, PK+4, Q+1!
DGPMIFN	NB+6*, Q+1!
DGSMON	INI+3, Q+1!
DGX	Q+1!
ED	ADGSVC+3~, INI+4*, LRD+1, NB+2
I	INI+1~, INI+2
IEN	ADGSVC+3~, NB+5*, NB+6
IOF	Q+2
J	INI+1~*
LD	ADGSVC+3~, LRD+3*, EOM+2, EOM+3, EOM+4
LN	ADGSVC+3~
N	AB+1~, AB+4*, AB+6
ND	ADGSVC+3~
P	AB+1~, AB+5, AB+6
PD	ADGSVC+3~, ADGSVC+4, INI+3*, BOM+2, BOM+4, BOM+5, LRD+1, NB+1
PED	ADGSVC+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+11, OS+12, OS+13, OS+14 , OS+15, OS+16, OS+17
RD	ADGSVC+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	ADGSVC+3~, LTX+1*, BOM+2, BOM+4, BOM+5, LRD+1, LRD+2, EOM+2, EOM+3, EOM+4 , 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+11, OS+12 , OS+13, OS+14, OS+15, OS+16, OS+17, EOM+2, EOM+3, EOM+4, AB+6, AB+7 , AB+8, NB+4, NB+6, SS+2
WD	AB+1~, AB+3*, AB+4, AB+7, AB+8
X	INI+3, NB+6, SS+2~*, SS+3
>> X1	INI+3*
>> X2	INI+3*

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGSVC

Call Graph Total: 6

Caller Graph Total: 1