Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMXEVL

PXRMXEVL.m

Go to the documentation of this file.
  1. PXRMXEVL ;SLC/AGP - Reports Reminder Evaluation routine ;Jan 12, 2023@17:59
  1. ;;2.0;CLINICAL REMINDERS;**4,12,26,47,42,84**;Feb 04, 2005;Build 2
  1. ;
  1. ; Called by label from PXRMXSE1
  1. ;
  1. ;Detailed report
  1. EVAL(SUB,REMINDER) ;
  1. N CNT,DFN,DEFARR,FIEV,ITEM,LIT
  1. S CNT=0
  1. K ^TMP("PXRHM",$J)
  1. F S CNT=$O(REMINDER(CNT)) Q:CNT'>0 D
  1. . S ITEM=$P(REMINDER(CNT),U,1),LIT=$P(REMINDER(CNT),U,4)
  1. . I LIT="" S LIT=$P(REMINDER(CNT),U,2)
  1. . I $P($G(^PXD(811.9,ITEM,0)),U,6)=1 Q
  1. . D DEF^PXRMLDR(ITEM,.DEFARR)
  1. .;Make sure the definition exists.
  1. . I $D(DEFARR("DNE")) Q
  1. . S DFN=0
  1. . F S DFN=$O(^TMP($J,SUB,DFN)) Q:DFN'>0!(ZTSTOP=1) D
  1. .. D NOTIFY^PXRMXBSY("Evaluating Reminders",.BUSY)
  1. .. K FIEV
  1. ..;Evaluate the reminder for the patient and save the results.
  1. .. D EVAL^PXRM(DFN,.DEFARR,1,1,.FIEV,PXRMSDT)
  1. .. S ^TMP($J,SUB,DFN,ITEM)=$G(^TMP("PXRHM",$J,ITEM,LIT))
  1. .. K ^TMP("PXRHM",$J)
  1. Q
  1. ;