Routine: PSGL

Information

PSGL ;BIR/CML3-LABEL PRINT/REPRINT ;25 SEP 97 / 7:41 AM

Source file <PSGL.m>

Name	Comments	DBIA/ICR reference
CHK	;
ASK	;
DONE	;
DEV	;
G	;
W	;
P	;
C	;
CDIC	;
L	;
LDIC	;
ENG	;
ENW	;
ENW1	;
IWP	;
ENL
ENC	;
ENP	;
ENPLP	;
DT	;
KL	; kill other label records for the same order

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You have unprinted new labels. Do you want them now" Line Location: CHK+2
Function Call: WRITE	Prompt: !!,"Will you want them later" Line Location: CHK+4
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !?3,"(No device chosen for label print.)" Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: DEV+6
Function Call: WRITE	Prompt: !,"Labels ",$S($D(ZTSK):"",1:"NOT "),"queued!" Line Location: DEV+6
Function Call: WRITE	Prompt: ! Line Location: G+1
Function Call: WRITE	Prompt: ! Line Location: W+1
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: ! Line Location: L+2
Function Call: READ	Formatting: !! Prompt: "Select orders for labels: " Variable: X Timeout: DTIME Line Location: ENP+3
Function Call: WRITE	Prompt: !!?2,"Select the orders for which you want labels printed." Line Location: ENP+5
Function Call: READ	Formatting: !! Prompt: "Enter label start date: " Variable: X Timeout: DTIME Line Location: DT+1