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

Package: CMOP

Routine: PSXLBL


Information

PSXLBL ;BIR/HTW,BAB-CMOP Host Label Print..User Input ; [ 05/01/97 11:47 AM ]

Source Information

Source file <PSXLBL.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
SS
SS1
SS2
ENTER
CHECK
END
DEVICE
TOF
P2
QUE
Q1
MSG
REPRINT
REJECT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: SS1+0
Function Call: WRITE
  • Prompt: !!,"BATCH "_BATREF_" is currently being printed.",!,"Please select another batch or ""^"" to exit.",!!
  • Line Location: ENTER+2
Function Call: WRITE
  • Prompt: !!,"No data to "_$S($G(REPRINT):"reprint",1:"print")_" for CMOP Msg # ",BATREF,". Select another batch.",!
  • Line Location: CHECK+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !,"You must choose a printer or ""^"" to exit"
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !?5,"PRINTER IS BUSY. "
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !,"ALIGN LABELS SO THAT A PERFORATION IS AT THE TOP OF THE"
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: !,"PRINT HEAD AND THE LEFT SIDE IS AT COLUMN ZERO."
  • Line Location: P2+2
Function Call: READ
  • Prompt: !
  • Variable: "PRESS RETURN WHEN READY
  • Timeout: ",X:DTIME
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: !!,"Labels may NOT be printed while the CMOP "_$S($G(ZH)="F":"Background Filer ",1:"Interface ")_"is running.",!!,"Please try again later...",!!
  • Line Location: MSG+0
Info |  Source |  Entry Points |  Interaction Calls