PRCSES3 ;WASH-ISC/DJM-HEADER FOR PRCS CO ITEMHIST ; [12/11/98 2:23pm]
V ;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
;
; THIS HEADER IS CALLED FROM [PRCS CO ITEMHIST-HDR] PRINT TEMPLATE.
;
W !,?34,"Item History"
W !
W !,PRCSDT
S PRCSPGQ=PRCSPGQ+1
W ?70,"Page ",PRCSPGQ
W !,"Site: ",PRC("SITE")
W ?25,"Control Point: ",PRC("CP")
W !,"Item Number: " D WRITMN^PRCSP1A
W ?25,"Description: " D WRITMD^PRCSP1A
W !
W !,?25,"Qty.",?34,"Unit"
W !,?25,"Prev.",?34,"of",?71,"Quantity"
W !,"Date Ordered",?14,"PO Number",?25,"Recd.",?34,"Purch."
W ?42,"Unit Cost",?56,"Total Cost",?71,"Ordered"
K PRCSUL
S $P(PRCSUL,"_",80)="_"
W !,PRCSUL,!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCSES3 793 printed Dec 13, 2024@02:17:44 Page 2
PRCSES3 ;WASH-ISC/DJM-HEADER FOR PRCS CO ITEMHIST ; [12/11/98 2:23pm]
V ;;5.1;IFCAP;;Oct 20, 2000
+1 ;Per VHA Directive 10-93-142, this routine should not be modified.
+2 ;
+1 ; THIS HEADER IS CALLED FROM [PRCS CO ITEMHIST-HDR] PRINT TEMPLATE.
+2 ;
+3 WRITE !,?34,"Item History"
+4 WRITE !
+5 WRITE !,PRCSDT
+6 SET PRCSPGQ=PRCSPGQ+1
+7 WRITE ?70,"Page ",PRCSPGQ
+8 WRITE !,"Site: ",PRC("SITE")
+9 WRITE ?25,"Control Point: ",PRC("CP")
+10 WRITE !,"Item Number: "
DO WRITMN^PRCSP1A
+11 WRITE ?25,"Description: "
DO WRITMD^PRCSP1A
+12 WRITE !
+13 WRITE !,?25,"Qty.",?34,"Unit"
+14 WRITE !,?25,"Prev.",?34,"of",?71,"Quantity"
+15 WRITE !,"Date Ordered",?14,"PO Number",?25,"Recd.",?34,"Purch."
+16 WRITE ?42,"Unit Cost",?56,"Total Cost",?71,"Ordered"
+17 KILL PRCSUL
+18 SET $PIECE(PRCSUL,"_",80)="_"
+19 WRITE !,PRCSUL,!
+20 QUIT
