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

Package: Inpatient Medications

Routine: PSIVRD


Information

PSIVRD ;BIR/PR,MLM-HANDLE QUICK RET/DES ENTRY ;29 SEP 97 / 11:17 AM

Source Information

Source file <PSIVRD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point to enter returns/destroyed items.
Q
EN1 ;
EN1OLD ;
ORDNO ;
READ ; Read order no.s, no profile.
GTORDRS ;Needs PSIVBR (Branch point)
ASK
OV ;
OV1 ;
PROCESS ;
PROCESS1 ;
WARD ;Get the ward to associate returns or destroyed with.
WARD1 ;
NRD ;Ask number of bottles/bags
NRD1 ;
KILL ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter the order number(s) to be processed: "
  • Variable: PSIVNU
  • Timeout: DTIME
  • Line Location: ORDNO+1
Function Call: WRITE
  • Prompt: !!,"Enter order number(s) separated by a comma e.g. 2,4,5,6.",!
  • Line Location: READ+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),"??",!!
  • Line Location: READ+3
Function Call: WRITE
  • Prompt: $C(7),$C(7),"??",!!
  • Line Location: READ+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Order ",ON," is invalid.",!!
  • Line Location: READ+6
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Order number ",+ON," does not exist for this patient.",!
  • Line Location: READ+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"No labels have been dispensed for this order."
  • Line Location: PROCESS1+1
Function Call: WRITE
  • Prompt: !!,"WARNING ",$C(7),$C(7),$C(7),"This order is in a different IV room",!," from the one in which you are entering returned/destroyed!"
  • Line Location: PROCESS1+2
Function Call: WRITE
  • Prompt: !,"No labels are available"
  • Line Location: WARD+1
Function Call: WRITE
  • Prompt: $P("^OUTPATIENT",X,2)
  • Line Location: WARD+3
Function Call: WRITE
  • Prompt: "...Done."
  • Line Location: WARD1+13
Function Call: READ
  • Formatting: !
  • Prompt: "Number of bottles: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: NRD1+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: NRD1+4
Function Call: WRITE
  • Prompt: "...Done."
  • Line Location: NRD1+6
Info |  Source |  Entry Points |  Interaction Calls