Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPPOST

BGPPOST.m

Go to the documentation of this file.
  1. BGPPOST ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 28 Jan 2005 1:34 PM ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  1. ;
  1. ;
  1. ;SEND OUT BGP TAXONOMIES
  1. ; The following line prevents the "Disable Options..." and "Move
  1. ; Routines..." questions from being asked during the install.
  1. I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1. F X="XPO1","XPZ1","XPZ2","XPI1" S XPDDIQ(X)=0
  1. ;I '$$INSTALLD("AUM*5.1*8") D SORRY(2)
  1. I '$$INSTALLD("ATX*5.1*8") D SORRY(2)
  1. I '$$INSTALLD("APCL*3.0*17") D SORRY(2)
  1. I '$$INSTALLD("AUPN*99.1*15") D SORRY(2)
  1. Q
  1. ;
  1. PRE ;EP
  1. D PRE^BGPPOST1
  1. Q
  1. POST ;EP - called from kids build
  1. S DA=$O(^BMXADO("B","BGP 06 HEDIS INDICATORS",0))
  1. I 'DA D
  1. . D ^XBFMK
  1. . S X="BGP 06 HEDIS INDICATORS"
  1. . S DIC="^BMXADO(",DIC(0)="L",DIADD=1,DLAYGO=90093.99
  1. . K DD,D0,DO
  1. . S DIC("DR")=".02///90375.01"
  1. . D FILE^DICN
  1. . I Y=-1 W !!,"Creating schema failed!! " Q
  1. . S Y=+Y
  1. . S ^BMXADO(Y,1,0)="^90093.991^1^1"
  1. . S ^BMXADO(Y,1,1,0)=".05^T^80^Indicator"
  1. . S ^BMXADO(Y,1,"B",.05,1)=""
  1. . S DA=Y,DIK="^BMXADO(" D IX1^DIK
  1. . Q
  1. S ATXFLG=1
  1. D ^BGP6AX ;taxonomies
  1. D ^BGP6BX ;taxonomies
  1. D ^BGP6EX
  1. D ^BGP6FX
  1. D ^BGP6HX
  1. D ^BGP6GX
  1. D ^BGP6JX
  1. MT ;MOVE TEMPORARY TAXONOMIES TO ATXAX
  1. S ATXFLG=1
  1. S BGPX=0 F S BGPX=$O(^BGPTAXTM(BGPX)) Q:BGPX'=+BGPX D
  1. .S BGPN=$P(^BGPTAXTM(BGPX,0),U)
  1. .S BGPY=$O(^ATXAX("B",BGPN,0))
  1. .I BGPY S DA=BGPY,DIK="^ATXAX(" D ^DIK
  1. .S X=BGPN,DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1. .I Y=-1 W !!,"creating taxonomy failed....",BGPN Q
  1. .S BGPZ=+Y
  1. .M ^ATXAX(BGPZ)=^BGPTAXTM(BGPX)
  1. .S DA=BGPZ,DIK="^ATXAX(" D IX1^DIK
  1. .Q
  1. D PRVTAX^BGPPOST1
  1. D CLTAX^BGPPOST1
  1. D MHTAX^BGPPOST1
  1. D LAB^BGPPOST1
  1. D DRUGS^BGPPOST1
  1. K ATXFLG
  1. S X=0 F S X=$O(^ATXAX(X)) Q:X'=+X I $E($P($G(^ATXAX(X,0)),U,1),1,3)["BGP" S $P(^ATXAX(X,0),U,4)="n"
  1. S X=0 F S X=$O(^ATXLAB(X)) Q:X'=+X I $E($P($G(^ATXLAB(X,0)),U,1),1,3)["BGP" S $P(^ATXLAB(X,0),U,4)="n"
  1. D EN^XBVK("BGP")
  1. D SEC
  1. D SETTAX
  1. D SETTAXL
  1. D SETTAXF
  1. ;move ado schemas to bmx ado schema
  1. S BGPX=0 F S BGPX=$O(^BGPBMX(BGPX)) Q:BGPX'=+BGPX D
  1. .S BGPN=$P(^BGPBMX(BGPX,0),U)
  1. .Q:$D(^BMXADO("B",BGPN)) ;already in file
  1. .S G=0,X=0 F S X=$O(^BMXADO(X)) Q:X'=+X!(G) I $P(^BMXADO(X,0),U)=BGPN S G=1
  1. .Q:G
  1. .S X=BGPN,DIC="^BMXADO(",DIADD=1,DLAYGO=90093.99,DIC(0)="AEMQL" K DO,D0,DD D FILE^DICN
  1. .I Y=-1 W !!,"Failure to add BMX ADO Schema ",BGPN K DIADD,DLAYGO,DIC,DA Q
  1. .S BGPDA=+Y
  1. .K DIADD,DLAYGO,DIC,DA D ^XBFMK
  1. .M ^BMXADO(BGPDA)=^BGPBMX(BGPX)
  1. .S DA=BGPDA,DIK="^BMXADO(" D IX1^DIK K DA,DIK
  1. Q
  1. ;
  1. SETTAXF ;
  1. S X=0 F S X=$O(^ATXLAB(X)) Q:X'=+X D
  1. .Q:$P(^ATXLAB(X,0),U,9)]""
  1. .S $P(^ATXLAB(X,0),U,9)=60
  1. .Q
  1. Q
  1. SETTAX ;
  1. Q:'$D(^DD(9002226,4101,0)) ;taxonomy patch not yet installed
  1. S BGPTFI="" F S BGPTFI=$O(^BGPTAXV("B",BGPTFI)) Q:BGPTFI="" D
  1. .S BGPTFIEN=$O(^BGPTAXV("B",BGPTFI,0))
  1. .I 'BGPTFIEN Q
  1. .Q:'$D(^BGPTAXV(BGPTFIEN))
  1. .Q:$P(^BGPTAXV(BGPTFIEN,0),U,2)="L"
  1. .S BGPTDA=$O(^ATXAX("B",BGPTFI,0))
  1. .Q:'BGPTDA ;did not find taxonomy
  1. .S BGPE=$P(^BGPTAXV(BGPTFIEN,0),U,4)
  1. .I BGPE=0 S $P(^ATXAX(BGPTDA,0),U,22)=1
  1. .I BGPE=1 S $P(^ATXAX(BGPTDA,0),U,22)=0
  1. .S $P(^ATXAX(BGPTDA,0),U,4)="n"
  1. .;set packages in multiple
  1. .K DIC,DA,DR
  1. .S BGPPI=$O(^DIC(9.4,"C","BGP",0))
  1. .Q:BGPPI="" ;NO PACKAGE
  1. .S X="`"_BGPPI,DIC="^ATXAX("_BGPTDA_",41,",DIC(0)="L",DIC("P")=$P(^DD(9002226,4101,0),U,2),DA(1)=BGPTDA
  1. .D ^DIC
  1. .I Y=-1 W !,"updating package multiple for ",BGPPP," entry ",$P(^ATXAX(BGPDA,0),U)," failed"
  1. .K DIC,DA,Y,X
  1. .Q
  1. S BGPTEXT="TAX" F BGPX=1:1 S BGPDATA=$P($T(@BGPTEXT+BGPX),";;",2) Q:BGPDATA="" D
  1. .S BGPDA=$O(^ATXAX("B",$P(BGPDATA,"|"),0))
  1. .Q:BGPDA=""
  1. .S $P(^ATXAX(BGPDA,0),U,4)="n" W !,$P(BGPDATA,"|") ;SET NO DELETE
  1. .S $P(^ATXAX(BGPDA,0),U,22)=$P(BGPDATA,"|",2) ;set read only
  1. .;set packages in multiple
  1. .K DIC,DA,DR
  1. .S BGPP=$P(BGPDATA,"|",3)
  1. .F BGPN=1:1 S BGPPP=$P(BGPP,"*",BGPN) Q:BGPPP="" D
  1. ..S BGPPI=$O(^DIC(9.4,"C",BGPPP,0))
  1. ..Q:BGPPI="" ;NO PACKAGE
  1. ..S X="`"_BGPPI,DIC="^ATXAX("_BGPDA_",41,",DIC(0)="L",DIC("P")=$P(^DD(9002226,4101,0),U,2),DA(1)=BGPDA
  1. ..D ^DIC
  1. ..I Y=-1 W !,"updating package multiple for ",BGPPP," entry ",$P(^ATXAX(BGPDA,0),U)," failed"
  1. ..K DIC,DA,Y,X
  1. .Q
  1. Q
  1. SETTAXL ;
  1. Q:'$D(^DD(9002228,4101,0)) ;taxonomy patch not yet installed
  1. S BGPTEXT="LABTAX" F BGPX=1:1 S BGPDATA=$P($T(@BGPTEXT+BGPX),";;",2) Q:BGPDATA="" D
  1. .S BGPDA=$O(^ATXLAB("B",$P(BGPDATA,"|"),0))
  1. .Q:BGPDA=""
  1. .S $P(^ATXLAB(BGPDA,0),U,4)="n" W !,$P(BGPDATA,"|") ;SET NO DELETE
  1. .S $P(^ATXLAB(BGPDA,0),U,22)=$P(BGPDATA,"|",2) ;set read only
  1. .;set packages in multiple
  1. .K DIC,DA,DR
  1. .S BGPP=$P(BGPDATA,"|",3)
  1. .F BGPN=1:1 S BGPPP=$P(BGPP,"*",BGPN) Q:BGPPP="" D
  1. ..S BGPPI=$O(^DIC(9.4,"C",BGPPP,0))
  1. ..Q:BGPPI="" ;NO PACKAGE
  1. ..S X="`"_BGPPI,DIC="^ATXLAB("_BGPDA_",41,",DIC(0)="L",DIC("P")=$P(^DD(9002228,4101,0),U,2),DA(1)=BGPDA
  1. ..D ^DIC
  1. ..I Y=-1 W !,"updating package multiple for ",BGPPP," entry ",$P(^ATXLAB(BGPDA,0),U)," failed"
  1. ..K DIC,DA,Y,X
  1. .Q
  1. Q
  1. INSTALLD(BGPSTAL) ;EP - Determine if patch BGPSTAL was installed, where
  1. ; BGPSTAL is the name of the INSTALL. E.g "AG*6.0*11".
  1. ;
  1. NEW BGPY,DIC,X,Y
  1. S X=$P(BGPSTAL,"*",1)
  1. S DIC="^DIC(9.4,",DIC(0)="FM",D="C"
  1. D IX^DIC
  1. I Y<1 D IMES Q 0
  1. S DIC=DIC_+Y_",22,",X=$P(BGPSTAL,"*",2)
  1. D ^DIC
  1. I Y<1 D IMES Q 0
  1. S DIC=DIC_+Y_",""PAH"",",X=$P(BGPSTAL,"*",3)
  1. D ^DIC
  1. S BGPY=Y
  1. D IMES
  1. Q $S(BGPY<1:0,1:1)
  1. IMES ;
  1. D MES^XPDUTL($$CJ^XLFSTR("Patch """_BGPSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))
  1. Q
  1. SORRY(X) ;
  1. KILL DIFQ
  1. I X=3 S XPDQUIT=2 Q
  1. S XPDQUIT=X
  1. W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  1. Q
  1. LABTAX ;
  1. ;;BGP CD4 TAX|0|BGP
  1. ;;BGP CHLAMYDIA TESTS TAX|0|BGP
  1. ;;BGP GPRA ESTIMATED GFR TAX|0|BGP
  1. ;;BGP GPRA FOB TESTS|0|BGP
  1. ;;BGP HIV TEST TAX|0|BGP
  1. ;;BGP HIV VIRAL LOAD TAX|0|BGP
  1. ;;BGP PAP SMEAR TAX|0|BGP
  1. ;;DM AUDIT A/C RATIO TAX|0|APCL*BDM*BGP
  1. ;;DM AUDIT CHOLESTEROL TAX|0|APCL*BDM*BGP
  1. ;;DM AUDIT CREATININE TAX|0|APCL*BDM*BGP
  1. ;;DM AUDIT HDL TAX|0|APCL*BDM*BGP
  1. ;;DM AUDIT HGB A1C TAX|0|APCL*BDM*BGP
  1. ;;DM AUDIT LDL CHOLESTEROL TAX|0|APCL*BDM*BGP
  1. ;;DM AUDIT LIPID PROFILE TAX|0|APCL*BDM*BGP
  1. ;;DM AUDIT MICROALBUMINURIA TAX|0|APCL*BDM*BGP
  1. ;;DM AUDIT TRIGLYCERIDE TAX|0|APCL*BDM*BGP
  1. ;;DM AUDIT URINE PROTEIN TAX|0|APCL*BDM*BGP
  1. ;;DM AUDIT FASTING GLUCOSE TESTS|0|APCL*BDM*BGP
  1. ;;BGP CMS ABG TESTS|0|BGP
  1. ;;BGP CBC TESTS|0|BGP
  1. ;;DM AUDIT URINALYSIS TAX|0|BGP*APCL*BDM
  1. ;;DM AUDIT ALT TAX|0|BGP
  1. ;;DM AUDIT AST TAX|0|BGP*APCL*BDM
  1. ;;BGP GROUP A STREP TESTS|0|BGP
  1. ;;BGP LIVER FUNCTION TESTS|0|BGP
  1. ;;BGP URINE GLUCOSE|0|BGP
  1. ;;BGP POTASSIUM TESTS|0|BGP
  1. ;;BGP CMS BLOOD CULTURE|0|BGP
  1. ;;
  1. TAX ;
  1. ;;SURVEILLANCE DIABETES|1|BGP
  1. ;;SURVEILLANCE HYPERTENSION|1|BGP
  1. ;;BGP ALCOHOL DXS|1|BGP
  1. ;;BGP ASTHMA DXS|1|BGP
  1. ;;BGP BE CPTS|1|BGP
  1. ;;BGP CD4 LOINC CODES|1|BGP
  1. ;;BGP CHLAMYDIA CPTS|1|BGP
  1. ;;BGP CHLAMYDIA LOINC CODES|1|BGP
  1. ;;BGP COLO CPTS|1|BGP
  1. ;;BGP COLORECTAL CANCER DXS|1|BGP
  1. ;;BGP CPT FLU|1|BGP
  1. ;;BGP CPT HIV TESTS|1|BGP
  1. ;;BGP CPT MAMMOGRAM|1|BGP
  1. ;;BGP CPT MAMMOGRAM HEDIS|1|BGP
  1. ;;BGP CPT PAP|1|BGP
  1. ;;BGP CREATININE CPTS|1|BGP
  1. ;;BGP CREATININE LOINC CODES|1|BGP
  1. ;;BGP DEPRESSIVE DISORDERS|1|BGP
  1. ;;BGP DIPHTHERIA EVIDENCE|1|BGP
  1. ;;BGP DV DXS|1|BGP
  1. ;;BGP FOBT LOINC CODES|1|BGP
  1. ;;BGP GPRA EX EDUC TOPICS|1|BGP
  1. ;;BGP GPRA PREGNANCY DIAGNOSES|1|BGP
  1. ;;BGP GPRA SMOKING DXS|1|BGP
  1. ;;BGP HDL LOINC CODES|1|BGP
  1. ;;BGP HGBA1C LOINC CODES|1|BGP
  1. ;;BGP HIB EVIDENCE|1|BGP
  1. ;;BGP HIV TEST LOINC CODES|1|BGP
  1. ;;BGP HIV/AIDS DXS|1|BGP
  1. ;;BGP HYPERTENSION DXS|1|BGP
  1. ;;BGP HYPOTENSION DXS|1|BGP
  1. ;;BGP HYSTERECTOMY CPTS|1|BGP
  1. ;;BGP ISCHEMIC HEART DXS|1|BGP
  1. ;;BGP LDL LOINC CODES|1|BGP
  1. ;;BGP LIPID PROFILE LOINC CODES|1|BGP
  1. ;;BGP UNI MASTECTOMY PROCEDURES|1|BGP
  1. ;;BGP MEASLES EVIDENCE|1|BGP
  1. ;;BGP MICROALBUM LOINC CODES|1|BGP
  1. ;;BGP MISCARRIAGE/ABORTION DXS|1|BGP
  1. ;;BGP MMR CONTRAINDICATIONS|1|BGP
  1. ;;BGP MUMPS EVIDENCE|1|BGP
  1. ;;BGP NEPHROPATHY CPTS|1|BGP
  1. ;;BGP NEPHROPATHY DXS|1|BGP
  1. ;;BGP NEPHROPATHY PROCEDURES|1|BGP
  1. ;;BGP OPV CONTRAINDICATIONS|1|BGP
  1. ;;BGP OPV EVID DISEASE|1|BGP
  1. ;;BGP PAP LOINC CODES|1|BGP
  1. ;;BGP PERUTSSIS EVIDENCE|1|BGP
  1. ;;BGP PCR LOINC CODES|1|BGP
  1. ;;BGP PRIMARY CARE CLINICS|1|BGP
  1. ;;BGP PRIMARY PROVIDER DISC|1|BGP
  1. ;;BGP RECTAL PROCEDURE CODES|1|BGP
  1. ;;BGP RUBELLA EVIDENCE|1|BGP
  1. ;;BGP SIG CPTS|1|BGP
  1. ;;BGP TOTAL CHOLESTEROL LOINC|1|BGP
  1. ;;BGP TRIGLYCERIDE LOINC CODES|1|BGP
  1. ;;BGP URINE PROTEIN LOINC CODES|1|BGP
  1. ;;BGP VARICELLA CONTRA|1|BGP
  1. ;;BGP VARICELLA EVIDENCE|1|BGP
  1. ;;BGP VIRAL LOAD LOINC CODES|1|BGP
  1. ;;BGP CMS AMI DXS|1|BGP
  1. ;;BGP AMI DXS (HEDIS)|1|BGP
  1. ;;BGP AMI IND 30
  1. ;;BGP CMS PNEUMONIA DXS|1|BGP
  1. ;;BGP CMS SEPTI/RESP FAIL DXS|1|BGP
  1. ;;BGP CMS HEART FAILURE DXS|1|BGP
  1. ;;BGP CMS LVSD DXS|1|BGP
  1. ;;BGP CMS EJECTION FRACTION CPTS|1|BGP
  1. ;;BGP CMS EJECTION FRACTION PROC|1|BGP
  1. ;;BGP CMS CIRCULATORY SHOCK DXS|1|BGP
  1. ;;BGP CMS 2/3 HEART BLOCK DXS|1|BGP
  1. ;;BGP CMS BRADYCARDIA DXS|1|BGP
  1. ;;BGP ASA ALLERGY 995.0-995.3|1|BGP
  1. ;;BGP CMS ABG CPTS|1|BGP
  1. ;;BGP CMS AORTIC STENOSIS DXS|1|BGP
  1. ;;BGP CMS WARFARIN MEDS|0|BGP
  1. ;;DM AUDIT ASPIRIN DRUGS|0|BGP
  1. ;;DM AUDIT ANTI-PLATELET DRUGS|0|BGP
  1. ;;BGP CMS ANTIBIOTIC MEDS|0|BGP
  1. ;;BGP CMS BETA BLOCKER MEDS|0|BGP
  1. ;;BGP CMS ACEI MEDS|0|BGP
  1. ;;BGP CMS ARB MEDS|0|BGP
  1. ;;BGP CMS ANTI-PLATELET CLASS|1|BGP
  1. ;;BGP CMS ACEI MEDS CLASS|1|BGP
  1. ;;BGP CMS BETA BLOCKER CLASS|1|BGP
  1. ;;BGP CMS ARB MEDS CLASS|1|BGP
  1. ;;BGP CMS ANTIBIOTIC MEDS CLASS|1|BGP
  1. ;;BGP CMS BETA BLOCKER NDC|0|BGP
  1. ;;BGP HEDIS OSTEOPOROSIS NDC|0|BGP
  1. ;;BGP HEDIS OSTEOPOROSIS DRUGS|0|BGP
  1. ;;BGP HEDIS ANTIDEPRESSANT MEDS|0|BGP
  1. ;;BGP HEDIS ANTIDEPRESSANT NDC|1|BGP
  1. ;;BGP MOOD DISORDERS|1|BGP
  1. ;;BGP MAJOR DEPRESSIVE DISORDERS|1|BGP
  1. ;;BGP MAJOR DEPRESSION PRIOR|1|BGP
  1. ;;BGP ACUTE MENTAL HEALTH|1|BGP
  1. ;;BGP SUBSTANCE ABUSE|1|BGP
  1. ;;BGP POISONINGS SUBSTANCE ABUSE|1|BGP
  1. ;;BGP PRESCRIBING PROVIDER CLASS|1|BGP
  1. ;;BGP MENTAL HEALTH PROV CLASS|1|BGP
  1. ;;BGP OPT MH VISIT POVS|1|BGP
  1. ;;BGP OPT MH VISIT CPTS MH|1|BGP
  1. ;;BGP MH OPT VISIT CPT NMH 1|1|BGP
  1. ;;BGP MH OPT VISIT CPT NMH 3|1|BGP
  1. ;;BGP OSTEOPOROSIS DXS|1|BGP
  1. ;;BGP OSTEO SCREEN CPTS|1|BGP
  1. ;;BGP MAJOR DEPRESSION (ADM)|1|BGP
  1. ;;BGP ASTHMA CONTROLLER NDC|1|BGP
  1. ;;BGP ASTHMA CONTROLLERS|0|BGP
  1. ;;BGP ASTHMA INHALED STEROID NDC|1|BGP
  1. ;;BGP ASTHMA INHALED STEROIDS|0|BGP
  1. ;;BGP ASTHMA LEUKOTRIENE NDC|1|BGP
  1. ;;BGP ASTHMA LEUKOTRIENE|0|BGP
  1. ;;BGP BMD PROCEDURES|1|BGP
  1. ;;BGP BMD CPTS|1|BGP
  1. ;;BGP CABG CPTS|1|BGP
  1. ;;BGP CABG PROCS|1|BGP
  1. ;;BGP COPD DXS|1|BGP
  1. ;;BGP COPD DXS BB CONT|1|BGP
  1. ;;BGP EMPHYSEMA DXS|1|BGP
  1. ;;BGP ESRD DXS|1|BGP
  1. ;;BGP FRACTURE CPTS|1|BGP
  1. ;;BGP FRACTURE DXS|1|BGP
  1. ;;BGP FRACTURE PROCEDURES|1|BGP
  1. ;;BGP HEDIS RETINAL SCREENING|1|BGP
  1. ;;BGP HEDIS RETINAL SCRN PROCS|1|BGP
  1. ;;BGP HEP EVIDENCE|1|BGP
  1. ;;BGP MASTECTOMY PROCEDURES|1|BGP
  1. ;;BGP PTCA CPTS|1|BGP
  1. ;;BGP PTCA PROCS|1|BGP
  1. ;;BGP SINUS BRADYCARDIA DXS|1|BGP
  1. ;;DM AUDIT FASTING GLUC LOINC|1|BGP
  1. ;;BGP OSTEOARTHRITIS DXS|1|BGP
  1. ;;BGP RA OA NSAID MEDS|0|BGP
  1. ;;BGP RA OA NSAID NDC|1|BGP
  1. ;;BGP OA GLUCOCORTICOIDS MEDS|0|BGP
  1. ;;BGP OA GLUCOCORTICOIDS CLASS|1|BGP
  1. ;;BGP CBC CPT|1|BGP
  1. ;;BGP CBC LOINC|1|BGP
  1. ;;DM AUDIT URINALYSIS LOINC|1|BGP*APCL*BDM
  1. ;;BGP ALT LOINC|1|BGP
  1. ;;BGP ALT CPT|1|BGP
  1. ;;BGP AST CPT|1|BGP
  1. ;;BGP AST LOINC|1|BGP
  1. ;;BGP BMD DXS|1|BGP
  1. ;;BGP IVD DXS|1|BGP
  1. ;;BGP TOBACCO DXS|1|BGP
  1. ;;BGP TOTAL CHOLECTOMY CPTS|1|BGP
  1. ;;BGP TOTAL CHOLECTOMY PROCS|1|BGP
  1. ;;BGP HYSTERECTOMY PROCEDURES|1|BGP
  1. ;;BGP PHARYNGITIS DXS|1|BGP
  1. ;;BGP HEDIS ANTIBIOTICS NDC|1|BGP
  1. ;;BGP HEDIS ANTIBIOTICS MEDS|0|BGP
  1. ;;BGP GROUP A STREP CPT|1|BGP
  1. ;;BGP GROUP A STREP LOINC|1|BGP
  1. ;;BGP HEDIS ASTHMA LEUK MEDS|0|BGP
  1. ;;BGP HEDIS ASTHMA LEUK NDC|1|BGP
  1. ;;BGP CD4 CPTS|1|BGP
  1. ;;BGP URI DXS|1|BGP
  1. ;;BGP HEDIS ASTHMA MEDS|0|BGP
  1. ;;BGP HEDIS ASTHMA NDC|1|BGP
  1. ;;BGP HEDIS PRIMARY ASTHMA MEDS|0|BGP
  1. ;;BGP HEDIS PRIMARY ASTHMA NDC|1|BGP
  1. ;;BGP HEDIS ASTHMA INHALED MEDS|0|BGP
  1. ;;BGP HEDIS ASTHMA INHALED NDC|1|BGP
  1. ;;BGP LIVER FUNCTION LOINC|1|BGP
  1. ;;BGP HEDIS BETA BLOCKER MEDS|0|BGP
  1. ;;BGP HEDIS BETA BLOCKER NDC|1|BGP
  1. ;;BGP RA IM GOLD MEDS|0|BGP
  1. ;;BGP RA IM GOLD NDC|1|BGP
  1. ;;BGP RA ORAL GOLD MEDS|0|BGP
  1. ;;BGP RA AZATHIOPRINE MEDS|0|BGP
  1. ;;BGP RA AZATHIOPRINE NDC|1|BGP
  1. ;;BGP RA LEFLUNOMIDE MEDS|0|BGP
  1. ;;BGP RA LEFLUNOMIDE NDC|1|BGP
  1. ;;BGP RA METHOTREXATE MEDS|0|BGP
  1. ;;BGP RA METHOTREXATE NDC|1|BGP
  1. ;;BGP RA CYCLOSPORINE MEDS|0|BGP
  1. ;;BGP RA CYCLOSPORINE NDC|1|BGP
  1. ;;BGP RA MYCOPHENOLATE MEDS|0|BGP
  1. ;;BGP RA MYCOPHENOLATE NDC|1|BGP
  1. ;;BGP RA PENICILLAMINE MEDS|0|BGP
  1. ;;BGP RA PENICILLAMINE NDC|1|BGP
  1. ;;BGP RA SULFASALAZINE MEDS|0|BGP
  1. ;;BGP RA SULFASALAZINE NDC|1|BGP
  1. ;;BGP ESRD CPTS|1|BGP
  1. ;;BGP URINE GLUCOSE LOINC|1|BGP
  1. ;;BGP POTASSIUM LOINC|1|BGP
  1. ;;BGP ST ELEVATION DX|1|BGP
  1. ;;BGP LBBB ON ECG CPT|1|BGP
  1. ;;BGP LBBB ON ECG PROC|1|BGP
  1. ;;BGP THROMBOLYTIC AGENT CLASS|1|BGP
  1. ;;BGP CMS THROMBOLYTIC MEDS|0|BGP
  1. ;;BGP LVAD/HEART TRANSPLANT PROC|1|BGP
  1. ;;BGP CMS ABG LOINC|1|BGP
  1. ;;BGP BLOOD CULTURE LOINC|1|BGP
  1. ;;
  1. CLINICS ;
  1. ;;01
  1. ;;06
  1. ;;13
  1. ;;20
  1. ;;24
  1. ;;28
  1. ;;
  1. PRVS ;
  1. ;;00
  1. ;;11
  1. ;;16
  1. ;;17
  1. ;;18
  1. ;;21
  1. ;;25
  1. ;;33
  1. ;;41
  1. ;;44
  1. ;;45
  1. ;;49
  1. ;;64
  1. ;;68
  1. ;;69
  1. ;;70
  1. ;;71
  1. ;;72
  1. ;;73
  1. ;;74
  1. ;;75
  1. ;;76
  1. ;;77
  1. ;;78
  1. ;;79
  1. ;;80
  1. ;;81
  1. ;;82
  1. ;;83
  1. ;;84
  1. ;;85
  1. ;;86
  1. ;;A1
  1. ;;
  1. PREPROV ;;
  1. ;;00
  1. ;;08
  1. ;;11
  1. ;;16
  1. ;;17
  1. ;;18
  1. ;;21
  1. ;;24
  1. ;;25
  1. ;;30
  1. ;;33
  1. ;;41
  1. ;;44
  1. ;;45
  1. ;;47
  1. ;;49
  1. ;;64
  1. ;;67
  1. ;;68
  1. ;;70
  1. ;;71
  1. ;;72
  1. ;;73
  1. ;;74
  1. ;;75
  1. ;;76
  1. ;;77
  1. ;;78
  1. ;;79
  1. ;;80
  1. ;;81
  1. ;;82
  1. ;;83
  1. ;;85
  1. ;;86
  1. ;;A1
  1. ;;A9
  1. ;;B1
  1. ;;B2
  1. ;;B3
  1. ;;B4
  1. ;;B5
  1. ;;B6
  1. ;;
  1. SEC ;set security on selected dd's
  1. LP ;EP - loop through file entries
  1. F I=1:1 D Q:BGPTXT["end"
  1. .S BGPTXT=$T(TXT+I)
  1. .Q:BGPTXT["end"
  1. .F J=2:1:4 S BGP(J)=$P(BGPTXT,";;",J)
  1. .S BGP(3)=""""_BGP(3)_""""
  1. .S BGPREF="^DIC("_BGP(2)_",0,"_BGP(3)_")"
  1. .S @BGPREF=BGP(4)
  1. Q
  1. TXT ;file entries start here
  1. ;;90244.01;;AUDIT;;@
  1. ;;90244.01;;DD;;@
  1. ;;90244.01;;DEL;;@
  1. ;;90244.01;;LAYGO;;@
  1. ;;90244.01;;RD;;M
  1. ;;90244.01;;WR;;@
  1. ;;90244.02;;AUDIT;;@
  1. ;;90244.02;;DD;;@
  1. ;;90244.02;;DEL;;@
  1. ;;90244.02;;LAYGO;;@
  1. ;;90244.02;;RD;;M
  1. ;;90244.02;;WR;;@
  1. ;;90371.04;;AUDIT;;@
  1. ;;90371.04;;DD;;@
  1. ;;90371.04;;DEL;;@
  1. ;;90371.04;;LAYGO;;M
  1. ;;90371.04;;RD;;M
  1. ;;90371.04;;WR;;M
  1. ;;90372.03;;AUDIT;;@
  1. ;;90372.03;;DD;;@
  1. ;;90372.03;;DEL;;M
  1. ;;90372.03;;LAYGO;;M
  1. ;;90372.03;;RD;;M
  1. ;;90372.03;;WR;;M
  1. ;;90372.05;;AUDIT;;@
  1. ;;90372.05;;DD;;@
  1. ;;90372.05;;DEL;;M
  1. ;;90372.05;;LAYGO;;M
  1. ;;90372.05;;RD;;M
  1. ;;90372.05;;WR;;M
  1. ;;end
  1. Q