Routine: BSDUSR

Information

BSDUSR ; IHS/ANMC/LJF - DISPLAY USER SETUP ;

Source file <BSDUSR.m>

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDUSL

Name	Comments	DBIA/ICR reference
DISP	;EP; -- display user data
SET(DATA)	; -- sets ^tmp
HDR	; -- header
KEYS	; -- display user's sd keys and descriptions
DEV	; -- ask for device
PAD(DATA,LENGTH)	; -- SUBRTN to pad length of data
ACCESS	; -- display access to restricted clinics
PRINT	; -- print list if sent to a printer
EXIT	; -- eoj
OVERBK	; -- display overbook level
ASK	; -- ask for user name
SP(NUM)	; -- SUBRTN to pad spaces
MSTOV()	; -- returns whether user has master ovbk in clinic

Name	Field # of Occurrence
^%ZISC	EXIT+1
ZIS^BDGF	DEV+1
^DIC	ASK+5
$$GET1^DIQ	DISP+4, DISP+6, KEYS+7, OVERBK+9, ACCESS+5, ACCESS+6, ACCESS+7
$$REPEAT^XLFSTR	PAD+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("BSDUSL",$J,BSDL,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: !?30,"SCHEDULING USER SETUP",! Line Location: HDR+2
Routine Call	DIC Line Location: ASK+5

Name	Line Occurrences (* Changed, ! Killed)
^BSDSC - [#9009017.2]	MSTOV+2
^BSDSC("AOV"	OVERBK+6, OVERBK+8
^DIC(19.1 - [#19.1]	KEYS+4, KEYS+6
^SC("AIHSPRIV"	ACCESS+2, ACCESS+4
^TMP("BSDUSL"	DISP+2!, PRINT+3, PRINT+5, SET+1, SET+2
^XUSEC(	KEYS+5
^XUSEC("AGZDOG"	KEYS+8
^XUSEC("SDMOB"	OVERBK+2
^XUSEC("SDOB"	OVERBK+4

Name	Line Occurrences
$$MSTOV	OVERBK+9
$$PAD	DISP+3, DISP+5, SP+1
$$SP	KEYS+7, KEYS+9, OVERBK+3, OVERBK+5, OVERBK+7, OVERBK+9, ACCESS+3, ACCESS+7
ACCESS	DISP+9
EXIT	ASK+5, PRINT+6
HDR	PRINT+2, PRINT+4
KEYS	DISP+9
OVERBK	DISP+9
PRINT	DISP+10
SET	DISP+8, KEYS+2, KEYS+7, KEYS+9, KEYS+10, OVERBK+3, OVERBK+5, OVERBK+7, OVERBK+9, ACCESS+2 , ACCESS+3, ACCESS+7

Name	Field # of Occurrence
BSDL	DISP+1~, DISP+3, DISP+5, DISP+7, DISP+8, PRINT+1~, PRINT+2, PRINT+3*, PRINT+5
BSDLN	EXIT+1!, DISP+2, SET+1, SET+2
BSDPG	PRINT+1~, PRINT+2, HDR+1
BSDQ	ASK+5*, EXIT+1!
BSDU	ASK+6*, EXIT+1!, DISP+3, DISP+4, DISP+6, KEYS+5, KEYS+8, OVERBK+2, OVERBK+4, OVERBK+6 , OVERBK+8, MSTOV+2, ACCESS+2, ACCESS+4
BSDX	KEYS+1~, KEYS+3, KEYS+4, KEYS+5, KEYS+6, OVERBK+1~, OVERBK+8, OVERBK+9, MSTOV+2, ACCESS+1~ , ACCESS+4, ACCESS+5, ACCESS+6, ACCESS+7
BSDY	KEYS+1~, KEYS+6*, KEYS+7
DATA	SET~, SET+1, PAD~, PAD+1
DIC	ASK+1~, ASK+2*
DIC("A"	ASK+2*
DIC("S"	ASK+4*
DIC(0	ASK+2*
DT	ACCESS+6
IO	PRINT+1
IOF	HDR+1
IOSL	PRINT+4
IOST	DISP+10
LENGTH	PAD~, PAD+1
NUM	SP~, SP+1
U	ASK+5, DISP+3, MSTOV+2
X	ASK+1~, ASK+5, DISP+4, DISP+5, DISP+6, DISP+7, MSTOV+1~, MSTOV+2, MSTOV+3, ACCESS+6
Y	ASK+1~, ASK+5, ASK+6