PXRMRST ; SLC/PKR - Rule Set test routines. ;02/16/2006
;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
;
;===========================================================
EXIT ; -- exit code
K ^TMP("PXRMRST",$J)
D CLEAN^VALM10
D FULL^VALM1
S VALMBCK="R"
Q
;
;===========================================================
HDR ; -- header code
S VALMHDR(1)="Rule Set Test"
S VALMSG="+ Next Screen - Prev Screen ?? More Actions"
Q
;
;===========================================================
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
;===========================================================
RSTEST(RULESET) ;Test a rule set and show the user the results.
N BEG,END,IND,NL,OUTPUT,VALMCNT
D DATES^PXRMEUT(.BEG,.END,"Patient List") Q:$D(DTOUT)!$D(DUOUT)
D DOCDATES^PXRMEUT1(RULESET,BEG,END,.NL,.OUTPUT)
K ^TMP("PXRMRST",$J)
S ^TMP("PXRMRST",$J,1,0)="List Build Beginning Date: "_$$FMTE^XLFDT(BEG,"5Z")
S ^TMP("PXRMRST",$J,2,0)="List Build Ending Date: "_$$FMTE^XLFDT(END,"5Z")
F IND=1:1:NL S ^TMP("PXRMRST",$J,IND+2,0)=OUTPUT(IND)
S VALMCNT=NL+2
D EN^VALM("PXRM RULE SET TEST")
Q
;
;===========================================================
RSTESTS ;Select a rule set for testing.
N IND,RULESET,VALMY
D EN^VALM2(XQORNOD(0))
;If there is no list quit.
I '$D(VALMY) Q
S IND="",PXRMDONE=0
F S IND=$O(VALMY(IND)) Q:(+IND=0)!(PXRMDONE) D
.;Get the rule set ien.
. S RULESET=^TMP("PXRMLRM",$J,"IDX",IND,IND)
. D RSTEST^PXRMRST(RULESET)
S VALMBCK="R"
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMRST 1556 printed Dec 13, 2024@01:48:58 Page 2
PXRMRST ; SLC/PKR - Rule Set test routines. ;02/16/2006
+1 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
+2 ;
+3 ;===========================================================
EXIT ; -- exit code
+1 KILL ^TMP("PXRMRST",$JOB)
+2 DO CLEAN^VALM10
+3 DO FULL^VALM1
+4 SET VALMBCK="R"
+5 QUIT
+6 ;
+7 ;===========================================================
HDR ; -- header code
+1 SET VALMHDR(1)="Rule Set Test"
+2 SET VALMSG="+ Next Screen - Prev Screen ?? More Actions"
+3 QUIT
+4 ;
+5 ;===========================================================
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
+4 ;===========================================================
RSTEST(RULESET) ;Test a rule set and show the user the results.
+1 NEW BEG,END,IND,NL,OUTPUT,VALMCNT
+2 DO DATES^PXRMEUT(.BEG,.END,"Patient List")
if $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+3 DO DOCDATES^PXRMEUT1(RULESET,BEG,END,.NL,.OUTPUT)
+4 KILL ^TMP("PXRMRST",$JOB)
+5 SET ^TMP("PXRMRST",$JOB,1,0)="List Build Beginning Date: "_$$FMTE^XLFDT(BEG,"5Z")
+6 SET ^TMP("PXRMRST",$JOB,2,0)="List Build Ending Date: "_$$FMTE^XLFDT(END,"5Z")
+7 FOR IND=1:1:NL
SET ^TMP("PXRMRST",$JOB,IND+2,0)=OUTPUT(IND)
+8 SET VALMCNT=NL+2
+9 DO EN^VALM("PXRM RULE SET TEST")
+10 QUIT
+11 ;
+12 ;===========================================================
RSTESTS ;Select a rule set for testing.
+1 NEW IND,RULESET,VALMY
+2 DO EN^VALM2(XQORNOD(0))
+3 ;If there is no list quit.
+4 IF '$DATA(VALMY)
QUIT
+5 SET IND=""
SET PXRMDONE=0
+6 FOR
SET IND=$ORDER(VALMY(IND))
if (+IND=0)!(PXRMDONE)
QUIT
Begin DoDot:1
+7 ;Get the rule set ien.
+8 SET RULESET=^TMP("PXRMLRM",$JOB,"IDX",IND,IND)
+9 DO RSTEST^PXRMRST(RULESET)
End DoDot:1
+10 SET VALMBCK="R"
+11 QUIT
+12 ;
