Routine: PSXARC1

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC FILE^DICN $$EXTERNAL^DILFD $$GET1^DIQ
Kernel	2	^%ZISC $$IEN^XUMF
CMOP	1	RX^PSXARC2

Package	Total	Caller Graph
CMOP	2	PSXARC PSXARPT

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	TAPEHDR+1, MAIN+6
^%ZISC	MAIN+8
FILE^DICN	RX+25
$$EXTERNAL^DILFD	ONE+11, RX+4, RX+7
$$GET1^DIQ	ONE+18, LBL1+2, RX+21
RX^PSXARC2	RX+17
$$IEN^XUMF	ONE+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "$$HDR\|CMOP MASTER ARCHIVE^"_PSXTAPE Line Location: TAPEHDR+0
Function Call: WRITE	Prompt: @PSXIOF,?10,"CMOP MASTER DATABASE ARCHIVE",?45,Y Line Location: TAPEHDR+2
Function Call: WRITE	Prompt: !!,"Recording data on tape # ",PSXTAPE,". Write this number on the tape label!!",!! Line Location: MAIN+1
Function Call: WRITE	Prompt: !!,"Total # of Transmissions Archived: ",$G(BATCT) Line Location: MAIN+3
Function Call: WRITE	Prompt: !,"Total # of Rx's Archived : ",$G(RXCT) Line Location: MAIN+4
Function Call: WRITE	Prompt: !,"Total Bytes Archived : ",$G(T1)+$G(T2) Line Location: MAIN+5
Function Call: WRITE	Prompt: !,"Completed: ",Y," Closing Tape Device..." Line Location: MAIN+7
Function Call: WRITE	Prompt: 552.1 Line Location: ACK+2
Function Call: WRITE	Prompt: REC Line Location: BATCH+0
Function Call: WRITE	Prompt: COM(Z) Line Location: BATCH+1
Function Call: WRITE	Prompt: LBL(Z) Line Location: BATCH+2
Function Call: WRITE	Prompt: ACK Line Location: BATCH+3
Function Call: WRITE	Prompt: @PSXIOF Line Location: HEADING+0
Function Call: WRITE	Prompt: !,"TRANSMISSION #",?20,"TOT ORDERS",?36,"TOT Rx's" Line Location: HEADING+1
Function Call: WRITE	Prompt: !,$P($P(REC,"\|",2),"^"),?20,$J($P($P(REC,"\|",2),"^",9),10),?34,$J($P($P(REC,"\|",2),"^",10),10) Line Location: HEADING+2
Function Call: WRITE	Prompt: "$$RX,"_C1_"\|"_REC1 Line Location: RX+14
Function Call: WRITE	Prompt: "$$ZX,"_C1_"\|"_REC2 Line Location: RX+15
Function Call: WRITE	Prompt: "$$LOT,"_C1_"\|"_LOT Line Location: RX+16
Function Call: WRITE	Prompt: !!,"An error has been encountered in the archive file for transmission number ",$P(^TMP("PSX",$J,ZZZ),"^",3) Line Location: RX+26
Function Call: WRITE	Prompt: !!?5," End of tape detected ",!?5,"After current tape rewinds, mount next tape" Line Location: EOT+0
Function Call: WRITE	Prompt: ^%ZOSF("REW") Line Location: EOT+0
Function Call: READ	Timeout: DTIME Variable: XX Line Location: READ+0
Function Call: WRITE	Prompt: "$$HDR\|CMOP MASTER ARCHIVE^"_PSXTAPE Line Location: HDR+0

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOT"	PSXAT+1
^%ZOSF("REW"	EOT
^DD("DD"	TAPEHDR+1, MAIN+6, LBL1, RX+10
^PSX(552	ONE+16
^PSX(552.1	MAIN+2*, ONE+6, ONE+7, ONE+8, ONE+9, CNODE, CNODE+1, LBL, LBL+2, LBL1 , LBL1+2, LBL1+5, ACK, ACK+1
^PSX(552.4	RX, RX+1, RX+2, RX+9, RX+10, RX+11, RX+20*
^TMP("PSX"	MAIN+2, ONE+5, HEADING+5, RX+24, RX+26

Label References

Name	Line Occurrences
ACK	LBL, LBL+2
BATCH	RX+19
EOT	PSXAT+1
LBL	CNODE
LBL1	LBL1+5
ONE	MAIN+2
PSXAT	ACK+3, RX+13
READ	READ

Naked Globals

Name	Field # of Occurrence
^(	CNODE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TAPEHDR+1!, MAIN+6, MAIN+10!
%MT	MAIN+10!, MAIN+11!
%ZIS	MAIN+11!
ACK	ACK+1*, BATCH+3, RX+27!
>> AGNCY	ONE+16*, ONE+17
BATCT	PSXARC1+3, MAIN+3, MAIN+10!, BATCH+5
C	ONE+20!, RX+18!
C1	MAIN+11!, HEADING+6, RX+14, RX+15, RX+16, RX+18
COM	BATCH+1, RX+27!
COM(	CNODE+1*, BATCH+1
CT	PSXARC1+3*, MAIN+11!
DD	RX+22!, RX+25!
DIC	RX+23*, RX+25!
DIC("DR"	RX+23*
DIC(0	RX+24*
DO	RX+22!, RX+25!
DT	RX+23
DTIME	READ
DUZ	RX+21
I	ONE+6, ONE+7, ONE+8, ONE+9, ONE+20!
I1	MAIN+9!
I21	MAIN+2, MAIN+11!, ONE+5*, ONE+6, ONE+7, ONE+8, ONE+9, CNODE, CNODE+1, LBL , LBL+2, LBL1, LBL1+2, LBL1+5, ACK, ACK+1
I24	MAIN+11!, HEADING+5*, RX, RX+1, RX+2, RX+9, RX+10, RX+11, RX+20
IO(0	TAPEHDR+2, MAIN+1, MAIN+3, MAIN+4, MAIN+5, MAIN+7, HEADING, HEADING+1, HEADING+2, EOT , READ
LBL	BATCH+2, RX+27!
LBL(	LBL+1, LBL1+3, LBL1+4*, BATCH+2
LEN	PSXARC1+3*, MAIN+9!
LN	PSXARC1+3*, MAIN+9!
LOT	RX+11*, RX+16, RX+18!
NAME	LBL1+2, LBL1+3, LBL1+4, HEADING+3!, RX+21, RX+23, RX+25!, RX+27!
NEWTAPE	RX, RX+13, RX+19!, HDR+1*
PAD	PSXARC1+3*, MAIN+11!
PC	ONE+7, ONE+8, ONE+9*, ONE+20!
PG	PSXARC1+3, MAIN+9!, HEADING, HEADING+1*
PSXAM	MAIN+9!
PSXBEE	MAIN+9!
PSXEOT	MAIN+11!, PSXAT+1*
PSXIOF	TAPEHDR+2, MAIN+9!, HEADING
PSXP	MAIN+9!, RX+17
PSXPIOF	MAIN+9!
PSXPIOST	MAIN+9!
PSXT	TAPEHDR, MAIN+9!, BATCH, BATCH+1, BATCH+2, BATCH+3, RX+14, RX+15, RX+16, PSXAT+1 , EOT, HDR
PSXTAPE	TAPEHDR, MAIN+1, MAIN+11!, RX+23, READ+1*, HDR
PSXTBS	MAIN+9!
PSXTIOF	MAIN+10!
PSXTPAR	MAIN+10!
REC	ONE+6, ONE+7, ONE+8, ONE+9, ONE+11, ONE+16, ONE+18, ONE+19*, BATCH, HEADING+2 , RX+27!
REC1	RX+1, RX+4, RX+14, RX+15, RX+18!
REC2	RX+2, RX+7, RX+15, RX+18!
RXCT	PSXARC1+3, MAIN+4, MAIN+10!, RX+14
T1	MAIN+5, MAIN+10!, BATCH, BATCH+1, BATCH+2, BATCH+3
T2	MAIN+5, MAIN+10!, RX+14, RX+15, RX+16*
X	PSXARC1+3, MAIN+11!, ONE+15~, ONE+16, ONE+17, ONE+18!, RX+24, RX+25!
XX	MAIN+11!, READ*
Y	TAPEHDR+1, TAPEHDR+2, MAIN+6, MAIN+7, MAIN+10!, MAIN+11!, ONE+11, ONE+15~, ONE+18!, ONE+20! , LBL1, LBL1+3, LBL1+4, HEADING+3!, RX+4, RX+7, RX+10*, RX+11, RX+18!, RX+26 , RX+27!, PSXAT+1
Z	MAIN+10!, MAIN+11!, ONE+10, ONE+11, ONE+20!, CNODE+1, LBL+2, LBL1, LBL1+2, LBL1+5 , BATCH+1, BATCH+2, HEADING+3!, RX*, RX+1, RX+2, RX+9, RX+10, RX+11, RX+19! , RX+27!
Z1	MAIN+10!, ONE+10, ONE+11, LBL+1, LBL1+3, LBL1+4, HEADING+3!, RX+3, RX+4, RX+6* , RX+7, RX+18!, RX+27!
ZLOT	RX+9*, RX+10, RX+11, RX+18!
ZPC	MAIN+10!
ZQ	MAIN+10!
ZQ1	MAIN+10!
ZZ	RX+3, RX+4, RX+6, RX+7, RX+18!
ZZZ	MAIN+2*, MAIN+10!, ONE+5, HEADING+5, RX+24, RX+26

Customize PDF page

Package: CMOP

Routine: PSXARC1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HDR
PSXAT	;CHECK FOR EOT RETURN PSXEOT=1 IF EOT FOUND
ACK
RX
HEADING
BATCH
LBL1
TAPEHDR
ONE	;GET DATA FROM 552.1
EOT
READ
MAIN	;
LBL
CNODE
NEWTAPE