Routine: BDGIPL1

Information

BDGIPL1 ; IHS/ANMC/LJF - ALPHA LIST OF CURRENT INPTS ;

Source file <BDGIPL1.m>

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

Package	Total	Caller Graph
IHS Changes To ADT	8	BDGIPL2 BDGIPL3 BDGIPL4 BDGIPL5 BDGIPL6 BDGIPL7 BDGIPL8 BDGIPL9

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BDG IPL ALPHA
HDR	; -- header code
SET(LINE,NUM,COUNT,IEN)	;EP - put display line into array
INS()	; returns combination of MCR/MCD/PI
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	; -- expand code
HDG	; heading for paper report
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
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: !,BDGTIME,?16,$$CONF^BDGF,?71,"Page: ",BDGPG Line Location: HDG+2
Function Call: WRITE	Prompt: !,BDGDATE,?24,"Alphabetical List of Current Inpatients",?76,BDGUSR Line Location: HDG+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDG+4
Function Call: WRITE	Prompt: !?5,"Patient",?25,"HRCN",?35,"Age",?43,"Community",?60,"Insurance" Line Location: HDG+5
Function Call: WRITE	Prompt: !?6,"Ward (Room)",?29,"Srv",?36,"Provider",?60,"Admit Date (LOS)" Line Location: HDG+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+7
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+2

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	INS+3
^DPT - [#2]	LINE+11, LINE+13, INS+2
^DPT("CN"	INIT+7, INIT+8
^TMP("BDGIPL"	INIT+3!, SET+2, SET+3, PRINT+5, PRINT+7, EXIT+1!, EXPND+6, EXPND+7, EXPND+8, EXPND+9
^TMP("BDGIPL1"	INIT+3!, INIT+9*, INIT+12, INIT+13, INIT+16!

Name	Line Occurrences
$$AGE	LINE+5
$$INS	LINE+7
$$PAD	LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+13, LINE+14, LINE+15, LINE+16, SP+1
$$SP	HDR+2, LINE+2, LINE+10
EXIT	PRINT+10
HDG	PRINT+2, PRINT+6
INIT	BDGIPL1+6
LINE	INIT+14
PRINT	BDGIPL1+6
SET	LINE+8, LINE+17, LINE+18

Name	Field # of Occurrence
ANS	INS+1~
BDGCNT	INIT+1~, INIT+4, LINE+2, LINE+8, LINE+17, LINE+18, LINE+21
>> BDGCOP	PRINT+9
>> BDGDATE	HDG+3
BDGLN	PRINT+1~, PRINT+7*, PRINT+8
BDGPG	PRINT+1~, HDG+1*, HDG+2
>> BDGTIME	HDG+2
>> BDGUSR	HDG+3
BDGX	PRINT+1~, PRINT+5*, PRINT+7
COUNT	SET~, SET+3
D	PAD~, PAD+2
DATE	INS+1~, INS+2, INS+3, INS+4
DFN	INIT+1~, INIT+8, INIT+9, INIT+13, LINE+3, LINE+4, LINE+5, LINE+6, LINE+8, LINE+10 , LINE+11, LINE+13, LINE+14, LINE+15, LINE+16, LINE+17, LINE+18, INS+2, INS+4, EXPND+5! , EXPND+6, EXPND+9*, AGE+1
DT	LINE+15
DUZ(2	LINE+4
IEN	SET~, SET+3
IO	PRINT+2
IOF	HDG+1
IOSL	PRINT+6
IOST	BDGIPL1+6, INIT+2, LINE+2
L	PAD~, PAD+2
LINE	LINE+1~, LINE+2, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+10, LINE+12 , LINE+13, LINE+14, LINE+15, LINE+16, LINE+17, SET~, SET+2
N	SP~, SP+1
NAME	INIT+1~
>> NM	INIT+12*, INIT+13
NUM	SET~, SET+1*, SET+2, SET+3
P	AGE~
VALMCNT	EN+1~, INIT+4*, LINE+8, LINE+17, LINE+18
>> VALMHDR(1	HDR+2*
>> VALMY	EXPND+4
>> VALMY(	EXPND+5
WD	INIT+1~, INIT+7*, INIT+8
X	HDR+1~, LINE+1~, LINE+11, LINE+12, HELP+1, EXPND+2~, EXPND+5, EXPND+9, AGE+1~, AGE+2* , AGE+3
>> XQORNOD(0	EXPND+3
Y	EXPND+2~, EXPND+6*, EXPND+7, EXPND+8, EXPND+9
Z	EXPND+2~, EXPND+7*, EXPND+8, EXPND+9