PXRMRST.m

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 ---PXRMRST   1556     printed  Apr 09, 2024@20:55:15                                                                                                                                                                                                     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      ;