Routine: BDGADD1

Information

BDGADD1 ; IHS/ANMC/LJF - A&D DETAILED PRINT CONT. ; [ 07/01/2002 10:18 AM ]

Source Information

Source file <BDGADD1.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS Changes To ADT	3	SET^BDGADD ^BDGADD2 $$HRCN^BDGF2
IHS Changes To Scheduling	1	PCP^BSDU1
Kernel	1	$$REPEAT^XLFSTR
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGADD

Entry Points

Name	Comments	DBIA/ICR reference
PATDATA	;EP; build display lines for patient data ; called by INIT^BDGADD
DEATHS	; Now display any deaths ; display total # of deaths first
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
TRANSFER	; loop through transfers (ward and service)
COUNT(X,X1)	; returns # of events based on type sent in X and X1 ; X can = "ADMIT" or "DSCH" or "DEATH" ; X1 can = "O" or "I" or "N" or "" if X="DEATH"
COUNT2(X)	; returns # of events based on type sent in X and X1 ; X can = "WARD" or "SERV"
ADMITS	; build array of admits ; first for inpatients, then observations, then newborns
SET(LINE,NUM)	; put display line into array
SP(N)	; -- SUBRTN to pad N number of spaces

External References

Name	Field # of Occurrence
SET^BDGADD	SET+1
^BDGADD2	PATDATA+4
$$HRCN^BDGF2	ADMITS+22, TRANSFER+20, DEATHS+13
PCP^BSDU1	ADMITS+28, DEATHS+21
$$GET1^DIQ	ADMITS+21, ADMITS+24, ADMITS+25, ADMITS+26, TRANSFER+21, TRANSFER+22, DEATHS+12, DEATHS+15, DEATHS+16, DEATHS+18 , COUNT+7
$$REPEAT^XLFSTR	PAD+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(45.7 - [#45.7]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
^BDGWD - [#9009016.5]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGCTX - [#9009016.6]	COUNT+6, COUNT+13
^TMP("BDGAD"	ADMITS+12, ADMITS+13, ADMITS+17, ADMITS+18, TRANSFER+13, TRANSFER+14, TRANSFER+15, TRANSFER+17, DEATHS+7, DEATHS+8 , DEATHS+11

Label References

Name	Line Occurrences
$$COUNT	ADMITS+9, DEATHS+5
$$COUNT2	TRANSFER+10
$$PAD	ADMITS+9, ADMITS+22, ADMITS+23, ADMITS+24, ADMITS+25, ADMITS+26, ADMITS+27, ADMITS+29, TRANSFER+19, TRANSFER+21 , TRANSFER+22, DEATHS+5, DEATHS+12, DEATHS+13, DEATHS+14, DEATHS+15, DEATHS+16, DEATHS+18, DEATHS+19, DEATHS+22 , SP+1
ADMITS	PATDATA+3
DEATHS	PATDATA+3
SET	ADMITS+9, ADMITS+31, TRANSFER+11, TRANSFER+23, DEATHS+5, DEATHS+24
TRANSFER	PATDATA+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDGT	COUNT+13, COUNT2+6
BDGX	ADMITS+28!, DEATHS+21!
BDGX(1	ADMITS+29, DEATHS+22
COUNT	COUNT+4~, COUNT+14, COUNT+15, COUNT2+3~, COUNT2+7, COUNT2+8
D	PAD~, PAD+2
DATA	ADMITS+2~, ADMITS+18, ADMITS+23, ADMITS+25, ADMITS+26, ADMITS+27, TRANSFER+1~, TRANSFER+17, TRANSFER+21, TRANSFER+22 , DEATHS+2~, DEATHS+11*, DEATHS+14, DEATHS+16, DEATHS+18, DEATHS+19
DFN	ADMITS+2~, ADMITS+13, ADMITS+17, ADMITS+18, ADMITS+21, ADMITS+22, ADMITS+24, ADMITS+28, TRANSFER+1~, TRANSFER+14 , TRANSFER+15, TRANSFER+17, TRANSFER+20, DEATHS+2~, DEATHS+8*, DEATHS+11, DEATHS+12, DEATHS+13, DEATHS+15, DEATHS+21
DUZ(2	ADMITS+22, TRANSFER+20, DEATHS+13
FIELD	TRANSFER+1~, TRANSFER+6*, TRANSFER+21, TRANSFER+22
FILE	TRANSFER+1~, TRANSFER+6*, TRANSFER+21, TRANSFER+22
GBL	COUNT2+3~, COUNT2+4*, COUNT2+5, COUNT2+6
IFN	ADMITS+2~, ADMITS+17, ADMITS+18, TRANSFER+1~, TRANSFER+15, TRANSFER+17, DEATHS+2~
L	PAD~, PAD+2
LINE	ADMITS+2~, ADMITS+21, ADMITS+22, ADMITS+23, ADMITS+24, ADMITS+25, ADMITS+26, ADMITS+27, ADMITS+29, ADMITS+31 , TRANSFER+19, TRANSFER+20, TRANSFER+21, TRANSFER+22, TRANSFER+23, DEATHS+2~, DEATHS+12, DEATHS+13, DEATHS+14, DEATHS+15 , DEATHS+16, DEATHS+18, DEATHS+19, DEATHS+22, DEATHS+24, SET~, SET+1
N	COUNT+4~, COUNT+13, COUNT+14, COUNT2+3~, COUNT2+6, COUNT2+7, SP~, SP+1
NAME	ADMITS+2~, ADMITS+12, ADMITS+13, ADMITS+17, ADMITS+18, TRANSFER+1~, TRANSFER+13, TRANSFER+14, TRANSFER+15, TRANSFER+17 , TRANSFER+19, DEATHS+2~, DEATHS+7*, DEATHS+8, DEATHS+11
NUM	SET~, SET+1
PIECE	COUNT+4~, COUNT+5*, COUNT+14
SNM	COUNT+4~, COUNT+7*, COUNT+8, COUNT+9, COUNT+10, COUNT+11
SUB	ADMITS+2~, ADMITS+3, ADMITS+8, ADMITS+9, ADMITS+12, ADMITS+13, ADMITS+17, ADMITS+18, TRANSFER+1~, TRANSFER+3 , TRANSFER+6, TRANSFER+9, TRANSFER+10, TRANSFER+13, TRANSFER+14, TRANSFER+15, TRANSFER+17
SUB2	ADMITS+2~, ADMITS+4*, ADMITS+7, ADMITS+9, ADMITS+12, ADMITS+13, ADMITS+17, ADMITS+18
SV	COUNT+4~, COUNT+6, COUNT+7, COUNT+13, COUNT2+3~, COUNT2+5, COUNT2+6
TITLE	ADMITS+2~, ADMITS+7, ADMITS+9, TRANSFER+1~, TRANSFER+9, TRANSFER+11
TITLE2	ADMITS+2~, ADMITS+8*, ADMITS+9
U	ADMITS+23, ADMITS+25, ADMITS+26, ADMITS+27, TRANSFER+21, TRANSFER+22, DEATHS+14, DEATHS+16, DEATHS+18, DEATHS+19 , COUNT+14, COUNT2+7
>> VALMCNT	ADMITS+9, ADMITS+31, TRANSFER+11, TRANSFER+23, DEATHS+5, DEATHS+24
X	ADMITS+2~, ADMITS+9, TRANSFER+1~, TRANSFER+10, TRANSFER+11, DEATHS+2~, DEATHS+5*, COUNT~, COUNT+5, COUNT+8 , COUNT+9, COUNT+10, COUNT+11, COUNT2~, COUNT2+4
X1	COUNT~, COUNT+8, COUNT+9, COUNT+10, COUNT+11

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGADD1

Call Graph Total: 6

Caller Graph Total: 1