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

Package: Outpatient Pharmacy

Routine: PSOEXBCH


Information

PSOEXBCH ;BIR/RTR-print external interface list to a printer ;1/1/96

Source Information

Source file <PSOEXBCH.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
LIST
HEAD
END
DEQUE
DELIST
DEHEAD
DEEND
MSQ
MSNQ
GETN ;
GETPPL ;
MEDEX ;
PART ;

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: ?44,$G(HLZZDRUG)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !?38,$G(HLZZDRUG)
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !!,"No Rx's to print!",!
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: !!,"END OF LIST"
  • Line Location: LIST+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+4
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 #",?13,"PATIENT NAME",?44,"BATCH ",LLL,!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+5
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