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

Package: Outpatient Pharmacy

Routine: PSOSUBCH


Information

PSOSUBCH ;BIR/RTR-Print batch list to a printer ; 1/1/96

Source Information

Source file <PSOSUBCH.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
LIST
HEAD
END
DEQUE
DELIST
DEHEAD
DEEND
MSQ
MSNQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NOTHING PRINTED"
  • Line Location: QUE+0
Function Call: WRITE
  • Prompt: !!,"This report must be sent to a printer!",!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!,"No Rx's to print!",!
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !!,"END OF LIST"
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?20,"PATIENT NAME",?51,"SUSPENSE BATCH ",LLL,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?20,"PATIENT NAME",?51,"SUSPENSE BATCH ",LLL,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"This report must be sent to a printer!",!
  • Line Location: DEQUE+1
Function Call: WRITE
  • Prompt: !!,"No Rx's to print!",!
  • Line Location: DELIST+5
Function Call: WRITE
  • Prompt: !!,"END OF LIST"
  • Line Location: DELIST+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEHEAD+1
Function Call: WRITE
  • Prompt: !,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?20,"PATIENT NAME",?51,"SUSPENSE BATCH ",LLL,!
  • Line Location: DEHEAD+1
Function Call: WRITE
  • Prompt: !,"ORIGINALLY QUEUED FOR ",$G(PSOPTIME)," BY ",$S($D(^VA(200,+$G(PSOPDUZ),0)):$E($P(^(0),"^"),1,31),1:"UNKNOWN"),!,"RX #",?20,"PATIENT NAME",?51,"SUSPENSE BATCH ",LLL,!
  • Line Location: DEHEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEEND+0
Function Call: WRITE
  • Prompt: !!,"REPORT of batched Rx's queued to print!",!
  • Line Location: MSQ+0
Function Call: WRITE
  • Prompt: !!,"REPORT of batched Rx's being sent to print!",!
  • Line Location: MSNQ+0
Info |  Source |  Entry Points |  Interaction Calls