Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  PSET^%ZISP  ^%ZTLOAD  
VA Fileman 2 ^DIC  ^DIR  
CMOP 1 PTEST^PSXLBLPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
CMOP 1 PSXLBLU  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEVICE+1, P2
^%ZISC DEVICE+3, P2+3
PSET^%ZISP DEVICE+2
^%ZTLOAD QUE+4
^DIC ENTER
^DIR TOF+2, P2+6
PTEST^PSXLBLPT P2+3

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: !
  • Timeout: ",X:DTIME
  • Variable: "PRESS RETURN WHEN READY
  • 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
Routine Call
  • DIC
  • Line Location:
    • ENTER
Routine Call
  • DIR
  • Line Location:
    • TOF+2
    • P2+6
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1
    • P2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSX(552.1 ENTER+2
^PSX(552.2 ENTER+5, ENTER+6, ENTER+8
^PSX(553 START+1, START+2, SS*, SS+1, CHECK*, END*, MSG
^PSX(554 START+3, START+4, START+5

Label References

Name Line Occurrences
CHECK ENTER+3
DEVICE CHECK+1, DEVICE+1
END ENTER, DEVICE+1, TOF+2, P2+6
ENTER SS2+1, SS2+2
MSG START+1, START+2, START+5
P2 P2+8
QUE TOF+3, P2+7
SS START+3
SS2 ENTER+2
START CHECK, REPRINT, REJECT
TOF P2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE*, DEVICE+1!
%ZIS("A" DEVICE*
%ZIS("B" DEVICE*
A END+1!
BATREF ENTER+1*, ENTER+2, ENTER+5, ENTER+8, CHECK, END+1!
C END+1!, DEVICE+3!
CH1 END+1!
CNT END+2!
CT END+1!
DIC SS2*, ENTER!, ENTER+1!, ENTER+2!
DIC("A" SS2*
DIC("S" SS2+1*, SS2+2*, SS2+3*
DIC(0 SS2*
DIR TOF+2!, P2+6!, P2+7!
DIR("?" TOF+1*, P2+5*
DIR("A" TOF*, P2+4*
DIR("B" TOF+1*, P2+4*
DIR(0 TOF+1*, P2+5*
DIROUT END+2!
DIRUT END+2!, TOF+2, P2+6
DTIME P2+3
DTOUT ENTER, END+2!
DUOUT ENTER, END+2!
ER END+1!
G END+1!
IEN14 END+2!
IO("Q" DEVICE+1!
IO(0 P2+1
>> IOBARON DEVICE+2
IOF SS1
ION DEVICE+2
IOP DEVICE+1!, P2*!
>> IOS DEVICE+2
IOST DEVICE+1
J ENTER+3!, ENTER+4*, ENTER+6*, ENTER+7, DEVICE+3!
L END+1!
N ENTER+3!, ENTER+4*, ENTER+5*, ENTER+6
N514 ENTER+1*, ENTER+2!, END+2!
NTE END+1!
POP END+3!, DEVICE+1, P2
PSXBAR END+3!, DEVICE+2*
PSXBEG ENTER+4*, ENTER+7*, ENTER+8*, CHECK, END+1!
PSXBLR END+3!
PSXEND ENTER+4*, ENTER+7*, ENTER+8*, CHECK, END+1!
PSXIOS END+3!, DEVICE+2*
PSXLAP END+3!, DEVICE+2*, P2, QUE+2
PSXREF SS2+1*, SS2+2*, SS2+3*, ENTER+8, END+3!
PSXST END+1!
Q END+1!
R554 START+4*, START+5, END+2!
REJECT SS2+2, END+3!, REJECT*
REPRINT SS2+1, ENTER+3, CHECK, END+3!, REPRINT*
U ENTER+1
V END+1!
X ENTER, ENTER+1!, ENTER+2!, ENTER+8*, CHECK+1!, END+1!, P2+3*
Y ENTER+1!, ENTER+2!, END+1!, TOF+3, P2+7
Z END+1!
ZH START+5*, MSG, MSG+1!
>> ZTDESC QUE+4*
>> ZTIO QUE+2*
>> ZTRTN QUE+4*
>> ZTSAVE("BATREF" QUE*
>> ZTSAVE("IOBAROFF" QUE+3*
>> ZTSAVE("IOBARON" QUE+3*
>> ZTSAVE("N514" QUE+2*
>> ZTSAVE("PSXBAR" QUE+1*
>> ZTSAVE("PSXBEG" QUE*
>> ZTSAVE("PSXBLR" QUE+3*
>> ZTSAVE("PSXEND" QUE*
>> ZTSAVE("PSXREF" QUE+2*
>> ZTSAVE("REPRINT" QUE+1*
>> ZTSAVE("RESET" QUE+2*
>> ZTSK Q1
ZY END+2!
ZZ END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All