ORQQVI1 ;SLC/STAFF- Vitals rpc grid ;2/4/99 21:11
;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,285**;Dec 17, 1997;Build 5
;
;DBIA for PXRMINDX(120.5 is 4290
;DBIA for ^GMVPXRM is 3647
TEST ; test use only
N CNT,I K ^TMP("ORQQVX",$J)
S ^TMP("ORQQVX",$J,"INPUT",1)="16^2970902^2920202^3"
S CNT=1
F I="WEIGHT","RESPIRATION","PULSE","HEIGHT" S CNT=CNT+1,^TMP("ORQQVX",$J,"INPUT",CNT)=I
D GRIDDATA
S I=0 F S I=$O(^TMP("ORQQVX",$J,"OUTPUT",I)) Q:I<1 W !,^(I)
K ^TMP("ORQQVX",$J)
Q
;
DETAIL(ROOT,DFN,DATE1,DATE2,RTIMES,TESTS) ; from Remote Procedure file
N CNT,NUM,TEMPDATE
I DATE1<DATE2 S TEMPDATE=DATE1,DATE1=DATE2,DATE2=TEMPDATE
K ^TMP("ORQQVX",$J,"INPUT"),^("OUTPUT")
S ROOT=$NA(^TMP("ORQQVX",$J,"OUTPUT"))
S ^TMP("ORQQVX",$J,"INPUT",1)=DFN_U_DATE1_U_DATE2_U_RTIMES
S CNT=1,NUM=0 F S NUM=$O(TESTS(NUM)) Q:NUM<1 D
.S CNT=CNT+1
.S ^TMP("ORQQVX",$J,"INPUT",CNT)=TESTS(NUM)
D MEMODATA
Q
;
MEMODATA ;
; input format
; ^TMP("ORQQVX",$J,"INPUT",1)=dfn^start date^end date^restrict # time values
; ^TMP("ORQQVX",$J,"INPUT",#)=test# (tests displayed in this order)
;
S ^TMP("ORQQVX",$J,"OUTPUT",1)=""
N CHECKOK,DATANUM,DATESEQ,DATETIME,DFN,EDATE,EDT,ENTERBY,IDT,LINE,LINE1,LOC,MAIN,NUM,OUTCNT,RCNT,RQUIT,RESULT,RTIMES,SDATE,TESTNAME,TESTNUM,TESTSEQ,VCNT,ZERO
K ^TMP("ORQQV",$J)
S DFN=+^TMP("ORQQVX",$J,"INPUT",1),SDATE=+$P(^(1),U,2),EDATE=+$P(^(1),U,3),RTIMES=+$P(^(1),U,4)
Q:'DFN I 'SDATE,'EDATE,'RTIMES Q
I RTIMES,'SDATE,'EDATE S SDATE=DT,EDATE=2750101
I SDATE,'EDATE Q
I EDATE,'SDATE Q
S OUTCNT=1,TESTSEQ=0
S NUM=1 F S NUM=$O(^TMP("ORQQVX",$J,"INPUT",NUM)) Q:NUM<1 S TESTNAME=^(NUM) D
.S TESTNAME=$$UP^XLFSTR(TESTNAME)
.S TESTNUM=$$FIND1^DIC(120.51,"","BX",TESTNAME,"","","ERR")
.I 'TESTNUM Q
.S TESTSEQ=TESTSEQ+1
.S LINE=TESTSEQ_U_TESTNUM_U_$$MIXED^ORU(TESTNAME)
.S ^TMP("ORQQV",$J,"TEST",TESTSEQ)=LINE
.S OUTCNT=OUTCNT+1
S EDATE=EDATE\1
S TESTSEQ=0 F S TESTSEQ=$O(^TMP("ORQQV",$J,"TEST",TESTSEQ)) Q:TESTSEQ<1 S TESTNUM=$P(^(TESTSEQ),U,2) D
.S IDT=SDATE,(RCNT,RQUIT)=0
.F S IDT=$O(^PXRMINDX(120.5,"PI",DFN,TESTNUM,SDATE)) Q:IDT<1 Q:IDT>EDATE D Q:RQUIT
..S DATANUM="" F S DATANUM=$O(^PXRMINDX(120.5,"PI",DFN,TESTNUM,SDATE,DATANUM)) Q:$L(DATANUM)'>0 D Q:RQUIT
...D EN^GMVPXRM(.ZERO,DATANUM,"I")
...Q:$P(ZERO(1),U)=-1
...Q:$P(ZERO(2),U)'=DFN Q:$P(ZERO(3),U)'=TESTNUM
...S RESULT=$$STRIP^ORCMEDIT($P(ZERO(7),U)),DATETIME=$P(ZERO(1),U),LOC=+$P(ZERO(5),U),ENTERBY=+$P(ZERO(6),U)
...S ^TMP("ORQQV",$J,"RESULTS",IDT)=DATETIME_U_LOC_U_ENTERBY ;$$FMTE^XLFDT(DATETIME)_" Location: "_$P($G(^SC(+LOC,0)),U)_" Entered by: "_$P($G(^VA(200,+ENTERBY,0)),U)
...S LINE=" "_$P(^TMP("ORQQV",$J,"TEST",TESTSEQ),U,3)
...S LINE=$$SETSTR^VALM1(RESULT,LINE,22,1+$L(RESULT))_U_LOC_U_ENTERBY
...S ^TMP("ORQQV",$J,"RESULTS",IDT,TESTSEQ)=LINE
...I RTIMES S RCNT=RCNT+1 I RCNT=RTIMES S RQUIT=1
S (DATESEQ,RCNT,RQUIT,VCNT)=0
S IDT=0 F S IDT=$O(^TMP("ORQQV",$J,"RESULTS",IDT)) Q:IDT<1 S LINE=^(IDT) D Q:RQUIT
.S CHECKOK=1 D
..S MAIN=$P(LINE,U,2,3)
..S TESTSEQ=0 F S TESTSEQ=$O(^TMP("ORQQV",$J,"RESULTS",IDT,TESTSEQ)) Q:TESTSEQ<1 S RESULT=$P(^(TESTSEQ),U,2,3) I RESULT'=MAIN S CHECKOK=0 Q
.I CHECKOK D
..S DATETIME=$$FMTE^XLFDT($P(LINE,U)),DATETIME=$P(DATETIME,":",1,2)
..S DATETIME=DATETIME_" Location: "_$P($G(^SC($P(LINE,U,2),0)),U)
..S DATETIME=$$SETSTR^VALM1(" Entered by: "_$P($G(^VA(200,$P(LINE,U,3),0)),U),DATETIME,50,30)
.E S DATETIME=$$FMTE^XLFDT($P(LINE,U)),DATETIME=$P(DATETIME,":",1,2)
.S DATESEQ=DATESEQ+1
.S OUTCNT=OUTCNT+1
.S ^TMP("ORQQVX",$J,"OUTPUT",OUTCNT)=DATETIME
.S TESTSEQ=0 F S TESTSEQ=$O(^TMP("ORQQV",$J,"RESULTS",IDT,TESTSEQ)) Q:TESTSEQ<1 S LINE1=^(TESTSEQ) D
..I CHECKOK S RESULT=$P(LINE1,U)
..E D
...S RESULT=$$SETSTR^VALM1(" Location: "_$P($G(^SC($P(LINE1,U,2),0)),U),$P(LINE1,U),30,25)
...S RESULT=$$SETSTR^VALM1(" Entered by; "_$P($G(^VA(200,$P(LINE1,U,3),0)),U),RESULT,50,30)
..S OUTCNT=OUTCNT+1
..S ^TMP("ORQQVX",$J,"OUTPUT",OUTCNT)=RESULT
.I RTIMES S RCNT=RCNT+1 I RCNT=RTIMES S RQUIT=1
K ^TMP("ORQQV",$J)
Q
;
GRID(ROOT,DFN,DATE1,DATE2,RTIMES,TESTS) ; from Remote Procedure file
N CNT,NUM,TEMPDATE
I DATE1<DATE2 S TEMPDATE=DATE1,DATE1=DATE2,DATE2=TEMPDATE
K ^TMP("ORQQVX",$J,"INPUT"),^("OUTPUT")
S ROOT=$NA(^TMP("ORQQVX",$J,"OUTPUT"))
S ^TMP("ORQQVX",$J,"INPUT",1)=DFN_U_DATE1_U_DATE2_U_RTIMES
S CNT=1,NUM=0 F S NUM=$O(TESTS(NUM)) Q:NUM<1 D
.S CNT=CNT+1
.S ^TMP("ORQQVX",$J,"INPUT",CNT)=TESTS(NUM)
D GRIDDATA
Q
;
GRIDDATA ;
; input format
; ^TMP("ORQQVX",$J,"INPUT",1)=dfn^start date^end date^restrict # time values
; ^TMP("ORQQVX",$J,"INPUT",#)=test# (tests displayed in this order)
;
S ^TMP("ORQQVX",$J,"OUTPUT",1)="0^0^0"
N DATANUM,DATESEQ,DATETIME,DFN,EDATE,EDT,IDT,LINE,NUM,OUTCNT,RCNT,RQUIT,RESULT,RTIMES,SDATE,TESTNAME,TESTNUM,TESTSEQ,VALUES,VCNT,ZERO
K ^TMP("ORQQV",$J)
S DFN=+^TMP("ORQQVX",$J,"INPUT",1),SDATE=+$P(^(1),U,2),EDATE=+$P(^(1),U,3),RTIMES=+$P(^(1),U,4)
Q:'DFN I 'SDATE,'EDATE,'RTIMES Q
I RTIMES,'SDATE,'EDATE S SDATE=DT,EDATE=2750101
I SDATE,'EDATE Q
I EDATE,'SDATE Q
S OUTCNT=1,TESTSEQ=0
S NUM=1 F S NUM=$O(^TMP("ORQQVX",$J,"INPUT",NUM)) Q:NUM<1 S TESTNAME=^(NUM) D
.S TESTNAME=$$UP^XLFSTR(TESTNAME)
.S TESTNUM=$$FIND1^DIC(120.51,"","BX",TESTNAME,"","","ERR")
.I 'TESTNUM Q
.S TESTSEQ=TESTSEQ+1
.S LINE=TESTSEQ_U_TESTNUM_U_TESTNAME
.S ^TMP("ORQQV",$J,"TEST",TESTSEQ)=LINE
.S OUTCNT=OUTCNT+1
.S ^TMP("ORQQVX",$J,"OUTPUT",OUTCNT)=LINE
S ^TMP("ORQQVX",$J,"OUTPUT",1)=TESTSEQ
S EDATE=EDATE\1
S EDT=EDATE
S TESTSEQ=0 F S TESTSEQ=$O(^TMP("ORQQV",$J,"TEST",TESTSEQ)) Q:TESTSEQ<1 S TESTNUM=$P(^(TESTSEQ),U,2) D
.S IDT=SDATE,(RCNT,RQUIT)=0
.F S IDT=$O(^PXRMINDX(120.5,"PI",DFN,TESTNUM,IDT)) Q:IDT<1 Q:IDT>EDT D Q:RQUIT
..S DATANUM=0 F S DATANUM=$O(^PXRMINDX(120.5,"PI",DFN,TESTNUM,IDT,DATANUM)) Q:DATANUM<1 D Q:RQUIT
...D EN^GMVPXRM(.ZERO,DATANUM,"I")
...Q:$P(ZERO(1),U)=-1
...Q:$P(ZERO(2),U)'=DFN Q:$P(ZERO(3),U)'=TESTNUM
...S RESULT=$$STRIP^ORCMEDIT($P(ZERO(7),U)),DATETIME=$P(ZERO(1),U)
...S ^TMP("ORQQV",$J,"RESULTS",IDT)=DATETIME
...S ^TMP("ORQQV",$J,"RESULTS",IDT,TESTSEQ)=RESULT
...I RTIMES S RCNT=RCNT+1 I RCNT=RTIMES S RQUIT=1
S (DATESEQ,RCNT,RQUIT,VCNT)=0
S IDT="A" F S IDT=$O(^TMP("ORQQV",$J,"RESULTS",IDT),-1) Q:IDT="" S DATETIME=^(IDT) D Q:RQUIT
.S DATESEQ=DATESEQ+1
.S OUTCNT=OUTCNT+1
.S ^TMP("ORQQVX",$J,"OUTPUT",OUTCNT)=DATESEQ_U_DATETIME
.S TESTSEQ=0 F S TESTSEQ=$O(^TMP("ORQQV",$J,"RESULTS",IDT,TESTSEQ)) Q:TESTSEQ<1 S RESULT=^(TESTSEQ) D
..S VCNT=VCNT+1
..S ^TMP("ORQQV",$J,"VALUES",VCNT)=DATESEQ_U_TESTSEQ_U_RESULT
.I RTIMES S RCNT=RCNT+1 I RCNT=RTIMES S RQUIT=1
S $P(^TMP("ORQQVX",$J,"OUTPUT",1),U,2,3)=DATESEQ_U_VCNT
S VCNT=0 F S VCNT=$O(^TMP("ORQQV",$J,"VALUES",VCNT)) Q:VCNT<1 S VALUES=^(VCNT) D
.S OUTCNT=OUTCNT+1
.S ^TMP("ORQQVX",$J,"OUTPUT",OUTCNT)=VALUES
K ^TMP("ORQQV",$J)
Q
ORQQVI1 ;SLC/STAFF- Vitals rpc grid ;2/4/99 21:11
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,285**;Dec 17, 1997;Build 5
+2 ;
+3 ;DBIA for PXRMINDX(120.5 is 4290
+4 ;DBIA for ^GMVPXRM is 3647
TEST ; test use only
+1 NEW CNT,I
KILL ^TMP("ORQQVX",$JOB)
+2 SET ^TMP("ORQQVX",$JOB,"INPUT",1)="16^2970902^2920202^3"
+3 SET CNT=1
+4 FOR I="WEIGHT","RESPIRATION","PULSE","HEIGHT"
SET CNT=CNT+1
SET ^TMP("ORQQVX",$JOB,"INPUT",CNT)=I
+5 DO GRIDDATA
+6 SET I=0
FOR
SET I=$ORDER(^TMP("ORQQVX",$JOB,"OUTPUT",I))
IF I<1
QUIT
WRITE !,^(I)
+7 KILL ^TMP("ORQQVX",$JOB)
+8 QUIT
+9 ;
DETAIL(ROOT,DFN,DATE1,DATE2,RTIMES,TESTS) ; from Remote Procedure file
+1 NEW CNT,NUM,TEMPDATE
+2 IF DATE1<DATE2
SET TEMPDATE=DATE1
SET DATE1=DATE2
SET DATE2=TEMPDATE
+3 KILL ^TMP("ORQQVX",$JOB,"INPUT"),^("OUTPUT")
+4 SET ROOT=$NAME(^TMP("ORQQVX",$JOB,"OUTPUT"))
+5 SET ^TMP("ORQQVX",$JOB,"INPUT",1)=DFN_U_DATE1_U_DATE2_U_RTIMES
+6 SET CNT=1
SET NUM=0
FOR
SET NUM=$ORDER(TESTS(NUM))
IF NUM<1
QUIT
Begin DoDot:1
+7 SET CNT=CNT+1
+8 SET ^TMP("ORQQVX",$JOB,"INPUT",CNT)=TESTS(NUM)
End DoDot:1
+9 DO MEMODATA
+10 QUIT
+11 ;
MEMODATA ;
+1 ; input format
+2 ; ^TMP("ORQQVX",$J,"INPUT",1)=dfn^start date^end date^restrict # time values
+3 ; ^TMP("ORQQVX",$J,"INPUT",#)=test# (tests displayed in this order)
+4 ;
+5 SET ^TMP("ORQQVX",$JOB,"OUTPUT",1)=""
+6 NEW CHECKOK,DATANUM,DATESEQ,DATETIME,DFN,EDATE,EDT,ENTERBY,IDT,LINE,LINE1,LOC,MAIN,NUM,OUTCNT,RCNT,RQUIT,RESULT,RTIMES,SDATE,TESTNAME,TESTNUM,TESTSEQ,VCNT,ZERO
+7 KILL ^TMP("ORQQV",$JOB)
+8 SET DFN=+^TMP("ORQQVX",$JOB,"INPUT",1)
SET SDATE=+$PIECE(^(1),U,2)
SET EDATE=+$PIECE(^(1),U,3)
SET RTIMES=+$PIECE(^(1),U,4)
+9 IF 'DFN
QUIT
IF 'SDATE
IF 'EDATE
IF 'RTIMES
QUIT
+10 IF RTIMES
IF 'SDATE
IF 'EDATE
SET SDATE=DT
SET EDATE=2750101
+11 IF SDATE
IF 'EDATE
QUIT
+12 IF EDATE
IF 'SDATE
QUIT
+13 SET OUTCNT=1
SET TESTSEQ=0
+14 SET NUM=1
FOR
SET NUM=$ORDER(^TMP("ORQQVX",$JOB,"INPUT",NUM))
IF NUM<1
QUIT
SET TESTNAME=^(NUM)
Begin DoDot:1
+15 SET TESTNAME=$$UP^XLFSTR(TESTNAME)
+16 SET TESTNUM=$$FIND1^DIC(120.51,"","BX",TESTNAME,"","","ERR")
+17 IF 'TESTNUM
QUIT
+18 SET TESTSEQ=TESTSEQ+1
+19 SET LINE=TESTSEQ_U_TESTNUM_U_$$MIXED^ORU(TESTNAME)
+20 SET ^TMP("ORQQV",$JOB,"TEST",TESTSEQ)=LINE
+21 SET OUTCNT=OUTCNT+1
End DoDot:1
+22 SET EDATE=EDATE\1
+23 SET TESTSEQ=0
FOR
SET TESTSEQ=$ORDER(^TMP("ORQQV",$JOB,"TEST",TESTSEQ))
IF TESTSEQ<1
QUIT
SET TESTNUM=$PIECE(^(TESTSEQ),U,2)
Begin DoDot:1
+24 SET IDT=SDATE
SET (RCNT,RQUIT)=0
+25 FOR
SET IDT=$ORDER(^PXRMINDX(120.5,"PI",DFN,TESTNUM,SDATE))
IF IDT<1
QUIT
IF IDT>EDATE
QUIT
Begin DoDot:2
+26 SET DATANUM=""
FOR
SET DATANUM=$ORDER(^PXRMINDX(120.5,"PI",DFN,TESTNUM,SDATE,DATANUM))
IF $LENGTH(DATANUM)'>0
QUIT
Begin DoDot:3
+27 DO EN^GMVPXRM(.ZERO,DATANUM,"I")
+28 IF $PIECE(ZERO(1),U)=-1
QUIT
+29 IF $PIECE(ZERO(2),U)'=DFN
QUIT
IF $PIECE(ZERO(3),U)'=TESTNUM
QUIT
+30 SET RESULT=$$STRIP^ORCMEDIT($PIECE(ZERO(7),U))
SET DATETIME=$PIECE(ZERO(1),U)
SET LOC=+$PIECE(ZERO(5),U)
SET ENTERBY=+$PIECE(ZERO(6),U)
+31 ;$$FMTE^XLFDT(DATETIME)_" Location: "_$P($G(^SC(+LOC,0)),U)_" Entered by: "_$P($G(^VA(200,+ENTERBY,0)),U)
SET ^TMP("ORQQV",$JOB,"RESULTS",IDT)=DATETIME_U_LOC_U_ENTERBY
+32 SET LINE=" "_$PIECE(^TMP("ORQQV",$JOB,"TEST",TESTSEQ),U,3)
+33 SET LINE=$$SETSTR^VALM1(RESULT,LINE,22,1+$LENGTH(RESULT))_U_LOC_U_ENTERBY
+34 SET ^TMP("ORQQV",$JOB,"RESULTS",IDT,TESTSEQ)=LINE
+35 IF RTIMES
SET RCNT=RCNT+1
IF RCNT=RTIMES
SET RQUIT=1
End DoDot:3
IF RQUIT
QUIT
End DoDot:2
IF RQUIT
QUIT
End DoDot:1
+36 SET (DATESEQ,RCNT,RQUIT,VCNT)=0
+37 SET IDT=0
FOR
SET IDT=$ORDER(^TMP("ORQQV",$JOB,"RESULTS",IDT))
IF IDT<1
QUIT
SET LINE=^(IDT)
Begin DoDot:1
+38 SET CHECKOK=1
Begin DoDot:2
+39 SET MAIN=$PIECE(LINE,U,2,3)
+40 SET TESTSEQ=0
FOR
SET TESTSEQ=$ORDER(^TMP("ORQQV",$JOB,"RESULTS",IDT,TESTSEQ))
IF TESTSEQ<1
QUIT
SET RESULT=$PIECE(^(TESTSEQ),U,2,3)
IF RESULT'=MAIN
SET CHECKOK=0
QUIT
End DoDot:2
+41 IF CHECKOK
Begin DoDot:2
+42 SET DATETIME=$$FMTE^XLFDT($PIECE(LINE,U))
SET DATETIME=$PIECE(DATETIME,":",1,2)
+43 SET DATETIME=DATETIME_" Location: "_$PIECE($GET(^SC($PIECE(LINE,U,2),0)),U)
+44 SET DATETIME=$$SETSTR^VALM1(" Entered by: "_$PIECE($GET(^VA(200,$PIECE(LINE,U,3),0)),U),DATETIME,50,30)
End DoDot:2
+45 IF '$TEST
SET DATETIME=$$FMTE^XLFDT($PIECE(LINE,U))
SET DATETIME=$PIECE(DATETIME,":",1,2)
+46 SET DATESEQ=DATESEQ+1
+47 SET OUTCNT=OUTCNT+1
+48 SET ^TMP("ORQQVX",$JOB,"OUTPUT",OUTCNT)=DATETIME
+49 SET TESTSEQ=0
FOR
SET TESTSEQ=$ORDER(^TMP("ORQQV",$JOB,"RESULTS",IDT,TESTSEQ))
IF TESTSEQ<1
QUIT
SET LINE1=^(TESTSEQ)
Begin DoDot:2
+50 IF CHECKOK
SET RESULT=$PIECE(LINE1,U)
+51 IF '$TEST
Begin DoDot:3
+52 SET RESULT=$$SETSTR^VALM1(" Location: "_$PIECE($GET(^SC($PIECE(LINE1,U,2),0)),U),$PIECE(LINE1,U),30,25)
+53 SET RESULT=$$SETSTR^VALM1(" Entered by; "_$PIECE($GET(^VA(200,$PIECE(LINE1,U,3),0)),U),RESULT,50,30)
End DoDot:3
+54 SET OUTCNT=OUTCNT+1
+55 SET ^TMP("ORQQVX",$JOB,"OUTPUT",OUTCNT)=RESULT
End DoDot:2
+56 IF RTIMES
SET RCNT=RCNT+1
IF RCNT=RTIMES
SET RQUIT=1
End DoDot:1
IF RQUIT
QUIT
+57 KILL ^TMP("ORQQV",$JOB)
+58 QUIT
+59 ;
GRID(ROOT,DFN,DATE1,DATE2,RTIMES,TESTS) ; from Remote Procedure file
+1 NEW CNT,NUM,TEMPDATE
+2 IF DATE1<DATE2
SET TEMPDATE=DATE1
SET DATE1=DATE2
SET DATE2=TEMPDATE
+3 KILL ^TMP("ORQQVX",$JOB,"INPUT"),^("OUTPUT")
+4 SET ROOT=$NAME(^TMP("ORQQVX",$JOB,"OUTPUT"))
+5 SET ^TMP("ORQQVX",$JOB,"INPUT",1)=DFN_U_DATE1_U_DATE2_U_RTIMES
+6 SET CNT=1
SET NUM=0
FOR
SET NUM=$ORDER(TESTS(NUM))
IF NUM<1
QUIT
Begin DoDot:1
+7 SET CNT=CNT+1
+8 SET ^TMP("ORQQVX",$JOB,"INPUT",CNT)=TESTS(NUM)
End DoDot:1
+9 DO GRIDDATA
+10 QUIT
+11 ;
GRIDDATA ;
+1 ; input format
+2 ; ^TMP("ORQQVX",$J,"INPUT",1)=dfn^start date^end date^restrict # time values
+3 ; ^TMP("ORQQVX",$J,"INPUT",#)=test# (tests displayed in this order)
+4 ;
+5 SET ^TMP("ORQQVX",$JOB,"OUTPUT",1)="0^0^0"
+6 NEW DATANUM,DATESEQ,DATETIME,DFN,EDATE,EDT,IDT,LINE,NUM,OUTCNT,RCNT,RQUIT,RESULT,RTIMES,SDATE,TESTNAME,TESTNUM,TESTSEQ,VALUES,VCNT,ZERO
+7 KILL ^TMP("ORQQV",$JOB)
+8 SET DFN=+^TMP("ORQQVX",$JOB,"INPUT",1)
SET SDATE=+$PIECE(^(1),U,2)
SET EDATE=+$PIECE(^(1),U,3)
SET RTIMES=+$PIECE(^(1),U,4)
+9 IF 'DFN
QUIT
IF 'SDATE
IF 'EDATE
IF 'RTIMES
QUIT
+10 IF RTIMES
IF 'SDATE
IF 'EDATE
SET SDATE=DT
SET EDATE=2750101
+11 IF SDATE
IF 'EDATE
QUIT
+12 IF EDATE
IF 'SDATE
QUIT
+13 SET OUTCNT=1
SET TESTSEQ=0
+14 SET NUM=1
FOR
SET NUM=$ORDER(^TMP("ORQQVX",$JOB,"INPUT",NUM))
IF NUM<1
QUIT
SET TESTNAME=^(NUM)
Begin DoDot:1
+15 SET TESTNAME=$$UP^XLFSTR(TESTNAME)
+16 SET TESTNUM=$$FIND1^DIC(120.51,"","BX",TESTNAME,"","","ERR")
+17 IF 'TESTNUM
QUIT
+18 SET TESTSEQ=TESTSEQ+1
+19 SET LINE=TESTSEQ_U_TESTNUM_U_TESTNAME
+20 SET ^TMP("ORQQV",$JOB,"TEST",TESTSEQ)=LINE
+21 SET OUTCNT=OUTCNT+1
+22 SET ^TMP("ORQQVX",$JOB,"OUTPUT",OUTCNT)=LINE
End DoDot:1
+23 SET ^TMP("ORQQVX",$JOB,"OUTPUT",1)=TESTSEQ
+24 SET EDATE=EDATE\1
+25 SET EDT=EDATE
+26 SET TESTSEQ=0
FOR
SET TESTSEQ=$ORDER(^TMP("ORQQV",$JOB,"TEST",TESTSEQ))
IF TESTSEQ<1
QUIT
SET TESTNUM=$PIECE(^(TESTSEQ),U,2)
Begin DoDot:1
+27 SET IDT=SDATE
SET (RCNT,RQUIT)=0
+28 FOR
SET IDT=$ORDER(^PXRMINDX(120.5,"PI",DFN,TESTNUM,IDT))
IF IDT<1
QUIT
IF IDT>EDT
QUIT
Begin DoDot:2
+29 SET DATANUM=0
FOR
SET DATANUM=$ORDER(^PXRMINDX(120.5,"PI",DFN,TESTNUM,IDT,DATANUM))
IF DATANUM<1
QUIT
Begin DoDot:3
+30 DO EN^GMVPXRM(.ZERO,DATANUM,"I")
+31 IF $PIECE(ZERO(1),U)=-1
QUIT
+32 IF $PIECE(ZERO(2),U)'=DFN
QUIT
IF $PIECE(ZERO(3),U)'=TESTNUM
QUIT
+33 SET RESULT=$$STRIP^ORCMEDIT($PIECE(ZERO(7),U))
SET DATETIME=$PIECE(ZERO(1),U)
+34 SET ^TMP("ORQQV",$JOB,"RESULTS",IDT)=DATETIME
+35 SET ^TMP("ORQQV",$JOB,"RESULTS",IDT,TESTSEQ)=RESULT
+36 IF RTIMES
SET RCNT=RCNT+1
IF RCNT=RTIMES
SET RQUIT=1
End DoDot:3
IF RQUIT
QUIT
End DoDot:2
IF RQUIT
QUIT
End DoDot:1
+37 SET (DATESEQ,RCNT,RQUIT,VCNT)=0
+38 SET IDT="A"
FOR
SET IDT=$ORDER(^TMP("ORQQV",$JOB,"RESULTS",IDT),-1)
IF IDT=""
QUIT
SET DATETIME=^(IDT)
Begin DoDot:1
+39 SET DATESEQ=DATESEQ+1
+40 SET OUTCNT=OUTCNT+1
+41 SET ^TMP("ORQQVX",$JOB,"OUTPUT",OUTCNT)=DATESEQ_U_DATETIME
+42 SET TESTSEQ=0
FOR
SET TESTSEQ=$ORDER(^TMP("ORQQV",$JOB,"RESULTS",IDT,TESTSEQ))
IF TESTSEQ<1
QUIT
SET RESULT=^(TESTSEQ)
Begin DoDot:2
+43 SET VCNT=VCNT+1
+44 SET ^TMP("ORQQV",$JOB,"VALUES",VCNT)=DATESEQ_U_TESTSEQ_U_RESULT
End DoDot:2
+45 IF RTIMES
SET RCNT=RCNT+1
IF RCNT=RTIMES
SET RQUIT=1
End DoDot:1
IF RQUIT
QUIT
+46 SET $PIECE(^TMP("ORQQVX",$JOB,"OUTPUT",1),U,2,3)=DATESEQ_U_VCNT
+47 SET VCNT=0
FOR
SET VCNT=$ORDER(^TMP("ORQQV",$JOB,"VALUES",VCNT))
IF VCNT<1
QUIT
SET VALUES=^(VCNT)
Begin DoDot:1
+48 SET OUTCNT=OUTCNT+1
+49 SET ^TMP("ORQQVX",$JOB,"OUTPUT",OUTCNT)=VALUES
End DoDot:1
+50 KILL ^TMP("ORQQV",$JOB)
+51 QUIT
