PXRMMHV.m

PXRMMHV ; SLC/PKR - Clinical Reminders entry points. ; 10/19/2005

 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21

 ;Supports DBIA #4811.

 ;==========================================================

MHVC(DFN) ;Return the MHV combined output for all the active patient

 ;reminders.

 N RIEN

 K ^TMP("PXRMMHVC",$J)

 S RIEN=0

 F  S RIEN=$O(^PXD(811.9,"P",RIEN)) Q:+RIEN'>0  D

 . I $P(^PXD(811.9,RIEN,0),U,6)=1 Q

 . D MAIN^PXRM(DFN,RIEN,12,0)

 Q

 ;

 ;==========================================================

PREMLIST ;Return a list of the active patient reminders.

 N NAME,RIEN,TEMP

 K ^TMP("PXRMMHVL",$J)

 S RIEN=0

 F  S RIEN=$O(^PXD(811.9,"P",RIEN)) Q:+RIEN'>0  D

 . S TEMP=^PXD(811.9,RIEN,0)

 . I $P(TEMP,U,6)=1 Q

 . S ^TMP("PXRMMHVL",$J,RIEN)=$P(TEMP,U,1)_U_$P(TEMP,U,3)_U_$P(^PXD(811.9,RIEN,100),U,1)

 Q

 ;

 ;==========================================================

WEBALL ;Return the web site information for all the active patient reminders.

 N NAME,RIEN,TEMP

 K ^TMP("PXRMMHVW",$J)

 S RIEN=0

 F  S RIEN=$O(^PXD(811.9,"P",RIEN)) Q:+RIEN'>0  D

 . S TEMP=^PXD(811.9,RIEN,0)

 . I $P(TEMP,U,6)=1 Q

 . D WEBI(RIEN,"PXRMMHVW")

 Q

 ;

 ;==========================================================

WEBI(RIEN,NODE) ;Return the web site information for an individual reminder.

 N IEN,IND,NL,TEMP,URL

 I '$D(^PXD(811.9,RIEN,50)) Q

 S IEN=0

 F  S IEN=+$O(^PXD(811.9,RIEN,50,IEN)) Q:IEN=0  D

 . S TEMP=$G(^PXD(811.9,RIEN,50,IEN,0))

 . S URL=$P(TEMP,U,1)

 . I URL="" Q

 . S ^TMP(NODE,$J,RIEN,"WEB",IEN,"URL")=URL

 . S ^TMP(NODE,$J,RIEN,"WEB",IEN,"TITLE")=$P(TEMP,U,2)

 .;If there is a description output it.

 . I '$D(^PXD(811.9,RIEN,50,IEN,1)) Q

 . S (IND,NL)=0

 . F  S IND=+$O(^PXD(811.9,RIEN,50,IEN,1,IND)) Q:IND=0  D

 .. S NL=NL+1

 .. S ^TMP(NODE,$J,RIEN,"WEB",IEN,"DESCRIPTION",NL)=^PXD(811.9,RIEN,50,IEN,1,IND,0)

 Q

 ;

PXRMMHV   ; SLC/PKR - Clinical Reminders entry points. ; 10/19/2005

 +1       ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21

 +2       ;Supports DBIA #4811.

 +3       ;==========================================================

MHVC(DFN) ;Return the MHV combined output for all the active patient

 +1       ;reminders.

 +2        NEW RIEN

 +3        KILL ^TMP("PXRMMHVC",$JOB)

 +4        SET RIEN=0

 +5        FOR 

               SET RIEN=$ORDER(^PXD(811.9,"P",RIEN))

               IF +RIEN'>0

                   QUIT 

               Begin DoDot:1

 +6                IF $PIECE(^PXD(811.9,RIEN,0),U,6)=1

                       QUIT 

 +7                DO MAIN^PXRM(DFN,RIEN,12,0)

               End DoDot:1

 +8        QUIT 

 +9       ;

 +10      ;==========================================================

PREMLIST  ;Return a list of the active patient reminders.

 +1        NEW NAME,RIEN,TEMP

 +2        KILL ^TMP("PXRMMHVL",$JOB)

 +3        SET RIEN=0

 +4        FOR 

               SET RIEN=$ORDER(^PXD(811.9,"P",RIEN))

               IF +RIEN'>0

                   QUIT 

               Begin DoDot:1

 +5                SET TEMP=^PXD(811.9,RIEN,0)

 +6                IF $PIECE(TEMP,U,6)=1

                       QUIT 

 +7                SET ^TMP("PXRMMHVL",$JOB,RIEN)=$PIECE(TEMP,U,1)_U_$PIECE(TEMP,U,3)_U_$PIECE(^PXD(811.9,RIEN,100),U,1)

               End DoDot:1

 +8        QUIT 

 +9       ;

 +10      ;==========================================================

WEBALL    ;Return the web site information for all the active patient reminders.

 +1        NEW NAME,RIEN,TEMP

 +2        KILL ^TMP("PXRMMHVW",$JOB)

 +3        SET RIEN=0

 +4        FOR 

               SET RIEN=$ORDER(^PXD(811.9,"P",RIEN))

               IF +RIEN'>0

                   QUIT 

               Begin DoDot:1

 +5                SET TEMP=^PXD(811.9,RIEN,0)

 +6                IF $PIECE(TEMP,U,6)=1

                       QUIT 

 +7                DO WEBI(RIEN,"PXRMMHVW")

               End DoDot:1

 +8        QUIT 

 +9       ;

 +10      ;==========================================================

WEBI(RIEN,NODE) ;Return the web site information for an individual reminder.

 +1        NEW IEN,IND,NL,TEMP,URL

 +2        IF '$DATA(^PXD(811.9,RIEN,50))

               QUIT 

 +3        SET IEN=0

 +4        FOR 

               SET IEN=+$ORDER(^PXD(811.9,RIEN,50,IEN))

               IF IEN=0

                   QUIT 

               Begin DoDot:1

 +5                SET TEMP=$GET(^PXD(811.9,RIEN,50,IEN,0))

 +6                SET URL=$PIECE(TEMP,U,1)

 +7                IF URL=""

                       QUIT 

 +8                SET ^TMP(NODE,$JOB,RIEN,"WEB",IEN,"URL")=URL

 +9                SET ^TMP(NODE,$JOB,RIEN,"WEB",IEN,"TITLE")=$PIECE(TEMP,U,2)

 +10      ;If there is a description output it.

 +11               IF '$DATA(^PXD(811.9,RIEN,50,IEN,1))

                       QUIT 

 +12               SET (IND,NL)=0

 +13               FOR 

                       SET IND=+$ORDER(^PXD(811.9,RIEN,50,IEN,1,IND))

                       IF IND=0

                           QUIT 

                       Begin DoDot:2

 +14                       SET NL=NL+1

 +15                       SET ^TMP(NODE,$JOB,RIEN,"WEB",IEN,"DESCRIPTION",NL)=^PXD(811.9,RIEN,50,IEN,1,IND,0)

                       End DoDot:2

               End DoDot:1

 +16       QUIT 

 +17      ;