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 ---[H[J[2J[HPRCNLID 463 printed Dec 13, 2024@01:54:23 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
