PXRMP4IW.m

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      ;