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

Package: Inpatient Medications

Routine: PSIVSUS


Information

PSIVSUS ;BIR/PR-SUSPENSE LIST OPTIONS ;16 DEC 97 / 1:40 PM

Source Information

Source file <PSIVSUS.m>

Entry Points

Name Comments DBIA/ICR reference
CHK ;Entry for individual label suspense, check if labels may be suspended.
ALSUS ;See if labels are already suspended.
S1 ;Suspend labels.
ENT ;Print labels from suspense
DEQSUS
Q
Q1
E2
E3
EN3 ;Will print a report of those labels on suspense
DEQEN3
QEN3
PRNT
HDR ;
HDR1
SETP
EXPIR ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are already ",SNM," ",$S(SNM>1:"LABELS",1:"LABEL")," suspended for this order."
  • Line Location: ALSUS+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Number of labels to suspend: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: $C(7),!," ... NO labels suspended! Wait 15 seconds and try again."
  • Line Location: S1+2
Function Call: WRITE
  • Prompt: " ..... ",+X," Label"_$S(+X>1:"s",1:"")_" suspended !"
  • Line Location: S1+3
Function Call: READ
  • Prompt: !!
  • Variable: "Send report to a printer" S %=2 D YN^DICN Q
  • Timeout: %=-1
  • Line Location: EN3+3
Function Call: WRITE
  • Prompt: !,VADM(1)," (",$S(VAIN(4):$P(VAIN(4),U,2),1:"Outpatient IV"),")",$J(+NODE_" label"_$S(+NODE>1:"s",1:"")_" "_$P(NODE,U,2),IOM-1-$X)
  • Line Location: PRNT+1
Function Call: WRITE
  • Prompt: !,VA("BID")," [",ON,"]"
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !!,"Suspense list for: "
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),!,"Patient name",?30,"Order",?IOM-11,"Suspended",!
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),!,"Patient name",?30,"Order",?IOM-11,"Suspended",!
  • Line Location: HDR1+0
Info |  Source |  Entry Points |  Interaction Calls