Routine: PRCPRLDO

Information

PRCPRLDO ;WISC/RFJ-list distribution orders ;7/24/00 23:29

Name	Comments	DBIA/ICR reference
DEVICE	;
DQ	; queue starts here
H
PICKTICK	; print orders which have been released but the picking ticket ; has not been printed

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO ORDERS READY FOR RELEASING." Line Location: PRCPRLDO+14
Function Call: WRITE	Prompt: ! Line Location: PRCPRLDO+19
Function Call: WRITE	Prompt: ! Line Location: PRCPRLDO+25
Function Call: WRITE	Prompt: ! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,"YOU CANNOT SELECT YOUR CURRENT DEVICE FOR PRINTING PICKING TICKETS." Line Location: DEVICE+2
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: DEVICE+6
Function Call: WRITE	Prompt: !,$P(DATA,"^"),?8,$P(Y,"@"),?22,$P($$TYPE^PRCPOPU(ORDERDA),"ORDER"),?32,$$STATUS^PRCPOPU(ORDERDA) Line Location: DQ+10
Function Call: WRITE	Prompt: ?54,$E($$INVNAME^PRCPUX1(+$P(DATA,"^",3)),1,25) Line Location: DQ+11
Function Call: WRITE	Prompt: ?54,$E($$INVNAME^PRCPUX1(+$P(DATA,"^",2)),1,25) Line Location: DQ+12
Function Call: WRITE	Prompt: !?10,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,29),?40,ITEMDA,?50,$J(+$P(ITEMDATA,"^",2),15),$J(UNITCOST,15) Line Location: DQ+17
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"LIST DISTRIBUTION ORDER REPORT FOR ",PRCP("IN"),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !,"ORDER#",?8,"DATE",?22,"TYPE",?32,"STATUS",?54,"DELIVER ",$S(PRCP("DPTYPE")="P":"TO",1:"FROM")," INVENTORY POINT" Line Location: H+2
Function Call: WRITE	Prompt: !?10,"ITEM",?40,"MI#",?50,$J("QUANTITY",15),$J("EST. UNIT COST",15) Line Location: H+3
Function Call: WRITE	Prompt: !,% Line Location: H+4