Routine: ADGSVP1

Package	Total	Call Graph
VA Fileman	1	^%DTC

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGSVC

Entry Points

Name	Comments	DBIA/ICR reference
P3
OC()	; -- % of occupancy
OT()	; -- occup, tb
LOS4()	; -- alos, ped
OO()	; -- occup, ob
PCU()	; -- pcu patient days
OA()	; -- occup, adult
ND()	; -- # days in month
OL()	; -- occup, al
OI()	; -- occup, icu
ON()	; -- occup, nb
OU()	; -- occup, pcu
OP()	; -- occup, ped
ICU()	; -- icu patient days
LOS2()	; -- alos, ped
OM()	; -- occup, mh
LOS1()	; -- alos, adult
TOT()	; -- total # of beds ('nb)
DAY	;;31 28 31 30 31 30 31 31 30 31 30 31

External References

Name	Field # of Occurrence
^%DTC	ADGSVP1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DGLINE,!?16,"Part III",!?13,"Beds Available" Line Location: P3+0
Function Call: WRITE	Prompt: ?50,"Comments",!,LN,!,"STAFF UNITS",?21,"# of Beds",?32,"% Occup." Line Location: P3+1
Function Call: WRITE	Prompt: ?45,"ALOS: ",?60,"ADULT: ",$J($$LOS1(),1,2) Line Location: P3+3
Function Call: WRITE	Prompt: !,LN,?56,"PEDIATRIC: ",$J($$LOS2(),1,2) Line Location: P3+5
Function Call: WRITE	Prompt: !?58,"NEWBORN: ",$J($$LOS4(),1,2) Line Location: P3+7
Function Call: WRITE	Prompt: !,"MEDICAL (Adult)",?28,DGBED("AM") Line Location: P3+8
Function Call: WRITE	Prompt: !,"SURGICAL (Adult)",?28,DGBED("AS"),?27,"_____" Line Location: P3+9
Function Call: WRITE	Prompt: ?45,"ADPL:",?60,"ADULT: ",$J(DGA(1,6)+DGA(3,6)/ND,1,2) Line Location: P3+10
Function Call: WRITE	Prompt: !?15,"Subtotal",?28,DGBED("AM")+DGBED("AS"),?35,$$OA Line Location: P3+11
Function Call: WRITE	Prompt: ?56,"PEDIATRIC: ",$J(DGA(2,6)/ND,1,2) Line Location: P3+12
Function Call: WRITE	Prompt: !?58,"NEWBORN: ",$J(DGA(4,6)/ND,1,2) Line Location: P3+13
Function Call: WRITE	Prompt: !,"MEDICAL (Pediatric)",?28,DGBED("PM") Line Location: P3+14
Function Call: WRITE	Prompt: !,"SURGICAL (Pediatric)",?28,DGBED("PS"),?27,"_____" Line Location: P3+15
Function Call: WRITE	Prompt: ?45,"1 DAY PATIENTS ADULT: ",DGA(1,10) Line Location: P3+16
Function Call: WRITE	Prompt: !?15,"Subtotal",?28,DGBED("PM")+DGBED("PS"),?35,$$OP Line Location: P3+17
Function Call: WRITE	Prompt: ?56,"PEDIATRIC: ",DGA(2,10),!?58,"NEWBORN: ",DGA(4,10) Line Location: P3+18
Function Call: WRITE	Prompt: !,"OBSTETRIC",?28,DGBED("O"),?35,$$OO Line Location: P3+19
Function Call: WRITE	Prompt: !,"TUBERCULOSIS",?28,DGBED("T"),?35,$$OT Line Location: P3+20
Function Call: WRITE	Prompt: ?49,"ICU PATIENT DAYS: ",$$ICU Line Location: P3+21
Function Call: WRITE	Prompt: !,"ALCOHOL/SUBSTANCE ABUSE",?28,DGBED("AL"),?35,$$OL Line Location: P3+22
Function Call: WRITE	Prompt: ?49,"PCU PATIENT DAYS: ",$$PCU Line Location: P3+23
Function Call: WRITE	Prompt: !,"MENTAL HEALTH",?28,DGBED("MH"),?35,$$OM Line Location: P3+24
Function Call: WRITE	Prompt: !,"ICU/SCU",?28,DGBED("I"),?35,$$OI Line Location: P3+25
Function Call: WRITE	Prompt: !,"PCU",?28,DGBED("P"),?35,$$OU Line Location: P3+26
Function Call: WRITE	Prompt: ?48,"NON-BENEFICIARIES: ",!?27,"_____",?53,"# Discharged: ",DGCNT Line Location: P3+27
Function Call: WRITE	Prompt: !?18,"Total",?28,$$TOT,?48,"With total LOS of ",DGLOS," days" Line Location: P3+28
Function Call: WRITE	Prompt: !!,"NEWBORN",?28,DGBED("N"),?35,$$ON Line Location: P3+29
Function Call: WRITE	Prompt: ?51,"% OF OCCUPANCY: ",$$OC,!,DGLINE Line Location: P3+30
Function Call: WRITE	Prompt: !,"Name of SUD",?35,"Signature Of SUD",?65,"Date" Line Location: P3+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADGWD - [#9009011]	ICU+5, ICU+6, PCU+5, PCU+6
^DIC(42 - [#42]	ICU+2, ICU+3, PCU+2, PCU+3

Label References

Name	Line Occurrences
$$ICU	P3+21, OI+1
$$LOS1	P3+3
$$LOS2	P3+5
$$LOS4	P3+7
$$ND	ADGSVP1+4
$$OA	P3+11
$$OC	P3+30
$$OI	P3+25
$$OL	P3+22
$$OM	P3+24
$$ON	P3+29
$$OO	P3+19
$$OP	P3+17
$$OT	P3+20
$$OU	P3+26
$$PCU	P3+23, OU+1
$$TOT	P3+28, OC+1
DAY	ND+1

Naked Globals

Name	Field # of Occurrence
^(0	ICU+6, PCU+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D	ICU+1~, ICU+4, ICU+5, ICU+6, PCU+1~, PCU+4, PCU+5, PCU+6
>> DGA(1	P3+10, P3+16, OA+2, LOS1+3
>> DGA(2	P3+12, P3+18, OP+2, LOS2+3
>> DGA(3	P3+10, OO+1, LOS1+3
>> DGA(4	P3+13, P3+18, ON+1, LOS4+3
>> DGA(5	OT+1
>> DGA(6	OL+1
>> DGA(7	OM+1
>> DGBED("AL"	P3+22, OL+1, TOT+1
>> DGBED("AM"	P3+8, P3+11, OA+1, OA+2, TOT+1
>> DGBED("AS"	P3+9, P3+11, OA+1, OA+2, TOT+1
>> DGBED("I"	P3+25, OI+1, TOT+1
>> DGBED("MH"	P3+24, OM+1, TOT+1
>> DGBED("N"	P3+29, ON+1
>> DGBED("O"	P3+19, OO+1, TOT+1
>> DGBED("P"	P3+26, OU+1, TOT+1
>> DGBED("PM"	P3+14, P3+17, OP+1, OP+2, TOT+1
>> DGBED("PS"	P3+15, P3+17, OP+1, OP+2, TOT+1
>> DGBED("T"	P3+20, OT+1, TOT+1
>> DGCNT	P3+27
>> DGEMON	ADGSVP1+4, ND+1, ND+2, ICU+4, PCU+4
>> DGLINE	P3, P3+30
>> DGLOS	P3+28
>> DGSMON	ADGSVP1+4, ICU+4, PCU+4
>> DGX(6	OC+1
E	ICU+1~, ICU+4, ICU+5, PCU+1~, PCU+4, PCU+5
LN	ADGSVP1+3~, ADGSVP1+5*, P3+1, P3+5
ND	ADGSVP1+3~, ADGSVP1+4*, P3+10, P3+12, P3+13, OA+2, OP+2, OO+1, OT+1, OL+1 , OM+1, OI+1, OU+1, ON+1, OC+1
T	ICU+1~, ICU+2, ICU+6, ICU+7, PCU+1~, PCU+2, PCU+6, PCU+7
U	ICU+3, ICU+6, PCU+3, PCU+6
X	ADGSVP1+3~, ADGSVP1+4, ND+1~, ND+2, OC+1~, ICU+1~, ICU+2, ICU+3, ICU+5, ICU+6 , PCU+1~, PCU+2, PCU+3, PCU+5, PCU+6
X1	ADGSVP1+3~, ADGSVP1+4*
X2	ADGSVP1+3~, ADGSVP1+4*
Y	ADGSVP1+3~

Marked Items

Name	Field # of Occurrence
$T(DAY	ND+1

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGSVP1

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items