Routine: BDGM202A

Package	Total	Call Graph
VA Fileman	2	C^%DTC $$GET1^DIQ
IHS Changes To ADT	1	^BDGM202B
Kernel	1	^%ZISC
Registration	1	^DGPMLOS

Entry Points

Name	Comments	DBIA/ICR reference
COUNT	; count for service and date
AUTHBEDS	; -- authorized beds by category
ITS(T)	; find corresponding inpt service for observation service
DAYS	; -- loop days and count
EOM	; -- patients in service (end of month)
SS(T)	; -- special service 3 ob, 4 nb, 5 tb, 6 mh, 7 al ; --- ts ihs code 08 07 13 12 15 ; --- observation services return "" ; --- non SS = adult (1) or peds (2)
INIT	; -- initialize variables
EXIT	; -- cleanup
BOM	; -- patients in service (beginning of month) ; -- special service (adult & peds counts)
NONBEN	; -- # of non-beneficiaries discharged ; DGLOS=total length of stay of non-bens ; DGCNT=total # ofnonbens
NEWAUTH	; -- authorized beds by category ;IHS/OIT/LJF 05/04/2006 PATCH 1005 new logic
OBSERV	; count # of observations ; also update inpt counts for unplanned admits from observation status ; for any transfers out of service, find inpt service by code ; then ad one admit for inpt service and subtract one transfer in ; BDGOB = # of observations
LOOP	; -- loop census file ; TS=treating specialty ien ; SS=1 if special service, 0 if not, "" if observation (don't count) ; LD=last date (used to find end of month census)
PEAK	; -- peak and minimum

External References

Name	Field # of Occurrence
C^%DTC	INIT+20
^%ZISC	EXIT+1
^BDGM202B	BDGM202A+17
^DGPMLOS	NONBEN+9
$$GET1^DIQ	NONBEN+7, SS+4, ITS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(45.7 - [#45.7]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGCTX - [#9009016.6]	LOOP+5, BOM+3, BOM+5, BOM+6, DAYS+2, DAYS+3, EOM+4, EOM+6, EOM+7, OBSERV+7 , OBSERV+9, OBSERV+10
^BDGWD - [#9009016.5]	AUTHBEDS+4, AUTHBEDS+8, NEWAUTH+6, NEWAUTH+8, NEWAUTH+9
^DGPM("AMV1"	NONBEN+5, NONBEN+6, NONBEN+8
^DIC(45.7 - [#45.7]	ITS+4

Label References

Name	Line Occurrences
$$ITS	OBSERV+16
$$SS	LOOP+6, OBSERV+8, OBSERV+17
AUTHBEDS	BDGM202A+14
BOM	LOOP+6
COUNT	DAYS+3
DAYS	LOOP+6
EOM	LOOP+6
EXIT	BDGM202A+18
INIT	BDGM202A+11
LOOP	BDGM202A+12
NEWAUTH	AUTHBEDS+1
NONBEN	BDGM202A+15
PEAK	BDGM202A+13

Naked Globals

Name	Field # of Occurrence
^(0	BOM+3, EOM+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGBD	BDGM202A+10~, INIT+20*, BOM+3, BOM+5, BOM+6, DAYS+2, NONBEN+4, OBSERV+9
BDGBM	INIT+20, EXIT+2!
BDGED	BDGM202A+10~, INIT+21*, DAYS+2, NONBEN+5, OBSERV+9, NEWAUTH+10
BDGEM	INIT+21, EXIT+2!
BDGOB	BDGM202A+10~, OBSERV+11*
C	AUTHBEDS+2~, AUTHBEDS+3, AUTHBEDS+9, AUTHBEDS+10
COUNT	NEWAUTH+1~
DATA	DAYS+3, COUNT+3, COUNT+7, COUNT+8, COUNT+9, COUNT+10, COUNT+11, COUNT+12, COUNT+16, COUNT+18 , COUNT+22, COUNT+26, COUNT+27, COUNT+28, COUNT+29, COUNT+30, COUNT+31, COUNT+35, COUNT+37, COUNT+41 , COUNT+42, OBSERV+6~, OBSERV+10, OBSERV+11, OBSERV+14, OBSERV+20, OBSERV+21, OBSERV+24, OBSERV+25
DATE	NEWAUTH+1~, NEWAUTH+10, NEWAUTH+11, NEWAUTH+15, NEWAUTH+16
DFN	NONBEN+3~, NONBEN+6*, NONBEN+7, NONBEN+8
DGA	BDGM202A+10~, EXIT+2!
DGA(	INIT+9, INIT+13, BOM+3, COUNT+7, COUNT+8, COUNT+9, COUNT+10, COUNT+11, COUNT+12, COUNT+16 , COUNT+18, COUNT+26, COUNT+27, COUNT+28, COUNT+29, COUNT+30, COUNT+31, COUNT+35, COUNT+37, EOM+4 , OBSERV+20, OBSERV+21, OBSERV+24, OBSERV+25
DGA(1	BOM+5, EOM+6
DGA(2	BOM+6, EOM+7
DGBED	EXIT+2!
DGBED(	AUTHBEDS+3, AUTHBEDS+10, NEWAUTH+3, NEWAUTH+16
DGBED("I"	AUTHBEDS+13*
DGBED("P"	AUTHBEDS+14*
DGCNT	NONBEN+4, NONBEN+9, EXIT+2!
DGLOS	BDGM202A+10~, NONBEN+4, NONBEN+9, EXIT+2!
DGLOS(	INIT+17*
DGLOS(1	COUNT+22*
DGLOS(2	COUNT+42*
DGLOS(4	COUNT+41*
DGMAX	PEAK+2, PEAK+4, EXIT+2!
DGMIN	PEAK+2, PEAK+5, EXIT+2!
DGPMIFN	NONBEN+3~, NONBEN+9*
I	INIT+1~, INIT+9, INIT+13, INIT+17*
IEN	NONBEN+3~, NONBEN+8, NONBEN+9, NEWAUTH+1~, NEWAUTH+8, NEWAUTH+9
IOF	EXIT+1
ISS	OBSERV+15~, OBSERV+17*, OBSERV+18, OBSERV+23
ITS	OBSERV+15~, OBSERV+16*, OBSERV+17
J	INIT+1~, INIT+9, INIT+13
LD	LOOP+4~, DAYS+4*, EOM+1, EOM+4, EOM+6, EOM+7
N	AUTHBEDS+2~, AUTHBEDS+8*, AUTHBEDS+10, AUTHBEDS+13, AUTHBEDS+14
NODE	NEWAUTH+1~, NEWAUTH+9*, NEWAUTH+10, NEWAUTH+11
P	AUTHBEDS+2~, AUTHBEDS+9, AUTHBEDS+10
RD	DAYS+1~, DAYS+2, DAYS+3, DAYS+4, COUNT+3, PEAK+2, PEAK+3, PEAK+4, PEAK+5, NONBEN+3~ , NONBEN+4, NONBEN+5, NONBEN+6, NONBEN+8, OBSERV+6~, OBSERV+9, OBSERV+10
REM	BDGM202A+10~, PEAK+1
REM(	COUNT+3*, PEAK+2, PEAK+3, PEAK+4, PEAK+5
REM(0	PEAK+2
SS	LOOP+4~, LOOP+6, BOM+3, COUNT+3, COUNT+6, COUNT+25, COUNT+40, EOM+4, OBSERV+6~, OBSERV+8
SV	COUNT+1~, COUNT+6, COUNT+7, COUNT+8, COUNT+9, COUNT+10, COUNT+11, COUNT+12, COUNT+16, COUNT+18 , COUNT+25, COUNT+26, COUNT+27, COUNT+28, COUNT+29, COUNT+30, COUNT+31, COUNT+35, COUNT+37, OBSERV+15~ , OBSERV+18, OBSERV+20, OBSERV+21, OBSERV+23, OBSERV+24, OBSERV+25
T	SS~, SS+4, ITS~, ITS+2
TMP	NEWAUTH+1~, NEWAUTH+7!
TMP(	NEWAUTH+11*, NEWAUTH+14, NEWAUTH+15, NEWAUTH+16
TS	LOOP+4~, LOOP+5, LOOP+6, BOM+3, BOM+5, BOM+6, DAYS+2, DAYS+3, EOM+4, EOM+6 , EOM+7, OBSERV+6~, OBSERV+7, OBSERV+8, OBSERV+9, OBSERV+10, OBSERV+16
TYPE	NEWAUTH+1~, NEWAUTH+3, NEWAUTH+11, NEWAUTH+14*, NEWAUTH+15, NEWAUTH+16
U	BOM+3, BOM+5, BOM+6, COUNT+3, COUNT+7, COUNT+8, COUNT+9, COUNT+10, COUNT+11, COUNT+12 , COUNT+16, COUNT+18, COUNT+22, COUNT+26, COUNT+27, COUNT+28, COUNT+29, COUNT+30, COUNT+31, COUNT+35 , COUNT+37, COUNT+41, COUNT+42, EOM+4, EOM+6, EOM+7, AUTHBEDS+10, AUTHBEDS+13, AUTHBEDS+14, NONBEN+9 , OBSERV+11, OBSERV+14, OBSERV+20, OBSERV+21, OBSERV+24, OBSERV+25, NEWAUTH+10, NEWAUTH+11
WARD	NEWAUTH+1~, NEWAUTH+6*, NEWAUTH+8, NEWAUTH+9
WD	AUTHBEDS+2~, AUTHBEDS+4*, AUTHBEDS+8
X	INIT+1~, INIT+20, NONBEN+3~, NONBEN+9, SS+4~, SS+9, ITS+1~, ITS+2, ITS+4
X1	INIT+1~, INIT+20*
X2	INIT+1~, INIT+20*
Y	ITS+1~, ITS+4*, ITS+5

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGM202A

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: