- BGPMTX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON FEB 02, 2011;
- ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
- ;
- ENV S IN="IHS CLINICAL REPORTING 11.0",INSTDA=""
- I '$D(^XPD(9.7,"B",IN)) D Q
- .W !,"You must first install the IHS CLINICAL REPORTING 11.0 before installing this patch"
- S INSTDA=$O(^XPD(9.7,"B",IN,INSTDA),-1)
- S STAT=+$P($G(^XPD(9.7,INSTDA,0)),U,9)
- I STAT'=3 D Q
- .W !,"IHS CLINICAL REPORTING 11.0 must be completely installed before installing this patch"
- S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- Q
- ;
- PRE ;PRE-INSTALL ROUTINE
- K ^BGPMUIND(90595.11)
- Q
- POST ;Post-Install routine
- S X=$$ADD^XPDMENU("BGP 11 REPORTS MENU","BGPMU MAIN MENU","MUP",50)
- I 'X W "Attempt to add BGPMU MAIN MENU option failed." H 3
- ; See referenced routines to see taxonomies being loaded.
- START ;
- D ^BGPMTXA ; BGPMU BILAT MASTECTOMY ICD
- D ^BGPMTXB ; BGPMU BMI ENCOUNTER EM
- D ^BGPMTXC ; BGPMU BMI FOLLOWUP CPTS
- D ^BGPMTXD ; BGPMU BMI FOLLOWUP ICD
- D ^BGPMTXE ; BGPMU BMI PERCENTILE ICD
- D ^BGPMTXF ; BGPMU BP EM
- D ^BGPMTXG ; BGPMU COLECTOMY CPT
- D ^BGPMTXH ; BGPMU COLECTOMY ICDS
- D ^BGPMTXI ; BGPMU COLON CANCER DX
- D ^BGPMTXJ ; BGPMU COLON CANCER STUDY
- D ^BGPMTXK ; BGPMU COLON ENC DX
- D ^BGPMTXL ; BGPMU COLON ENC EM
- D ^BGPMTXM ; BGPMU COLONOSCOPY CPT
- D ^BGPMTXN ; BGPMU COLONOSCOPY PROCEDURE
- D ^BGPMTXO ; BGPMU COUNSELING NUTRITION CPT
- D ^BGPMTXP ; BGPMU COUNSELING NUTRITION ICD
- D ^BGPMTXQ ; BGPMU COUNSELING PHYSICAL ACT
- D ^BGPMTXR ; BGPMU ENC HEALTH AND BEHAVIOR
- D ^BGPMTXS ; BGPMU ENC OCCUPATIONAL THERAPY
- D ^BGPMTXT ; BGPMU ENC OFFICE VISIT
- D ^BGPMTXU ; BGPMU ENC PREV MED GRP COUNSEL
- D ^BGPMTXV ; BGPMU ENC PREV MED IND COUNSEL
- D ^BGPMTXW ; BGPMU ENC PREV MED OTHER SVC
- D ^BGPMTXX ; BGPMU ENC PREV MED SVC 18 UP
- D ^BGPMTXY ; BGPMU ENC PSYCH AND PSYCH
- D ^BGPMTXZ ; BGPMU FLU ENCOUNTER EM
- D ^BGPMATXA ; BGPMU FLU GRP ENCOUNT EM
- D ^BGPMATXB ; BGPMU FLU IMMUNIZATION CPTS
- D ^BGPMATXC ; BGPMU FLU IND ENCOUNT EM
- D ^BGPMATXD ; BGPMU FLU NURS DC ENCOUNT EM
- D ^BGPMATXE ; BGPMU FLU NURS FAC ENCOUNT EM
- D ^BGPMATXF ; BGPMU FLU PREV 40 ENCOUNT EM
- D ^BGPMATXG ; BGPMU FLU PREV OTH ENCOUNT EM
- D ^BGPMATXH ; BGPMU FOBT CPTS
- D ^BGPMATXI ; BGPMU FOBT ICD CODES
- D ^BGPMATXJ ; BGPMU FOBT LOINC
- D ^BGPMATXK ; BGPMU HYPERTENSION DX
- D ^BGPMATXL ; BGPMU HYSTERECTOMY CPT
- D ^BGPMATXM ; BGPMU HYSTERECTOMY DX
- D ^BGPMATXN ; BGPMU HYSTERECTOMY ICD
- D ^BGPMATXO ; BGPMU LAB LOINC PAP
- D ^BGPMATXP ; BGPMU MAMMOGRAM CPTS
- D ^BGPMATXQ ; BGPMU MAMMOGRAM DX
- D ^BGPMATXR ; BGPMU MAMMOGRAM DX
- D ^BGPMATXS ; BGPMU MAMMOGRAM ENC EM
- D ^BGPMATXT ; BGPMU MAMMOGRAM ENC ICD
- D ^BGPMATXU ; BGPMU MAMMOGRAM ICD
- D ^BGPMATXV ; BGPMU MASTECTOMY CPT
- D ^BGPMATXW ; BGPMU NURSING FAC EM
- D ^BGPMATXX ; BGPMU NUSING FAC EM
- D ^BGPMATXY ; BGPMU OBGYN ENC DX
- D ^BGPMATXZ ; BGPMU PAP CPTS
- D ^BGPMBTXA ; BGPMU PREGNANCY
- D ^BGPMBTXB ; BGPMU SIGMOIDOSCOPY CPT
- D ^BGPMBTXC ; BGPMU SIGMOIDOSCOPY PROCEDURES
- D ^BGPMBTXD ; BGPMU SMOKING CESSATION AGENTS
- D ^BGPMBTXE ; BGPMU TERMINAL
- D ^BGPMBTXF ; BGPMU TOBACCO USE CESS COUNSEL
- D ^BGPMBTXG ; BGPMU TOBACCO USER HF
- D ^BGPMBTXH ; BGPMU UNI MASTECTOMY ICDS
- D ^BGPMBTXI ; BGPMU CIMM ENCOUNTER EM
- D ^BGPMBTXJ ; BGPMU PREGNANCY ALL ICD
- D ^BGPMCTXB ; BGPMU BMI ENC PEDS EM
- ;HOSPITAL MEASURES
- ;D START^BGPMHX
- Q
- BGPMTX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON FEB 02, 2011;
- +1 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
- +2 ;
- ENV SET IN="IHS CLINICAL REPORTING 11.0"
- SET INSTDA=""
- +1 IF '$DATA(^XPD(9.7,"B",IN))
- Begin DoDot:1
- +2 WRITE !,"You must first install the IHS CLINICAL REPORTING 11.0 before installing this patch"
- End DoDot:1
- QUIT
- +3 SET INSTDA=$ORDER(^XPD(9.7,"B",IN,INSTDA),-1)
- +4 SET STAT=+$PIECE($GET(^XPD(9.7,INSTDA,0)),U,9)
- +5 IF STAT'=3
- Begin DoDot:1
- +6 WRITE !,"IHS CLINICAL REPORTING 11.0 must be completely installed before installing this patch"
- End DoDot:1
- QUIT
- +7 SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- +8 QUIT
- +9 ;
- PRE ;PRE-INSTALL ROUTINE
- +1 KILL ^BGPMUIND(90595.11)
- +2 QUIT
- POST ;Post-Install routine
- +1 SET X=$$ADD^XPDMENU("BGP 11 REPORTS MENU","BGPMU MAIN MENU","MUP",50)
- +2 IF 'X
- WRITE "Attempt to add BGPMU MAIN MENU option failed."
- HANG 3
- +3 ; See referenced routines to see taxonomies being loaded.
- START ;
- +1 ; BGPMU BILAT MASTECTOMY ICD
- DO ^BGPMTXA
- +2 ; BGPMU BMI ENCOUNTER EM
- DO ^BGPMTXB
- +3 ; BGPMU BMI FOLLOWUP CPTS
- DO ^BGPMTXC
- +4 ; BGPMU BMI FOLLOWUP ICD
- DO ^BGPMTXD
- +5 ; BGPMU BMI PERCENTILE ICD
- DO ^BGPMTXE
- +6 ; BGPMU BP EM
- DO ^BGPMTXF
- +7 ; BGPMU COLECTOMY CPT
- DO ^BGPMTXG
- +8 ; BGPMU COLECTOMY ICDS
- DO ^BGPMTXH
- +9 ; BGPMU COLON CANCER DX
- DO ^BGPMTXI
- +10 ; BGPMU COLON CANCER STUDY
- DO ^BGPMTXJ
- +11 ; BGPMU COLON ENC DX
- DO ^BGPMTXK
- +12 ; BGPMU COLON ENC EM
- DO ^BGPMTXL
- +13 ; BGPMU COLONOSCOPY CPT
- DO ^BGPMTXM
- +14 ; BGPMU COLONOSCOPY PROCEDURE
- DO ^BGPMTXN
- +15 ; BGPMU COUNSELING NUTRITION CPT
- DO ^BGPMTXO
- +16 ; BGPMU COUNSELING NUTRITION ICD
- DO ^BGPMTXP
- +17 ; BGPMU COUNSELING PHYSICAL ACT
- DO ^BGPMTXQ
- +18 ; BGPMU ENC HEALTH AND BEHAVIOR
- DO ^BGPMTXR
- +19 ; BGPMU ENC OCCUPATIONAL THERAPY
- DO ^BGPMTXS
- +20 ; BGPMU ENC OFFICE VISIT
- DO ^BGPMTXT
- +21 ; BGPMU ENC PREV MED GRP COUNSEL
- DO ^BGPMTXU
- +22 ; BGPMU ENC PREV MED IND COUNSEL
- DO ^BGPMTXV
- +23 ; BGPMU ENC PREV MED OTHER SVC
- DO ^BGPMTXW
- +24 ; BGPMU ENC PREV MED SVC 18 UP
- DO ^BGPMTXX
- +25 ; BGPMU ENC PSYCH AND PSYCH
- DO ^BGPMTXY
- +26 ; BGPMU FLU ENCOUNTER EM
- DO ^BGPMTXZ
- +27 ; BGPMU FLU GRP ENCOUNT EM
- DO ^BGPMATXA
- +28 ; BGPMU FLU IMMUNIZATION CPTS
- DO ^BGPMATXB
- +29 ; BGPMU FLU IND ENCOUNT EM
- DO ^BGPMATXC
- +30 ; BGPMU FLU NURS DC ENCOUNT EM
- DO ^BGPMATXD
- +31 ; BGPMU FLU NURS FAC ENCOUNT EM
- DO ^BGPMATXE
- +32 ; BGPMU FLU PREV 40 ENCOUNT EM
- DO ^BGPMATXF
- +33 ; BGPMU FLU PREV OTH ENCOUNT EM
- DO ^BGPMATXG
- +34 ; BGPMU FOBT CPTS
- DO ^BGPMATXH
- +35 ; BGPMU FOBT ICD CODES
- DO ^BGPMATXI
- +36 ; BGPMU FOBT LOINC
- DO ^BGPMATXJ
- +37 ; BGPMU HYPERTENSION DX
- DO ^BGPMATXK
- +38 ; BGPMU HYSTERECTOMY CPT
- DO ^BGPMATXL
- +39 ; BGPMU HYSTERECTOMY DX
- DO ^BGPMATXM
- +40 ; BGPMU HYSTERECTOMY ICD
- DO ^BGPMATXN
- +41 ; BGPMU LAB LOINC PAP
- DO ^BGPMATXO
- +42 ; BGPMU MAMMOGRAM CPTS
- DO ^BGPMATXP
- +43 ; BGPMU MAMMOGRAM DX
- DO ^BGPMATXQ
- +44 ; BGPMU MAMMOGRAM DX
- DO ^BGPMATXR
- +45 ; BGPMU MAMMOGRAM ENC EM
- DO ^BGPMATXS
- +46 ; BGPMU MAMMOGRAM ENC ICD
- DO ^BGPMATXT
- +47 ; BGPMU MAMMOGRAM ICD
- DO ^BGPMATXU
- +48 ; BGPMU MASTECTOMY CPT
- DO ^BGPMATXV
- +49 ; BGPMU NURSING FAC EM
- DO ^BGPMATXW
- +50 ; BGPMU NUSING FAC EM
- DO ^BGPMATXX
- +51 ; BGPMU OBGYN ENC DX
- DO ^BGPMATXY
- +52 ; BGPMU PAP CPTS
- DO ^BGPMATXZ
- +53 ; BGPMU PREGNANCY
- DO ^BGPMBTXA
- +54 ; BGPMU SIGMOIDOSCOPY CPT
- DO ^BGPMBTXB
- +55 ; BGPMU SIGMOIDOSCOPY PROCEDURES
- DO ^BGPMBTXC
- +56 ; BGPMU SMOKING CESSATION AGENTS
- DO ^BGPMBTXD
- +57 ; BGPMU TERMINAL
- DO ^BGPMBTXE
- +58 ; BGPMU TOBACCO USE CESS COUNSEL
- DO ^BGPMBTXF
- +59 ; BGPMU TOBACCO USER HF
- DO ^BGPMBTXG
- +60 ; BGPMU UNI MASTECTOMY ICDS
- DO ^BGPMBTXH
- +61 ; BGPMU CIMM ENCOUNTER EM
- DO ^BGPMBTXI
- +62 ; BGPMU PREGNANCY ALL ICD
- DO ^BGPMBTXJ
- +63 ; BGPMU BMI ENC PEDS EM
- DO ^BGPMCTXB
- +64 ;HOSPITAL MEASURES
- +65 ;D START^BGPMHX
- +66 QUIT
