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

Package: Inpatient Medications

Routine: PSIVLBDL


Information

PSIVLBDL ;BIR/PR,CML-DELETE LBLS FROM SUSPENSE ;02 FEB 94 / 1:54 PM

Source Information

Source file <PSIVLBDL.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
DONE ;
SUSLP1 ;
DELINE ;
HDR ;
LP
PRNT
KILL ;
ONC ;
SET ;
EXPCHK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,"...one moment, please..."
  • Line Location: PSIVLBDL+5
Function Call: WRITE
  • Prompt: !!,"There are no labels on suspense for this patient."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,"Select Order Number: "
  • Line Location: DELINE+1
Function Call: WRITE
  • Prompt: !,"or press return to view more "
  • Line Location: DELINE+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DELINE+2
Function Call: READ
  • Formatting: !
  • Prompt: "Press return to continue "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: DELINE+3
Function Call: WRITE
  • Prompt: DELINE
  • Condition for execution: '$D(X) $C(7)," ??" G:'$D(X)
  • Line Location: DELINE+4
Function Call: WRITE
  • Prompt: !,"Deleted."
  • Line Location: DELINE+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"Patient Name ",VADM(1)," (",$S(VAIN(4):$P(VAIN(4),U,2),1:"Outpatient IV"),")",!,"Order Number",?30,"Order",?IOM-11,"Suspended",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,ON,$J(+Y_" label"_$S(+Y>1:"s",1:"")_" "_$P(Y,"^",2),IOM-1-$X),!
  • Line Location: PRNT+1
Info |  Source |  Entry Points |  Interaction Calls