Routine: PRCPRCFR

Information

PRCPRCFR ;WISC/RFJ-conversion factor report (option, whse) ;09 Jun 93

Name	Comments	DBIA/ICR reference
DQ	; queue starts here
H

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRCPRCFR+12
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPRCFR+15
Function Call: WRITE	Prompt: !,$TR(NSN,"-"),?15,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,30),?46,ITEMDA,?53,$J(+$P(ITEMDATA,"^",7),8),$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA,"/"),10) Line Location: DQ+14
Function Call: WRITE	Prompt: !?33,VENNM,?53,%,?61,$J($$UNITVAL^PRCPUX1($P(VENDATA,"^",3),$P(VENDATA,"^",2),"/"),10),$J($P(VENDATA,"^",4),9) Line Location: DQ+18
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+19
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"CONVERSION FACTOR REPORT FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !,"NSN",?15,"DESCRIPTION",?46,"MI",$J("QTY OH",13),$J("UNIT/IS",10) Line Location: H+3
Function Call: WRITE	Prompt: !?33,"PROCUREMENT SOURCE",?54,"IV#",?61,$J("UNIT/RE",10),$J("CF",9),!,% Line Location: H+4