source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMXEVL.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 872 bytes
Line 
1PXRMXEVL ; SLC/AGP - Reports Reminder Evaluation routine;12/9/2005
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4 ; Called by label from PXRMXSE1
5 ;
6 ;
7 ;
8 ;Detailed report
9EVAL(SUB,REMINDER) ;
10 N CNT,DFN,DEFARR,FIEV,ITEM,LIT,PXRMDATE
11 S CNT=0 F S CNT=$O(REMINDER(CNT)) Q:CNT'>0 D
12 .S ITEM=$P(REMINDER(CNT),U,1),LIT=$P(REMINDER(CNT),U,4)
13 .I LIT="" S LIT=$P(REMINDER(CNT),U,2)
14 .I $P($G(^PXD(811.9,ITEM,0)),U,6)=1 Q
15 .D DEF^PXRMLDR(ITEM,.DEFARR)
16 .S DFN=0 F S DFN=$O(^TMP($J,SUB,DFN)) Q:DFN'>0!(ZTSTOP=1) D
17 ..I '(PXRMQUE!$D(IO("S"))!(PXRMTABS="Y")) D SPIN^PXRMXBSY("Evaluating Reminders",.BUSY)
18 ..;Check if due and/or applicable (active reminder for live patient)
19 ..K FIEV
20 ..S PXRMDATE=PXRMSDT D EVAL^PXRM(DFN,.DEFARR,1,1,.FIEV,PXRMDATE)
21 ..;Quit if nothing returned
22 ..S ^TMP($J,SUB,DFN,ITEM)=$G(^TMP("PXRHM",$J,ITEM,LIT))
23 ..K ^TMP("PXRHM",$J)
24 Q
25 ;
Note: See TracBrowser for help on using the repository browser.