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

Package: Outpatient Pharmacy

Routine: PSOARCRR


Information

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

Source Information

Source file <PSOARCRR.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
Outpatient Pharmacy 1 HD1^PSOARCSV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOARCIN  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS END, Q
^%ZISC END, Q
HD1^PSOARCSV PR+6, HEAD, H1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @%MT("REW")
  • Line Location: PSOARCRR+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: R+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAR+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PR+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PR+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PR+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PR+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PR+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: RXR+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: RXR+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: RXR+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: RXR+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: RXR+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: XX
  • 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
Routine Call
  • %ZIS
  • Line Location:
    • END
    • Q

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOT" PSOAT+1
^TMP($J Q+1!

Label References

Name Line Occurrences
ACT RXP+5
ACT1 ACT
DPR PR+6
END R, PAR, PR+1, PR+2, PR+3, PR+4, PR+5, RXR, RXR+1, RXR+2
, RXR+3
EOT PSOAT+1
H1 ACT
HEAD RXP+5
MA DPR+4
PAR PAR, PR+1, PR+2, PR+3, PR+4, PR+5
PR PAR, RXR, RXR+1, RXR+2, RXR+3
PSOAT R, PAR, PR+1, PR+2, PR+3, PR+4, PR+5, RXR, RXR+1, RXR+2
, RXR+3
R R
READ READ
REM ACT1
RXP RXR+4
RXR RXR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %MT("REW" PSOARCRR+2, EOT
A Q+1!, PR+1*, PR+3, MA, MA+1
D Q+1!, PR+1*, PR+2, DPR+4, DPR+5
DG Q+1!, PR+1*, PR+4, MA, MA+2
DTIME R, PAR, PR+1, PR+2, PR+3, PR+4, PR+5, RXR, RXR+1, RXR+2
, RXR+3, READ
FFX Q+1!, HEAD+2*
GD Q+1!, PR+1*, PR+5, MA, MA+3
I Q+1!, PR+2*, PR+3*, PR+4*, PR+5*, RXR+2*, RXR+3*, DPR+5*, MA+1*, MA+2*
, MA+3*, RXP+6*, ACT*, ACT1, ACT1+1, REM, REM+1, HEAD+1*, H1+1*, H1+2*
IO(0 END, Q, EOT, READ
IOP END*!, Q*!
NM PAR, Q+1!, RXR, DPR
PSOACPF Q+1!, RXR+4, DPR
PSOACPL Q+1!, RXR+4, HEAD, H1
PSOACPM Q+1!, DPR+5, MA+1, MA+2, MA+3
>> PSOAEOT PR+1, PR+2, PR+3, PR+4, PR+5, RXR+1, RXR+2, RXR+3, PSOAT+1*
PSOAP Q, Q+1!, DPR, RXP
>> PSOAPF PSOARCRR+3*, PR+6*
PSOAT PSOARCRR+2, END, Q+1!, PSOAT+1, PSOAT+2, EOT
>> PSOATNM READ+1*
RA Q+1!, RXR+1*, RXR+3, ACT
RR Q+1!, RXR+1*, RXR+2, RXP+5, RXP+6
RX Q+1!
>> SS PAR
T Q+1!
T(1 PR+1*, DPR, DPR+1, DPR+2
T(10 RXR+1*, RXP+1
T(2 PR+1*, PR+2*, DPR+3, DPR+5
T(3 PR+3*, MA+1
T(4 PR+4*, MA+2
T(5 PR+5*, MA+3
T(6 RXR+1*, RXP, RXP+1, RXP+2
T(7 RXR+1*, RXP+2, RXP+3, RXP+4
T(8 RXR+2*, RXP+6
T(9 RXR+3*, ACT+1!, ACT1, ACT1+1, REM, REM+1
>> X R*, PAR*, PR+1*, PR+2*, PR+3*, PR+4*, PR+5*, RXR*, RXR+1*, RXR+2*
, RXR+3*
>> XX READ*
>> Y PSOAT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All