| 1 | ORWRP3 ; slc/dcm - OE/RR Report Extract RPC's ; 08 May 2001 13:32PM
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,120,132,215,243**;Dec 17, 1997;Build 242
|
|---|
| 3 | ;
|
|---|
| 4 | ; DBIA 4011 Access ^XWB(8994)
|
|---|
| 5 | ;
|
|---|
| 6 | EX(ROOT,TST) ;Expand columns
|
|---|
| 7 | ;TST=ptr to file 101.24
|
|---|
| 8 | ;Y(i)=id^Name^Qualifier^IOM^Entry^Routine^Remote^Type^Category^RPC^ifn^sort_order^max_days^direct^hdr^fhie
|
|---|
| 9 | Q:'$G(TST)
|
|---|
| 10 | N J,X,X0,X1,X2,X4,RPC,HEAD,ORX0,ORX2,ORX4,ORX,ORTIMOCC,MAX
|
|---|
| 11 | I '$L($G(C)) S C=0
|
|---|
| 12 | S ORTIMOCC=$$GET^XPAR("USR.`"_DUZ_"^SYS^PKG","ORWRP TIME/OCC LIMITS INDV",+TST,"I")
|
|---|
| 13 | I '$L(ORTIMOCC) S ORTIMOCC=$$GET^XPAR("USR.`"_DUZ_"^SYS^PKG","ORWRP TIME/OCC LIMITS ALL",1,"I")
|
|---|
| 14 | S X0=$G(^ORD(101.24,+TST,0)),X2=$G(^(2)),X4=$G(^(4)),MAX=$P(X4,"^",2),X=$P($P(ORTIMOCC,";"),"-",2)
|
|---|
| 15 | I $P(X4,"^",10) Q
|
|---|
| 16 | I X,MAX,X>MAX S ORTIMOCC="T-"_MAX_";"_$P(ORTIMOCC,";",2,99)
|
|---|
| 17 | I '$L(ORTIMOCC) S ORTIMOCC=";;"
|
|---|
| 18 | I '$O(^ORD(101.24,+TST,10,0)) D Q
|
|---|
| 19 | . Q:$P(X0,"^",12)="L"
|
|---|
| 20 | . S RPC=$P($G(^XWB(8994,+$P(X0,"^",13),0)),"^") ;DBIA 4011
|
|---|
| 21 | . S HEAD=$P(X0,"^")
|
|---|
| 22 | . I $L($P(X2,"^",3)) S HEAD=$P(X2,"^",3)
|
|---|
| 23 | . S X1=$P(X0,U,2)_U_HEAD_U_ORTIMOCC_";"_$P(X0,U,4)_U_$P(X0,U,19)_";"_$P(X0,U,20)_";"
|
|---|
| 24 | . S X=X1_+$P(X0,U,21)_U_$P(X0,U,6)_U_$P(X0,U,5)_U_$P(X0,U,3)_U_$P(X0,U,12)_U_$P(X0,U,7)_U_RPC_U_+TST_U_$P(X4,U)_U_$P(X4,U,2)_U_$P(X4,U,4)_U_$P(X4,U,5)_U_$P(X4,U,8)_U_$P(X4,U,9)
|
|---|
| 25 | . D SETITEM(.ROOT,X)
|
|---|
| 26 | I $O(^ORD(101.24,+TST,10,0)) S ORX0=^ORD(101.24,+TST,0),ORX2=$G(^(2)),ORX4=$G(^(4)) D
|
|---|
| 27 | . I $P(ORX4,"^",10) Q
|
|---|
| 28 | . S RPC=$P($G(^XWB(8994,+$P(X0,"^",13),0)),"^") ;DBIA 4011
|
|---|
| 29 | . S X=ORX0,HEAD=$P(X,"^")
|
|---|
| 30 | . I $L($P(ORX2,"^",3)) S HEAD=$P(ORX2,"^",3)
|
|---|
| 31 | . S X1=$P(X,U,2)_U_HEAD_U_ORTIMOCC_";"_$P(X,U,4)_U_$P(X,U,19)_";"_$P(X,U,20)_";"
|
|---|
| 32 | . S ORX=X1_+$P(X,U,21)_U_$P(X,U,6)_U_$P(X,U,5)_U_$P(X,U,3)_U_$P(X,U,12)_U_$P(X,U,7)_U_RPC_U_+TST_U_$P(ORX4,U)_U_$P(ORX4,U,2)_U_$P(ORX4,U,4)_U_$P(ORX4,U,5)_U_$P(ORX4,U,8)_U_$P(X4,U,9)
|
|---|
| 33 | . D SETITEM(.ROOT,"[PARENT START]^"_ORX)
|
|---|
| 34 | . S J=0 F S J=$O(^ORD(101.24,+TST,10,J)) Q:J<1 S X=^(J,0) D EX(.ROOT,+X)
|
|---|
| 35 | . D SETITEM(.ROOT,"[PARENT END]^"_ORX)
|
|---|
| 36 | Q
|
|---|
| 37 | LIST(LST,TAB) ;Get list for Reports & Labs Tab Treeview
|
|---|
| 38 | N ROOT
|
|---|
| 39 | S ROOT=$NA(LST)
|
|---|
| 40 | K @ROOT
|
|---|
| 41 | D TRY1(.ROOT,$G(TAB))
|
|---|
| 42 | Q
|
|---|
| 43 | TRY1(ROOT,TAB) ;Test expanding reports using established parameters
|
|---|
| 44 | N I,ORLIST
|
|---|
| 45 | D SETITEM(.ROOT,"[REPORT LIST]")
|
|---|
| 46 | D GETLST^XPAR(.ORLIST,"ALL",$S($G(TAB)="LABS":"ORWRP REPORT LAB LIST",1:"ORWRP REPORT LIST"))
|
|---|
| 47 | S I=0
|
|---|
| 48 | F S I=$O(ORLIST(I)) Q:'I Q:'$D(^ORD(101.24,$P(ORLIST(I),"^",2),0)) D EX(.ROOT,$P(ORLIST(I),"^",2))
|
|---|
| 49 | D SETITEM(.ROOT,"$$END")
|
|---|
| 50 | Q
|
|---|
| 51 | SETITEM(ROOT,X) ; -- set item in list
|
|---|
| 52 | S @ROOT@($O(@ROOT@(9999),-1)+1)=X
|
|---|
| 53 | Q
|
|---|
