Routine: VENPCCP

Package	Total	Call Graph
PCC New Encounter Form	4	$$OTCP^VENPCCP ^VENPCCP1 (MERGFAIL,REG)^VENPCCP2 ($$CFG,$$MRP,$$OS,$$VEN)^VENPCCU
Kernel	1	CALL^%ZISTCP

Package

Total

Call Graph

PCC New Encounter Form

$$OTCP^VENPCCP ^VENPCCP1 (MERGFAIL,REG)^VENPCCP2 ($$CFG,$$MRP,$$OS,$$VEN)^VENPCCU

Kernel

CALL^%ZISTCP

Package	Total	Caller Graph
PCC New Encounter Form	21	VENPCC VENPCC1 VENPCC10 VENPCC1E VENPCC2 VENPCC25 VENPCC2A VENPCCA VENPCCK VENPCCKB VENPCCM1 VENPCCM2 VENPCCMC VENPCCME VENPCCMH VENPCCMX VENPCCP VENPCCP1 VENPCCP2 VENPCCP3 VENPCCU

Package

Total

Caller Graph

PCC New Encounter Form

VENPCC  VENPCC1  VENPCC10  VENPCC1E  VENPCC2  VENPCC25  VENPCC2A  VENPCCA
VENPCCK  VENPCCKB  VENPCCM1  VENPCCM2  VENPCCMC  VENPCCME  VENPCCMH  VENPCCMX
VENPCCP  VENPCCP1  VENPCCP2  VENPCCP3  VENPCCU

Entry Points

External References

Name	Field # of Occurrence
CALL^%ZISTCP	OTCP+2
$$OTCP^VENPCCP	TRY
^VENPCCP1	TASK+3
MERGFAIL^VENPCCP2	MERGFAIL
REG^VENPCCP2	CHK+1, TRY+1, TRY+2, NOTOPEN+2, NOTOPEN+3, NOTOPEN+4, LOOPFAIL+2, LOOPFAIL+3
$$CFG^VENPCCU	CTCP+2, KILLTASK+5
$$MRP^VENPCCU	VAR+38, MRPFLAG
$$OS^VENPCCU	FIRST+2, DEL+1, DEL+3, COUNT+3, FIND+3, HOLD+6
$$VEN^VENPCCU	CHK+5, OPN+2, FIRST+1, DEL+1, DEL+2, COUNT+2, FIND+2, OTCP+2, CTCP+1, HOLD+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ("START"_U_CKSUM) Line Location: START+0
Function Call: WRITE	Prompt: ! Condition for execution: $G(CACHE) Line Location: START+0
Function Call: WRITE	Prompt: REC Line Location: LOOP+4
Function Call: WRITE	Prompt: ! Condition for execution: CACHE Line Location: LOOP+4
Function Call: READ	Timeout: 60 Variable: ACK Line Location: LOOP+5
Function Call: WRITE	Prompt: "STOP" Line Location: MERGE+1
Function Call: WRITE	Prompt: ! Condition for execution: CACHE Line Location: MERGE+1
Function Call: READ	Timeout: 60 Variable: ACK Line Location: MERGE+2
Function Call: READ	Timeout: %="""" Variable: % Q Line Location: FIRST+2
Function Call: READ	Timeout: '$L(X) Variable: X Q Line Location: COUNT+3
Function Call: READ	Timeout: '$L(X) Variable: X Q Line Location: FIND+3

Name	Line Occurrences (* Changed, ! Killed)
^TMP("VEN TASK"	TASK+1, TASK+4!, OPN1+8, KILLTASK+3, KILLTASK+4!
^VEN(7.4 - [#19707.4]	VAR+37, VAR+38, PGIEN+1, MRPFLAG
^VEN(7.41 - [#19707.41]	VAR+28, DEFEF+1
^VEN(7.5 - [#19707.5]	UNIX+2, CTCP+2, KILLTASK+5

Label References

Name	Line Occurrences
$$FIND	HOLD+3
$$OPN	UNIX+5
$$UNIX	FIRST+2, COUNT+3, FIND+3
COUNT1	COUNT1+3
CTCP	NOTOPEN, LOOPFAIL+1, CLOSESVS
DEL	UNIX+6, HOLD+5, HOLD+6
EVAR	JUMP25
FIND1	FIND1+3
FUNC	FIRST+5, DEL+6, COUNT+6, COUNT1, FIND+6, FUNC+7, FUNC+8, FUNC+9
KILLTASK	TASK+2, TASK+4
LOOP	START+2
N1	NOTOPEN+3
NOTOPEN	START+4
OPN1	OPN1+10
START	START+4
TRY	TRY+2, N1+1, RETRY
UCMD	DEL+3, UNIX+4, HOLD+6
VAR	EVAR
VARS	VAR+2

Name	Field # of Occurrence
^(	VAR+28, DEFEF+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHK+2~, SPLIT, SPLIT+1, VAR+3~, VAR+13, VAR+14, VAR+15, VAR+16, VAR+17, VAR+22* , VAR+23, VAR+24, VAR+26, VAR+28, VAR+33, VAR+34, VAR+35, VAR+37, VARS+1~, FMVARS , FMVARS+2, DEFEF, DEFEF+1, PGIEN, PGIEN+1, DEL+4~, FUNC+1~, FUNC+2*, FUNC+3, FUNC+4 , FUNC+5, HOLD+1~
ACK	CHK+2~, START!, START+1, START+2, START+4, NOTOPEN+2, NOTOPEN+3, NOTOPEN+4, LOOP+4!, LOOP+5 , LOOP+6, LOOP+7, LOOP+8, MERGE+1!, MERGE+2, SUCCESS, RETRY, MERGFAIL
ACT	FUNC~, FUNC+3, FUNC+4, FUNC+5, FUNC+6
BLANK	CHK+3~, ADDBLANK, SPLIT+1
BUFF	CHK+3~, CHK+5*, SPLIT, SPLIT+1
CACHE	CHK+3~, CHK+5, START, LOOP+4, MERGE+1, OPN+1~, OPN+2, OPN1, OPN1+1
>> CFIGIEN	UNIX+2
CKSUM	CHK+3~, ADDBLANK, START, VAR+5, VAR+7*
CMD	UCMD~, UCMD+1, UNIX+1~, UNIX+3, UNIX+4, HOLD+1~, HOLD+5, HOLD+6*
CNT	VAR+3~, VAR+5, VAR+6, VAR+7, VAR+8, VAR+9, COUNT+1~, COUNT+2, COUNT+4~, COUNT+8* , COUNT1+1, COUNT1+2*
>> DEFEF	VAR+25, VAR+28, DEFEF, DEFEF+1
DEV	OPN+1~, OPN1+2*
>> DFN	VAR+15, FMVARS+2
ECNT	CHK+3~, CHK+4, RETRY, RETRY+1
ELIG	CHK+2~
ERR	CHK+2~
EX	OPN~, UNIX~, UNIX+5
F	OPN+1~, OPN+2, OPN1+2, DEL~, DEL+1, DEL+2, DEL+3, DEL+5, HOLD+1~, HOLD+3 , HOLD+4, HOLD+5, HOLD+6
FILE	OPN~, OPN+2, COUNT+1~, FIND+1~, UNIX+1~, UNIX+3*, UNIX+5, UNIX+6, HOLD~, HOLD+2
I	CHK+2~, SPLIT, SPLIT+1
IO	OTCP+1~
IOF	OTCP+1~
IOST	OTCP+1~
IOT	OTCP+1~
IP	SEND~, CHK, CHK+6, TRY, TRY+1, TRY+2, N1, N1+1, RETRY+2, OTCP~ , OTCP+2, OTCP+3
IPA	SEND~, CHK+6*, TRY+1, TRY+2, N1, N1+1, RETRY+2
LASTPCE	CHK+3~, SPLIT*, SPLIT+1
LEN	CHK+2~
M	HOLD+1~, HOLD+3*
MAXPCE	CHK+3~, SPLIT+1, VAR+5, VAR+8*
>> MRPFLAG	MERGFAIL, VAR+36, VAR+38, PGIEN, MRPFLAG
>> MSG	MERGE, SUCCESS, RETRY+1
N	CHK+2~, ADDBLANK, HOLD+1~, HOLD+2, HOLD+3
OK	CHK+2~
PATH	OPN~, OPN+2, FIRST~, FIRST+1, FIRST+2, FIRST+4, DEL~, DEL+1, DEL+2, DEL+3 , DEL+5, COUNT~, COUNT+3, COUNT+5, FIND~, FIND+3, FIND+5, UNIX~, UNIX+2, FUNC+8 , FUNC+9, HOLD~, HOLD+3, HOLD+4, HOLD+5, HOLD+6
PATH2	UNIX+1~, UNIX+2*, UNIX+3, UNIX+5, UNIX+6
PATHX	UNIX+1~, UNIX+2*, UNIX+3
PCE	CHK+2~, LOOP, LOOP+2, LOOP+3
PF	FIRST+3~, FIRST+4, DEL+4~, DEL+5, COUNT+4~, COUNT+5, FIND+4~, FIND+5, FUNC+5, FUNC+8* , FUNC+9*
>> PGIEN	MERGFAIL, VAR+36, VAR+37, VAR+38, PGIEN, PGIEN+1, MRPFLAG
POP	TRY, TRY+1, TRY+2, OPN+1~, OPN+2, OPN1+1, OPN1+6, UNIX+5, OTCP+1~, OTCP+2 , OTCP+3, OTCP+4
R	HOLD+1~, HOLD+4*
>> REC	CHK, ADDBLANK, SPLIT, LOOP+3, LOOP+4
>> REC(	SPLIT, SPLIT+1, LOOP+2, LOOP+3, VAR+6, VAR+7, VAR+9
>> REC(1	FMVARS, DEFEF, PGIEN
RESULT	FIRST+1, FIRST+2, COUNT+3~, FIND+3~, UNIX+1~, UNIX+2, UNIX+7
RSTG	CHK+2~
RW	OPN~, OPN1+2*
SEX	CHK+2~
SOCKET	SEND~, CHK, TRY, OTCP~, OTCP+2, OTCP+3, CTCP+2~*, CTCP+3
SSN	CHK+2~
STG	VAR+3~, VAR+9, VAR+12, VAR+13, VAR+21, VAR+22, VAR+32, VAR+33, HOLD+1~, HOLD+4 , HOLD+5, HOLD+6
STOP	CHK+2~, CHK+3~, LOOP!, LOOP+2, LOOP+6, LOOP+8, LOOPFAIL, LOOPFAIL+2
>> SWAP	CHK+6, TRY+1, TRY+2, N1, N1+1
TARGET	FIND~, FIND+2, FIND+5, FIND+8, FIND1+2
>> TMP	TRY+2, START+4, START+8, START+9, NOTOPEN+1, LOOP+1, MERGE, SUCCESS, RETRY+1
TRY	CHK+3~, TRY+3, START+4, START+5, START+6, START+9, OPN+1~, OPN+2, OPN1+9
U	ADDBLANK, START, VAR+13, VAR+15, VAR+17, VAR+23, VAR+24, VAR+28, VAR+34, VAR+35 , VAR+38, FMVARS, FMVARS+2, DEFEF, DEFEF+1, PGIEN, MRPFLAG, FIRST+6, FIND+8, FIND1+2 , UCMD+2, CTCP+2, FUNC+8, FUNC+9
VCN	CHK+2~
VD	VAR+3~, VAR+4, VAR+19, VAR+25
VE	VAR+3~, VAR+4, VAR+10, VAR+15
>> VENDEV	VAR+15, FMVARS+2
>> VER25	JUMP25, VAR+2
>> VISIT	VAR+15, FMVARS+2
VP	VAR+3~, VAR+4, VAR+30, VAR+36
X	VAR+3~, VAR+10, VAR+11, VAR+19, VAR+20, VAR+30, VAR+31, VARS+1~, FIRST+3~, FIRST+6 , DEL+4~, COUNT+3~, COUNT+7, COUNT1+1, FIND+3~, FIND+7, FIND+8, FIND1+1, FIND1+2, FUNC+7 , FUNC+8, FUNC+9, HOLD+1~, KILLTASK+1~, KILLTASK+2, KILLTASK+3*, KILLTASK+4
Y	VAR+3~, VAR+11, VAR+12, VAR+13, VAR+20, VAR+21, VAR+22, VAR+31, VAR+32, VAR+33 , FUNC+1~, FUNC+8, FUNC+9*
Z	VAR+3~, VAR+27, VAR+28, VARS+1~, FMVARS+1, FMVARS+2, DEFEF, DEFEF+1*

Name	Comments	DBIA/ICR reference
UNIX(PATH,EX)	; EP-EXAMINE A UNIX DIRECTORY
FMVARS
VARS	; EP-OLD WAY OF GETTING ENVIRONMENTAL VARS TO POPULATE ERROR MSG FILE
OTCP(IP,SOCKET)	; EP-OPEN TCP
ADDBLANK
RETRY
JUMP25
OPN(PATH,FILE,RW,EX)	; EP-CLEAN HFS OPEN, USE, EXECUTE, CLOSE
OPN1
LOOPFAIL
TASK	; EP - PRINT DEAMON ; THERE SHOULD ONLY BE 1 PRINT DEAMON PROCESS RUNNING AT A TIME
FUNC(ACT)	; EP-MSM/NT FUNCTIONS
MRPFLAG
PGIEN
DEFEF
COUNT1
NOTOPEN
SEND(SOCKET,IP,IPA)	; EP - FOR SENDING A RECORD TO THE PRINT SERVICE ; SEND(SOCKET,IP,IPA,PGIEN,MRPFLAG) ; EP FOR SENDING A RECORD TO THE PRINT SERVICE ; REC MUST EXIST AS AN ARRAY (VER 2.5) OR A LOCAL VARIABLE (PREVIOUS VERSIONS) ; IP IS THE TCP/IP ADDRESS. IPA IS THE ALTERNATE IP ADDRESS (IPA IS OPTIONAL) ; SOCKET IS THE TCP SOCKET NUMBER ON THIS MACHINE ; REC IS THE RECORD ; THE RECORD MUST BE '^' DELIMITED. FIRST PIECE: HEADER NAME/MNEMONIC. SECOND PIECE: TEMPLATE NAME/MNEMONIC. THIRD PIECE: PRINTER DESTINATION. FOUTH PIECE: ENVIRONMANTAL INFO OTHER PIECES: DATA ; THIS FUNCTION RETURNS '1' IF THE TRANSMISSION WAS SUCCESSFUL OR AN ERROR CODE IF IT WAS UNSUCCESSFUL ; UPDATED TO SUPPERT THE VER 2.5 PRINT SERVICE ;
FIND1
MERGFAIL
SUCCESS
EVAR
CHK
TRY
MERGE
COUNT(PATH)	; EP-COUNT FILES WAITING TO BE PROCESSED
SPLIT
HOLD(FILE,PATH)	; EP-IF TRANSMISSION FAILS, PUT THE FILE SET AT THE BACK OF THE LINE
VAR	; EP-GET MISC VARS REQUIRED FOR ERROR PROCESSING ; GET ENVIRONMENTAL VARS: VISIT, DUZ, DUZ(2), DFN, DUZ(0), VENDEV, DEFEF, MRPFLG
N1
FIRST(PATH)	; EP-FIRST FILE IN THE PATH
DEL(PATH,F)	; EP-FROM VENPCC2A - DELETE A FILE FROM THE PRINT QUEUE
START
CTCP	; EP-CLOSE TCP
CLOSESVS
FIND(PATH,TARGET)	;EP-RETURN A '1' IF A FILE EXISTS
KT
KILLTASK	; EP - DEFINITIVE WAY TO STOP ALL INSTANCES OF THE PRINT DEAMON
UCMD(CMD)	;EP-UNIX COMMANDS
LOOP

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 21

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: