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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMMHV 1874 printed Oct 16, 2024@17:47:34 Page 2
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 ;
