source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMMHV.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1PXRMMHV ; 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 ;==========================================================
5MHVC(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 ;==========================================================
16PREMLIST ;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 ;==========================================================
27WEBALL ;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 ;==========================================================
38WEBI(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 ;
Note: See TracBrowser for help on using the repository browser.