PRCSES3.m

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.

 ;

HEADER ; THIS IS THE HEADER FOR [PRCS CO ITEMHIST] PRINT TEMPLATE.

 ; 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 ---PRCSES3   793     printed  Feb 18, 2025@23:44:06                                                                                                                                                                                                      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       ;

HEADER    ; THIS IS THE HEADER FOR [PRCS CO ITEMHIST] PRINT TEMPLATE.

 +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