Last change
on this file since 1796 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
768 bytes
|
Line | |
---|
1 | PRCSES3 ;WASH-ISC/DJM-HEADER FOR PRCS CO ITEMHIST ; [12/11/98 2:23pm]
|
---|
2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
---|
3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | ;
|
---|
5 | HEADER ; 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.