PRCNLID.m

PRCNLID ;SSI/SEB-Display line items ;[ 05/31/96  10:21 AM ]

 ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996

 S PRCNDATA=^PRCN(413,D0,1,D1,0) I 'PRCNDATA W $C(7),!,"No such line item!" G Q

 W @IOF,"Line Item #",$P(PRCNDATA,U),?40,"Contract #",$P(PRCNDATA,U,6)

 W !,"Unit Cost: ",$P(PRCNDATA,U,4),?40,"Quantity Required: ",$P(PRCNDATA,U,5)

 S I=0 W !,"Description:"

 F  S I=$O(^PRCN(413,D0,1,D1,1,I)) Q:I=""  W !,?4,^PRCN(413,D0,1,D1,1,I,0)

Q K PRCNDATA,I Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCNLID   463     printed  Apr 09, 2024@20:59:41                                                                                                                                                                                                      Page 2

PRCNLID   ;SSI/SEB-Display line items ;[ 05/31/96  10:21 AM ]

 +1       ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996

 +2        SET PRCNDATA=^PRCN(413,D0,1,D1,0)

           IF 'PRCNDATA

               WRITE $CHAR(7),!,"No such line item!"

               GOTO Q

 +3        WRITE @IOF,"Line Item #",$PIECE(PRCNDATA,U),?40,"Contract #",$PIECE(PRCNDATA,U,6)

 +4        WRITE !,"Unit Cost: ",$PIECE(PRCNDATA,U,4),?40,"Quantity Required: ",$PIECE(PRCNDATA,U,5)

 +5        SET I=0

           WRITE !,"Description:"

 +6        FOR 

               SET I=$ORDER(^PRCN(413,D0,1,D1,1,I))

               if I=""

                   QUIT 

               WRITE !,?4,^PRCN(413,D0,1,D1,1,I,0)

Q          KILL PRCNDATA,I

           QUIT