Routine: XUTMOPT

Information

XUTMOPT ;SFISC/RWF - One time queue and Schedule option code. ;12/04/2000 11:02 [ 04/02/2003 8:29 AM ]

Source file <XUTMOPT.m>

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD XUDIE^XUS5
VA Fileman	4	(,FIND)^DIC ^DIE EN1^DIP ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	10	PSO227PO PSO7P289 PSOATRF PSOAUTOC PSOBGMG2 PSOHELP1 PSOHLEXP PSOPOS13 PSOSUDEL PSOTPHL1
CMOP	6	PSXAUTO PSXDODNT PSXHSYS1 PSXMSGS PSXSRST PSXSYS
IHS Changes To Lab	2	BLRPRE37 BLRTASKS
IHS Changes To Pharmacy	2	APSAWP2 APSPCSM
Order Entry Results Reporting	2	ORB3ENV ORMTIMST
Radiology Nuclear Medicine	2	RA44PST RAPM3
Scheduling	2	SDOQMP0 SDOQMPST
Adverse Reaction Tracking	1	GMRA1004
Automated Lab Instruments	1	LA7VIN
GUI Objects	1	BGOCPTP3
IHS Electronic Health Record	1	BEHOCIR1
Kernel	1	XU OPTION QUEUE
Registration	1	DGSTAT
Tracking Procedure Workflow	1	BTPWSCHD
iCare	1	BQISCHED

Name	Comments	DBIA/ICR reference
DISP(OPTION)	;Display an option schedule (public entry-point)	ICR #1472 Status: Active Usage: Supported
OPTSTAT(OPTION,ROOT)	;Get the status of an option	ICR #1472 Status: Active Usage: Supported
ONE	;One time queue setup
FIND(X,F)	;Find and option
RESCH(OPTION,WHEN,DEVICE,BY,FLAG,ERR)	;EF. App reschedule entry point	ICR #1455 Status: Withdrawn Usage: Private ICR #1472 Status: Active Usage: Supported
EXIT
OZ
EDIT(OPTION)	;User edit of option schedule file.	ICR #1472 Status: Active Usage: Supported

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You can only select OPTION's that have the SCHEDULING RECOMMENDED",!,"field set to YES or STARTUP." Line Location: ONE+2
Function Call: WRITE	Prompt: ! Line Location: OZ+2
Function Call: WRITE	Prompt: !,"Not a valid device for Queueing." Line Location: OZ+3
Routine Call	%ZIS Line Location: EXIT
Routine Call	DIE Line Location: RESCH+5
Routine Call	DIR Line Location: ONE+5 OZ+5
Routine Call	%ZIS Line Location: OZ+2
Routine Call	DIC Line Location: ONE+3 FIND+4
Routine Call	DIC Line Location: OPTSTAT+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	OZ+7
^DIC(19.2 - [#19.2]	EDIT+3, OPTSTAT+6, OPTSTAT+7

Name	Field # of Occurrence
>> %	OPTSTAT+6*, OPTSTAT+7
>> %ZIS	OZ+2*
>> %ZIS("B"	OZ+2*
BY	DISP+3*, RESCH~, RESCH+4
DA	EDIT+1~, EDIT+4, DISP+1~, RESCH+1~, RESCH+4
DDSFILE	EDIT+1~
DEVICE	RESCH~, RESCH+4
>> DHD	DISP+3*
DIC	ONE+1~, ONE+3, EDIT+1~, DISP+1~, DISP+3, RESCH+1~, FIND+1~, FIND+4*
DIC("S"	ONE+3*
DIC(0	ONE+3, FIND+4
DIE	EDIT+1~, EDIT+4, RESCH+1~, RESCH+4
DIR	ONE+1~, OZ+5!
DIR("A"	ONE+5, OZ+5
DIR("B"	ONE+5*
DIR(0	ONE+5, OZ+5
>> DIRUT	ONE+5
DLAYGO	FIND+1~*
DR	EDIT+1~, EDIT+4, DISP+1~, RESCH+1~, RESCH+4
>> DTOUT	OZ+5
>> DUOUT	OZ+5
ERR	RESCH~, RESCH+3*
F	FIND~, FIND+4
FLAG	RESCH~, RESCH+2
>> FLDS	DISP+3*
>> FR	DISP+3*
IO("Q"	OZ+1, OZ+3, OZ+9!
IO(0	OZ+3
>> IOP	OZ+2, DISP+3
>> L	DISP+3*
OPTION	EDIT~, EDIT+2, EDIT+3, EDIT+4, DISP~, DISP+2, DISP+3, RESCH~, RESCH+2*, RESCH+3 , RESCH+4, OPTSTAT~, OPTSTAT+3
>> POP	OZ+1, OZ+2
ROOT	OPTSTAT~, OPTSTAT+4*
ROOT(	OPTSTAT+7*
>> TO	DISP+3*
U	OZ+8, OPTSTAT+7
WHEN	RESCH~, RESCH+4
X	OZ+6, RESCH+1~, FIND~, FIND+4*, FIND+5
>> XU1	OPTSTAT+4, OPTSTAT+5, OPTSTAT+6, OPTSTAT+7
>> XU2	OPTSTAT+6*, OPTSTAT+7
XUTMDA	OPTSTAT+2~
XUTMDA("DILIST"	OPTSTAT+4, OPTSTAT+5, OPTSTAT+6
XUTMMSG	OPTSTAT+2~
XUXQM	ONE+1~, ONE+4*
XUXQM(0	ONE+4*, OZ+8
Y	ONE+1~, ONE+3, ONE+4, OZ+1, FIND+1~, FIND+4
Y(0	ONE+4
ZTCPU	ONE+1~, OZ+6*
>> ZTDESC	OZ+8*
ZTIO	OZ*, OZ+2!
>> ZTRTN	OZ+7*
ZTSAVE	ONE+1~
ZTSAVE("XQY"	OZ+7*
ZTSAVE("XUXQM*"	OZ+7*
ZTSK	ONE+1~