Routine: BDGADD

Information

BDGADD ; IHS/ANMC/LJF - A&D DETAILED PRINT ; [ 06/11/2002 2:27 PM ]

Source file <BDGADD.m>

Package	Total	Call Graph
Kernel	4	^%ZISC ($$DOW,$$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	2	PATDATA^BDGADD1 $$CONF^BDGF
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	2	BDGADD1 BDGADD2
Registration	1	DGPMGL1

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; put display line into array
EN	; -- main entry point for BDG A&D DETAILED
HDR	; -- header code
PHDG	; heading for paper report
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
REMAIN	; total up patients remaining at end of day ; count by service to pull out newborns and oberservations
HDG	; set up column headings
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
EXPND	; -- expand code
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+7
Function Call: WRITE	Prompt: !,^TMP("BDGADD",$J,BDGX,0) Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF Line Location: PHDG+1
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: PHDG+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: PHDG+4
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+4

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

Name	Line Occurrences (* Changed, ! Killed)
^BDGCTX - [#9009016.6]	REMAIN+4, REMAIN+5
^TMP("BDGADD"	INIT+2!, SET+2*, PRINT+5, PRINT+8, EXIT+1!

Name	Line Occurrences
$$PAD	REMAIN+11, REMAIN+12, REMAIN+13, HDG+5, HDG+7, HDG+9, SP+1
$$SP	HDR+1, HDR+3, HDR+4
EXIT	PRINT+9
HDG	INIT+8
HDR	PHDG+2
INIT	BDGADD+5
PHDG	PRINT+2, PRINT+7
PRINT	BDGADD+5
REMAIN	INIT+7
SET	REMAIN+14, HDG+12

Name	Field # of Occurrence
BDGLN	PRINT+1~
BDGREP	EXIT+1!
BDGT	BDGADD+5, EN+1~, EN+3, HDR+4, INIT+4, REMAIN+5
BDGX	PRINT+1~, PRINT+5*, PRINT+8
COUNT	REMAIN+2~
COUNT(	REMAIN+3, REMAIN+8
COUNT("D"	REMAIN+12
COUNT("I"	REMAIN+10
COUNT("N"	REMAIN+13
COUNT("O"	REMAIN+11
D	PAD~, PAD+2
DATA	SET~, SET+2
DUZ(2	HDR+2
I	INIT+5, REMAIN+2~, REMAIN+3, PHDG+3*
IO	PRINT+2
IOF	PRINT+7
IOSL	PRINT+7
IOST	BDGADD+5
L	PAD~, PAD+2
LINE	REMAIN+2~, REMAIN+10, REMAIN+11, REMAIN+12, REMAIN+13, REMAIN+14, HDG+1~, HDG+5, HDG+7, HDG+9* , HDG+12
N	REMAIN+2~, REMAIN+5*, REMAIN+8, SP~, SP+1
NUM	SET~, SET+1*, SET+2
PREV	INIT+1~, INIT+4*
>> RD	BDGADD+5, EN+3
SNM	REMAIN+2~, REMAIN+6*, REMAIN+7
SRV	INIT+1~
SRVN	INIT+1~
SUB	REMAIN+2~, REMAIN+7*, REMAIN+8
SV	REMAIN+2~, REMAIN+4*, REMAIN+5, REMAIN+6
TOT	INIT+1~
TOT(	INIT+5*
TOT1	INIT+1~, INIT+5*
TOT2	INIT+1~, INIT+5*
U	REMAIN+8
VALMCNT	EN+1~, INIT+3*, REMAIN+14, HDG+12
>> VALMHDR(	PHDG+3
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+3*
>> VALMHDR(3	HDR+4*
WARD	PRINT+1~
>> X	HDR+2, HDR+3, HELP+1