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

Package: Inpatient Medications

Routine: PSIVSUS1


Information

PSIVSUS1 ;BIR/RGY-REPRINT LABEL FROM SUSPENSE ;24 JAN 94 / 11:37 AM

Source Information

Source file <PSIVSUS1.m>

Entry Points

Name Comments DBIA/ICR reference
BEG
ASK
OV
DQLBL
Q
Q1
LA
ENT ;Will print man. list for suspense
DQENT
QENT
RGY
SETP
QSET ; Set up for queueing.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,I,") Labels printed on: "
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !!,"*** There are no labels to reprint ! ***"
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: $C(7)," ???"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: " Labels printed on ",$P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: OV+0
Info |  Source |  Entry Points |  Interaction Calls