Routine: PRCPOPT1

Information

PRCPOPT1 ;WISC/RFJ-picking ticket for distribtuion order ; 4/27/99 9:19am

Name	Comments	DBIA/ICR reference
DQ	; queue comes here to print picking ticket
H
STORLOC
DATA	;;print signature at bottom of report

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P(DATA,"^",2),?17,$E($P(DATA,"^",4),1,33),?52,"[#",ITEMDA,"]" Line Location: DQ+27
Function Call: WRITE	Prompt: ?72,"\|------\|" Line Location: DQ+29
Function Call: WRITE	Prompt: !?4,"ISS MULT QTY ORD UNIT per ISS UNIT COST TOT COST",?60,"QTY TO PICK",?72,"\|",?79,"\|" Line Location: DQ+30
Function Call: WRITE	Prompt: ?14,$J($P(DATA,"^",8),7),$P(DATA,"^",6),?34,$J($P(DATA,"^",10),12,3),$J($P(DATA,"^",11),11,3),?61,$J($P(DATA,"^",8),10)," \|______\|" Line Location: DQ+31
Function Call: WRITE	Prompt: !!,"TOTAL DOLLAR AMOUNT OF ORDER: ",$J(TOTAL,0,3) Line Location: DQ+40
Function Call: WRITE	Prompt: !,DATA(%) Line Location: DQ+41
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"PICKING TICKET ",$S($D(REPRINT):"RE-",1:""),"PRINT",?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !,?4,"FROM: ",$P(PRCPORD(0),"^",2),?39,"TO: ",$P(PRCPORD(0),"^",3) Line Location: H+2
Function Call: WRITE	Prompt: !,"ORDER NO: ",$P(PRCPORD(0),"^"),?19,"DATE: ",$P($P(PRCPORD(0),"^",4),"@"),?37,"TYPE: ",$P(PRCPORD(0),"^",8),?54,"STATUS: ",$E($P(PRCPORD(0),"^",6),1,17) Line Location: H+3
Function Call: WRITE	Prompt: !,"NSN",?17,"DESCRIPTION",?52,"[#MI]" Line Location: H+4
Function Call: WRITE	Prompt: ?61,"QTY ON-HND" Line Location: H+5
Function Call: WRITE	Prompt: ?74,"PICKED",!,% Line Location: H+6
Function Call: WRITE	Prompt: !!?4,"STORAGE LOCATION: ",$S(STORLOC="?":"(NONE)",1:STORLOC) Line Location: STORLOC+0