| 1 | PXRMHVET ; SLC/AGP - Clinical Reminders entry points. ; 03/03/2004
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
|---|
| 3 | ;Supports DBIA #4455.
|
|---|
| 4 | ;==========================================================
|
|---|
| 5 | START(DFN,DISP) ;
|
|---|
| 6 | N NAME,REMIEN
|
|---|
| 7 | I $G(DISP)="" S DISP=0
|
|---|
| 8 | K ^TMP("PXRHM",$J)
|
|---|
| 9 | S REMIEN=0
|
|---|
| 10 | F S REMIEN=$O(^PXD(811.9,"P",REMIEN)) Q:+REMIEN'>0 D
|
|---|
| 11 | . I $P($G(^PXD(811.9,REMIEN,0)),U,6)'=1 D MAIN^PXRM(DFN,REMIEN,DISP)
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | ;==========================================================
|
|---|
| 15 | HS(DFN,HVDISP) ;
|
|---|
| 16 | N NAME,REMIEN,STATUS
|
|---|
| 17 | K ^TMP("PXRHM",$J),^TMP("PXRMHV",$J)
|
|---|
| 18 | S REMIEN=0
|
|---|
| 19 | F S REMIEN=$O(^PXD(811.9,"P",REMIEN)) Q:+REMIEN'>0 D
|
|---|
| 20 | . I $P($G(^PXD(811.9,REMIEN,0)),U,6)'=1 D MAIN^PXRM(DFN,REMIEN,$G(HVDISP))
|
|---|
| 21 | S REMIEN=0 F S REMIEN=$O(^TMP("PXRHM",$J,REMIEN)) Q:REMIEN'>0 D
|
|---|
| 22 | . S NAME="" F S NAME=$O(^TMP("PXRHM",$J,REMIEN,NAME)) Q:NAME="" D
|
|---|
| 23 | . . S STATUS=$P($G(^TMP("PXRHM",$J,REMIEN,NAME)),U)
|
|---|
| 24 | . . I STATUS=0 S STATUS="UNKNOWN"
|
|---|
| 25 | . . M ^TMP("PXRMHV",$J,STATUS,NAME,REMIEN)=^TMP("PXRHM",$J,REMIEN,NAME)
|
|---|
| 26 | K ^TMP("PXRHM",$J)
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
