Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
455 bytes
|
Rev | Line | |
---|
[613] | 1 | PRCNLID ;SSI/SEB-Display line items ;[ 05/31/96 10:21 AM ]
|
---|
| 2 | ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
|
---|
| 3 | S PRCNDATA=^PRCN(413,D0,1,D1,0) I 'PRCNDATA W $C(7),!,"No such line item!" G Q
|
---|
| 4 | W @IOF,"Line Item #",$P(PRCNDATA,U),?40,"Contract #",$P(PRCNDATA,U,6)
|
---|
| 5 | W !,"Unit Cost: ",$P(PRCNDATA,U,4),?40,"Quantity Required: ",$P(PRCNDATA,U,5)
|
---|
| 6 | S I=0 W !,"Description:"
|
---|
| 7 | F S I=$O(^PRCN(413,D0,1,D1,1,I)) Q:I="" W !,?4,^PRCN(413,D0,1,D1,1,I,0)
|
---|
| 8 | Q K PRCNDATA,I Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.