- 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 Jan 18, 2025@02:50:11 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 ;