Routine: BSDWLE1

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BSDRM WAITING LIST CLOSED
HELP	; -- help code
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
SET(DATA,IEN,COUNT,LINENUM)	; puts data line into display array
INIT	;EP -- init variables and list array
EXIT	; -- exit code
HDR	;EP -- header code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+3

FileNo	Call Tags
^BSDWL - [#9009017.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BSDWL - [#9009017.1]	INIT+5
^TMP("BSDWLE"	INIT+2!, INIT+25, SET+2, SET+3*, EXIT+1!
^TMP("BSDWLE1"	INIT+2!, INIT+9*, INIT+12, INIT+13, INIT+26!

Name	Line Occurrences
$$PAD	INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, INIT+22, SP+1
$$SP	HDR+2, HDR+4
SET	INIT+23

Name	Field # of Occurrence
BSDATA	INIT+1~, INIT+7!, INIT+14!
BSDATA(	INIT+8, INIT+9, INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, INIT+22
BSDCLOSE	EN+2~*
BSDCNT	INIT+1~, INIT+16*, INIT+23
>> BSDWLN	HDR+3, INIT+5, INIT+6, INIT+14
COUNT	SET~, SET+1*, SET+3
D	PAD~, PAD+2
DATA	SET~, SET+2
FILE	INIT+1~, INIT+4*, INIT+7, INIT+8, INIT+9, INIT+15, INIT+17, INIT+18, INIT+19, INIT+20 , INIT+21, INIT+22
IEN	INIT+1~, INIT+5, INIT+6, INIT+9, INIT+13, INIT+14, INIT+23, SET~, SET+3
IENS	INIT+1~, INIT+6, INIT+7, INIT+8, INIT+9, INIT+14, INIT+15, INIT+17, INIT+18, INIT+19 , INIT+20, INIT+21, INIT+22
L	PAD~, PAD+2
LINE	INIT+1~, INIT+16, INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, INIT+22*, INIT+23
LINENUM	SET~, SET+1*, SET+2, SET+3
N	SP~, SP+1
NAME	INIT+1~, INIT+12*, INIT+13, INIT+17
VALMCNT	EN+1~, INIT+2, INIT+23, INIT+25
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+4*
X	HDR+1~, HDR+3, HDR+4, HELP+1

Information