Routine: BDGCEN31

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGCEN3

Entry Points

Name	Comments	DBIA/ICR reference
SUB	;;
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
SET(LINE,NUM)	; put display line into array
FIND	; within ward loop by patient and display data
LOOP	; initialize subtotals for wards

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

Name	Line Occurrences (* Changed, ! Killed)
^BDGWD - [#9009016.5]	LOOP+5
^DIC(42 - [#42]	LOOP+4
^TMP("BDGCEN3"	SET+2*
^TMP("BDGCEN31"	LOOP+14, LOOP+22, FIND+6, FIND+8, FIND+10

Name	Line Occurrences
$$PAD	FIND+13, FIND+14, SP+1
$$SP	LOOP+17, LOOP+27, LOOP+29, FIND+3, FIND+36
FIND	LOOP+23
SET	LOOP+17, LOOP+26, LOOP+27, LOOP+28, LOOP+29, LOOP+30, FIND+2, FIND+3, FIND+15, FIND+36

Name	Field # of Occurrence
BDGI	LOOP+1~, LOOP+20*, FIND+21, FIND+22, FIND+23, FIND+25, FIND+28, FIND+29, FIND+30, FIND+33
>> BDGNB(	LOOP+10*
>> BDGNB("A"	FIND+28*
>> BDGNB("D"	FIND+33*
>> BDGNB("T"	FIND+29, FIND+30
>> BDGSUB(	LOOP+7, FIND+21, FIND+22, FIND+23, FIND+25*
CHANGE	LOOP+1~, LOOP+15, LOOP+27, FIND+21, FIND+22, FIND+23, FIND+25*
CHANGENB	LOOP+1~, LOOP+15, LOOP+29, FIND+28, FIND+29, FIND+30, FIND+33*
COUNT	FIND+1~, FIND+5, FIND+18, FIND+21, FIND+22, FIND+23, FIND+25, FIND+28, FIND+29, FIND+30 , FIND+33, FIND+36
D	PAD~, PAD+2
DATE	FIND+1~, FIND+5, FIND+6, FIND+8, FIND+10, FIND+13
DFN	FIND+1~, FIND+9, FIND+10, FIND+14
DUZ(2	FIND+14
HEADING	LOOP+1~, LOOP+21*, FIND+3
I	LOOP+1~, LOOP+7, LOOP+10
L	PAD~, PAD+2
LINE	FIND+1~, FIND+13, FIND+14, FIND+15, SET~, SET+2
N	SP~, SP+1
NAME	FIND+1~, FIND+7, FIND+8, FIND+10, FIND+14
NUM	SET~, SET+1*, SET+2
SUB	LOOP+1~, LOOP+21*, LOOP+22, FIND+6, FIND+8, FIND+10
>> VALMCNT	LOOP+17, LOOP+26, LOOP+27, LOOP+28, LOOP+29, LOOP+30, FIND+2, FIND+3, FIND+15, FIND+36
WARD	LOOP+1~, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+13, LOOP+14*, LOOP+17, LOOP+22, FIND+6 , FIND+8, FIND+10, FIND+21, FIND+22, FIND+23, FIND+25

Name	Field # of Occurrence
$T(SUB+BDGI	LOOP+21