Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSOARCR2

Package: Outpatient Pharmacy

Routine: PSOARCR2


Information

PSOARCR2 ;BHAM ISC/LGH - rx retrieve ; 07/07/92

Source Information

Source file <PSOARCR2.m>

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOARCF2  PSOARCR1  

Entry Points

Name Comments DBIA/ICR reference
REFILL1
PARTIAL
LABEL1
CMOPB
HEAD ;
LABEL
ACTI
ACT
RXP ;
REFILL
CMOPA
CMOP2
CMOP1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Rx: ",$P(RX(0),"^"),?14,"DRUG: ",?20,$P(RX(0),"^",6),?65,"TRADE NAME: ",$P(RX(3),"^",12)," ",?96,"QTY: ",$P(RX(0),"^",7)," ",$P(RX(0),"^",8)," DAY SUPPLY"
  • Line Location: RXP+1
Function Call: WRITE
  • Prompt: !?7,"SIG: ",$P(RX(0),"^",10),!?4,"LATEST: ",$P(RX(3),"^"),?37,"# OF REFILLS: ",$P(RX(0),"^",9)," REMAINING: ",$P(RX(3),"^",11),?70,"PROVIDER: ",$P(RX(0),"^",4)
  • Line Location: RXP+2
Function Call: WRITE
  • Prompt: !?4,"ISSUED: ",$P(RX(0),"^",13),?43,"CLINIC: ",$P(RX(0),"^",5),?71,"DIVISION: ",$P(RX(2),"^",9),!?4,"LOGGED: ",$P(RX(2),"^"),?42,"ROUTING: ",$P(RX(0),"^",11),?69,"CLERK CODE: ",$P(RX(0),"^",16)
  • Line Location: RXP+3
Function Call: WRITE
  • Prompt: !?3,"EXPIRES: ",$P(RX(2),"^",11),?46,"CAP: ",$P(RX(3),"^",10),?73,"STATUS: ",$P(RX(0),"^",15)
  • Line Location: RXP+4
Function Call: WRITE
  • Prompt: !,?4,"FILLED: ",$P(RX(2),"^",2),?24,"PHARMACIST: ",$P(RX(2),"^",3),?59,"VERIFYING PHARMACIST: ",$P(RX(2),"^",10),?103,"LOT #: ",$P(RX(2),"^",4)
  • Line Location: RXP+5
Function Call: WRITE
  • Prompt: !,?3," NEXT: ",$P(RX(3),"^",2),?43,"COPAY TYPE: ",$P($G(RX("IB")),"^"),?73,"COPAY TRANSACTION #: ",$P($G(RX("IB")),"^",2)
  • Line Location: RXP+6
Function Call: WRITE
  • Prompt: !?3,"REMARKS: ",$P(RX(3),"^",7)
  • Line Location: RXP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: !,$P(A,",",2),?10,$P(RX(A),"^"),?25,$P(RX(A),"^",4),?35,$P(RX(A),"^",2),?45,$P(RX(A),"^",6),?50,$P(RX(A),"^",5),?70,$P(RX(A),"^",9)
  • Line Location: REFILL1+0
Function Call: WRITE
  • Prompt: !?4,"RETURNED TO STOCK: "_$P(RX(A),"^",16)
  • Line Location: REFILL1+1
Function Call: WRITE
  • Prompt: !?4,"RELEASED: "_$P(RX(A),"^",18)
  • Line Location: REFILL1+2
Function Call: WRITE
  • Prompt: " COPAY BILLING #: ",$P(RX(A),"^",20)
  • Line Location: REFILL1+3
Function Call: WRITE
  • Prompt: !?5,"REMARKS: ",$P(RX(A),"^",3)
  • Line Location: REFILL1+4
Function Call: WRITE
  • Prompt: !,$P(A,",",2),?3,$P(RX(A),"^")_"-"_$P(RX(A),"^",2)
  • Line Location: CMOP1+0
Function Call: WRITE
  • Prompt: ?22,$J($P(RX(A),"^",3),3),?30,$P(RX(A),"^",4)
  • Line Location: CMOP1+1
Function Call: WRITE
  • Prompt: ?40,$P($G(RX(A)),"^",9),?52,$E($P($G(RX(A)),"^",10),1,20),?74,$E($P($G(RX(A)),"^",11),1,20)
  • Line Location: CMOP1+2
Function Call: WRITE
  • Prompt: ?98,$S($P(RX(A),"^",8)]"":$P(RX(A),"^",8),$P(RX(A),"^",5)]"":"CAN DT/REASON: "_$P(RX(A),"^",5),1:"")
  • Line Location: CMOP1+3
Function Call: WRITE
  • Prompt: !,$P(A,",",2),?3,$J($P(RX(A),"^"),40),?51,$J($P(RX(A),"^",2),10),?71,$J($P(RX(A),"^",3),3)
  • Line Location: CMOP2+0
Function Call: WRITE
  • Prompt: !,$P(A,",",2),?6,$P(RX(A),"^"),?20,REA,?40,REF,?55,$P(RX(A),"^",3),?75,$P(RX(A),"^",5)
  • Line Location: ACTI+1
Function Call: WRITE
  • Prompt: !,$P(A,",",2),?6,$P(RX(A),"^"),?20,REF,?33,$P(RX(A),"^",4),?65,$P(RX(A),"^",3)
  • Line Location: LABEL1+1
Function Call: WRITE
  • Prompt: !!,HEAD_" LOG"
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"#",?10,"FILL DATE",?25,"QTY",?37,"ROUTING",?50,"LOT#",?60,"PHARMACIST",?92,"DIVISION"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"#",?6,"DATE",?20,"REASON",?40,"RX REF",?55,"INITIATOR",?75,"COMMENT"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"#",?6,"DATE",?20,"REFERENCE",?33,"PRINTED BY",?65,"COMMENT"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,"#",?5,"TRANS #",?20,"RX REF",?30,"STATUS",?40,"SHIP DATE",?52,"CARRIER",?76,"PACKAGE ID",?100,"REMARKS"
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,"#",?25,"LOT #",?49,"EXPIRATION DATE",?70,"RX REF"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,"==================================================================================================="
  • Line Location: HEAD+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(52.3 ACTI

Label References

Name Line Occurrences
ACTI ACT
CMOP1 CMOPA
CMOP2 CMOPB
HEAD REFILL, CMOPA, CMOPB, PARTIAL, LABEL, ACT
LABEL1 LABEL
REFILL1 REFILL, PARTIAL

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A REFILL*, CMOPA*, CMOPB*, PARTIAL*, LABEL*, ACT*, ACT+2!, REFILL1, REFILL1+1, REFILL1+2
, REFILL1+3, REFILL1+4, CMOP1, CMOP1+1, CMOP1+2, CMOP1+3, CMOP2, ACTI, ACTI+1, LABEL1
, LABEL1+1, HEAD+2, HEAD+3, HEAD+4, HEAD+5, HEAD+6
HEAD REFILL*, CMOPA*, CMOPB*, PARTIAL*, LABEL*, ACT*, ACT+2!, HEAD+1
REA ACT+2!, ACTI*, ACTI+1
REF ACT+2!, ACTI*, ACTI+1, LABEL1*, LABEL1+1
RX ACT+2!
RX( REFILL, CMOPA, CMOPB, PARTIAL, LABEL, ACT, REFILL1, REFILL1+1, REFILL1+2, REFILL1+3
, REFILL1+4, CMOP1, CMOP1+1, CMOP1+2, CMOP1+3, CMOP2, ACTI, ACTI+1, LABEL1, LABEL1+1
RX("1,1" REFILL
RX("4,1" CMOPA
RX("5,1" CMOPB
RX("A,1" ACT
RX("IB" RXP+6
RX("L,1" LABEL
RX("P,1" PARTIAL
RX(0 RXP+1, RXP+2, RXP+3, RXP+4
RX(2 RXP+3, RXP+4, RXP+5
RX(3 RXP+1, RXP+2, RXP+4, RXP+6, RXP+7
STAT ACT+2!, ACTI*
TYPE PARTIAL*, LABEL*, ACT*, ACT+2!
XX ACT+2!, ACTI*, LABEL1*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All