- PXRMP4IW ; SLC/PKR - PXRM*2.0*4 init routine. ;08/14/2006
- ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
- Q
- ;
- ;==========================================
- EXARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
- S ARRAY(1,1)="VA-WH BILATERAL MASTECTOMY"
- I MODE S ARRAY(1,2)="07/06/2005@14:12:52"
- S ARRAY(2,1)="VA-MST SCREENING"
- I MODE S ARRAY(2,2)="07/11/2005@14:08:48"
- S ARRAY(3,1)="VA-GEC REFERRAL CARE RECOMMENDATION"
- I MODE S ARRAY(3,2)="07/11/2005@14:13:35"
- S ARRAY(4,1)="VA-MHV INFLUENZA VACCINE"
- I MODE S ARRAY(4,2)="11/22/2005@14:34:28"
- ;S ARRAY(5,1)="VA-HTN ASSESSMENT BP >=160/100 REMINDER ONLY"
- ;I MODE S ARRAY(5,2)="12/05/2005@13:50:07"
- S ARRAY(6,1)="VA-QUERI LIST RULE UPDATE"
- I MODE S ARRAY(6,2)="04/11/2006@14:31:20"
- S ARRAY(6,1)="VA-GEC REFERRAL CARE RECOMMENDATION"
- I MODE S ARRAY(6,2)="04/27/2006@15:16:55"
- S ARRAY(6,1)="VA-GEC REFERRAL NURSING ASSESSMENT"
- I MODE S ARRAY(6,2)="04/27/2006@15:16:08"
- S ARRAY(7,1)="VA-*QUERI LIST RULE UPDATES"
- I MODE S ARRAY(6,2)="07/03/2006@11:00:54"
- S ARRAY(8,1)="VA-HTN ASSESSMENT BP >=140/90"
- I MODE S ARRAY(8,2)="07/11/2006@14:35:17"
- S ARRAY(9,1)="VA-HTN ASSESSMENT BP >=160/100"
- I MODE S ARRAY(9,2)="07/11/2006@14:35:42"
- Q
- ;
- ;===============================================================
- MHVWEB ;Change the URL for the MHV reminders.
- N DA,FDA,MSG,NAME,TITLE,URL
- 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
- .S DA=$O(^PXD(811.9,"B",NAME,"")) Q:DA'>0
- .K ^PXD(811.9,DA,50)
- .S DA(1)=DA,DA=0
- .I NAME="VA-MHV CERVICAL CANCER SCREEN" D
- ..S TITLE="PAP TEST",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw5266&SECHWID=hw5269"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- ..;
- ..S TITLE="Cervical Cancer",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tw9600&SECHWID=tw9601"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- .;
- .I NAME="VA-MHV DIABETES FOOT EXAM" D
- ..S TITLE="American Diabetes Association Foot Complications",URL="http://www.diabetes.org/type-2-diabetes/foot-complications.jsp"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- ..;
- ..S TITLE="Diabetic Neuropathy",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tf4413&SECHWID=tf4416"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- ..;
- ..S TITLE="Diabetes and Foot Problems",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=uq2525abc&SECHWID=uq2525abc-sec"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- .;
- .I NAME="VA-MHV DIABETES RETINAL EXAM" D
- ..S TITLE="Diabetic Eye Disease",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tf1308&SECHWID=tf1311"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- ..;
- ..S TITLE="American Diabetes Association- Eye Complications",URL="http://www.diabetes.org/type-2-diabetes/eye-complications.jsp"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- .;
- .I NAME="VA-MHV HYPERTENSION" D
- ..S TITLE="NHLBI: Your Guide to Lowering High Blood Pressure",URL="http://www.nhlbi.nih.gov/hbp/index.html"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- ..;
- ..S TITLE="Hypertension",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw62787&SECHWID=hw62789"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- .;
- .I NAME="VA-MHV INFLUENZA VACCINE" D
- ..S TITLE="CDC Website on Influenza",URL="http://www.cdc.gov/flu/"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- ..;
- ..S TITLE="Influenza",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw122012&SECHWID=hw122014"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- .;
- .I NAME="VA-MHV MAMMOGRAM SCREENING" D
- ..S TITLE="Breast Cancer",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tv3614&SECHWID=tv3617"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- ..;
- ..S TITLE="Mammogram",URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw214210&SECHWID=hw214213"
- ..S FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL,FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- ..D UPDATE^DIE("","FDA","","MSG") I $D(MSG)>0 D AWRITE^PXRMUTIL("MSG") H 2
- Q
- ;
- ;===============================================================
- LTL(LIST) ;This is the list of list templates that being distributed
- ;in the patch.
- S LIST(1)="PXRM EXTRACT COUNT RULE EDIT"
- S LIST(2)="PXRM EXTRACT COUNTING GROUPS"
- S LIST(3)="PXRM EXTRACT COUNTING GRP EDIT"
- S LIST(4)="PXRM EXTRACT COUNTING RULES"
- S LIST(5)="PXRM EXTRACT DEF DISPLAY"
- S LIST(6)="PXRM EXTRACT DEFINITION EDIT"
- S LIST(7)="PXRM EXTRACT DEFINITIONS"
- S LIST(8)="PXRM EXTRACT HELP"
- S LIST(9)="PXRM EXTRACT HISTORY"
- S LIST(10)="PXRM EXTRACT MANAGEMENT"
- S LIST(11)="PXRM EXTRACT SUMMARY"
- S LIST(12)="PXRM EXTRACT TRANSMISSIONS"
- S LIST(13)="PXRM LIST RULE MANAGEMENT"
- S LIST(14)="PXRM PATIENT LIST CREATION DOC"
- S LIST(15)="PXRM PATIENT LIST PATIENTS"
- S LIST(16)="PXRM PATIENT LIST USER"
- S LIST(17)="PXRM RULE SET TEST"
- Q
- ;
- PXRMP4IW ; SLC/PKR - PXRM*2.0*4 init routine. ;08/14/2006
- +1 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
- +2 QUIT
- +3 ;
- +4 ;==========================================
- EXARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
- +1 SET ARRAY(1,1)="VA-WH BILATERAL MASTECTOMY"
- +2 IF MODE
- SET ARRAY(1,2)="07/06/2005@14:12:52"
- +3 SET ARRAY(2,1)="VA-MST SCREENING"
- +4 IF MODE
- SET ARRAY(2,2)="07/11/2005@14:08:48"
- +5 SET ARRAY(3,1)="VA-GEC REFERRAL CARE RECOMMENDATION"
- +6 IF MODE
- SET ARRAY(3,2)="07/11/2005@14:13:35"
- +7 SET ARRAY(4,1)="VA-MHV INFLUENZA VACCINE"
- +8 IF MODE
- SET ARRAY(4,2)="11/22/2005@14:34:28"
- +9 ;S ARRAY(5,1)="VA-HTN ASSESSMENT BP >=160/100 REMINDER ONLY"
- +10 ;I MODE S ARRAY(5,2)="12/05/2005@13:50:07"
- +11 SET ARRAY(6,1)="VA-QUERI LIST RULE UPDATE"
- +12 IF MODE
- SET ARRAY(6,2)="04/11/2006@14:31:20"
- +13 SET ARRAY(6,1)="VA-GEC REFERRAL CARE RECOMMENDATION"
- +14 IF MODE
- SET ARRAY(6,2)="04/27/2006@15:16:55"
- +15 SET ARRAY(6,1)="VA-GEC REFERRAL NURSING ASSESSMENT"
- +16 IF MODE
- SET ARRAY(6,2)="04/27/2006@15:16:08"
- +17 SET ARRAY(7,1)="VA-*QUERI LIST RULE UPDATES"
- +18 IF MODE
- SET ARRAY(6,2)="07/03/2006@11:00:54"
- +19 SET ARRAY(8,1)="VA-HTN ASSESSMENT BP >=140/90"
- +20 IF MODE
- SET ARRAY(8,2)="07/11/2006@14:35:17"
- +21 SET ARRAY(9,1)="VA-HTN ASSESSMENT BP >=160/100"
- +22 IF MODE
- SET ARRAY(9,2)="07/11/2006@14:35:42"
- +23 QUIT
- +24 ;
- +25 ;===============================================================
- MHVWEB ;Change the URL for the MHV reminders.
- +1 NEW DA,FDA,MSG,NAME,TITLE,URL
- +2 FOR 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"
- Begin DoDot:1
- +3 SET DA=$ORDER(^PXD(811.9,"B",NAME,""))
- IF DA'>0
- QUIT
- +4 KILL ^PXD(811.9,DA,50)
- +5 SET DA(1)=DA
- SET DA=0
- +6 IF NAME="VA-MHV CERVICAL CANCER SCREEN"
- Begin DoDot:2
- +7 SET TITLE="PAP TEST"
- SET URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw5266&SECHWID=hw5269"
- +8 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +9 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- +10 ;
- +11 SET TITLE="Cervical Cancer"
- SET URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tw9600&SECHWID=tw9601"
- +12 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +13 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- End DoDot:2
- +14 ;
- +15 IF NAME="VA-MHV DIABETES FOOT EXAM"
- Begin DoDot:2
- +16 SET TITLE="American Diabetes Association Foot Complications"
- SET URL="http://www.diabetes.org/type-2-diabetes/foot-complications.jsp"
- +17 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +18 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- +19 ;
- +20 SET TITLE="Diabetic Neuropathy"
- SET URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tf4413&SECHWID=tf4416"
- +21 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +22 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- +23 ;
- +24 SET TITLE="Diabetes and Foot Problems"
- SET URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=uq2525abc&SECHWID=uq2525abc-sec"
- +25 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +26 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- End DoDot:2
- +27 ;
- +28 IF NAME="VA-MHV DIABETES RETINAL EXAM"
- Begin DoDot:2
- +29 SET TITLE="Diabetic Eye Disease"
- SET URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tf1308&SECHWID=tf1311"
- +30 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +31 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- +32 ;
- +33 SET TITLE="American Diabetes Association- Eye Complications"
- SET URL="http://www.diabetes.org/type-2-diabetes/eye-complications.jsp"
- +34 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +35 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- End DoDot:2
- +36 ;
- +37 IF NAME="VA-MHV HYPERTENSION"
- Begin DoDot:2
- +38 SET TITLE="NHLBI: Your Guide to Lowering High Blood Pressure"
- SET URL="http://www.nhlbi.nih.gov/hbp/index.html"
- +39 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +40 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- +41 ;
- +42 SET TITLE="Hypertension"
- SET URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw62787&SECHWID=hw62789"
- +43 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +44 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- End DoDot:2
- +45 ;
- +46 IF NAME="VA-MHV INFLUENZA VACCINE"
- Begin DoDot:2
- +47 SET TITLE="CDC Website on Influenza"
- SET URL="http://www.cdc.gov/flu/"
- +48 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +49 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- +50 ;
- +51 SET TITLE="Influenza"
- SET URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw122012&SECHWID=hw122014"
- +52 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +53 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- End DoDot:2
- +54 ;
- +55 IF NAME="VA-MHV MAMMOGRAM SCREENING"
- Begin DoDot:2
- +56 SET TITLE="Breast Cancer"
- SET URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=tv3614&SECHWID=tv3617"
- +57 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +58 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- +59 ;
- +60 SET TITLE="Mammogram"
- SET URL="https://www2.healthwise.net/myhealthevet/Content/StdDocument.aspx?DOCHWID=hw214210&SECHWID=hw214213"
- +61 SET FDA(811.9002,"?+1,"_DA(1)_",",.01)=URL
- SET FDA(811.9002,"?+1,"_DA(1)_",",.02)=TITLE
- +62 DO UPDATE^DIE("","FDA","","MSG")
- IF $DATA(MSG)>0
- DO AWRITE^PXRMUTIL("MSG")
- HANG 2
- End DoDot:2
- End DoDot:1
- +63 QUIT
- +64 ;
- +65 ;===============================================================
- LTL(LIST) ;This is the list of list templates that being distributed
- +1 ;in the patch.
- +2 SET LIST(1)="PXRM EXTRACT COUNT RULE EDIT"
- +3 SET LIST(2)="PXRM EXTRACT COUNTING GROUPS"
- +4 SET LIST(3)="PXRM EXTRACT COUNTING GRP EDIT"
- +5 SET LIST(4)="PXRM EXTRACT COUNTING RULES"
- +6 SET LIST(5)="PXRM EXTRACT DEF DISPLAY"
- +7 SET LIST(6)="PXRM EXTRACT DEFINITION EDIT"
- +8 SET LIST(7)="PXRM EXTRACT DEFINITIONS"
- +9 SET LIST(8)="PXRM EXTRACT HELP"
- +10 SET LIST(9)="PXRM EXTRACT HISTORY"
- +11 SET LIST(10)="PXRM EXTRACT MANAGEMENT"
- +12 SET LIST(11)="PXRM EXTRACT SUMMARY"
- +13 SET LIST(12)="PXRM EXTRACT TRANSMISSIONS"
- +14 SET LIST(13)="PXRM LIST RULE MANAGEMENT"
- +15 SET LIST(14)="PXRM PATIENT LIST CREATION DOC"
- +16 SET LIST(15)="PXRM PATIENT LIST PATIENTS"
- +17 SET LIST(16)="PXRM PATIENT LIST USER"
- +18 SET LIST(17)="PXRM RULE SET TEST"
- +19 QUIT
- +20 ;