BPXRMP8D ;IHS/CIA/MGH - Patch 8 DELETES. ;16-Nov-2011 15:20;DU
;;1.5;CLINICAL REMINDERS;**1008**;Jun 19, 2000;Build 25
;Delete old items in reminder exchange
;
;===============================================================
DELEI ;If the Exchange File entry already exists delete it.
;
N IND,LIST,PXRMVAL,NUM
;
S PXRMVAL(1)="IHS-ALCOHOL SCREEN 2009"
D BDEL
S PXRMVAL(1)="IHS-ALCOHOL SCREEN 2011"
D BDEL
S PXRMVAL(1)="IHS-ASTHMA PRIM PROV 2009"
D BDEL
S PXRMVAL(1)="IHS-ASTHMA PRIM PROV 2011"
D BDEL
S PXRMVAL(1)="IHS-ASTHMA SEVERITY 2009"
D BDEL
S PXRMVAL(1)="IHS-ASTHMA STEROID 2011"
D BDEL
S PXRMVAL(1)="IHS-ASTHMA PLAN 2009"
D BDEL
S PXRMVAL(1)="IHS-ASTHMA PLAN 2011"
D BDEL
S PXRMVAL(1)="IHS-ASTHMA SEVERITY 2009"
D BDEL
S PXRMVAL(1)="IHS-ASTHMA SEVERITY 2011"
D BDEL
S PXRMVAL(1)="IHS-ASTHMA STEROID 2009"
D BDEL
S PXRMVAL(1)="IHS-ASTHMA STEROID 2011"
D BDEL
S PXRMVAL(1)="IHS-ANTICOAG CBC 2011"
D BDEL
S PXRMVAL(1)="IHS-ANTICOAG DURATION OF TX 2011"
D BDEL
S PXRMVAL(1)="IHS-ANTICOAG INR GOAL 2011"
D BDEL
S PXRMVAL(1)="IHS-ANTICOAG OCCULT BLOOD 2011"
D BDEL
S PXRMVAL(1)="HS-ANTICOAG THERAPY EHD DATE 2011"
D BDEL
S PXRMVAL(1)="IHS-ANTICOAG UA 2011"
D BDEL
S PXRMVAL(1)="IHS-DIAB ASPIRIN 2007"
D BDEL
S PXRMVAL(1)="IHS-BLOOD PRESSURE"
D BDEL
S PXRMVAL(1)="IHS-BLOOD PRESSURE 2011"
D BDEL
S PXRMVAL(1)="IHS-COLON CANCER 2009"
D BDEL
S PXRMVAL(1)="IHS-COLON CANCER 2011"
D BDEL
S PXRMVAL(1)="IHS-DENTAL VISIT"
D BDEL
S PXRMVAL(1)="IHS-DENTAL VISIT 2011"
D BDEL
S PXRMVAL(1)="IHS-DEPRESSION SCREEN 2008"
D BDEL
S PXRMVAL(1)="IHS-DEPRESSION SCREEN 2011"
D BDEL
S PXRMVAL(1)="IHS-DOMESTIC VIOLENCE 2009"
D BDEL
S PXRMVAL(1)="IHS-DOMESTIC VIOLENCE 2011"
D BDEL
S PXRMVAL(1)="IHS-DIAB ACE/ARB 2007"
D BDEL
S PXRMVAL(1)="IHS-DIAB ACE/ARB 2011"
D BDEL
S PXRMVAL(1)="IHS-DIAB ASPIRIN 2009"
D BDEL
S PXRMVAL(1)="IHS-DIAB ASPIRIN FEMALE 2011"
D BDEL
S PXRMVAL(1)="IHS-DIAB ASPIRIN MALE 2011"
D BDEL
S PXRMVAL(1)="IHS-DIAB DENTAL EXAM"
D BDEL
S PXRMVAL(1)="IHS-DIAB EYE EXAM 2007"
D BDEL
S PXRMVAL(1)="IHS-DIAB EYE EXAM 2011"
D BDEL
S PXRMVAL(1)="IHS-DIAB FOOT EXAM 2008"
D BDEL
S PXRMVAL(1)="IHS-DIAB FOOT EXAM 2011"
D BDEL
S PXRMVAL(1)="IHS-DIAB HGBA1C 2007"
D BDEL
S PXRMVAL(1)="IHS-DIAB HGBA1C 2011"
D BDEL
S PXRMVAL(1)="IHS-DIABETES SCREENING"
D BDEL
S PXRMVAL(1)="IHS-DIABETES SCREENING 2011"
D BDEL
S PXRMVAL(1)="IHS-EPSDT EVALUATION"
D BDEL
S PXRMVAL(1)="IHS-EPSDT EVALUATION 2011"
D BDEL
S PXRMVAL(1)="IHS-HCT/HGB"
D BDEL
S PXRMVAL(1)="IHS-HCT/HGB 2011"
D BDEL
S PXRMVAL(1)="IHS-HEARING TEST 2009"
D BDEL
S PXRMVAL(1)="IHS-HEARING TEST 2011"
D BDEL
S PXRMVAL(1)="HS-HEP A ADULT IMMUN 2008"
D BDEL
S PXRMVAL(1)="HS-HEP A ADULT IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-HEP B ADULT IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-HEP B ADULT IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-HIV SCREEN 2011"
D BDEL
S PXRMVAL(1)="IHS-INFLUENZA IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-INFLUENZA IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-HPV IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-HPV IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-LIPID FEMALE"
D BDEL
S PXRMVAL(1)="IHS-LIPID FEMALE 2011"
D BDEL
S PXRMVAL(1)="IHS-LIPID MALE"
D BDEL
S PXRMVAL(1)="IHS-LIPID MALE 2011"
D BDEL
S PXRMVAL(1)="IHS-MAMMOGRAM 2009"
D BDEL
S PXRMVAL(1)="IHS-MAMMOGRAM 2011"
D BDEL
S PXRMVAL(1)="IHS-MENINGITIS IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-MENINGITIS IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-OSTEOPOROSIS SCREENING"
D BDEL
S PXRMVAL(1)="IHS-OSTEOPOROSIS SCREEN 2011"
D BDEL
S PXRMVAL(1)="IHS-PAP SMEAR 2009"
D BDEL
S PXRMVAL(1)="IHS-PAP SMEAR 2011"
D BDEL
S PXRMVAL(1)="IHS-PED DT IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED DT IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED DTAP IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED DTAP IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED FLU IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED FLU IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED HEPA IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED HEPA IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED HEPB IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED HEPB IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED HIBTITER IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED HIBTITER IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED MMR IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED MMR IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED PEDIARIX IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED PEDIARIX IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED PEDVAXHIB IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED PEDVAXHIB IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED PNEUMOCOCCAL IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED PNEUMOCOCCAL IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED POLIO IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED POLIO IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED ROTAVIRUS IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED ROTAVIRUS IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PED VARICELLA IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PED VARICELLA IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-PNEUMOVAX IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-PNEUMOVAX IMMUN 2011"
D BDEL
S PXRMVAL(1)="HS-RUBELLA IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-SENIOR HEIGHT"
D BDEL
S PXRMVAL(1)="IHS-SENIOR HEIGHT 2011"
D BDEL
S PXRMVAL(1)="IHS-SENIOR VISION 2009"
D BDEL
S PXRMVAL(1)="IHS-SENIOR VISION 2011"
D BDEL
S PXRMVAL(1)="IHS-TD IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-TD IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-TDAP IMMUN 2008"
D BDEL
S PXRMVAL(1)="IHS-TDAP IMMUN 2011"
D BDEL
S PXRMVAL(1)="IHS-TOBACCO SCREEN 2009"
D BDEL
S PXRMVAL(1)="IHS-TOBACCO SCREEN 2011"
D BDEL
S PXRMVAL(1)="IHS-WEIGHT"
D BDEL
S PXRMVAL(1)="IHS-WEIGHT 2011"
D BDEL
Q
BDEL ;DELETE THE ITEMS
D FIND^DIC(811.8,"","","U",.PXRMVAL,"","","","","LIST")
S NUM=$P(LIST("DILIST",0),U,1)
I NUM'=0 D
.F IND=1:1:NUM D
.. N DA,DIK
.. S DIK="^PXD(811.8,"
.. S DA=LIST("DILIST",2,IND)
.. D ^DIK
Q
BPXRMP8D ;IHS/CIA/MGH - Patch 8 DELETES. ;16-Nov-2011 15:20;DU
+1 ;;1.5;CLINICAL REMINDERS;**1008**;Jun 19, 2000;Build 25
+2 ;Delete old items in reminder exchange
+3 ;
+4 ;===============================================================
DELEI ;If the Exchange File entry already exists delete it.
+1 ;
+2 NEW IND,LIST,PXRMVAL,NUM
+3 ;
+4 SET PXRMVAL(1)="IHS-ALCOHOL SCREEN 2009"
+5 DO BDEL
+6 SET PXRMVAL(1)="IHS-ALCOHOL SCREEN 2011"
+7 DO BDEL
+8 SET PXRMVAL(1)="IHS-ASTHMA PRIM PROV 2009"
+9 DO BDEL
+10 SET PXRMVAL(1)="IHS-ASTHMA PRIM PROV 2011"
+11 DO BDEL
+12 SET PXRMVAL(1)="IHS-ASTHMA SEVERITY 2009"
+13 DO BDEL
+14 SET PXRMVAL(1)="IHS-ASTHMA STEROID 2011"
+15 DO BDEL
+16 SET PXRMVAL(1)="IHS-ASTHMA PLAN 2009"
+17 DO BDEL
+18 SET PXRMVAL(1)="IHS-ASTHMA PLAN 2011"
+19 DO BDEL
+20 SET PXRMVAL(1)="IHS-ASTHMA SEVERITY 2009"
+21 DO BDEL
+22 SET PXRMVAL(1)="IHS-ASTHMA SEVERITY 2011"
+23 DO BDEL
+24 SET PXRMVAL(1)="IHS-ASTHMA STEROID 2009"
+25 DO BDEL
+26 SET PXRMVAL(1)="IHS-ASTHMA STEROID 2011"
+27 DO BDEL
+28 SET PXRMVAL(1)="IHS-ANTICOAG CBC 2011"
+29 DO BDEL
+30 SET PXRMVAL(1)="IHS-ANTICOAG DURATION OF TX 2011"
+31 DO BDEL
+32 SET PXRMVAL(1)="IHS-ANTICOAG INR GOAL 2011"
+33 DO BDEL
+34 SET PXRMVAL(1)="IHS-ANTICOAG OCCULT BLOOD 2011"
+35 DO BDEL
+36 SET PXRMVAL(1)="HS-ANTICOAG THERAPY EHD DATE 2011"
+37 DO BDEL
+38 SET PXRMVAL(1)="IHS-ANTICOAG UA 2011"
+39 DO BDEL
+40 SET PXRMVAL(1)="IHS-DIAB ASPIRIN 2007"
+41 DO BDEL
+42 SET PXRMVAL(1)="IHS-BLOOD PRESSURE"
+43 DO BDEL
+44 SET PXRMVAL(1)="IHS-BLOOD PRESSURE 2011"
+45 DO BDEL
+46 SET PXRMVAL(1)="IHS-COLON CANCER 2009"
+47 DO BDEL
+48 SET PXRMVAL(1)="IHS-COLON CANCER 2011"
+49 DO BDEL
+50 SET PXRMVAL(1)="IHS-DENTAL VISIT"
+51 DO BDEL
+52 SET PXRMVAL(1)="IHS-DENTAL VISIT 2011"
+53 DO BDEL
+54 SET PXRMVAL(1)="IHS-DEPRESSION SCREEN 2008"
+55 DO BDEL
+56 SET PXRMVAL(1)="IHS-DEPRESSION SCREEN 2011"
+57 DO BDEL
+58 SET PXRMVAL(1)="IHS-DOMESTIC VIOLENCE 2009"
+59 DO BDEL
+60 SET PXRMVAL(1)="IHS-DOMESTIC VIOLENCE 2011"
+61 DO BDEL
+62 SET PXRMVAL(1)="IHS-DIAB ACE/ARB 2007"
+63 DO BDEL
+64 SET PXRMVAL(1)="IHS-DIAB ACE/ARB 2011"
+65 DO BDEL
+66 SET PXRMVAL(1)="IHS-DIAB ASPIRIN 2009"
+67 DO BDEL
+68 SET PXRMVAL(1)="IHS-DIAB ASPIRIN FEMALE 2011"
+69 DO BDEL
+70 SET PXRMVAL(1)="IHS-DIAB ASPIRIN MALE 2011"
+71 DO BDEL
+72 SET PXRMVAL(1)="IHS-DIAB DENTAL EXAM"
+73 DO BDEL
+74 SET PXRMVAL(1)="IHS-DIAB EYE EXAM 2007"
+75 DO BDEL
+76 SET PXRMVAL(1)="IHS-DIAB EYE EXAM 2011"
+77 DO BDEL
+78 SET PXRMVAL(1)="IHS-DIAB FOOT EXAM 2008"
+79 DO BDEL
+80 SET PXRMVAL(1)="IHS-DIAB FOOT EXAM 2011"
+81 DO BDEL
+82 SET PXRMVAL(1)="IHS-DIAB HGBA1C 2007"
+83 DO BDEL
+84 SET PXRMVAL(1)="IHS-DIAB HGBA1C 2011"
+85 DO BDEL
+86 SET PXRMVAL(1)="IHS-DIABETES SCREENING"
+87 DO BDEL
+88 SET PXRMVAL(1)="IHS-DIABETES SCREENING 2011"
+89 DO BDEL
+90 SET PXRMVAL(1)="IHS-EPSDT EVALUATION"
+91 DO BDEL
+92 SET PXRMVAL(1)="IHS-EPSDT EVALUATION 2011"
+93 DO BDEL
+94 SET PXRMVAL(1)="IHS-HCT/HGB"
+95 DO BDEL
+96 SET PXRMVAL(1)="IHS-HCT/HGB 2011"
+97 DO BDEL
+98 SET PXRMVAL(1)="IHS-HEARING TEST 2009"
+99 DO BDEL
+100 SET PXRMVAL(1)="IHS-HEARING TEST 2011"
+101 DO BDEL
+102 SET PXRMVAL(1)="HS-HEP A ADULT IMMUN 2008"
+103 DO BDEL
+104 SET PXRMVAL(1)="HS-HEP A ADULT IMMUN 2011"
+105 DO BDEL
+106 SET PXRMVAL(1)="IHS-HEP B ADULT IMMUN 2008"
+107 DO BDEL
+108 SET PXRMVAL(1)="IHS-HEP B ADULT IMMUN 2011"
+109 DO BDEL
+110 SET PXRMVAL(1)="IHS-HIV SCREEN 2011"
+111 DO BDEL
+112 SET PXRMVAL(1)="IHS-INFLUENZA IMMUN 2008"
+113 DO BDEL
+114 SET PXRMVAL(1)="IHS-INFLUENZA IMMUN 2011"
+115 DO BDEL
+116 SET PXRMVAL(1)="IHS-HPV IMMUN 2008"
+117 DO BDEL
+118 SET PXRMVAL(1)="IHS-HPV IMMUN 2011"
+119 DO BDEL
+120 SET PXRMVAL(1)="IHS-LIPID FEMALE"
+121 DO BDEL
+122 SET PXRMVAL(1)="IHS-LIPID FEMALE 2011"
+123 DO BDEL
+124 SET PXRMVAL(1)="IHS-LIPID MALE"
+125 DO BDEL
+126 SET PXRMVAL(1)="IHS-LIPID MALE 2011"
+127 DO BDEL
+128 SET PXRMVAL(1)="IHS-MAMMOGRAM 2009"
+129 DO BDEL
+130 SET PXRMVAL(1)="IHS-MAMMOGRAM 2011"
+131 DO BDEL
+132 SET PXRMVAL(1)="IHS-MENINGITIS IMMUN 2008"
+133 DO BDEL
+134 SET PXRMVAL(1)="IHS-MENINGITIS IMMUN 2011"
+135 DO BDEL
+136 SET PXRMVAL(1)="IHS-OSTEOPOROSIS SCREENING"
+137 DO BDEL
+138 SET PXRMVAL(1)="IHS-OSTEOPOROSIS SCREEN 2011"
+139 DO BDEL
+140 SET PXRMVAL(1)="IHS-PAP SMEAR 2009"
+141 DO BDEL
+142 SET PXRMVAL(1)="IHS-PAP SMEAR 2011"
+143 DO BDEL
+144 SET PXRMVAL(1)="IHS-PED DT IMMUN 2008"
+145 DO BDEL
+146 SET PXRMVAL(1)="IHS-PED DT IMMUN 2011"
+147 DO BDEL
+148 SET PXRMVAL(1)="IHS-PED DTAP IMMUN 2008"
+149 DO BDEL
+150 SET PXRMVAL(1)="IHS-PED DTAP IMMUN 2011"
+151 DO BDEL
+152 SET PXRMVAL(1)="IHS-PED FLU IMMUN 2008"
+153 DO BDEL
+154 SET PXRMVAL(1)="IHS-PED FLU IMMUN 2011"
+155 DO BDEL
+156 SET PXRMVAL(1)="IHS-PED HEPA IMMUN 2008"
+157 DO BDEL
+158 SET PXRMVAL(1)="IHS-PED HEPA IMMUN 2011"
+159 DO BDEL
+160 SET PXRMVAL(1)="IHS-PED HEPB IMMUN 2008"
+161 DO BDEL
+162 SET PXRMVAL(1)="IHS-PED HEPB IMMUN 2011"
+163 DO BDEL
+164 SET PXRMVAL(1)="IHS-PED HIBTITER IMMUN 2008"
+165 DO BDEL
+166 SET PXRMVAL(1)="IHS-PED HIBTITER IMMUN 2011"
+167 DO BDEL
+168 SET PXRMVAL(1)="IHS-PED MMR IMMUN 2008"
+169 DO BDEL
+170 SET PXRMVAL(1)="IHS-PED MMR IMMUN 2011"
+171 DO BDEL
+172 SET PXRMVAL(1)="IHS-PED PEDIARIX IMMUN 2008"
+173 DO BDEL
+174 SET PXRMVAL(1)="IHS-PED PEDIARIX IMMUN 2011"
+175 DO BDEL
+176 SET PXRMVAL(1)="IHS-PED PEDVAXHIB IMMUN 2008"
+177 DO BDEL
+178 SET PXRMVAL(1)="IHS-PED PEDVAXHIB IMMUN 2011"
+179 DO BDEL
+180 SET PXRMVAL(1)="IHS-PED PNEUMOCOCCAL IMMUN 2008"
+181 DO BDEL
+182 SET PXRMVAL(1)="IHS-PED PNEUMOCOCCAL IMMUN 2011"
+183 DO BDEL
+184 SET PXRMVAL(1)="IHS-PED POLIO IMMUN 2008"
+185 DO BDEL
+186 SET PXRMVAL(1)="IHS-PED POLIO IMMUN 2011"
+187 DO BDEL
+188 SET PXRMVAL(1)="IHS-PED ROTAVIRUS IMMUN 2008"
+189 DO BDEL
+190 SET PXRMVAL(1)="IHS-PED ROTAVIRUS IMMUN 2011"
+191 DO BDEL
+192 SET PXRMVAL(1)="IHS-PED VARICELLA IMMUN 2008"
+193 DO BDEL
+194 SET PXRMVAL(1)="IHS-PED VARICELLA IMMUN 2011"
+195 DO BDEL
+196 SET PXRMVAL(1)="IHS-PNEUMOVAX IMMUN 2008"
+197 DO BDEL
+198 SET PXRMVAL(1)="IHS-PNEUMOVAX IMMUN 2011"
+199 DO BDEL
+200 SET PXRMVAL(1)="HS-RUBELLA IMMUN 2011"
+201 DO BDEL
+202 SET PXRMVAL(1)="IHS-SENIOR HEIGHT"
+203 DO BDEL
+204 SET PXRMVAL(1)="IHS-SENIOR HEIGHT 2011"
+205 DO BDEL
+206 SET PXRMVAL(1)="IHS-SENIOR VISION 2009"
+207 DO BDEL
+208 SET PXRMVAL(1)="IHS-SENIOR VISION 2011"
+209 DO BDEL
+210 SET PXRMVAL(1)="IHS-TD IMMUN 2008"
+211 DO BDEL
+212 SET PXRMVAL(1)="IHS-TD IMMUN 2011"
+213 DO BDEL
+214 SET PXRMVAL(1)="IHS-TDAP IMMUN 2008"
+215 DO BDEL
+216 SET PXRMVAL(1)="IHS-TDAP IMMUN 2011"
+217 DO BDEL
+218 SET PXRMVAL(1)="IHS-TOBACCO SCREEN 2009"
+219 DO BDEL
+220 SET PXRMVAL(1)="IHS-TOBACCO SCREEN 2011"
+221 DO BDEL
+222 SET PXRMVAL(1)="IHS-WEIGHT"
+223 DO BDEL
+224 SET PXRMVAL(1)="IHS-WEIGHT 2011"
+225 DO BDEL
+226 QUIT
BDEL ;DELETE THE ITEMS
+1 DO FIND^DIC(811.8,"","","U",.PXRMVAL,"","","","","LIST")
+2 SET NUM=$PIECE(LIST("DILIST",0),U,1)
+3 IF NUM'=0
Begin DoDot:1
+4 FOR IND=1:1:NUM
Begin DoDot:2
+5 NEW DA,DIK
+6 SET DIK="^PXD(811.8,"
+7 SET DA=LIST("DILIST",2,IND)
+8 DO ^DIK
End DoDot:2
End DoDot:1
+9 QUIT
