Routine: ZISPQ

Information

ZISPQ ;IRMFO-ALB/CJM - DEVICE HANDLER PRINT QUEUES;10/05/2011 ;08/01/2012

Package	Total	Call Graph
Kernel	6	O^%ZIS4 $$CHKNM^%ZISF ($$OS,$$PRI)^%ZOSV ($$FMADD,$$FMTE,$$NOW)^XLFDT ($$INVERT,$$LJ,$$REPLACE,$$TRIM)^XLFSTR ($$ADD,DELETE,UPD)^ZISFM
VA FileMan	1	EN^DDIOL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Kernel	6	%ZIS2 %ZIS6 %ZISC XU PURGE PRINT QUEUE HFS FILES ^%ZIS(3.52 ^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
QEXIST(DEVICE)	;
OPEN	;called from PQ^%ZIS6
DIR(CODE)	;get directory for printer queues, a subdirectory of host file directory
NEWJOB(DEVICE,DUZ)	;
STATUS(IO,STATUS,JOBID)	;Set the status of the PRINT QUEUE JOB
CLOSE(IO)	;Called from ^%ZISC. Closes the host file and passes it to the print queue
VQEXIST(Q)	; Tests if queue exists on this node - VMS
LQEXIST(Q)	; Tests if queue exists - LINUX
PRINT(FILE,JOBID)	;Submits the file to be printed.
LPRINT(FILE,Q,JOBID)	;
VPRINT(FILE,Q,JOBID)	; VMS Print
GETPQ(DEVICE)	;
REPLACE(STRING,SUB1,SUB2)	;
ID	;identifier logic on the PRINT QUEUES JOB file
PURGE	;Purge of PRINT JOB QUEUES (file #3.52) and old host files that were queued. Also updates status on a regular basis.
GETJOB(JOB)	;returns job info (file 3.52). Input JOB=ien OR the name of the host file, returns .JOB array with job's fields
STOPPED(DEVICE)	;was purging suspended for this device?
FEXIST(FILE)	;returns 1 if the file exists, 0 otherwise
VFEXIST(FILE)	;checks file's existance - VMS
LFEXIST(FILE)	;checks file's existance - Linux,Unix
FDELETE(FILE)	;delete file
VFDELETE(FILE)	;delete file - VMS
LFDELETE(FILE)	;delete file - Linux,Unix
JDELETE(IEN)	;delete the job, file #3.52
DEQUEUE(JOBID,QUEUE)	;Remove a job from a queue
VDEQUEUE(JOBID,QUEUE)	;Remove a job from a queue - VMS
LDEQUEUE(JOBID,QUEUE)	;Remove a job from a queue - Linux, Unix
UCI()	;return the UCI
GETIEN(FILE)	;given the file name, parses out the ien and returns it

External References

Name	Field # of Occurrence
O^%ZIS4	OPEN+18
$$CHKNM^%ZISF	DIR+4
$$OS^%ZOSV	QEXIST+11, OPEN+9, DIR+5, PRINT+9, FEXIST+2, FDELETE+1, DEQUEUE+1
$$PRI^%ZOSV	DIR+3, NEWJOB+17, GETPQ+10, PURGE+11
EN^DDIOL	ID+7
$$FMADD^XLFDT	PURGE+7, PURGE+8, PURGE+9
$$FMTE^XLFDT	ID+5
$$NOW^XLFDT	NEWJOB+17, STATUS+15, STATUS+16, PURGE+3
$$INVERT^XLFSTR	LPRINT+12
$$LJ^XLFSTR	ID+4
$$REPLACE^XLFSTR	REPLACE+3
$$TRIM^XLFSTR	LPRINT+12
$$ADD^ZISFM	NEWJOB+18
DELETE^ZISFM	JDELETE+1
UPD^ZISFM	NEWJOB+25, STATUS+17

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: RESULTS Timeout: 2 Line Location: LQEXIST+4
Function Call: READ	Variable: RESULT Timeout: 5 Line Location: LPRINT+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("lock"	OPEN+17
^%ZIS(1 - [#3.5]	GETPQ+10, GETPQ+11, STOPPED+2
^%ZIS(3.52 - [#3.52]	STATUS+12, STATUS+16, PURGE+18, PURGE+19, PURGE+20, PURGE+28, PURGE+31, PURGE+33, PURGE+34, PURGE+36! , PURGE+42, PURGE+44, PURGE+45, PURGE+46, PURGE+48!, GETJOB+6
^%ZOSF("UCI"	UCI+2
^VA(200 - [#200]	ID+4
^XTV(8989.3 - [#8989.3]	DIR+4

Label References

Name	Line Occurrences
$$DIR	NEWJOB+26, GETJOB+12
$$FEXIST	OPEN+16, PURGE+24, PURGE+38
$$GETIEN	STATUS+10, GETJOB+3
$$GETJOB	PRINT+8, PURGE+22, PURGE+36, PURGE+48
$$GETPQ	QEXIST+9, NEWJOB+14
$$LDEQUEUE	DEQUEUE+2
$$LFEXIST	FEXIST+3
$$LPRINT	PRINT+10
$$LQEXIST	QEXIST+12
$$NEWJOB	OPEN+14
$$PRINT	CLOSE+9
$$REPLACE	LQEXIST+3, LPRINT+4, LFEXIST+2, LFDELETE+2, LDEQUEUE+2
$$STATUS	CLOSE+4
$$STOPPED	PURGE+29, PURGE+43
$$UCI	NEWJOB+24, GETIEN+1
$$VDEQUEUE	DEQUEUE+3
$$VFEXIST	FEXIST+4
$$VPRINT	PRINT+11
$$VQEXIST	QEXIST+13
FDELETE	OPEN+16, PURGE+38
JDELETE	PURGE+50
LFDELETE	FDELETE+2
STATUS	OPEN+19, CLOSE+11, PURGE+24, PURGE+38
VFDELETE	FDELETE+3

Naked Globals

Name	Field # of Occurrence
^(0	ID+2, ID+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %E	OPEN+14
>> %ZIS	OPEN+5
>> %ZIS(	PURGE+13, PURGE+52
>> %ZIS("IOPAR"	OPEN+6!
>> %ZIS("IOUPAR"	OPEN+6!
>> %ZISB	OPEN+5
>> %ZISLOCK	OPEN+17*
>> %ZISOPAR	OPEN+10, OPEN+12
>> %ZISTO	OPEN+7*
>> %ZISUPAR	OPEN+13*
>> %ZTIME	OPEN+8*
CMD	VQEXIST+3~, VQEXIST+4, VQEXIST+5, VQEXIST+6, LQEXIST+1~, LQEXIST+3, LQEXIST+4, LPRINT+1~, LPRINT+3, LPRINT+4* , LPRINT+6, VPRINT+2~, VPRINT+4, VPRINT+5, VPRINT+6, VPRINT+13, VPRINT+15, VFEXIST+1~, VFEXIST+2, VFEXIST+3* , VFEXIST+4, LFEXIST+1~, LFEXIST+2, LFEXIST+3, VFDELETE+1~, VFDELETE+3, VFDELETE+4, LFDELETE+1~, LFDELETE+2, LFDELETE+3 , LDEQUEUE+1~, LDEQUEUE+2, LDEQUEUE+3
CODE	DIR~, DIR+3*, DIR+4
DATA	NEWJOB+10~, NEWJOB+18, NEWJOB+25, STATUS+8~, STATUS+17
DATA(	NEWJOB+17, NEWJOB+22, NEWJOB+24, NEWJOB+26, STATUS+13, STATUS+14, STATUS+15, STATUS+16*
DATE	ID+1~, ID+3, ID+5, ID+6
DEVICE	QEXIST~, QEXIST+9, NEWJOB~, NEWJOB+11, NEWJOB+14, NEWJOB+17, GETPQ~, GETPQ+6, GETPQ+10, GETPQ+11 , PURGE+2~, PURGE+17, PURGE+18, PURGE+19, PURGE+20, PURGE+27, PURGE+28, PURGE+29, PURGE+31, PURGE+33 , PURGE+34, PURGE+36, PURGE+41, PURGE+42, PURGE+43, PURGE+44, PURGE+45, PURGE+46, PURGE+48, STOPPED~ , STOPPED+2
DIR	DIR+2~, DIR+4, DIR+6, DIR+8, DIR+9, DIR+10, NEWJOB+10~, PURGE+2~, PURGE+11, PURGE+13 , PURGE+18, PURGE+19, PURGE+20, PURGE+28, PURGE+31, PURGE+33, PURGE+34, PURGE+36, PURGE+42, PURGE+44 , PURGE+45, PURGE+46, PURGE+48, PURGE+52, GETJOB+1~, GETJOB+11, GETJOB+12*, GETJOB+13
DUZ	OPEN+14, NEWJOB~, NEWJOB+17
EOF	LQEXIST+1~, LQEXIST+2, LQEXIST+6, LPRINT+1~, LPRINT+5, LPRINT+13
ERROR	NEWJOB+18, NEWJOB+25, STATUS+8~, STATUS+17
FILE	PRINT~, PRINT+7, PRINT+10, PRINT+11, LPRINT~, LPRINT+3, LPRINT+10, VPRINT~, VPRINT+13, GETJOB+1~ , GETJOB+10, GETJOB+13, GETJOB+14, FEXIST~, FEXIST+3, FEXIST+4, VFEXIST~, VFEXIST+2, LFEXIST~, LFEXIST+2 , FDELETE~, FDELETE+2, FDELETE+3, VFDELETE~, VFDELETE+2*, VFDELETE+3, LFDELETE~, LFDELETE+2, GETIEN~, GETIEN+1
I	NEWJOB+10~
ID	ID+1~, ID+6*, ID+7
IEN	STATUS+8~, STATUS+10, STATUS+11, STATUS+12, STATUS+16, STATUS+17, PURGE+2~, PURGE+20, PURGE+21, PURGE+34* , PURGE+35, PURGE+36, PURGE+46, PURGE+47, PURGE+48, PURGE+50, GETJOB+1~, GETJOB+2, GETJOB+3*, GETJOB+4 , GETJOB+5, GETJOB+6, JDELETE~, JDELETE+1
IO	OPEN+14*, OPEN+15, OPEN+16, OPEN+17, OPEN+19, STATUS~, STATUS+9, STATUS+10, CLOSE~, CLOSE+4 , CLOSE+9, CLOSE+11
>> IOP	OPEN+4
JOB	NEWJOB+10~, NEWJOB+18, NEWJOB+19, NEWJOB+24, NEWJOB+25, PRINT+6~, PRINT+7, PRINT+8, PURGE+21~, PURGE+22 , PURGE+35~, PURGE+36, PURGE+47~*, PURGE+48, GETJOB~, GETJOB+2
JOB("FILE"	PURGE+24, PURGE+38, GETJOB+14*
JOB("ID"	GETJOB+9*
JOB("IEN"	GETJOB+5*
JOB("QUEUE"	PRINT+10, PRINT+11, GETJOB+8*
JOBID	STATUS~, STATUS+13, CLOSE+2~, CLOSE+9, CLOSE+11, PRINT~, PRINT+10, PRINT+11, LPRINT~, LPRINT+2* , LPRINT+12, VPRINT~, VPRINT+3, VPRINT+16*, VPRINT+17, VPRINT+18, DEQUEUE~, DEQUEUE+2, DEQUEUE+3, VDEQUEUE~ , VDEQUEUE+1, LDEQUEUE~, LDEQUEUE+2
NAME	LPRINT+9~, LPRINT+10, LPRINT+12, ID+1~, ID+2, ID+4*, ID+6
NODE	GETJOB+1~, GETJOB+6*, GETJOB+7, GETJOB+8, GETJOB+9, GETJOB+10, GETJOB+11
NOPASS	VPRINT+2~, VPRINT+8*, VPRINT+10
NOW	PURGE+2~, PURGE+3*, PURGE+7, PURGE+8, PURGE+9
OS	QEXIST+8~, QEXIST+11, QEXIST+12, QEXIST+13, PRINT+6~, PRINT+9, PRINT+10, PRINT+11, FEXIST+2~, FEXIST+3 , FEXIST+4, FDELETE+1~, FDELETE+2, FDELETE+3, DEQUEUE+1~*, DEQUEUE+2, DEQUEUE+3
PASS	VPRINT+2~, VPRINT+10*, VPRINT+13
>> POP	OPEN+5, OPEN+19, NEWJOB+11, NEWJOB+15
PQ	QEXIST+8~, QEXIST+9, QEXIST+10, QEXIST+12, QEXIST+13, NEWJOB+10~, NEWJOB+14, NEWJOB+15, NEWJOB+17, GETPQ+7~ , GETPQ+10, GETPQ+11, GETPQ+14, GETPQ+15, GETPQ+16*, GETPQ+18
Q	VQEXIST~, VQEXIST+4, LQEXIST~, LQEXIST+3, LPRINT~, LPRINT+3, VPRINT~, VPRINT+4, VPRINT+13
QUEUE	DEQUEUE~, DEQUEUE+2, DEQUEUE+3, VDEQUEUE~, VDEQUEUE+1, LDEQUEUE~, LDEQUEUE+2
REPLACE	REPLACE+1~, REPLACE+3
REPLACE(	REPLACE+2*
RESULT	LPRINT+1~, LPRINT+7, LPRINT+8, LPRINT+12
RESULTS	LQEXIST+1~, LQEXIST+4*, LQEXIST+5
RET	VQEXIST+3~, VQEXIST+7, VQEXIST+9, LQEXIST+1~, LQEXIST+5, LQEXIST+7, LPRINT+1~, LPRINT+2, LPRINT+11, LPRINT+14 , VPRINT+2~, VPRINT+3, STOPPED+1~, STOPPED+2, STOPPED+3, VFEXIST+1~, VFEXIST+5*, VFEXIST+7
STATUS	STATUS~, STATUS+12, STATUS+14, STATUS+15, STATUS+16, STATUS+18, CLOSE+2~, CLOSE+4, CLOSE+7, CLOSE+9 , CLOSE+10, CLOSE+11, PURGE+2~, PURGE+16, PURGE+19, PURGE+20, PURGE+30, PURGE+31, PURGE+33, PURGE+34 , PURGE+36, PURGE+44*, PURGE+45, PURGE+46, PURGE+48
STRING	REPLACE~, REPLACE+3
SUB1	REPLACE~, REPLACE+2
SUB2	REPLACE~, REPLACE+2
T1	PURGE+2~, PURGE+7*, PURGE+19
T2	PURGE+2~, PURGE+8*, PURGE+19, PURGE+33
T3	PURGE+2~, PURGE+9*, PURGE+45
TIME	PURGE+2~, PURGE+19, PURGE+20, PURGE+32, PURGE+33, PURGE+34, PURGE+36, PURGE+45, PURGE+46, PURGE+48
Y	UCI+1~, UCI+3
>> ZTREQ	PURGE+4*

Customize PDF page

Package: Kernel