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

Package: Outpatient Pharmacy

Routine: PSOARCF3


Information

PSOARCF3 ;BHAM ISC/LGH,LC - RX RETRIEVE ; 07/07/92

Source Information

Source file <PSOARCF3.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 $$REWIND^%ZIS  $$STATUS^%ZISH  
Outpatient Pharmacy 1 HD1^PSOARCF4  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOARCF1  

Entry Points

Name Comments DBIA/ICR reference
PR ;PATIENT READ
PAR
H1
END ;I $D(PSOAT) U IO(0) S IOP=PSOAT D ^%ZIS D ^%ZISC K IOP
DPR
PSOAT ;CHECK FOR EOF
ACT1
ACT
REM
Q ;I $D(PSOAP) U IO(0) S IOP=PSOAP D ^%ZIS D ^%ZISC K IOP
HEAD
R
RXP
MA
RXR

External References

Name Field # of Occurrence
$$REWIND^%ZIS PSOAT+1
$$STATUS^%ZISH PSOAT+1
HD1^PSOARCF4 PR+6, HEAD, H1

Interaction Calls

Name Line Occurrences
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: !!,"HFS file failed to rewind"
  • Line Location: PSOAT+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:
    • PSOAT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^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, PSOAT+1
H1 ACT
HEAD RXP+5
MA DPR+4
PAR PAR
PR PAR, RXR
PSOAT PSOARCF3+2
R R
REM ACT1
RXP RXR+4
RXR RXR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
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
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 PSOAT+1
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
>> PSOAIO PSOAT+1
>> PSOAIOT PSOAT+1
PSOAP Q+1!, DPR, RXP
>> PSOAPAR PSOAT+1
>> PSOAPF PSOARCF3+3*, PR+6*
PSOAT PSOARCF3+2, Q+1!, PSOAT+1, PSOAT+2
>> PSORWND PSOAT+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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All