Routine: DGRURB

Information

DGRURB ; ALB/SCK - LIST MANAGER INTERFACE FOR ROOM-BED TRANSLATION; 16-FEB-2000

Source file <DGRURB.m>

Package	Total	Call Graph
Registration	4	EN^VALM ($$SETFLD,FULL)^VALM1 CLEAN^VALM10 EN^VALM2
VA Fileman	4	UPDATE^DIE ^DIK $$GET1^DIQ ^DIR
Kernel	1	DISP^XQORM1

Package	Total	Caller Graph
Registration	1	DGRU ENTER/EDIT ROOM-BED TRAN

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for DGRU ROOM-BED
HDR	; -- header code
EXITSC
RAI(DGIEN)	; Screening logic for room lookup. Associated ward must have the ; RAI/MDS WARD field = "Yes"
ADD	; Add a new room-bed translation value
INIT	; -- init variables and list array ; Variables ; DGIEN - ien of the file #46.13 entry ; DGNODE - Zero node of file #46.13 ; DGCNT - Count of entries in the LM array ; DGTRN - File #46.13 ien^translated Room-Bed^Bed description ; DGRM - Room-Bed name in external format
EXIT	; -- exit code
DEL	; Delete an existing room-bed translation value
SET(X,DGCNT,DGIEN)	;
HELP	; -- help code

FileNo	Call Tags
^DG(405.4 - [#405.4]	GET1^DIQ
^DIC(42 - [#42]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	RAI+5
^DGRU(46.13	INIT+16, INIT+17
^TMP("DGRURB"	INIT+10!, EXIT+1!, DEL+14, SET+2, SET+3, SET+4*
^TMP("DGRUSRT"	INIT+11!, INIT+19*, INIT+23, INIT+25, INIT+26, EXIT+2!

Name	Field # of Occurrence
DA	DEL+1~, DEL+14*
DGCNT	INIT+8~, INIT+22, INIT+27, INIT+31, INIT+32, SET~, SET+3, SET+4
DGIEN	INIT+8~, INIT+15, INIT+16, INIT+17, INIT+19, INIT+24, INIT+25, INIT+26, RAI~, RAI+5 , SET~, SET+3
DGNDX	RAI+2~, RAI+4, RAI+5, RAI+6
DGNODE	INIT+8~, INIT+17*, INIT+18, INIT+19
DGOK	RAI+2~, RAI+4, RAI+5, RAI+6, EXITSC
DGRM	INIT+8~, INIT+22, INIT+23, INIT+25, INIT+26, INIT+28
DGRUCNT	EN+2~
DGTR	ADD+1~, ADD+18*, ADD+21
DGTRN	INIT+8~, INIT+26*, INIT+29, INIT+30, INIT+31
DGVM	ADD+1~, ADD+8*, ADD+20
DIK	DEL+1~, DEL+15*
DIR	ADD+1~, ADD+6!, ADD+16!, DEL+11!
DIR("?"	ADD+13, ADD+14, ADD+15*
DIR("A"	ADD+4, ADD+12, DEL+9*
DIR("B"	DEL+10*
DIR("S"	ADD+5*
DIR(0	ADD+4, ADD+11, DEL+9*
DIRUT	ADD+1~, ADD+7, ADD+10!, ADD+17, DEL+12
FDA	ADD+1~
FDA(1	ADD+20, ADD+21
VALMBCK	EN+2~
VALMCNT	EN+2~, INIT+15, SET+1, SET+2, SET+3, SET+4
VALMEVL	EN+1!
VALMHDR	EN+2~
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMI	EN+2~, DEL+5, DEL+6, DEL+7, DEL+14
VALMY	EN+2~
VALMY(	DEL+6
X	INIT+8~, INIT+27, INIT+28, INIT+29, INIT+30, INIT+31, HELP+1*, SET~, SET+2
XQORNOD	EN+2~
XQORNOD(0	DEL+4
XQORS	EN+1!
>> Y	ADD+8, ADD+18, DEL+13