source: WorldVistAEHR/trunk/r/EQUIPMENT_TURN_IN_REQUEST-PRCN/PRCNLID.m@ 701

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

initial load of WorldVistAEHR

File size: 455 bytes
Line 
1PRCNLID ;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)
8Q K PRCNDATA,I Q
Note: See TracBrowser for help on using the repository browser.