- 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
