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
