Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
CMOP 2 PSXARC1  PSXARPT  

Entry Points

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

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ACK LBL, L1
L1 L1+6
L2 ELOT+1
LBL COMM+1

Local Variables

Legend:

>> 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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All