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

Package: Outpatient Pharmacy

Routine: PSOARCF2


Information

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

Source Information

Source file <PSOARCF2.m>

Entry Points

Name Comments DBIA/ICR reference
R
PAR
END ;I $D(PSOAT) U IO(0) S IOP=PSOAT D ^%ZIS D ^%ZISC K IOP
Q ;I $D(PSOAP) U IO(0) S IOP=PSOAP D ^%ZIS D ^%ZISC K IOP
PR ;PATIENT READ
RXR
RXR2
RXR1
DPR
MA
PAGE
PSOAT ;CHECK FOR EOF
NODE1
NODE4
NODE5
NODEA
NODEL
NODEP
READT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"HFS file failed to rewind"
  • Line Location: PSOARCF2+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: 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
  • Variable: X
  • Timeout: DTIME
  • Line Location: READT+0
Info |  Source |  Entry Points |  Interaction Calls