| [613] | 1 | PXRMMHV ; SLC/PKR - Clinical Reminders entry points. ; 10/19/2005
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
|
|---|
| 3 | ;Supports DBIA #4811.
|
|---|
| 4 | ;==========================================================
|
|---|
| 5 | MHVC(DFN) ;Return the MHV combined output for all the active patient
|
|---|
| 6 | ;reminders.
|
|---|
| 7 | N RIEN
|
|---|
| 8 | K ^TMP("PXRMMHVC",$J)
|
|---|
| 9 | S RIEN=0
|
|---|
| 10 | F S RIEN=$O(^PXD(811.9,"P",RIEN)) Q:+RIEN'>0 D
|
|---|
| 11 | . I $P(^PXD(811.9,RIEN,0),U,6)=1 Q
|
|---|
| 12 | . D MAIN^PXRM(DFN,RIEN,12,0)
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | ;==========================================================
|
|---|
| 16 | PREMLIST ;Return a list of the active patient reminders.
|
|---|
| 17 | N NAME,RIEN,TEMP
|
|---|
| 18 | K ^TMP("PXRMMHVL",$J)
|
|---|
| 19 | S RIEN=0
|
|---|
| 20 | F S RIEN=$O(^PXD(811.9,"P",RIEN)) Q:+RIEN'>0 D
|
|---|
| 21 | . S TEMP=^PXD(811.9,RIEN,0)
|
|---|
| 22 | . I $P(TEMP,U,6)=1 Q
|
|---|
| 23 | . S ^TMP("PXRMMHVL",$J,RIEN)=$P(TEMP,U,1)_U_$P(TEMP,U,3)_U_$P(^PXD(811.9,RIEN,100),U,1)
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | ;==========================================================
|
|---|
| 27 | WEBALL ;Return the web site information for all the active patient reminders.
|
|---|
| 28 | N NAME,RIEN,TEMP
|
|---|
| 29 | K ^TMP("PXRMMHVW",$J)
|
|---|
| 30 | S RIEN=0
|
|---|
| 31 | F S RIEN=$O(^PXD(811.9,"P",RIEN)) Q:+RIEN'>0 D
|
|---|
| 32 | . S TEMP=^PXD(811.9,RIEN,0)
|
|---|
| 33 | . I $P(TEMP,U,6)=1 Q
|
|---|
| 34 | . D WEBI(RIEN,"PXRMMHVW")
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | ;==========================================================
|
|---|
| 38 | WEBI(RIEN,NODE) ;Return the web site information for an individual reminder.
|
|---|
| 39 | N IEN,IND,NL,TEMP,URL
|
|---|
| 40 | I '$D(^PXD(811.9,RIEN,50)) Q
|
|---|
| 41 | S IEN=0
|
|---|
| 42 | F S IEN=+$O(^PXD(811.9,RIEN,50,IEN)) Q:IEN=0 D
|
|---|
| 43 | . S TEMP=$G(^PXD(811.9,RIEN,50,IEN,0))
|
|---|
| 44 | . S URL=$P(TEMP,U,1)
|
|---|
| 45 | . I URL="" Q
|
|---|
| 46 | . S ^TMP(NODE,$J,RIEN,"WEB",IEN,"URL")=URL
|
|---|
| 47 | . S ^TMP(NODE,$J,RIEN,"WEB",IEN,"TITLE")=$P(TEMP,U,2)
|
|---|
| 48 | .;If there is a description output it.
|
|---|
| 49 | . I '$D(^PXD(811.9,RIEN,50,IEN,1)) Q
|
|---|
| 50 | . S (IND,NL)=0
|
|---|
| 51 | . F S IND=+$O(^PXD(811.9,RIEN,50,IEN,1,IND)) Q:IND=0 D
|
|---|
| 52 | .. S NL=NL+1
|
|---|
| 53 | .. S ^TMP(NODE,$J,RIEN,"WEB",IEN,"DESCRIPTION",NL)=^PXD(811.9,RIEN,50,IEN,1,IND,0)
|
|---|
| 54 | Q
|
|---|
| 55 | ;
|
|---|
