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

Package: Outpatient Pharmacy

Routine: PSOARCR1


Information

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

Source Information

Source file <PSOARCR1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
Outpatient Pharmacy 2 ^PSOARCR2  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
END
DPR
PSOAT ;check for eot, return psoaeot=1 if found
NODE4
PAGE
Q
READ
R
NODEP
READT
NODEA
EOT
NODE1
MA
RXR
NODE5
RXR1
RXR2
NODEL

External References

Name Field # of Occurrence
^%ZIS END, Q
^%ZISC END, Q
^PSOARCR2 RXR1
HD1^PSOARCSV PR+6, PAGE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @%MT("REW")
  • Line Location: PSOARCR1+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: WRITE
  • Prompt: !!,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: !!?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: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: READT+0
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
DPR PR+6
END R, PAR, RXR, RXR2, RXR2+1, READT
EOT PSOAT+1
MA DPR+4
NODE1 RXR2+2
NODE4 RXR2+3
NODE5 RXR2+4
NODEA RXR2+6
NODEL RXR2+7
NODEP RXR2+8
PAGE RXR1
PAR PAR, RXR
PR PAR
PSOAT R, PAR, READT
R R
READ READ
READT PR+1, PR+2, PR+3, PR+4, PR+5, RXR, RXR2, RXR2+1, RXR2+5, RXR2+9
, RXR2+10, RXR2+11, RXR2+12, NODE1+1, NODE4+1, NODE5+1, NODEA+1, NODEL+1, NODEP+1
RXR2 RXR1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%MT Q+1!
%MT("REW" PSOARCR1+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, READ, READT
GD Q+1!, PR+1*, PR+5, MA, MA+3
I Q+1!, PR+2*, PR+3*, PR+4*, PR+5*, DPR+5*, MA+1*, MA+2*, MA+3*
IO(0 END, Q, EOT, READ
IOP END*!, Q*!
NM PAR, Q+1!, RXR, RXR2, RXR2+1, DPR
PSOACDS Q+1!
PSOACPF Q+1!
PSOACPL Q+1!, PAGE
PSOACPM Q+1!, DPR+5, MA+1, MA+2, MA+3
PSOAEOT Q+1!, PSOAT+1*
PSOAP Q, Q+1!, RXR1, DPR
PSOAPF PSOARCR1+3*, Q+1!, PR+6*
PSOAT PSOARCR1+2, END, Q+1!, RXR1, PSOAT+1, PSOAT+2, EOT
PSOATNM Q+1!, READ+1*
RX Q+1!
RX( NODE1*, NODE1+1*, NODE4*, NODE4+1*, NODE5*, NODE5+1*, NODEA*, NODEA+1*, NODEL*, NODEL+1*
, NODEP*, NODEP+1*
RX("C" RXR2+10*
RX("D" RXR2+11*
RX("IB" RXR2+9*
RX("S" RXR2+12*
RX(0 RXR2+1*
RX(2 RXR2+5*
RX(3 RXR2+5*
>> SS PAR
T Q+1!, MA+4!
T(1 PR+1*, DPR, DPR+1, DPR+2
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
X R*, PAR*, Q+1!, PR+1, PR+2, PR+3, PR+4, PR+5, RXR, RXR2
, RXR2+1, RXR2+2, RXR2+3, RXR2+4, RXR2+5, RXR2+6, RXR2+7, RXR2+8, RXR2+9, RXR2+10
, RXR2+11, RXR2+12, NODE1, NODE1+1, NODE4, NODE4+1, NODE5, NODE5+1, NODEA, NODEA+1
, NODEL, NODEL+1, NODEP, NODEP+1, READT*
XX Q+1!, READ*, NODE1*, NODE1+1*, NODE4*, NODE4+1*, NODE5*, NODE5+1*, NODEA*, NODEA+1*
, NODEL*, NODEL+1*, NODEP*, NODEP+1*
Y Q+1!, PSOAT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All