| [613] | 1 | PXRMXEVL ; 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
|
|---|
| 9 | EVAL(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 | ;
|
|---|
