Routine: BDGIPL2

Information

BDGIPL2 ; IHS/ANMC/LJF - CURR INPTS BY WARD/NAME ;

Source file <BDGIPL2.m>

Package	Total	Call Graph
IHS Changes To ADT	4	($$CONF,INIT,PRTKL)^BDGF ($$CURLOS,$$CURPRV,$$INPT1)^BDGF1 ($$HRCN,$$HRCND)^BDGF2 SET^BDGIPL1
Kernel	3	^%ZISC $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BDG IPL BY WARD/NAME ; assumes BDGSRT and BDGSRT2 are set
HDR	; -- header code
SET(LINE,NUM,COUNT,IEN)	; put display line into array
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	; -- expand code
HDG	; heading for paper report
INIT	; -- init variables and list array
EXIT	; -- exit code
PRINT	; print report to paper
AGE(P)	; return formatted age
LINE	; set up dislay line for patient
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BDGLN Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF Line Location: HDG+1
Function Call: WRITE	Prompt: !,BDGUSR,?16,$$CONF^BDGF,?71,"Page: ",BDGPG Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?24,"Current Inpatients by Ward" Line Location: HDG+3
Function Call: WRITE	Prompt: !,BDGTIME,?(80-$L(X)\2),X Line Location: HDG+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+6
Function Call: WRITE	Prompt: !?5,"Patient",?25,"Chart #",?34,"Age",?42,"Admitted",?53,"LOS" Line Location: HDG+7
Function Call: WRITE	Prompt: ?58,"Room",?65,"Provider" Line Location: HDG+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+9
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	INIT+14
^DPT - [#2]	LINE+8
^DPT("CN"	INIT+7, INIT+11, INIT+12
^TMP("BDGIPL"	INIT+2!, PRINT+5, PRINT+7, EXIT+1!
^TMP("BDGIPL1"	INIT+2!, INIT+8, INIT+15, INIT+18, INIT+19, INIT+25, INIT+27, INIT+30!

Name	Line Occurrences
$$AGE	LINE+5
$$PAD	LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+9, SP+1
$$SP	HDR+2, HDR+4, LINE+2
EXIT	PRINT+10
HDG	PRINT+2, PRINT+6
INIT	BDGIPL2+5
LINE	INIT+28
PRINT	BDGIPL2+5
SET	INIT+22, LINE+10, LINE+13

Name	Field # of Occurrence
BDGCNT	INIT+1~, INIT+3, INIT+22, LINE+2, LINE+10, LINE+13, LINE+16
>> BDGCOP	PRINT+9
>> BDGDATE	HDG+3
BDGLN	PRINT+1~, PRINT+7*, PRINT+8
BDGPG	PRINT+1~, HDG+1*, HDG+2
>> BDGSRT	HDR+3, INIT+6, INIT+7, INIT+21, HDG+4
>> BDGSRT2	LINE+13
>> BDGTIME	HDG+5
>> BDGUSR	HDG+2
BDGX	PRINT+1~, PRINT+5*, PRINT+7
COUNT	SET~, SET+1
D	PAD~, PAD+2
DFN	INIT+1~, INIT+7, INIT+8, INIT+12, INIT+15, INIT+26, INIT+27, LINE+3, LINE+4, LINE+5 , LINE+6, LINE+7, LINE+8, LINE+9, LINE+10, AGE+1
DT	LINE+6
DUZ(2	LINE+4
IEN	SET~, SET+1
IO	PRINT+2
IOF	HDG+1
>> IORVOFF	INIT+22
>> IORVON	INIT+22
IOSL	PRINT+6
IOST	BDGIPL2+5, LINE+2
L	PAD~, PAD+2
LINE	LINE+1~, LINE+2, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+9, LINE+10 , SET~, SET+1
N	SP~, SP+1
NAME	INIT+1~, INIT+24, INIT+25, INIT+27
NUM	SET~, SET+1
ORDER	INIT+1~, INIT+14, INIT+15, INIT+18, INIT+19, INIT+25, INIT+27
P	AGE~
U	HDR+3, INIT+7, HDG+4
VALMCNT	EN+2~, INIT+3*, INIT+22, LINE+10, LINE+13
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
WD	INIT+1~, INIT+7, INIT+8, INIT+11, INIT+12, INIT+14, INIT+15, INIT+19*, INIT+22, INIT+25 , INIT+27
X	HDR+1~, HDR+3, HDR+4, INIT+1~, INIT+14, HDG+4, HDG+5, HELP+1, AGE+1~, AGE+2 , AGE+3