- BCSVEC ;IHS/MSC/BWF - CSV Package Update Utility ;16-Apr-2010 09:58;JSH
- ;;1.0;BCSV;;Apr 23, 2010;Build 44
- ;=================================================================
- ;
- ;
- PATUPD ;
- N DLM,DDLM,QUIT,I,TEXT,DATA,PKGNM,VERSION,PATCH,PKGIEN,TAG,VSB,XREFREV
- S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0 ; Suppress the Disable options and Move routine prompts
- S XPDABORT=0
- I '$D(^XPD(9.6,"B","IHS CSV DD MOVE 1.0")) S XPDABORT=1
- I XPDABORT D BMES^XPDUTL("IHS CSV DD MOVE 1.0 build must be installed to continue!") Q
- I '$D(^XCSV("MMDONE")) S XPDABORT=1
- I XPDABORT D BMES^XPDUTL("Manual mapping must be marked as 'complete' prior to installing this patch.") Q
- I $D(^XPD(9.6,"B","IHS CSV VA UPDATES 1.0")) S XPDABORT=1
- I XPDABORT D Q
- .D BMES^XPDUTL("IHS CSV VA UPDATES has been installed before and may not be installed again!") Q
- .;D:$D(^XCSV("POSTKID")) FIX^BCSVP1
- S DDLM=";;",DLM="|",QUIT=0
- F TAG="LEX","ICD","ICPT" D
- .S QUIT=0
- .F I=1:1 D Q:QUIT
- ..S TEXT=$T(@TAG+I) I TEXT="Q" S QUIT=1 Q
- ..S DATA=$P(TEXT,DDLM,2) I DATA="" S QUIT=1 Q
- ..S PKGNM=$P(DATA,DLM),VERSION=$P(DATA,DLM,2),PATCH=$P(DATA,DLM,3)
- ..I '$D(^DIC(9.4,"B",PKGNM)) Q
- ..S PKGIEN=$O(^DIC(9.4,"B",PKGNM,0)) Q:PKGIEN=""
- ..I TAG="ICD" D
- ...I $$GET1^DIQ(9.4,PKGIEN,13)=18.0 Q
- ...S FDA(9.4,PKGIEN_",",13)=18.0 D FILE^DIE(,"FDA")
- ..I '$D(^DIC(9.4,PKGIEN,22,"B",VERSION)) D
- ...K FDA
- ...S FDA(9.49,"+1,"_PKGIEN_",",.01)=VERSION
- ...D UPDATE^DIE(,"FDA")
- ...S FDA(9.49,"+1,"_PKGIEN_",",1)=$G(DT)
- ...S FDA(9.49,"+1,"_PKGIEN_",",2)=$G(DT)
- ...S FDA(9.49,"+1,"_PKGIEN_",",3)=$G(DUZ)
- ...D FILE^DIE(,"FDA")
- ..Q:PATCH=""
- ..S VSB=$O(^DIC(9.4,PKGIEN,22,"B",VERSION,0))
- ..Q:'VSB
- ..K FDA
- ..; Do not update if the patch is already in the patch history
- ..I $D(^DIC(9.4,PKGIEN,22,VSB,"PAH","B",PATCH)) Q
- ..S FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.01)=$G(PATCH)
- ..S FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.02)=DT
- ..S FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.03)=DUZ
- ..D UPDATE^DIE(,"FDA")
- Q
- ;;;;FORMAT - Package name|Version|Patch|Sequence
- LEX ;
- ;;LEXICON UTILITY|2.0|1
- ;;LEXICON UTILITY|2.0|2
- ;;LEXICON UTILITY|2.0|3
- ;;LEXICON UTILITY|2.0|4
- ;;LEXICON UTILITY|2.0|5
- ;;LEXICON UTILITY|2.0|7 SEQ #6
- ;;LEXICON UTILITY|2.0|6 SEQ #7
- ;;LEXICON UTILITY|2.0|8 SEQ #8
- ;;LEXICON UTILITY|2.0|9 SEQ #9
- ;;LEXICON UTILITY|2.0|10 SEQ #10
- ;;LEXICON UTILITY|2.0|11 SEQ #11
- ;;LEXICON UTILITY|2.0|12 SEQ #12
- ;;LEXICON UTILITY|2.0|13 SEQ #13
- ;;LEXICON UTILITY|2.0|14 SEQ #14
- ;;LEXICON UTILITY|2.0|15 SEQ #15
- ;;LEXICON UTILITY|2.0|16 SEQ #16
- ;;LEXICON UTILITY|2.0|17 SEQ #17
- ;;LEXICON UTILITY|2.0|18 SEQ #18
- ;;LEXICON UTILITY|2.0|19 SEQ #19
- ;;LEXICON UTILITY|2.0|21 SEQ #20
- ;;LEXICON UTILITY|2.0|22 SEQ #21
- ;;LEXICON UTILITY|2.0|23 SEQ #22
- ;;LEXICON UTILITY|2.0|24 SEQ #23
- ;;LEXICON UTILITY|2.0|25 SEQ #24
- ;;LEXICON UTILITY|2.0|26 SEQ #25
- ;;LEXICON UTILITY|2.0|27 SEQ #26
- ;;LEXICON UTILITY|2.0|28 SEQ #27
- ;;LEXICON UTILITY|2.0|29 SEQ #28
- ;;LEXICON UTILITY|2.0|30 SEQ #29
- ;;LEXICON UTILITY|2.0|31 SEQ #30
- ;;LEXICON UTILITY|2.0|33 SEQ #31
- ;;LEXICON UTILITY|2.0|34 SEQ #32
- ;;LEXICON UTILITY|2.0|35 SEQ #33
- ;;LEXICON UTILITY|2.0|32 SEQ #34
- ;;LEXICON UTILITY|2.0|36 SEQ #35
- ;;LEXICON UTILITY|2.0|37 SEQ #36
- ;;LEXICON UTILITY|2.0|39 SEQ #37
- ;;LEXICON UTILITY|2.0|38 SEQ #38
- ;;LEXICON UTILITY|2.0|40 SEQ #39
- ;;LEXICON UTILITY|2.0|42 SEQ #41
- ;;LEXICON UTILITY|2.0|36 SEQ #35
- ;;LEXICON UTILITY|2.0|43
- ;;LEXICON UTILITY|2.0|45 SEQ #43
- ;;LEXICON UTILITY|2.0|46
- ;;LEXICON UTILITY|2.0|47
- ;;LEXICON UTILITY|2.0|48
- ;;LEXICON UTILITY|2.0|49
- ;;LEXICON UTILITY|2.0|50 SEQ #48
- ;;LEXICON UTILITY|2.0|52
- ;;LEXICON UTILITY|2.0|53
- ;;LEXICON UTILITY|2.0|54
- ;;
- Q
- ICD ;
- ;;DRG GROUPER|9.0||
- ;;DRG GROUPER|10.0||
- ;;DRG GROUPER|11.0||
- ;;DRG GROUPER|12.0||
- ;;DRG GROUPER|13.0||
- ;;DRG GROUPER|14.0||
- ;;DRG GROUPER|15.0||
- ;;DRG GROUPER|16.0||
- ;;DRG GROUPER|17.0||
- ;;DRG GROUPER|18.0|1 SEQ #1
- ;;DRG GROUPER|18.0|2 SEQ #2
- ;;DRG GROUPER|18.0|3 SEQ #3
- ;;DRG GROUPER|18.0|4 SEQ #4
- ;;DRG GROUPER|18.0|5 SEQ #5
- ;;DRG GROUPER|18.0|6 SEQ #6
- ;;DRG GROUPER|18.0|7 SEQ #7
- ;;DRG GROUPER|18.0|8 SEQ #9
- ;;DRG GROUPER|18.0|10 SEQ #10
- ;;DRG GROUPER|18.0|11 SEQ #11
- ;;DRG GROUPER|18.0|12 SEQ #12
- ;;DRG GROUPER|18.0|13 SEQ #13
- ;;DRG GROUPER|18.0|14 SEQ #14
- ;;DRG GROUPER|18.0|16 SEQ #15
- ;;DRG GROUPER|18.0|15
- ;;DRG GROUPER|18.0|17 SEQ #17
- ;;DRG GROUPER|18.0|20 SEQ #19
- ;;DRG GROUPER|18.0|22 SEQ #21
- ;;DRG GROUPER|18.0|24 SEQ #24
- ;;DRG GROUPER|18.0|26 SEQ #25
- ;;DRG GROUPER|18.0|28
- ;;DRG GROUPER|18.0|27 SEQ #27
- ;;DRG GROUPER|18.0|30 SEQ #28
- ;;DRG GROUPER|18.0|29
- ;;DRG GROUPER|18.0|31
- ;;DRG GROUPER|18.0|32
- ;;
- Q
- ICPT ;
- ;;CPT/HCPCS CODES|6.0|1 SEQ #1
- ;;CPT/HCPCS CODES|6.0|2 SEQ #2
- ;;CPT/HCPCS CODES|6.0|3 SEQ #3
- ;;CPT/HCPCS CODES|6.0|4 SEQ #4
- ;;CPT/HCPCS CODES|6.0|5 SEQ #5
- ;;CPT/HCPCS CODES|6.0|6 SEQ #6
- ;;CPT/HCPCS CODES|6.0|7 SEQ #7
- ;;CPT/HCPCS CODES|6.0|8 SEQ #8
- ;;CPT/HCPCS CODES|6.0|9 SEQ #9
- ;;CPT/HCPCS CODES|6.0|10 SEQ #10
- ;;CPT/HCPCS CODES|6.0|11 SEQ #11
- ;;CPT/HCPCS CODES|6.0|12 SEQ #12
- ;;CPT/HCPCS CODES|6.0|13 SEQ #13
- ;;CPT/HCPCS CODES|6.0|14 SEQ #14
- ;;CPT/HCPCS CODES|6.0|15 SEQ #15
- ;;CPT/HCPCS CODES|6.0|16 SEQ #16
- ;;CPT/HCPCS CODES|6.0|17 SEQ #17
- ;;CPT/HCPCS CODES|6.0|18 SEQ #18
- ;;CPT/HCPCS CODES|6.0|19 SEQ #19
- ;;CPT/HCPCS CODES|6.0|20 SEQ #20
- ;;CPT/HCPCS CODES|6.0|22 SEQ #23
- ;;CPT/HCPCS CODES|6.0|23 SEQ #22
- ;;CPT/HCPCS CODES|6.0|30
- ;;CPT/HCPCS CODES|6.0|34
- ;;CPT/HCPCS CODES|6.0|37
- ;;
- Q
- AUPN ;
- ;;IHS DICTIONARIES (PATIENT)|99.1|20 SEQ #20
- Q
- BCSVEC ;IHS/MSC/BWF - CSV Package Update Utility ;16-Apr-2010 09:58;JSH
- +1 ;;1.0;BCSV;;Apr 23, 2010;Build 44
- +2 ;=================================================================
- +3 ;
- +4 ;
- PATUPD ;
- +1 NEW DLM,DDLM,QUIT,I,TEXT,DATA,PKGNM,VERSION,PATCH,PKGIEN,TAG,VSB,XREFREV
- +2 ; Suppress the Disable options and Move routine prompts
- SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
- +3 SET XPDABORT=0
- +4 IF '$DATA(^XPD(9.6,"B","IHS CSV DD MOVE 1.0"))
- SET XPDABORT=1
- +5 IF XPDABORT
- DO BMES^XPDUTL("IHS CSV DD MOVE 1.0 build must be installed to continue!")
- QUIT
- +6 IF '$DATA(^XCSV("MMDONE"))
- SET XPDABORT=1
- +7 IF XPDABORT
- DO BMES^XPDUTL("Manual mapping must be marked as 'complete' prior to installing this patch.")
- QUIT
- +8 IF $DATA(^XPD(9.6,"B","IHS CSV VA UPDATES 1.0"))
- SET XPDABORT=1
- +9 IF XPDABORT
- Begin DoDot:1
- +10 DO BMES^XPDUTL("IHS CSV VA UPDATES has been installed before and may not be installed again!")
- QUIT
- +11 ;D:$D(^XCSV("POSTKID")) FIX^BCSVP1
- End DoDot:1
- QUIT
- +12 SET DDLM=";;"
- SET DLM="|"
- SET QUIT=0
- +13 FOR TAG="LEX","ICD","ICPT"
- Begin DoDot:1
- +14 SET QUIT=0
- +15 FOR I=1:1
- Begin DoDot:2
- +16 SET TEXT=$TEXT(@TAG+I)
- IF TEXT="Q"
- SET QUIT=1
- QUIT
- +17 SET DATA=$PIECE(TEXT,DDLM,2)
- IF DATA=""
- SET QUIT=1
- QUIT
- +18 SET PKGNM=$PIECE(DATA,DLM)
- SET VERSION=$PIECE(DATA,DLM,2)
- SET PATCH=$PIECE(DATA,DLM,3)
- +19 IF '$DATA(^DIC(9.4,"B",PKGNM))
- QUIT
- +20 SET PKGIEN=$ORDER(^DIC(9.4,"B",PKGNM,0))
- IF PKGIEN=""
- QUIT
- +21 IF TAG="ICD"
- Begin DoDot:3
- +22 IF $$GET1^DIQ(9.4,PKGIEN,13)=18.0
- QUIT
- +23 SET FDA(9.4,PKGIEN_",",13)=18.0
- DO FILE^DIE(,"FDA")
- End DoDot:3
- +24 IF '$DATA(^DIC(9.4,PKGIEN,22,"B",VERSION))
- Begin DoDot:3
- +25 KILL FDA
- +26 SET FDA(9.49,"+1,"_PKGIEN_",",.01)=VERSION
- +27 DO UPDATE^DIE(,"FDA")
- +28 SET FDA(9.49,"+1,"_PKGIEN_",",1)=$GET(DT)
- +29 SET FDA(9.49,"+1,"_PKGIEN_",",2)=$GET(DT)
- +30 SET FDA(9.49,"+1,"_PKGIEN_",",3)=$GET(DUZ)
- +31 DO FILE^DIE(,"FDA")
- End DoDot:3
- +32 IF PATCH=""
- QUIT
- +33 SET VSB=$ORDER(^DIC(9.4,PKGIEN,22,"B",VERSION,0))
- +34 IF 'VSB
- QUIT
- +35 KILL FDA
- +36 ; Do not update if the patch is already in the patch history
- +37 IF $DATA(^DIC(9.4,PKGIEN,22,VSB,"PAH","B",PATCH))
- QUIT
- +38 SET FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.01)=$GET(PATCH)
- +39 SET FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.02)=DT
- +40 SET FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.03)=DUZ
- +41 DO UPDATE^DIE(,"FDA")
- End DoDot:2
- IF QUIT
- QUIT
- End DoDot:1
- +42 QUIT
- +43 ;;;;FORMAT - Package name|Version|Patch|Sequence
- LEX ;
- +1 ;;LEXICON UTILITY|2.0|1
- +2 ;;LEXICON UTILITY|2.0|2
- +3 ;;LEXICON UTILITY|2.0|3
- +4 ;;LEXICON UTILITY|2.0|4
- +5 ;;LEXICON UTILITY|2.0|5
- +6 ;;LEXICON UTILITY|2.0|7 SEQ #6
- +7 ;;LEXICON UTILITY|2.0|6 SEQ #7
- +8 ;;LEXICON UTILITY|2.0|8 SEQ #8
- +9 ;;LEXICON UTILITY|2.0|9 SEQ #9
- +10 ;;LEXICON UTILITY|2.0|10 SEQ #10
- +11 ;;LEXICON UTILITY|2.0|11 SEQ #11
- +12 ;;LEXICON UTILITY|2.0|12 SEQ #12
- +13 ;;LEXICON UTILITY|2.0|13 SEQ #13
- +14 ;;LEXICON UTILITY|2.0|14 SEQ #14
- +15 ;;LEXICON UTILITY|2.0|15 SEQ #15
- +16 ;;LEXICON UTILITY|2.0|16 SEQ #16
- +17 ;;LEXICON UTILITY|2.0|17 SEQ #17
- +18 ;;LEXICON UTILITY|2.0|18 SEQ #18
- +19 ;;LEXICON UTILITY|2.0|19 SEQ #19
- +20 ;;LEXICON UTILITY|2.0|21 SEQ #20
- +21 ;;LEXICON UTILITY|2.0|22 SEQ #21
- +22 ;;LEXICON UTILITY|2.0|23 SEQ #22
- +23 ;;LEXICON UTILITY|2.0|24 SEQ #23
- +24 ;;LEXICON UTILITY|2.0|25 SEQ #24
- +25 ;;LEXICON UTILITY|2.0|26 SEQ #25
- +26 ;;LEXICON UTILITY|2.0|27 SEQ #26
- +27 ;;LEXICON UTILITY|2.0|28 SEQ #27
- +28 ;;LEXICON UTILITY|2.0|29 SEQ #28
- +29 ;;LEXICON UTILITY|2.0|30 SEQ #29
- +30 ;;LEXICON UTILITY|2.0|31 SEQ #30
- +31 ;;LEXICON UTILITY|2.0|33 SEQ #31
- +32 ;;LEXICON UTILITY|2.0|34 SEQ #32
- +33 ;;LEXICON UTILITY|2.0|35 SEQ #33
- +34 ;;LEXICON UTILITY|2.0|32 SEQ #34
- +35 ;;LEXICON UTILITY|2.0|36 SEQ #35
- +36 ;;LEXICON UTILITY|2.0|37 SEQ #36
- +37 ;;LEXICON UTILITY|2.0|39 SEQ #37
- +38 ;;LEXICON UTILITY|2.0|38 SEQ #38
- +39 ;;LEXICON UTILITY|2.0|40 SEQ #39
- +40 ;;LEXICON UTILITY|2.0|42 SEQ #41
- +41 ;;LEXICON UTILITY|2.0|36 SEQ #35
- +42 ;;LEXICON UTILITY|2.0|43
- +43 ;;LEXICON UTILITY|2.0|45 SEQ #43
- +44 ;;LEXICON UTILITY|2.0|46
- +45 ;;LEXICON UTILITY|2.0|47
- +46 ;;LEXICON UTILITY|2.0|48
- +47 ;;LEXICON UTILITY|2.0|49
- +48 ;;LEXICON UTILITY|2.0|50 SEQ #48
- +49 ;;LEXICON UTILITY|2.0|52
- +50 ;;LEXICON UTILITY|2.0|53
- +51 ;;LEXICON UTILITY|2.0|54
- +52 ;;
- +53 QUIT
- ICD ;
- +1 ;;DRG GROUPER|9.0||
- +2 ;;DRG GROUPER|10.0||
- +3 ;;DRG GROUPER|11.0||
- +4 ;;DRG GROUPER|12.0||
- +5 ;;DRG GROUPER|13.0||
- +6 ;;DRG GROUPER|14.0||
- +7 ;;DRG GROUPER|15.0||
- +8 ;;DRG GROUPER|16.0||
- +9 ;;DRG GROUPER|17.0||
- +10 ;;DRG GROUPER|18.0|1 SEQ #1
- +11 ;;DRG GROUPER|18.0|2 SEQ #2
- +12 ;;DRG GROUPER|18.0|3 SEQ #3
- +13 ;;DRG GROUPER|18.0|4 SEQ #4
- +14 ;;DRG GROUPER|18.0|5 SEQ #5
- +15 ;;DRG GROUPER|18.0|6 SEQ #6
- +16 ;;DRG GROUPER|18.0|7 SEQ #7
- +17 ;;DRG GROUPER|18.0|8 SEQ #9
- +18 ;;DRG GROUPER|18.0|10 SEQ #10
- +19 ;;DRG GROUPER|18.0|11 SEQ #11
- +20 ;;DRG GROUPER|18.0|12 SEQ #12
- +21 ;;DRG GROUPER|18.0|13 SEQ #13
- +22 ;;DRG GROUPER|18.0|14 SEQ #14
- +23 ;;DRG GROUPER|18.0|16 SEQ #15
- +24 ;;DRG GROUPER|18.0|15
- +25 ;;DRG GROUPER|18.0|17 SEQ #17
- +26 ;;DRG GROUPER|18.0|20 SEQ #19
- +27 ;;DRG GROUPER|18.0|22 SEQ #21
- +28 ;;DRG GROUPER|18.0|24 SEQ #24
- +29 ;;DRG GROUPER|18.0|26 SEQ #25
- +30 ;;DRG GROUPER|18.0|28
- +31 ;;DRG GROUPER|18.0|27 SEQ #27
- +32 ;;DRG GROUPER|18.0|30 SEQ #28
- +33 ;;DRG GROUPER|18.0|29
- +34 ;;DRG GROUPER|18.0|31
- +35 ;;DRG GROUPER|18.0|32
- +36 ;;
- +37 QUIT
- ICPT ;
- +1 ;;CPT/HCPCS CODES|6.0|1 SEQ #1
- +2 ;;CPT/HCPCS CODES|6.0|2 SEQ #2
- +3 ;;CPT/HCPCS CODES|6.0|3 SEQ #3
- +4 ;;CPT/HCPCS CODES|6.0|4 SEQ #4
- +5 ;;CPT/HCPCS CODES|6.0|5 SEQ #5
- +6 ;;CPT/HCPCS CODES|6.0|6 SEQ #6
- +7 ;;CPT/HCPCS CODES|6.0|7 SEQ #7
- +8 ;;CPT/HCPCS CODES|6.0|8 SEQ #8
- +9 ;;CPT/HCPCS CODES|6.0|9 SEQ #9
- +10 ;;CPT/HCPCS CODES|6.0|10 SEQ #10
- +11 ;;CPT/HCPCS CODES|6.0|11 SEQ #11
- +12 ;;CPT/HCPCS CODES|6.0|12 SEQ #12
- +13 ;;CPT/HCPCS CODES|6.0|13 SEQ #13
- +14 ;;CPT/HCPCS CODES|6.0|14 SEQ #14
- +15 ;;CPT/HCPCS CODES|6.0|15 SEQ #15
- +16 ;;CPT/HCPCS CODES|6.0|16 SEQ #16
- +17 ;;CPT/HCPCS CODES|6.0|17 SEQ #17
- +18 ;;CPT/HCPCS CODES|6.0|18 SEQ #18
- +19 ;;CPT/HCPCS CODES|6.0|19 SEQ #19
- +20 ;;CPT/HCPCS CODES|6.0|20 SEQ #20
- +21 ;;CPT/HCPCS CODES|6.0|22 SEQ #23
- +22 ;;CPT/HCPCS CODES|6.0|23 SEQ #22
- +23 ;;CPT/HCPCS CODES|6.0|30
- +24 ;;CPT/HCPCS CODES|6.0|34
- +25 ;;CPT/HCPCS CODES|6.0|37
- +26 ;;
- +27 QUIT
- AUPN ;
- +1 ;;IHS DICTIONARIES (PATIENT)|99.1|20 SEQ #20
- +2 QUIT
