Routine: PSUDBQUE

Information

PSUDBQUE ; IHS/ADC/GTH - DOUBLE QUEUING SHELL HANDLER; 04 NOV 1997

Source Information

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Pharmacy Benefits Management	2	PSUCP PSUPR0

Entry Points

Name	Comments	DBIA/ICR reference
END1	;EP clean out PSU as passed in
END0	;EP - from compute cycle when PSU("RP") EXISTS
EN	;PEP for double queuing	ICR #2922 Status: Withdrawn Usage: Private
COMPUTE	;>do computing \| routine
ZIS	;
ZISQ	;
NORC	;used if no PSURC identified
SETIOPN	;EP Set IOP parameters with (N)o open
QUE1	;
START	;
ENDC	;EP - end computing cycle
QUE2	;
PGMNOTE	;
DEQUE2	;>EP 2nd Deque \| printing
END	;>End \| cleanup
DEQUE1	;> 1st deque
SUB	;>Subroutines

Name	Field # of Occurrence
^%ZIS	EN+3, ZIS+4, QUE1+1, END1+3, SETIOPN+13
^%ZISC	QUE1+1, END1+1
^%ZTLOAD	QUE1+12, QUE2+10
KILL^%ZTLOAD	END0+1
^DIR	ZISQ+6, ZISQ+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"REPORTING-ABORTED",*7 Line Location: ZIS+5
Function Call: WRITE	Prompt: !,"Queing to slave printer not allowed ... Report Aborting" Line Location: QUE1+2
Routine Call	DIR Line Location: ZISQ+6 ZISQ+16
Routine Call	%ZIS Line Location: EN+3 ZIS+4 QUE1+1 END1+3 SETIOPN+13

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	QUE2+11

Name	Line Occurrences
@(	COMPUTE+2, QUE2+11, DEQUE2+7, END+2
END	DEQUE2+4, ENDC+1
END0	ENDC+2
END1	ZIS+5, ZISQ+16, QUE1+1
ENDC	QUE2+2
SETIOPN	QUE2+9
ZISQ	ZIS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	SETIOPN+12*
>> %ZIS	ZIS+3, SETIOPN+11
>> %ZIS("HFSMODE"	EN+28, SETIOPN+8
>> %ZIS("HFSNAME"	EN+28, SETIOPN+8
>> %ZIS("IOPAR"	EN+24, SETIOPN+4
DIR	ZISQ+4!, ZISQ+7!, ZISQ+16!
DIR("A"	ZISQ+5, ZISQ+16
DIR("B"	ZISQ+5*
DIR(0	ZISQ+5, ZISQ+16
IO	EN+3, EN+7, ZIS+6, ZISQ+3, DEQUE2+6
IO("Q"	ZIS+1!, ZISQ+1, ZISQ+9*, QUE1+1!
IO(0	ZISQ+3
>> IOCPU	ZIS+6
IOM	EN+7*, EN+8, ZIS+6
ION	EN+7*, EN+8, ZIS+6
IOP	EN+3, EN+22, QUE1+1, END1+2, END1+4!, SETIOPN+2*
IOPAR	EN+9, ZIS+6, END1+4!
IOSL	EN+7*, EN+8, ZIS+6
IOST	EN+7*, EN+8, ZIS+6
IOUPAR	END1+4!
>> POP	ZIS+5
PSU	EN+1~, END1+5!
PSU("CPU"	ZIS+6*, QUE1+7
PSU("IO"	ZIS+6*, QUE2+6
PSU("ION"	ZIS+6*
PSU("IOP"	EN+21, ZIS+6, SETIOPN+1, SETIOPN+2
PSU("IOP1"	EN+8*, QUE1+1, END1+2
PSU("IOPAR"	EN+9, EN+24, EN+25, EN+26, EN+27, ZIS+6, SETIOPN+4, SETIOPN+5, SETIOPN+6, SETIOPN+7
PSU("NS"	EN+14, EN+15, EN+18*, QUE1+9, QUE2+8
PSU("RC"	EN+11*, COMPUTE+2, QUE2+5
PSU("RP"	EN+11*, QUE2+3, QUE2+5, DEQUE2+4, DEQUE2+7, ENDC+1
PSU("RX"	EN+11*, END+2
PSU("TITLE"	EN+6*, QUE1+3, QUE2+4
PSU("ZTSK"	ZISQ+12!, ZISQ+13, QUE1+1, DEQUE1+3!, DEQUE1+4, DEQUE2+1!, DEQUE2+2*, END0+1
PSUDBQUE	QUE2+12*, END1+5!
PSUDTH	EN+4*, QUE1+6, QUE1+10!, DEQUE1+2!, END1+5!
PSUERR	QUE2+11*, END1+5!
PSUFQ	EN+4, ZISQ+1, ZISQ+2, QUE1+1, QUE1+10!, DEQUE1+2!, END1+5!
>> PSUHFSMD	EN+27, EN+28, SETIOPN+7, SETIOPN+8
>> PSUHFSNM	EN+26, EN+28, SETIOPN+6, SETIOPN+8
PSUI	EN+14*, QUE1+10!, END1+5!
PSUIOP	EN+21, EN+22, QUE1+10!, DEQUE1+2!, END1+5!
PSUNS	EN+13*, EN+14, QUE1+10!, DEQUE1+2!, END1+5!
PSUNS(	EN+18
PSUNSX	EN+14, EN+17, EN+18, QUE1+8, QUE1+9, QUE1+10!, QUE2+7, QUE2+8*, END1+5!
PSUPAR	QUE1+10!, DEQUE1+2!, END1+5!
PSUQUIT	ZISQ+8*, ZISQ+16, END1+5!
PSURC	EN+5, EN+10*, EN+11, ZIS+2, QUE1+4, QUE1+10!, DEQUE1+2!, END1+5!
PSURP	EN+5, EN+11, ZIS+2, ZISQ+3, QUE1+4, QUE1+10!, DEQUE1+2!, END1+5!
PSURX	EN+11, QUE1+10!, DEQUE1+2!, END1+5!
PSUTITLE	EN+6!
PSUTZTSK	END0+1*!
>> X	ZISQ+8
>> Y	ZISQ+9
>> ZTCPU	QUE1+7*
>> ZTDESC	QUE1+3, QUE1+4, QUE2+4, QUE2+5
>> ZTDTH	QUE1+6, QUE2+6
ZTIO	QUE1+5, QUE1+11, QUE2+6*, QUE2+9!
>> ZTQUEUED	EN+4, ZISQ+2, ZISQ+13, QUE1+1, DEQUE1+4, QUE2+2, DEQUE2+2, END1+1, END1+3
>> ZTRTN	QUE1+5, QUE2+6
>> ZTSAVE(	QUE1+9, QUE2+8
ZTSK	ZISQ+13, ZISQ+14!, QUE1+1, DEQUE1+4, QUE2+11, DEQUE2+2, END0+1*!

Customize PDF page

Package: Pharmacy Benefits Management

Routine: PSUDBQUE

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: