source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMP4IW.m@ 1608

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

initial load of WorldVistAEHR
File size: 6.3 KB
RevLine 
[613]1PXRMP4IW ; SLC/PKR - PXRM*2.0*4 init routine. ;08/14/2006
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 Q
4 ;
5 ;==========================================
6EXARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
7 S ARRAY(1,1)="VA-WH BILATERAL MASTECTOMY"
8 I MODE S ARRAY(1,2)="07/06/2005@14:12:52"
9 S ARRAY(2,1)="VA-MST SCREENING"
10 I MODE S ARRAY(2,2)="07/11/2005@14:08:48"
11 S ARRAY(3,1)="VA-GEC REFERRAL CARE RECOMMENDATION"
12 I MODE S ARRAY(3,2)="07/11/2005@14:13:35"
13 S ARRAY(4,1)="VA-MHV INFLUENZA VACCINE"
14 I MODE S ARRAY(4,2)="11/22/2005@14:34:28"
15 ;S ARRAY(5,1)="VA-HTN ASSESSMENT BP >=160/100 REMINDER ONLY"
16 ;I MODE S ARRAY(5,2)="12/05/2005@13:50:07"
17 S ARRAY(6,1)="VA-QUERI LIST RULE UPDATE"
18 I MODE S ARRAY(6,2)="04/11/2006@14:31:20"
19 S ARRAY(6,1)="VA-GEC REFERRAL CARE RECOMMENDATION"
20 I MODE S ARRAY(6,2)="04/27/2006@15:16:55"
21 S ARRAY(6,1)="VA-GEC REFERRAL NURSING ASSESSMENT"
22 I MODE S ARRAY(6,2)="04/27/2006@15:16:08"
23 S ARRAY(7,1)="VA-*QUERI LIST RULE UPDATES"
24 I MODE S ARRAY(6,2)="07/03/2006@11:00:54"
25 S ARRAY(8,1)="VA-HTN ASSESSMENT BP >=140/90"
26 I MODE S ARRAY(8,2)="07/11/2006@14:35:17"
27 S ARRAY(9,1)="VA-HTN ASSESSMENT BP >=160/100"
28 I MODE S ARRAY(9,2)="07/11/2006@14:35:42"
29 Q
30 ;
31 ;===============================================================
32MHVWEB ;Change the URL for the MHV reminders.
33 N DA,FDA,MSG,NAME,TITLE,URL
34 F NAME="VA-MHV CERVICAL CANCER SCREEN","VA-MHV DIABETES FOOT EXAM","VA-MHV DIABETES RETINAL EXAM","VA-MHV HYPERTENSION","VA-MHV INFLUENZA VACCINE","VA-MHV MAMMOGRAM SCREENING" D
35 .S DA=$O(^PXD(811.9,"B",NAME,"")) Q:DA'>0
36 .K ^PXD(811.9,DA,50)
37 .S DA(1)=DA,DA=0
38 .I NAME="VA-MHV CERVICAL CANCER SCREEN" D
39 ..S TITLE="PAP TEST",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw5266&SECHWID=hw5269"
40 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
41 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
42 ..;
43 ..S TITLE="Cervical Cancer",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tw9600&SECHWID=tw9601"
44 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
45 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
46 .;
47 .I NAME="VA-MHV DIABETES FOOT EXAM" D
48 ..S TITLE="American Diabetes Association Foot Complications",URL="http://www.diabetes.org/type-2-diabetes/foot-complications.jsp"
49 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
50 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
51 ..;
52 ..S TITLE="Diabetic Neuropathy",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tf4413&SECHWID=tf4416"
53 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
54 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
55 ..;
56 ..S TITLE="Diabetes and Foot Problems",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=uq2525abc&SECHWID=uq2525abc-sec"
57 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
58 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
59 .;
60 .I NAME="VA-MHV DIABETES RETINAL EXAM" D
61 ..S TITLE="Diabetic Eye Disease",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tf1308&SECHWID=tf1311"
62 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
63 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
64 ..;
65 ..S TITLE="American Diabetes Association- Eye Complications",URL="http://www.diabetes.org/type-2-diabetes/eye-complications.jsp"
66 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
67 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
68 .;
69 .I NAME="VA-MHV HYPERTENSION" D
70 ..S TITLE="NHLBI: Your Guide to Lowering High Blood Pressure",URL="http://www.nhlbi.nih.gov/hbp/index.html"
71 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
72 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
73 ..;
74 ..S TITLE="Hypertension",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw62787&SECHWID=hw62789"
75 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
76 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
77 .;
78 .I NAME="VA-MHV INFLUENZA VACCINE" D
79 ..S TITLE="CDC Website on Influenza",URL="http://www.cdc.gov/flu/"
80 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
81 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
82 ..;
83 ..S TITLE="Influenza",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw122012&SECHWID=hw122014"
84 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
85 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
86 .;
87 .I NAME="VA-MHV MAMMOGRAM SCREENING" D
88 ..S TITLE="Breast Cancer",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tv3614&SECHWID=tv3617"
89 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
90 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
91 ..;
92 ..S TITLE="Mammogram",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw214210&SECHWID=hw214213"
93 ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
94 ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
95 Q
96 ;
97 ;===============================================================
98LTL(LIST) ;This is the list of list templates that being distributed
99 ;in the patch.
100 S LIST(1)="PXRM EXTRACT COUNT RULE EDIT"
101 S LIST(2)="PXRM EXTRACT COUNTING GROUPS"
102 S LIST(3)="PXRM EXTRACT COUNTING GRP EDIT"
103 S LIST(4)="PXRM EXTRACT COUNTING RULES"
104 S LIST(5)="PXRM EXTRACT DEF DISPLAY"
105 S LIST(6)="PXRM EXTRACT DEFINITION EDIT"
106 S LIST(7)="PXRM EXTRACT DEFINITIONS"
107 S LIST(8)="PXRM EXTRACT HELP"
108 S LIST(9)="PXRM EXTRACT HISTORY"
109 S LIST(10)="PXRM EXTRACT MANAGEMENT"
110 S LIST(11)="PXRM EXTRACT SUMMARY"
111 S LIST(12)="PXRM EXTRACT TRANSMISSIONS"
112 S LIST(13)="PXRM LIST RULE MANAGEMENT"
113 S LIST(14)="PXRM PATIENT LIST CREATION DOC"
114 S LIST(15)="PXRM PATIENT LIST PATIENTS"
115 S LIST(16)="PXRM PATIENT LIST USER"
116 S LIST(17)="PXRM RULE SET TEST"
117 Q
118 ;
Note: See TracBrowser for help on using the repository browser.