Routine: PRCHRPL1

Information

PRCHRPL1 ;SF/TKW,WISC/CLH-PUBLIC LAW 100-322 LOCAL PROC--CONTINUED ;11-4-92/16:41

Name	Line Occurrences
Function Call: WRITE	Prompt: ?132,"___________",!!,?120,"TOTAL",?132,$J(PRCHTOT,11,2),!,$C(13) Line Location: EN+1
Function Call: WRITE	Prompt: !!,?3,"REASON: (",PRCHRC,") ",$P(^PRC(443.8,PRCHRC,0),"^",2),!! Line Location: RD1+1
Function Call: WRITE	Prompt: ?90,"SUB TOTAL FOR REASON CODE: ",PRCHRC,?132,$J(^TMP($J,"RC",PRCHRC),11,2),! Line Location: RC+0
Function Call: WRITE	Prompt: !,?132,"___________",!,?90,"SUB TOTAL FOR FSC:",?132,$J(^TMP($J,"RC","FSC",PRCHRC,PRCHFSC),11,2),! Line Location: FSC+0
Function Call: WRITE	Prompt: !,PRCHDESC,?31,PRCHFSC,?37,$P(X,U,2),?52,$P(X,U,9),?56,$P(X,U,3),?72,PRCHV,?104,$P(X,U,1),?113,$J($P(X,U,4),6) Line Location: PRT+0
Function Call: WRITE	Prompt: ?121,$J($P(X,U,5),9,2),?132,$J($P(X,U,6),11,2),?145,$P(X,U,7) Line Location: PRT+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: "P.L. 100-322 LOCAL PROCUREMENT REASON REPORT",?123,PRCHPDAT,?146,"PAGE ",PRCHPAGE,! Line Location: HDR+0
Function Call: WRITE	Prompt: I_" " Line Location: HDR+1
Function Call: WRITE	Prompt: " Non-Expendable Purchases NOT Included",!! Line Location: HDR+2
Function Call: WRITE	Prompt: "DESCRIPTION",?31,"FSC",?37,"N.I.I.N",?49,"SOURCE",?57,"NDC",?72,"VENDOR",?104,"P.O.NO.",?112,"QTY.REC.",?121,"UNIT COST",?133,"TOTAL COST",?145,"FCP",! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+4
Function Call: WRITE	Prompt: !! Line Location: HDR+5