PXRMXEVL.m

PXRMXEVL ; SLC/AGP - Reports Reminder Evaluation routine;11/14/2013

 ;;2.0;CLINICAL REMINDERS;**4,12,26**;Feb 04, 2005;Build 404

 ;

 ; Called by label from PXRMXSE1

 ;

 ;Detailed report

EVAL(SUB,REMINDER) ;

 N CNT,DFN,DEFARR,FIEV,ITEM,LIT,PXRMDEFS

 S CNT=0

 F  S CNT=$O(REMINDER(CNT)) Q:CNT'>0  D

 . S ITEM=$P(REMINDER(CNT),U,1),LIT=$P(REMINDER(CNT),U,4)

 . I LIT="" S LIT=$P(REMINDER(CNT),U,2)

 . I $P($G(^PXD(811.9,ITEM,0)),U,6)=1 Q

 . D DEF^PXRMLDR(ITEM,.DEFARR)

 . S DFN=0

 . F  S DFN=$O(^TMP($J,SUB,DFN)) Q:DFN'>0!(ZTSTOP=1)  D

 .. D NOTIFY^PXRMXBSY("Evaluating Reminders",.BUSY)

 ..;PXRMDEFS is the definition stack, used to prevent recursion via

 ..;CF.VA-REMINDER DEFINITION.

 .. K FIEV,PXRMDEFS

 ..;Evaluate the reminder for the patient and save the results.

 .. D EVAL^PXRM(DFN,.DEFARR,1,1,.FIEV,PXRMSDT)

 .. S ^TMP($J,SUB,DFN,ITEM)=$G(^TMP("PXRHM",$J,ITEM,LIT))

 .. K ^TMP("PXRHM",$J)

 Q

 ;

PXRMXEVL  ; SLC/AGP - Reports Reminder Evaluation routine;11/14/2013

 +1       ;;2.0;CLINICAL REMINDERS;**4,12,26**;Feb 04, 2005;Build 404

 +2       ;

 +3       ; Called by label from PXRMXSE1

 +4       ;

 +5       ;Detailed report

EVAL(SUB,REMINDER) ;

 +1        NEW CNT,DFN,DEFARR,FIEV,ITEM,LIT,PXRMDEFS

 +2        SET CNT=0

 +3        FOR 

               SET CNT=$ORDER(REMINDER(CNT))

               IF CNT'>0

                   QUIT 

               Begin DoDot:1

 +4                SET ITEM=$PIECE(REMINDER(CNT),U,1)

                   SET LIT=$PIECE(REMINDER(CNT),U,4)

 +5                IF LIT=""

                       SET LIT=$PIECE(REMINDER(CNT),U,2)

 +6                IF $PIECE($GET(^PXD(811.9,ITEM,0)),U,6)=1

                       QUIT 

 +7                DO DEF^PXRMLDR(ITEM,.DEFARR)

 +8                SET DFN=0

 +9                FOR 

                       SET DFN=$ORDER(^TMP($JOB,SUB,DFN))

                       IF DFN'>0!(ZTSTOP=1)

                           QUIT 

                       Begin DoDot:2

 +10                       DO NOTIFY^PXRMXBSY("Evaluating Reminders",.BUSY)

 +11      ;PXRMDEFS is the definition stack, used to prevent recursion via

 +12      ;CF.VA-REMINDER DEFINITION.

 +13                       KILL FIEV,PXRMDEFS

 +14      ;Evaluate the reminder for the patient and save the results.

 +15                       DO EVAL^PXRM(DFN,.DEFARR,1,1,.FIEV,PXRMSDT)

 +16                       SET ^TMP($JOB,SUB,DFN,ITEM)=$GET(^TMP("PXRHM",$JOB,ITEM,LIT))

 +17                       KILL ^TMP("PXRHM",$JOB)

                       End DoDot:2

               End DoDot:1

 +18       QUIT 

 +19      ;