Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSXARC2

Package: CMOP

Routine: PSXARC2


Information

PSXARC2 ;BIR/HTW-Rx Order Entry Screen for CMOP [ 04/08/97 2:06 PM ]

Source Information

Source file <PSXARC2.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls