Routine: BDGSYS4

Information

BDGSYS4 ; IHS/ANMC/LJF - ROOM-BED SETUP ;

Source file <BDGSYS4.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 ROOM SETUP
HELP	; -- help code
EDIT	;EP; called by Edit Entry protocol
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	; -- expand code
INITW	; -- init variables and list array
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
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+3, INITW+2
^DDS	ADD+4, EDIT+14
^DIC	ADD+3
$$GET1^DIQ	HDR+2, INIT+11, INIT+24, INIT+25, INIT+27, INITW+12, INITW+25, INITW+26, INITW+28, INITW+31
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)
^DG(405.4 - [#405.4]	INIT+9, INIT+10, INITW+8, INITW+9, INITW+10, INITW+25
^TMP("BDGSYS4"	INIT+6!, INIT+30, INITW+5!, INITW+34, SET+2, SET+3, EXIT+1!, EDIT+8, EDIT+9, EDIT+10 , EDIT+11
^TMP("BDGSYS41"	INIT+6!, INIT+11, INIT+15, INIT+19, INIT+20, INITW+5!, INITW+12, INITW+16, INITW+20, INITW+21 , INITW+22

Name	Line Occurrences
$$PAD	INIT+24, INIT+25, INIT+27, INITW+26, INITW+28, INITW+31, SP+1
$$SP	HDR+3
HDR	RESET+3
INIT	RESET+3
INITW	INIT+1
RESET	ADD+3, ADD+5, EDIT+13, EDIT+15
SET	INIT+17, INIT+28, INIT+31, INITW+18, INITW+32, INITW+35

Name	Field # of Occurrence
>> BDGDIV	HDR+2
BDGN	EDIT+1~, EDIT+8, EDIT+11*, EDIT+13, EDIT+14
COUNT	INIT+4~, INIT+17, INIT+22, INIT+23, INIT+28, INITW+3~, INITW+18, INITW+24, INITW+25, INITW+32
D	PAD~, PAD+2
DA	ADD+1~, ADD+4, EDIT+1~, EDIT+14
DATA	SET~, SET+2
DDSFILE	ADD+1~, ADD+4, EDIT+1~, EDIT+14
DGNEW	ADD+1~, ADD+4, EDIT+1~, EDIT+14
DIC	ADD+1~, ADD+3*!
DIC(0	ADD+3*
DLAYGO	ADD+1~, ADD+3*
DR	ADD+1~, ADD+4, EDIT+1~, EDIT+14
IEN	INIT+4~, INIT+10, INIT+11, INIT+20, INIT+24, INIT+25, INIT+27, INIT+28, INITW+3~, INITW+10* , INITW+12, INITW+21*, INITW+22, INITW+25, INITW+26, INITW+28, INITW+31, INITW+32
INA	INIT+4~, INIT+15, INIT+17, INIT+19, INIT+20, INITW+3~, INITW+16, INITW+18, INITW+20, INITW+21 , INITW+22
L	PAD~, PAD+2
LINE	INIT+4~, INIT+23, INIT+24, INIT+25, INIT+27, INIT+28, INITW+3~, INITW+25, INITW+26, INITW+28* , INITW+31, INITW+32, SET~, SET+1, SET+2, SET+3
N	SET~, SET+3, SP~, SP+1
NAME	INIT+4~, INIT+9, INIT+10, INIT+11, INIT+19, INIT+20, INIT+23, INITW+3~, INITW+9, INITW+10 , INITW+12, INITW+20, INITW+21, INITW+22, INITW+25
NUM	SET~, SET+3
OEN	INITW+3~, INITW+22*
U	INITW+25
>> VALMBCK	RESET+1, RESET+2
VALMCNT	EN+1~, INIT+5, INIT+17, INIT+28, INIT+31, INITW+4, INITW+18, INITW+32, INITW+35
>> VALMHDR(1	HDR+3*
>> VALMQUIT	RESET+1
>> VALMY	EDIT+4
>> VALMY(	EDIT+5
>> WD	INITW+8*, INITW+9, INITW+10, INITW+12
X	HDR+1~, HDR+2, HDR+3, HELP+1, EDIT+1~, EDIT+5*, EDIT+11
>> XQORNOD(0	EDIT+3
Y	ADD+1~, ADD+3, ADD+4, EDIT+1~, EDIT+8*, EDIT+9, EDIT+10, EDIT+11
Z	EDIT+1~, EDIT+9*, EDIT+10, EDIT+11