Routine: BDGM202C

Package	Total	Call Graph
VA Fileman	2	^%DTC $$GET1^DIQ
Kernel	1	$$REPEAT^XLFSTR

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGM202B

Entry Points

Name	Comments	DBIA/ICR reference
LOSA()	; -- alos, adult
OI()	; -- occup, icu
OC()	; -- % of occupancy
OT()	; -- occup, tb
OO()	; -- occup, ob
PCU()	; -- pcu patient days
OA()	; -- occup, adult
ND()	; -- # days in month
OL()	; -- occup, al
OU()	; -- occup, pcu
ON()	; -- occup, nb
LOSN()	; -- alos, ped
OP()	; -- occup, ped
ICU()	; -- icu patient days
PART3	; part III - Beds Available & Comments
OM()	; -- occup, mh
TOT()	; -- total # of beds ('nb)
DAY	;;31 28 31 30 31 30 31 31 30 31 30 31
LOSP()	; -- alos, ped

External References

Name	Field # of Occurrence
^%DTC	PART3+6
$$GET1^DIQ	ICU+3, PCU+3
$$REPEAT^XLFSTR	PART3+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DGLINE,!?16,"Part III",!?13,"Beds Available" Line Location: PART3+9
Function Call: WRITE	Prompt: ?50,"Comments",!,LINE,!,"STAFF UNITS",?21,"# of Beds",?32,"% Occup." Line Location: PART3+10
Function Call: WRITE	Prompt: ?45,"ALOS: ",?52,"ADULT MED/SUR: ",$J($$LOSA(),1,2) Line Location: PART3+15
Function Call: WRITE	Prompt: !,LINE,?53,"PEDS MED/SUR: ",$J($$LOSP(),1,2) Line Location: PART3+16
Function Call: WRITE	Prompt: !?58,"NEWBORN: ",$J($$LOSN(),1,2) Line Location: PART3+18
Function Call: WRITE	Prompt: !,"MEDICAL (Adult)",?28,DGBED("AM") Line Location: PART3+20
Function Call: WRITE	Prompt: !,"SURGICAL (Adult)",?28,DGBED("AS"),?27,"_____" Line Location: PART3+21
Function Call: WRITE	Prompt: ?45,"ADPL:",?52,"ADULT MED/SUR: ",$J(DGA(1,6)+DGA(3,6)/NDAYS,1,2) Line Location: PART3+25
Function Call: WRITE	Prompt: !?15,"Subtotal",?28,DGBED("AM")+DGBED("AS"),?35,$$OA Line Location: PART3+27
Function Call: WRITE	Prompt: ?53,"PEDS MED/SUR: ",$J(DGA(2,6)/NDAYS,1,2) Line Location: PART3+31
Function Call: WRITE	Prompt: !?58,"NEWBORN: ",$J(DGA(4,6)/NDAYS,1,2) Line Location: PART3+33
Function Call: WRITE	Prompt: !,"MEDICAL (Pediatric)",?28,DGBED("PM") Line Location: PART3+35
Function Call: WRITE	Prompt: !,"SURGICAL (Pediatric)",?28,DGBED("PS"),?27,"_____" Line Location: PART3+36
Function Call: WRITE	Prompt: ?45,"1 DAY PAT ADULT M/S: ",DGA(1,10) Line Location: PART3+40
Function Call: WRITE	Prompt: !?15,"Subtotal",?28,DGBED("PM")+DGBED("PS"),?35,$$OP Line Location: PART3+42
Function Call: WRITE	Prompt: ?57,"PEDS M/S: ",DGA(2,10),!?58,"NEWBORN: ",DGA(4,10) Line Location: PART3+46
Function Call: WRITE	Prompt: !,"OBSTETRIC",?28,DGBED("OB"),?35,$$OO Line Location: PART3+50
Function Call: WRITE	Prompt: !,"TUBERCULOSIS",?28,DGBED("TB"),?35,$$OT Line Location: PART3+52
Function Call: WRITE	Prompt: ?45,"ICU/SCU PATIENT DAYS: ",$$ICU Line Location: PART3+54
Function Call: WRITE	Prompt: !,"ALCOHOL/SUBSTANCE ABUSE",?28,DGBED("AL"),?35,$$OL Line Location: PART3+55
Function Call: WRITE	Prompt: ?49,"PCU PATIENT DAYS: ",$$PCU Line Location: PART3+57
Function Call: WRITE	Prompt: !,"MENTAL HEALTH",?28,DGBED("MH"),?35,$$OM Line Location: PART3+59
Function Call: WRITE	Prompt: !,"ICU/SCU",?28,DGBED("IC"),?35,$$OI Line Location: PART3+64
Function Call: WRITE	Prompt: !,"PCU",?28,DGBED("PC"),?35,$$OU Line Location: PART3+66
Function Call: WRITE	Prompt: ?48,"NON-BENEFICIARIES: ",!?27,"_____",?53,"# Discharged: ",DGCNT Line Location: PART3+68
Function Call: WRITE	Prompt: !?18,"Total",?28,$$TOT,?48,"With total LOS of ",DGLOS," days" Line Location: PART3+70
Function Call: WRITE	Prompt: !,"NEWBORN",?28,DGBED("NB"),?35,$$ON Line Location: PART3+76
Function Call: WRITE	Prompt: ?51,"% OF OCCUPANCY: ",$$OC,!,DGLINE Line Location: PART3+78
Function Call: WRITE	Prompt: !,"Name of SUD",?35,"Signature Of SUD",?65,"Date" Line Location: PART3+79

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BDGWD - [#9009016.5]	GET1^DIQ

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$ICU	PART3+54, OI+2
$$LOSA	PART3+15
$$LOSN	PART3+18
$$LOSP	PART3+16
$$ND	PART3+4, PART3+6
$$OA	PART3+27
$$OC	PART3+78
$$OI	PART3+64
$$OL	PART3+55
$$OM	PART3+59
$$ON	PART3+76
$$OO	PART3+50
$$OP	PART3+42
$$OT	PART3+52
$$OU	PART3+66
$$PCU	PART3+57, OU+2
$$TOT	PART3+70, OC+2
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
>> BDGBM	PART3+4, PART3+6, ICU+4, PCU+4
>> BDGEM	PART3+4, PART3+6, ND+1, ND+2, ICU+4, PCU+4
D	ICU+1~, ICU+4, ICU+5, ICU+6, PCU+1~, PCU+4, PCU+5, PCU+6
>> DGA(1	PART3+25, PART3+40, OA+2, LOSA+2, LOSA+3
>> DGA(2	PART3+31, PART3+46, OP+2, LOSP+1
>> DGA(3	PART3+25, OO+2, LOSA+2, LOSA+3
>> DGA(4	PART3+33, PART3+46, ON+2, LOSN+1
>> DGA(5	OT+2
>> DGA(6	OL+1
>> DGA(7	OM+1
>> DGBED("AL"	PART3+55, OL+1, TOT+3
>> DGBED("AM"	PART3+20, PART3+27, OA+1, OA+2, TOT+3
>> DGBED("AS"	PART3+21, PART3+27, OA+1, OA+2, TOT+3
>> DGBED("IC"	PART3+64, OI+2, TOT+3
>> DGBED("MH"	PART3+59, OM+1, TOT+3
>> DGBED("NB"	PART3+76, ON+2
>> DGBED("OB"	PART3+50, OO+2, TOT+3
>> DGBED("PC"	PART3+66, OU+2, TOT+3
>> DGBED("PM"	PART3+35, PART3+42, OP+1, OP+2, TOT+3
>> DGBED("PS"	PART3+36, PART3+42, OP+1, OP+2, TOT+3
>> DGBED("TB"	PART3+52, OT+2, TOT+3
>> DGCNT	PART3+68
>> DGLINE	PART3+9, PART3+78
>> DGLOS	PART3+70
>> DGX(6	OC+3
E	ICU+1~, ICU+4, ICU+5, PCU+1~, PCU+4, PCU+5
LINE	PART3+1~, PART3+8*, PART3+10, PART3+16
NDAYS	PART3+1~, PART3+4, PART3+6, PART3+25, PART3+31, PART3+33, OA+2, OP+2, OO+2, OT+2 , OL+1, OM+1, OI+2, OU+2, ON+2, OC+3
T	ICU+1~, ICU+2, ICU+6, ICU+7, PCU+1~, PCU+2, PCU+6, PCU+7
U	ICU+6, PCU+6
X	PART3+6, ND+1~, ND+2, OC+1~, OC+3, OC+4, ICU+1~, ICU+2, ICU+3, ICU+5 , ICU+6, PCU+1~, PCU+2, PCU+3, PCU+5, PCU+6, LOSA+1~, LOSA+2*, LOSA+3
>> X1	PART3+6*
>> X2	PART3+6*
Y	OC+1~, OC+2*, OC+3

Marked Items

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

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGM202C

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items