Routine: PRCPBAL3

Information

PRCPBAL3 ;WISC/RFJ/DWA-release,print the pick ticket for barcode orders ;04 Dec 92

Name	Comments	DBIA/ICR reference
RELEASE	; release orders in ^tmp($j,"prcpbal3",orderda)
PICKTICK	; print picking tickets in ^tmp($j,"prcpbal3",orderda)
DEVICE	;
DQ	; print picking tickets for orders in ^tmp($j,"prcpbal3",orderda)

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Order # ",$P(PRCPORD(0),"^") Line Location: RELEASE+6
Function Call: WRITE	Prompt: ?20,"Already released" Line Location: RELEASE+7
Function Call: WRITE	Prompt: ?20,"NOT RELEASED, errors found with ordered items." Line Location: RELEASE+10
Function Call: WRITE	Prompt: ?20,"Released !" Line Location: RELEASE+13
Function Call: WRITE	Prompt: ! Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,"YOU CANNOT SELECT YOUR CURRENT DEVICE FOR PRINTING PICKING TICKETS." Line Location: DEVICE+3
Function Call: WRITE	Prompt: !,"Order # ",$P(PRCPORD(0),"^") Line Location: DQ+6
Function Call: WRITE	Prompt: ?20,"Not released" Line Location: DQ+7
Function Call: WRITE	Prompt: ?20,"Printed !" Line Location: DQ+11