- 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 Apr 23, 2025@18:01:10 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 ;
