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

Package: Outpatient Pharmacy

Routine: PSOARCF2


Information

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

Source Information

Source file <PSOARCF2.m>

Call Graph

Call Graph Total: 4

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

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
END ;I $D(PSOAT) U IO(0) S IOP=PSOAT D ^%ZIS D ^%ZISC K IOP
DPR
PSOAT ;CHECK FOR EOF
NODE4
PAGE
Q ;I $D(PSOAP) U IO(0) S IOP=PSOAP D ^%ZIS D ^%ZISC K IOP
NODEA
R
READT
NODEP
NODE1
MA
RXR
NODE5
RXR1
RXR2
NODEL

External References

Name Field # of Occurrence
$$REWIND^%ZIS PSOARCF2+2, PSOAT+1
$$STATUS^%ZISH PSOAT+1
HD1^PSOARCF4 PR+6, PAGE+1
^PSOARCR2 RXR1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"HFS file failed to rewind"
  • Line Location: PSOARCF2+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: !!,"HFS file failed to rewind"
  • Line Location: PSOAT+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: READT+0
Routine Call
  • %ZIS
  • Line Location:
    • PSOARCF2+2
    • PSOAT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J Q+2!

Label References

Name Line Occurrences
DPR PR+6
END PSOARCF2+2, R, PAR, RXR, RXR2, RXR2+1, PSOAT+1, READT
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
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
A Q+2!, PR+1*, PR+3, MA, MA+1
D Q+2!, PR+1*, PR+2, DPR+4, DPR+5
DG Q+2!, PR+1*, PR+4, MA, MA+2
DTIME R, PAR, READT
GD Q+2!, PR+1*, PR+5, MA, MA+3
I Q+2!, PR+2*, PR+3*, PR+4*, PR+5*, DPR+5*, MA+1*, MA+2*, MA+3*
IO(0 PSOARCF2+2, PSOAT+1
NM PAR, Q+2!, RXR, RXR2, RXR2+1, DPR
>> PSOACPL PAGE
>> PSOACPM DPR+5, MA+1, MA+2, MA+3
>> PSOAIO PSOARCF2+2, PSOAT+1
>> PSOAIOT PSOARCF2+2, PSOAT+1
>> PSOAP RXR1, DPR
>> PSOAPAR PSOARCF2+2, PSOAT+1
>> PSOAPF PSOARCF2+3*, PR+6*
>> PSOAT PSOARCF2+2, RXR1, PSOAT+1, PSOAT+2
>> PSORWND PSOARCF2+2*, PSOAT+1*
RX Q+2!
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, Q+2!
T Q+2!, 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
TZ Q+2!
X R*, PAR*, Q+2!, 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*
XNM Q+2!
XSS Q+2!
XX Q+2!, NODE1*, NODE1+1*, NODE4*, NODE4+1*, NODE5*, NODE5+1*, NODEA*, NODEA+1*, NODEL*
, NODEL+1*, NODEP*, NODEP+1*
Y Q+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All