ORWCV1 ;SLC/DCM - CoverSheet calls continued ;Aug 20, 2019@09:35
;;3.0;ORDER ENTRY/RESULTS REPORTING;**85,377**;Dec 17, 1997;Build 582
;
COVERLST(LST) ; -- return data for coversheet
;RPC: ORWCV1 COVERSHEET LIST
N I,J,X,X0,X2,CNT,EOF,ROOT,RPC,LIST,DETAIL,HEAD
S EOF="$$END",ROOT=$NA(LST),(CNT,I)=0
D GETLST^XPAR(.LIST,"ALL","ORWCV1 COVERSHEET LIST")
F S I=$O(LIST(I)) Q:'I Q:'$D(^ORD(101.24,$P(LIST(I),U,2),0)) S X0=^(0),X2=$G(^(2)) D
. Q:$P(X0,U,12)="L"
. S RPC=$P($G(^XWB(8994,+$P(X0,U,13),0)),U),DETAIL=""
. I $P(X0,U,18) S DETAIL=$P($G(^ORD(101.24,+$P(X0,U,18),0)),U,13),DETAIL=$P($G(^XWB(8994,+DETAIL,0)),U)
. S HEAD=$P(X0,U) I $L($P(X2,U,3)) S HEAD=$P(X2,U,3)
. S X=$P(X0,U,2)_U_HEAD_U_$P(X0,U,3)_U_$P(X0,U,12)_U_$P(X0,U,7)_U_RPC_U_$P(X0,U,9)
. S X=X_U_$P(X0,U,10)_U_$P(X0,U,11)_U_$P(X0,U,14)_U_$P(X0,U,15)_U_$P(X2,U)_U_$P(X0,U,4)_U_$P(X0,U,16)_U_$P(X0,U,17)_U_DETAIL_U_LIST(I)
. S X=X_U_$P(X2,U,5)
. D SETITEM(.ROOT,X)
Q
SETITEM(ROOT,X) ; -- set item in list
S @ROOT@($O(@ROOT@(9999),-1)+1)=X
Q
DETAIL(ID) ;Get RPC for Detail report
;ID=Cover sheet TAG ID
Q:'$L($G(ID)) ""
N I,X0,DETAIL
S I=0,DETAIL=""
F S I=$O(^ORD(101.24,"AC",ID,I)) Q:'I S X0=$G(^ORD(101.24,I,0)) I $P(X0,U,8)="C",$P(X0,U,18) S DETAIL=$P($G(^ORD(101.24,+$P(X0,U,18),0)),U,13),DETAIL=$P($G(^XWB(8994,+DETAIL,0)),U)
Q DETAIL
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORWCV1 1365 printed Nov 22, 2024@17:45:04 Page 2
ORWCV1 ;SLC/DCM - CoverSheet calls continued ;Aug 20, 2019@09:35
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**85,377**;Dec 17, 1997;Build 582
+2 ;
COVERLST(LST) ; -- return data for coversheet
+1 ;RPC: ORWCV1 COVERSHEET LIST
+2 NEW I,J,X,X0,X2,CNT,EOF,ROOT,RPC,LIST,DETAIL,HEAD
+3 SET EOF="$$END"
SET ROOT=$NAME(LST)
SET (CNT,I)=0
+4 DO GETLST^XPAR(.LIST,"ALL","ORWCV1 COVERSHEET LIST")
+5 FOR
SET I=$ORDER(LIST(I))
if 'I
QUIT
if '$DATA(^ORD(101.24,$PIECE(LIST(I),U,2),0))
QUIT
SET X0=^(0)
SET X2=$GET(^(2))
Begin DoDot:1
+6 if $PIECE(X0,U,12)="L"
QUIT
+7 SET RPC=$PIECE($GET(^XWB(8994,+$PIECE(X0,U,13),0)),U)
SET DETAIL=""
+8 IF $PIECE(X0,U,18)
SET DETAIL=$PIECE($GET(^ORD(101.24,+$PIECE(X0,U,18),0)),U,13)
SET DETAIL=$PIECE($GET(^XWB(8994,+DETAIL,0)),U)
+9 SET HEAD=$PIECE(X0,U)
IF $LENGTH($PIECE(X2,U,3))
SET HEAD=$PIECE(X2,U,3)
+10 SET X=$PIECE(X0,U,2)_U_HEAD_U_$PIECE(X0,U,3)_U_$PIECE(X0,U,12)_U_$PIECE(X0,U,7)_U_RPC_U_$PIECE(X0,U,9)
+11 SET X=X_U_$PIECE(X0,U,10)_U_$PIECE(X0,U,11)_U_$PIECE(X0,U,14)_U_$PIECE(X0,U,15)_U_$PIECE(X2,U)_U_$PIECE(X0,U,4)_U_$PIECE(X0,U,16)_U_$PIECE(X0,U,17)_U_DETAIL_U_LIST(I)
+12 SET X=X_U_$PIECE(X2,U,5)
+13 DO SETITEM(.ROOT,X)
End DoDot:1
+14 QUIT
SETITEM(ROOT,X) ; -- set item in list
+1 SET @ROOT@($ORDER(@ROOT@(9999),-1)+1)=X
+2 QUIT
DETAIL(ID) ;Get RPC for Detail report
+1 ;ID=Cover sheet TAG ID
+2 if '$LENGTH($GET(ID))
QUIT ""
+3 NEW I,X0,DETAIL
+4 SET I=0
SET DETAIL=""
+5 FOR
SET I=$ORDER(^ORD(101.24,"AC",ID,I))
if 'I
QUIT
SET X0=$GET(^ORD(101.24,I,0))
IF $PIECE(X0,U,8)="C"
IF $PIECE(X0,U,18)
SET DETAIL=$PIECE($GET(^ORD(101.24,+$PIECE(X0,U,18),0)),U,13)
SET DETAIL=$PIECE($GET(^XWB(8994,+DETAIL,0)),U)
+6 QUIT DETAIL
