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: PSOARCRR

Package: Outpatient Pharmacy

Routine: PSOARCRR


Information

PSOARCRR ;BHAM ISC/LGH - Rx retrieve ; 07/07/92

Source Information

Source file <PSOARCRR.m>

Entry Points

Name Comments DBIA/ICR reference
R
PAR
END
Q
PR ;patient read
RXR
DPR
MA
RXP
ACT
ACT1
REM
PSOAT ;check for eot, return psoaeot=1 if found
EOT
READ
HEAD
H1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @%MT("REW")
  • Line Location: PSOARCRR+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAR+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PR+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PR+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PR+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PR+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RXR+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RXR+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RXR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RXR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RXR+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RXR+3
Function Call: WRITE
  • Prompt: @PSOACPF,!!,NM,?55,"ID#: ",$P(T(1),"^",2),?75,"ELIG: ",$P(T(1),"^",3),!,$P(T(1),"^",4),?55,"DOB: ",$P(T(1),"^",5),?75,"PHONE: ",$P(T(1),"^",6)
  • Line Location: DPR+0
Function Call: WRITE
  • Prompt: !,$P(T(1),"^",7),!,$P(T(1),"^",8)," ",$P(T(1),"^",9)
  • Line Location: DPR+1
Function Call: WRITE
  • Prompt: !,"CANNOT USE SAFETY CAPS."
  • Line Location: DPR+2
Function Call: WRITE
  • Prompt: ?40,"DIALYSIS PATIENT"
  • Line Location: DPR+2
Function Call: WRITE
  • Prompt: !,$P(T(2),"^")
  • Line Location: DPR+3
Function Call: WRITE
  • Prompt: !?15
  • Condition for execution: ($Y+$L(T(2,I))+1)>PSOACPM
  • Line Location: DPR+5
Function Call: WRITE
  • Prompt: T(2,I),","
  • Line Location: DPR+5
Function Call: WRITE
  • Prompt: !?15
  • Condition for execution: ($Y+$L(T(3,I))+1)>PSOACPM
  • Line Location: MA+1
Function Call: WRITE
  • Prompt: T(3,I),","
  • Line Location: MA+1
Function Call: WRITE
  • Prompt: !?15
  • Condition for execution: ($Y+$L(T(4,I))+1)>PSOACPM
  • Line Location: MA+2
Function Call: WRITE
  • Prompt: T(4,I),","
  • Line Location: MA+2
Function Call: WRITE
  • Prompt: !?15
  • Condition for execution: ($Y+$L(T(5,I))+1)>PSOACPM
  • Line Location: MA+3
Function Call: WRITE
  • Prompt: T(5,I),","
  • Line Location: MA+3
Function Call: WRITE
  • Prompt: !!,"RX: ",$P(T(6),"^"),?20,$P(T(6),"^",2),?65,"TRADE NAME: ",$P(T(6),"^",3),?96,"QTY: ",$P(T(6),"^",4)," ",$P(T(6),"^",5)," DAY SUPPLY"
  • Line Location: RXP+0
Function Call: WRITE
  • Prompt: !?7,"SIG: ",T(10),!?4,"LATEST: ",$P(T(6),"^",7),?37,"# OF REFILLS: ",$P(T(6),"^",8)," REMAINING: ",$P(T(6),"^",9),?70,"PROVIDER:",$P(T(6),"^",10)
  • Line Location: RXP+1
Function Call: WRITE
  • Prompt: !?4,"ISSUED: ",$P(T(6),"^",11),?43,"CLINIC: ",$P(T(7),"^"),?71,"DIVISION: ",$P(T(7),"^",2),!?4,"LOGGED: ",$P(T(7),"^",3),?42,"ROUTING: ",$P(T(7),"^",4),?69,"CLERK CODE: ",$P(T(7),"^",5)
  • Line Location: RXP+2
Function Call: WRITE
  • Prompt: !?3,"EXPIRES: ",$P(T(7),"^",6),?46,"CAP: ",$P(T(7),"^",7),?73,"STATUS: ",$P(T(7),"^",8),!,?4,"FILLED: ",$P(T(7),"^",9),?24,"PHARMACIST: ",$P(T(7),"^",10),?56,"LOT #: ",$P(T(7),"^",11),?74,"QTY: ",$P(T(7),"^",12)
  • Line Location: RXP+3
Function Call: WRITE
  • Prompt: !?3,"REMARKS: ",$P(T(7),"^",13)
  • Line Location: RXP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RXP+7
Function Call: WRITE
  • Prompt: ?60,I+1,?63,$P(T(9,I+1),"^"),?74,$P(T(9,I+1),"^",2),?85,$P(T(9,I+1),"^",3),?95,$P(T(9,I+1),"^",4)
  • Line Location: ACT1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: REM+0
Function Call: WRITE
  • Prompt: ?5,"COMMENT: ",$P(T(9,I),"^",5)
  • Line Location: REM+0
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: @%MT("REW")
  • Line Location: EOT+0
Function Call: READ
  • Variable: XX
  • Timeout: DTIME
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: !!,"continuing"
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !,"#",?3,"LOG DATE",?14,"REFILL DATE",?27,"QTY",?32,"ROUTING",?40,"LOT #",?52,"PHARMACIST",?70,"DIVISION",!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !!,"ACTIVITY LOG:",!,"#",?3,"DATE",?14,"REASON",?25,"RX REF",?35,"SECURITY",?60,"#",?63,"DATE",?74,"REASON",?85,"RX REF",?95,"SECURITY",!
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: ?60
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: H1+2
Info |  Source |  Entry Points |  Interaction Calls