Routine: PRCPRDC0

Information

PRCPRDC0 ;WISC/RFJ-dietetics cost report (cont) ;27 May 93

Name	Comments	DBIA/ICR reference
START	; called from prcprdie to print report
H

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: START+17
Function Call: WRITE	Prompt: !!?5,"FOOD GROUP: ",$S(FOOD=" ":"X",1:FOOD)," (",$E(FOODDESC,1,50),")" Line Location: START+21
Function Call: WRITE	Prompt: !,$TR(NSN,"-"),?15,$E($$DESCR^PRCPUX1(INVPT,ITEMDA),1,15),?31,ITEMDA,?37,$J($P(DATA,"^"),8),$J($P(DATA,"^",2),8),$J($P(DATA,"^",3),10,2),$J(REF,7) Line Location: START+26
Function Call: WRITE	Prompt: $J($E(DATE,4,5)_"-"_$E(DATE,6,7)_"-"_$E(DATE,2,3),10) Line Location: START+27
Function Call: WRITE	Prompt: !,$J("SUBTOTAL REFERENCE NUMBER "_$S(REF=" ":"XXXXX",1:REF)_":",50),$J(TOTALREF,13,2) Line Location: START+31
Function Call: WRITE	Prompt: !,$J("TOTAL FOOD GROUP "_$S(FOOD=" ":"X",1:FOOD)_" ("_$E(%,1,25)_"):",50),$J(TOTALFOO,13,2) Line Location: START+36
Function Call: WRITE	Prompt: !,$J("TOTALS FOR INVENTORY POINT:",50),$J(TOTALINV,13,2) Line Location: START+40
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"DIETETIC COST REPORT FOR: ",$E(PRCPIN,1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !?5,"ITEMS RECEIVED IN INVENTORY POINT BETWEEN DATES: ",DATESDT," to ",DATEEDT Line Location: H+2
Function Call: WRITE	Prompt: !,"NSN",?15,"DESCRIPTION",?31,"IM#",?37,$J("UNITS",8),$J("QTY",8),$J("TOTAL $",10),$J("REF#",7),$J("REC DT",10),!,% Line Location: H+3