source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEX2043D.m@ 1704

Last change on this file since 1704 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 3.7 KB
RevLine 
[613]1LEX2043D ; ISL/KER - Post Install LEX*2.0*43 ; 09/06/2006
2 ;;2.0;LEXICON UTILITY;**43**;Sep 23, 1996;Build 1
3 ;
4EN ; Main Entry Point
5 D C35,C36,C37,C38
6 Q
7C35 ; HD0000000 142632 - AIDS and Hip Pain
8 D MES^XPDUTL(" "),MES^XPDUTL(" Fixes made to ICD-9 in the Lexicon"),MES^XPDUTL(" ")
9 D REMI("Problem with 2 codes 042 and 719.45","HD0000000 142632")
10 N IEN,DA,DIK
11 S ^LEX(757.01,266500,5,0)="^757.18^1^1",^LEX(757.01,266500,5,1,0)="AIDS",^LEX(757.01,266500,5,"B","AIDS",1)="",DA=266500,DIK="^LEX(757.01," D IX1^DIK
12 S ^LEX(757.01,304652,5,0)="^757.18^1^1",^LEX(757.01,304652,5,1,0)="AIDS",^LEX(757.01,304652,5,"B","AIDS",1)="",DA=304652,DIK="^LEX(757.01," D IX1^DIK
13 S ^LEX(757.02,317464,0)="2244^042.^1^458^0^^0",^LEX(757.02,317464,4,0)="^757.28D^1^1",^LEX(757.02,317464,4,1,0)="2781001^1",DA=317464,DIK="^LEX(757.02," D IX1^DIK
14 S ^LEX(757.01,2244,5,0)="^757.18^1^1",^LEX(757.01,2244,5,1,0)="AIDS",^LEX(757.01,2244,5,"B","AIDS",1)="",DA=2244,DIK="^LEX(757.01," D IX1^DIK
15 S ^LEX(757.01,272402,5,0)="^757.18^1^1",^LEX(757.01,272402,5,1,0)="HIP",^LEX(757.01,272402,5,"B","HIP",1)="",DA=272402,DIK="^LEX(757.01," D IX1^DIK
16 S ^LEX(757.01,272252,5,0)="^757.18^2^2",^LEX(757.01,272252,5,1,0)="HIP",^LEX(757.01,272252,5,2,0)="PAIN" S DA=272252,DIK="^LEX(757.01," D IX1^DIK
17 S IEN=60666 K FDA S FDA(757.02,IEN_",",1)="719.45",FDA(757.02,IEN_",",2)="1",FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
18 S IEN=269850 K FDA S FDA(757.02,IEN_",",1)="719.45",FDA(757.02,IEN_",",2)="1",FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
19 S IEN=267561 K FDA S FDA(757.02,IEN_",",1)="719.45",FDA(757.02,IEN_",",2)="1",FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
20 Q
21C36 ; HD0000000 147490 - ICD Code 567.22 Recognized as CC
22 D MES^XPDUTL(" "),MES^XPDUTL(" Fixes made to ICD-9 in file #80"),MES^XPDUTL(" ")
23 D REMI("ICD Code 567.22 Recognized as CC","HD0000000 147490")
24 N IEN,FDA S IEN=+($$ICDDX^ICDCODE("567.22"))
25 I IEN K FDA S FDA(80,IEN_",",70)="1" D FILE^DIE("","FDA")
26 Q
27C37 ; Fixes made by modifying the logic in ICPTMOD Routine
28 D MES^XPDUTL(" ")
29 D MES^XPDUTL(" Fixes made by modifying the logic in ICPTMOD Routine")
30 D MES^XPDUTL(" or by the re-alignment of the CPT Modifier Ranges"),MES^XPDUTL(" ")
31 D REMI("Modifier 47 with 26951","HD0000000 063473")
32 D REMI("Modifiers LT & RT with 73500 & 73120","HD0000000 064223")
33 D REMI("Modifier P5 with 00910","HD0000000 064495")
34 D REMI("Modifier 50 with 92250","HD0000000 084545")
35 D REMI("Modifiers 76, 77, 78, and 79 with J8499","HD0000000 097711")
36 D REMI("Modifier GT with 90853","HD0000000 110935")
37 D REMI("Modifier GW with 99213","HD0000000 118427")
38 D REMI("Modifier 53 with G0121","HD0000000 121972")
39 D REMI("Modifier GT with 90853","HD0000000 122219")
40 D REMI("Modifiers GN, GO and GP with 97760-97762","HD0000000 134404")
41 D REMI("Modifiers GN, GO and GP with 97760-97762","HD0000000 150885")
42 Q
43C38 ; Fixes made to CPT Modifier file
44 D MES^XPDUTL(" ")
45 D MES^XPDUTL(" Fixes made by data changes to the CPT Modifier file"),MES^XPDUTL(" ")
46 D REMI("Modifier BL with P-Codes","HD0000000 131752")
47 D REMI("Modifier 66 with Unlisted Procedures","HD0000000 107714")
48 D REMI("Modifier GW with Commercial/Medicare bills","HD0000000 138426")
49 D REMI("Modifier 51 with 51741 and 51798","HD0000000 141204")
50 D REMI("Modifier GT with 99090 and 99091","HD0000000 150470")
51 Q
52REM(X,Y) ; Remedy Ticket
53 N I S X=$G(X),Y=$G(Y) Q:'$L(X) I $L(Y) S X=" "_X F Q:$L(X)>48 S X=X_" "
54 S X=X_" "_Y S:$E(X,1)'=" " X=" "_X D MES^XPDUTL(X)
55REMI(X,Y) ; Remedy Ticket - Indented
56 N I S X=$G(X),Y=$G(Y) Q:'$L(X)
57 I $L(Y) S X=" "_X F Q:$L(X)>48 S X=X_" "
58 S X=X_" "_Y S:$E(X,1)'=" " X=" "_X D MES^XPDUTL(X)
59 Q
60IND(X) ; Indent Text
61 N I S X=$G(X) Q:'$L(X) S X=" "_X D MES^XPDUTL(X)
62 Q
Note: See TracBrowser for help on using the repository browser.