Routine: VENPCCP1

Information

VENPCCP1 ; IHS/OIT/GIS - FACILITY PRINT DEAMON ;

Source Information

Source file <VENPCCP1.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
PCC New Encounter Form	6	SYNC^VENPCCM1 ($$FIND,$$OPN,$$SEND,CTCP,FUNC,UCMD)^VENPCCP DEL^VENPCCP1 (FILE,FILES,REG)^VENPCCP2 CLEAN^VENPCCP3 ($$CFG,$$OS,$$VEN)^VENPCCU
Kernel	1	$$HTFM^XLFDT

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
PCC New Encounter Form	6	VENPCC1E VENPCC2A VENPCCP VENPCCP1 VENPCCP2 VENPCCP3

Entry Points

External References

Name	Field # of Occurrence
SYNC^VENPCCM1	CYCLE+1
$$FIND^VENPCCP	RECYCLE+2
$$OPN^VENPCCP	REC, REC+1
$$SEND^VENPCCP	TRANSMIT
CTCP^VENPCCP	TRAP+5
FUNC^VENPCCP	DEL+6
UCMD^VENPCCP	DEL+3
DEL^VENPCCP1	REC+2
FILE^VENPCCP2	TRAP+8
FILES^VENPCCP2	NEXT+5, COUNT+5
REG^VENPCCP2	INIT+3, INIT+9, INIT+11, INIT+12, IP, IP+1, IP+3
CLEAN^VENPCCP3	INC+2
$$CFG^VENPCCU	INIT+3, STOP+4
$$OS^VENPCCU	IP+4, DEL+1, DEL+3
$$VEN^VENPCCU	IP+4, DEL+1, DEL+2
$$HTFM^XLFDT	INIT+5

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: 10 Variable: % Line Location: CHUNK+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	NEW+2, TRAP+1
^TMP("VEN ERROR FLAG"	CLEAN+1!, CLEAN+2!
^TMP("VEN SYNC"	CYCLE+1!
^TMP("VEN TASK"	STOP+2, STOP+3!, STOP+7, STOP+8
^VEN(7.41 - [#19707.41]	EF+4
^VEN(7.5 - [#19707.5]	INC+2, INIT+6, INIT+7, INIT+8, INIT+10, IP, IP+2, STOP+4

Label References

Name	Line Occurrences
$$COUNT	MSG
$$INIT	NEW+4
$$NEXT	FILE+1, BAD
$$STOP	NEW+4, CYCLE, FILE, OPEN, TRANSMIT+1, TRAP+4
CLEAN	GOOD+1
CYCLE	CYCLE+1, FILE+1
DEL	DFILE, NEXT+6
DFILE	REC+3
FILE	RECYCLE, RECYCLE+3
INC	REC+2, BAD
OPEN	BAD, RECYCLE+2

Naked Globals

Name	Field # of Occurrence
^(	EF+4
^(4	CLEAN+1!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEW~, NEW+4, BAL+1, BAL+2, RECYCLE+1, CHUNK+2~, CHUNK+3, CHUNK+4, CHUNK+5, INIT+1~ , INIT+4, INIT+5, IP+4, DEL+4~, TRAP+7
A	NEW~
B	NEW~
CFIGIEN	NEW+1~, INC+2, INIT+3*, INIT+6, INIT+7, INIT+8, INIT+10, IP, IP+2
CNT	NEW~, INC, INC+1, INIT+2
DEFEF	NEW+1~
DEL	NEW+1~, IP+4*
DFN	NEW~
DT	INC+2
DUZ	NEW~
EIEN	EF+2~, EF+3, EF+4, EF+5
>> ERR	TRAP+7*, TRAP+8
ERRSTOP	NEW+2!, STOP+6, TRAP+2, TRAP+3*
F	DEL~, DEL+1, DEL+2, DEL+3, DEL+5
FILE	NEW~, FILE+1, REC, REC+1, REC+2, BAL, BAL+1, MSG+1, BAD, DFILE , RECYCLE, RECYCLE+1, RECYCLE+2, NEXT~, NEXT+1, NEXT+7, NEXT+9, NEXT+10, COUNT+2~, COUNT+3* , COUNT+6*
FIRST	NEW+1~, IP+4*
I	NEW+1~, BAL+1, CHUNK+2~, CHUNK+3, CHUNK+5
IP	NEW~, BAL+2, TRANSMIT, IP, IP+1, IP+2
IPA	NEW~, BAL+2, TRANSMIT, IP+2, IP+3
LASTFILE	NEW~, NEXT+6, NEXT+9*
>> MERR	TRAP+7*
MN	EF~, EF+1, EF+4
MRPFLAG	NEW+1~
MSG	NEW+1~, MSG+1*
NEXT	NEW+1~, IP+4*
PATH	NEW~, FILE+1, REC, REC+1, REC+2, MSG, BAD, DFILE, RECYCLE+2, INIT+8* , INIT+9, NEXT~, NEXT+1, NEXT+5, NEXT+6, COUNT~, COUNT+1, COUNT+5, DEL~, DEL+1 , DEL+2, DEL+3, DEL+5
PF	DEL+4~, DEL+5*
PGIEN	NEW+1~, GOOD+1, CLEAN~, CLEAN+2
POP	NEW~, REC, REC+1, REC+2
REC	NEW~, REC+3, TRANSMIT!
REC(	CHUNK+5*
REC(1	REC+3
RESULT	NEW~, TRANSMIT*, BAD
SOCKET	NEW~, TRANSMIT, INIT+10*, INIT+11, INIT+12
SWAP	NEW~
TMP	NEW+1~, INC+1, MSG+1, INIT+2, NEXT+3~, NEXT+4, NEXT+5, NEXT+6, NEXT+7, NEXT+8 , COUNT+2~, COUNT+4*, COUNT+5, COUNT+6, COUNT+7
TOT	NEW+1~, MSG, MSG+1, COUNT+2~, COUNT+3, COUNT+6*, COUNT+8
TYPE	NEW+1~, RECYCLE+1*, RECYCLE+2
U	INC+2, INIT+2*, INIT+6, INIT+10, IP, IP+2, EF+4, STOP+4
VENDEV	NEW+1~
VENIO	NEW+1~
VER25	NEW~, REC, INIT+6*
VISIT	NEW~
WAIT	NEW+1~
X	NEW+1~, NEW+2, CHUNK+2~, CHUNK+4, EF+2~, EF+4, STOP+1~, STOP+2, STOP+3, DEL+4~ , TRAP+1
Y	NEW+1~, NEW+3*
Z	NEW+1~, TRAP+4*

Name	Comments	DBIA/ICR reference
MSG
BAD
FILE
REC
RECYCLE
NEW
BAL
DFILE
OPEN
ERRQ
CLEAN(PGIEN)	; EP-CANCELS ERROR GLOBALS
CHUNK	; EP - REBUILD THE RECORD IN SMALL CHUNKS THAT WILL FIT THRU THE "OPEN" WINDOW. ; THIS CODE ADDED TO AVOID THE MAXSTG AND STKOVR ERRORS EXPERIENCED UNDER VER 2.2
INIT()	; EP-INITIALIZE VARIABLES AND RETURN '1' IF SUCCESSFUL
STOP()	; EP-EXTERNAL HALT
GOOD	; !!!SUCCESS!!!
IP
COUNT(PATH)	; EP-COUNT THE TEXT FILES IN A DIRECTORY
NEXT(PATH,FILE)	; EP-DISPLAY THE NEXT FILE IN A DIRECTORY, SET LASTFILE
DEL(PATH,F)	; EP-FROM VENPCC2 - DELETE A FILE FROM THE PRINT QUEUE
TRAP	; EP-PRINT DEAMON ERROR TRAP
TRANSMIT
EF(MN)	; EP-GIVEN A TEMPLATE MENEMONIC, RETURN THE TEMLATE IEN
CYCLE
INC

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCP1

Call Graph Total: 7

Caller Graph Total: 6