Last change
on this file since 1757 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
455 bytes
|
Line | |
---|
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.