source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCSES3.m@ 619

Last change on this file since 619 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 768 bytes
Line 
1PRCSES3 ;WASH-ISC/DJM-HEADER FOR PRCS CO ITEMHIST ; [12/11/98 2:23pm]
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5HEADER ; THIS IS THE HEADER FOR [PRCS CO ITEMHIST] PRINT TEMPLATE.
6 ; THIS HEADER IS CALLED FROM [PRCS CO ITEMHIST-HDR] PRINT TEMPLATE.
7 ;
8 W !,?34,"Item History"
9 W !
10 W !,PRCSDT
11 S PRCSPGQ=PRCSPGQ+1
12 W ?70,"Page ",PRCSPGQ
13 W !,"Site: ",PRC("SITE")
14 W ?25,"Control Point: ",PRC("CP")
15 W !,"Item Number: " D WRITMN^PRCSP1A
16 W ?25,"Description: " D WRITMD^PRCSP1A
17 W !
18 W !,?25,"Qty.",?34,"Unit"
19 W !,?25,"Prev.",?34,"of",?71,"Quantity"
20 W !,"Date Ordered",?14,"PO Number",?25,"Recd.",?34,"Purch."
21 W ?42,"Unit Cost",?56,"Total Cost",?71,"Ordered"
22 K PRCSUL
23 S $P(PRCSUL,"_",80)="_"
24 W !,PRCSUL,!
25 Q
Note: See TracBrowser for help on using the repository browser.