Routine: PSXARC2

Package	Total	Call Graph
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
CMOP	2	PSXARC1 PSXARPT

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	PSXARC2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @PSXPIOF Line Location: PSXARC2+3
Function Call: WRITE	Prompt: ?10,"CMOP MASTER DATABASE ARCHIVE",?45,Y Line Location: PSXARC2+4
Function Call: WRITE	Prompt: !,"ARCHIVE REPORT FOR TRANSMISSION # "_$P(REC,"^") Line Location: PSXARC2+6
Function Call: WRITE	Prompt: !,?8," by ",$P($G(^VA(200,DUZ,0)),"^")_" on "_$P(Y,"@"),!! Line Location: PSXARC2+7
Function Call: WRITE	Prompt: !,$J("Status: ",15),$P(REC,"^",2) Line Location: PSXARC2+9
Function Call: WRITE	Prompt: ?40,$J("Trans D/T: ",15),$P(REC,"^",3) Line Location: PSXARC2+10
Function Call: WRITE	Prompt: !,$J("Received D/T: ",15),$P(REC,"^",4) Line Location: PSXARC2+11
Function Call: WRITE	Prompt: ?40,$J("Closed D/T: ",15),$P(REC,"^",5) Line Location: PSXARC2+12
Function Call: WRITE	Prompt: !,$J("Processed D/T: ",15),$P(REC,"^",6) Line Location: PSXARC2+13
Function Call: WRITE	Prompt: ?40,$J("Start Seq #: ",15),$P(REC,"^",7) Line Location: PSXARC2+14
Function Call: WRITE	Prompt: !,$J("End Seq #: ",15),$P(REC,"^",8) Line Location: PSXARC2+15
Function Call: WRITE	Prompt: ?40,$J("Total Orders: ",15),$P(REC,"^",9) Line Location: PSXARC2+16
Function Call: WRITE	Prompt: !,$J("Total Rx's: ",15),$P(REC,"^",10) Line Location: PSXARC2+17
Function Call: WRITE	Prompt: ?40,$J("Purge Status: ",15),$P(REC,"^",11) Line Location: PSXARC2+18
Function Call: WRITE	Prompt: !,$J("Retrans: ",15),$P(REC,"^",12) Line Location: PSXARC2+19
Function Call: WRITE	Prompt: ?40,$J("Orig Trans #: ",15),$P(REC,"^",13) Line Location: PSXARC2+20
Function Call: WRITE	Prompt: !,$J("Division: ",15),$P(REC,"^",14) Line Location: PSXARC2+21
Function Call: WRITE	Prompt: ?40,$J("Site Name: ",15),$P(REC,"^",15) Line Location: PSXARC2+22
Function Call: WRITE	Prompt: !,$J("Sender: ",15),$P(REC,"^",16) Line Location: PSXARC2+23
Function Call: WRITE	Prompt: !!,"Comments: " Line Location: COMM+2
Function Call: WRITE	Prompt: !,$P(COM(ZX),"\|",2) Line Location: COMM+3
Function Call: WRITE	Prompt: !!,"LABEL LOG: " Line Location: LBL+1
Function Call: WRITE	Prompt: !,"DATE PRINTED",?30,"PRINTED BY" Line Location: LBL+2
Function Call: WRITE	Prompt: !,ZQ Line Location: LBL+3
Function Call: WRITE	Prompt: !!,"Acknowledgement Text: " Line Location: ACK+1
Function Call: WRITE	Prompt: !,$P(ACK,"\|",2) Line Location: ACK+2
Function Call: WRITE	Prompt: @PSXPIOF Line Location: RX+2
Function Call: WRITE	Prompt: !!,"Rx #",?17,": ",$P(REC1,"^"),?35,"Fill #",?48,": ",$P(REC1,"^",12) Line Location: RX+3
Function Call: WRITE	Prompt: ?60,"Qty: ",$P(REC1,"^",13) Line Location: RX+4
Function Call: WRITE	Prompt: !,"Employee Name",?17,": ",$P(REC1,"^",6) Line Location: RX+5
Function Call: WRITE	Prompt: !,"Price/Disp Unit",?17,": ",$P(REC1,"^",11) Line Location: RX+6
Function Call: WRITE	Prompt: ?35,"Drug ID #",?48,": ",$P(REC1,"^",4) Line Location: RX+7
Function Call: WRITE	Prompt: !,"Release Status",?17,": ",$P(REC1,"^",2) Line Location: RX+8
Function Call: WRITE	Prompt: ?35,"Release Type",?48,": ",$P(REC2,"^") Line Location: RX+9
Function Call: WRITE	Prompt: !,"Rx Status",?17,": ",$P(REC1,"^",10) Line Location: RX+10
Function Call: WRITE	Prompt: ?35,"NDC",?48,": ",$P(REC1,"^",5) Line Location: RX+11
Function Call: WRITE	Prompt: !,"Carrier",?17,": ",$P(REC2,"^",5) Line Location: RX+12
Function Call: WRITE	Prompt: ?35,"Package ID #",?48,": ",$P(REC2,"^",6) Line Location: RX+13
Function Call: WRITE	Prompt: !,"Date Shipped",?17,": ",$P(REC2,"^",4) Line Location: RX+14
Function Call: WRITE	Prompt: !,"Processed D/T",?17,": ",$P(REC1,"^",7) Line Location: RX+15
Function Call: WRITE	Prompt: ?42,"Completed D/T: ",$P(REC1,"^",9) Line Location: RX+16
Function Call: WRITE	Prompt: !,"Remote Error Cond",?17,": ",$P(REC2,"^",2) Line Location: RX+17
Function Call: WRITE	Prompt: !,"Cancel Reason",?17,": ",$P(REC1,"^",3) Line Location: RX+18
Function Call: WRITE	Prompt: !,ZQ1,! Line Location: RX+19
Function Call: WRITE	Prompt: !,ZQ1,! Line Location: L2+1
Function Call: WRITE	Prompt: !,"LOT #: ",$G(ZL),?35,"Expiration Date: ",$G(ZDT) Line Location: L2+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSXARC2+2
>> ACK	ACK, ACK+2
>> COM	COMM+1
>> COM(	COMM+3
DUZ	PSXARC2+7
>> LBL	LBL
>> LBL(	L1, L1+1*, L1+2, L1+3, L1+6
>> LOT	RX+19, L2
>> PSXP	PSXARC2+3, RX+1, LOT
>> PSXPIOF	PSXARC2+3, RX+2
>> PSXPIOST	RX+2
>> REC	PSXARC2+5*, PSXARC2+6, PSXARC2+9, PSXARC2+10, PSXARC2+11, PSXARC2+12, PSXARC2+13, PSXARC2+14, PSXARC2+15, PSXARC2+16 , PSXARC2+17, PSXARC2+18, PSXARC2+19, PSXARC2+20, PSXARC2+21, PSXARC2+22, PSXARC2+23
>> REC1	RX+3, RX+4, RX+5, RX+6, RX+7, RX+8, RX+10, RX+11, RX+15, RX+16 , RX+18
>> REC2	RX+9, RX+12, RX+13, RX+14, RX+17
>> Y	PSXARC2+2*, PSXARC2+4, PSXARC2+7
ZDT	L1+3, L1+4, L1+5!, L2, L2+1!, L2+2, ELOT!
ZL	L2*, L2+1!, L2+2, ELOT!
ZNAME	L1+3*, L1+4, L1+5!
>> ZPC	LOT, L2, ELOT
>> ZQ	COMM*, LBL+3
>> ZQ1	COMM*, RX+19, L2+1
ZX	COMM+3, LBL+4, L1*, L1+1, L1+2, L1+3, L1+6, L1+7!
ZXX	L1+2*, L1+3, L1+7!

Customize PDF page

Package: CMOP

Routine: PSXARC2

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ELOT
ACK
RX	;Print 552.4 data
COMM
LOT
L1
L2
LBL

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSXARC2+2
^VA(200 - [#200]	PSXARC2+7