Routine: ASDUSR1

Information

ASDUSR1 ; IHS/ADC/PDW/ENM - DISPLAY USER SETUP ; [ 03/25/1999 11:48 AM ]

Source file <ASDUSR1.m>

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$REPEAT^XLFSTR
IHS Changes To Scheduling	1	^ASDUSL1
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
VA Fileman	1	^DIC

Package	Total	Caller Graph
IHS Changes To Scheduling	1	ASDUSL1
Scheduling	1	SD IHS USER DISPLAY

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
^%ZIS	DEV+1
HOME^%ZIS	DEV+5
^%ZISC	EXIT+1
^%ZTLOAD	DEV+5
^ASDUSL1	ASDUSR1+6
^DIC	ASK+4
$$VAL^XBDIQ1	DISP+4, DISP+6, KEYS+6, OVERBK+9, ACCESS+5, ACCESS+7
$$VALI^XBDIQ1	ACCESS+6
$$REPEAT^XLFSTR	PAD+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("ASDUSL1",$J,ASDL,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: !?30,"SCHEDULING USER SETUP",! Line Location: HDR+2
Routine Call	%ZIS Line Location: DEV+5
Routine Call	DIC Line Location: ASK+4
Routine Call	%ZIS Line Location: DEV+1

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

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

Name	Field # of Occurrence
>> %ZIS	DEV+1*
ASDL	DISP+1~, DISP+3, DISP+5, DISP+7, DISP+8, PRINT+1~, PRINT+2, PRINT+3*, PRINT+5
ASDLN	EXIT+1!, DISP+2, SET+1, SET+2
ASDPG	PRINT+1~, PRINT+2, HDR+1
ASDQ	ASDUSR1+3, ASDUSR1+4, ASDUSR1+5, EXIT+1!, ASK+4, DEV+1, DEV+2
ASDU	EXIT+1!, ASK+5*, DISP+3, DISP+4, DISP+6, KEYS+4, KEYS+7, OVERBK+2, OVERBK+4, OVERBK+6 , OVERBK+8, MSTOV+2, ACCESS+2, ACCESS+4
ASDX	KEYS+1~, KEYS+2, KEYS+3, KEYS+4, KEYS+5, OVERBK+1~, OVERBK+8, OVERBK+9, MSTOV+2, ACCESS+1~ , ACCESS+4, ACCESS+5, ACCESS+6, ACCESS+7
ASDY	KEYS+1~, KEYS+5*, KEYS+6
DATA	SET~, SET+1, PAD~, PAD+1
DIC	ASK+1~, ASK+2*
DIC("A"	ASK+2*
DIC("S"	ASK+3*
DIC(0	ASK+2*
DT	ACCESS+6
IO	PRINT+1
IO("Q"	DEV+2, DEV+5!
IOF	HDR+1
IOSL	PRINT+4
IOST	ASDUSR1+6, DISP+10
LENGTH	PAD~, PAD+1
NUM	SP~, SP+1
>> POP	DEV+1
U	ASK+4, DISP+3, MSTOV+2
X	ASK+1~, ASK+4, DISP+4, DISP+5, DISP+6, DISP+7, MSTOV+1~, MSTOV+2, MSTOV+3, ACCESS+6
Y	ASK+1~, ASK+4, ASK+5
>> ZTDESC	DEV+3*
>> ZTRTN	DEV+3*
>> ZTSAVE("ASDU"	DEV+4*
ZTSK	DEV+5!