Routine: PRCPRCOS

Information

PRCPRCOS ;WISC/RFJ-unit costing report (whse) ;28 Jan 92

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS OPTION CAN ONLY BE USED BY THE WAREHOUSE INVENTORY POINT." Line Location: PRCPRCOS+3
Function Call: WRITE	Prompt: !!,"THERE IS NOT A VENDOR IN THE VENDOR FILE (#440) DESIGNATED AS A SUPPLY WHSE." Line Location: PRCPRCOS+5
Function Call: WRITE	Prompt: !! Line Location: PRCPRCOS+6
Function Call: WRITE	Prompt: !,X Line Location: PRCPRCOS+6
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPRCOS+10
Function Call: WRITE	Prompt: !!,$TR(NSN,"-"),?14,$E($P(DATA,"^"),1,14),?29,$J(ITEMDA,6),$J($P(DATA,"^",2),8),?48,$P(DATA,"^",3),?50,$P(DATA,"^",4),$P(DATA,"^",5),$P(DATA,"^",6) Line Location: DQ+9
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+11
Function Call: WRITE	Prompt: !!?20,">> NO ITEMS FOUND <<" Line Location: DQ+12
Function Call: WRITE	Prompt: ! Line Location: DQ+13
Function Call: WRITE	Prompt: !?6,X Line Location: DQ+13
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"UNIT COSTING REPORT FOR: ",$E(PRCP("IN"),1,12),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !,"NSN",?15,"DESCRIPTION",?33,"MI",?37,"UNIT/ISS",?47,"SKU",?53,"AVGCOST",?62,"LASTCOST",?72,"UNITCOST",!,% Line Location: H+2