Routine: BDGSYS3

Information

BDGSYS3 ; IHS/ANMC/LJF - INPATIENT WARD SETUP ; [ 04/09/2004 8:18 AM ]

Source file <BDGSYS3.m>

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
VA Fileman	3	^DDS ^DIC $$GET1^DIQ
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	1	MSG^BDGF

Name	Comments	DBIA/ICR reference
RESET	; -- update partition for return to list manager
EN	; -- main entry point for BDG SYS WARD SETUP
HELP	; -- help code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
LINE(DIV,INA,NAME,IEN,COUNT)	; create display line
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	; -- expand code
EDIT	;EP; called by Edit Entry protocol
INIT	; -- init variables and list array
EXIT	; -- exit code
SET(DATA,NUM,N,LINE)	; put display line into array
ADD	;EP; called by Add Entry protocol
HDR	; -- header code

Name	Field # of Occurrence
MSG^BDGF	INIT+1
^DDS	ADD+11, EDIT+13
^DIC	ADD+7, ADD+9
$$GET1^DIQ	HDR+2, INIT+10, INIT+11, LINE+4, LINE+7, LINE+12, LINE+13, LINE+14
EN^VALM	EN+3
TERM^VALM0	EN+2, RESET+2
CLEAR^VALM1	EN+2, EN+4
FULL^VALM1	ADD+2, EDIT+2
EN^VALM2	EDIT+3
$$REPEAT^XLFSTR	PAD+2
DISP^XQORM1	HELP+1

Name	Line Occurrences (* Changed, ! Killed)
^BDGWD - [#9009016.5]	INIT+9
^DIC(42 - [#42]	INIT+7, INIT+8, ADD+4
^TMP("BDGSYS3"	INIT+4!, INIT+22, SET+2, SET+3, EXIT+1!, EDIT+6, EDIT+7, EDIT+8, EDIT+9
^TMP("BDGSYS31"	INIT+4!, INIT+12*, INIT+16, INIT+17, INIT+18, INIT+19, INIT+24!

Name	Field # of Occurrence
A	INIT+15~, INIT+16*, INIT+17, INIT+18, INIT+19, INIT+20
B	INIT+15~, INIT+17*, INIT+18, INIT+19, INIT+20
>> BDGDIV	HDR+2
BDGN	EDIT+1~, EDIT+9*, EDIT+11, EDIT+13
C	INIT+15~, INIT+18*, INIT+19, INIT+20
COUNT	INIT+15~, INIT+20, LINE~, LINE+2*, LINE+3, LINE+9, LINE+15
D	INIT+15~, INIT+19*, INIT+20, PAD~, PAD+2
DA	ADD+1~, ADD+11, EDIT+1~, EDIT+13
DATA	SET~, SET+2
DDSFILE	ADD+1~, ADD+11, EDIT+1~, EDIT+13
DIC	ADD+1~, ADD+5, ADD+7!, ADD+8
DIC("DR"	ADD+5*
DIC(0	ADD+5, ADD+8
>> DINUM	ADD+8*
DIV	INIT+2~, INIT+10*, INIT+12, LINE~, LINE+5
DLAYGO	ADD+1~, ADD+5, ADD+8
DR	ADD+1~, ADD+11, EDIT+1~, EDIT+13
GNL	ADD+4~*, ADD+5
IEN	INIT+2~, INIT+8*, INIT+9, INIT+10, INIT+11, INIT+12, LINE~, LINE+4, LINE+7, LINE+9 , LINE+12, LINE+13, LINE+14, LINE+15
INA	INIT+2~, INIT+11*, INIT+12, LINE~
L	PAD~, PAD+2
LINE	LINE+1~, LINE+3, LINE+4, LINE+5, LINE+8, LINE+9, LINE+11, LINE+12, LINE+13, LINE+14 , LINE+15, SET~, SET+1*, SET+2, SET+3
N	SET~, SET+3, SP~, SP+1
NAME	INIT+2~, INIT+7*, INIT+8, INIT+12, LINE~, LINE+3
NUM	SET~, SET+3
U	ADD+8
>> VALMBCK	RESET+1, RESET+2
VALMCNT	EN+1~, INIT+3*, INIT+23, LINE+9, LINE+15
>> VALMHDR(1	HDR+3*
>> VALMQUIT	RESET+1
>> VALMY	EDIT+4
>> VALMY(	EDIT+5
X	HDR+1~, HDR+2, HDR+3, HELP+1, ADD+8, EDIT+1~, EDIT+5, EDIT+9
>> XQORNOD(0	EDIT+3
Y	ADD+1~, ADD+7, ADD+8, ADD+9, ADD+11, EDIT+1~, EDIT+6*, EDIT+7, EDIT+8, EDIT+9
Z	EDIT+1~, EDIT+7*, EDIT+8, EDIT+9