source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEX2043C.m@ 846

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

initial load of WorldVistAEHR
File size: 5.1 KB
RevLine 
[613]1LEX2043C ; 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 C29,C30,C31,C32,C33,C34
6 Q
7 ;
8C29 ; Lookup E878.9 returns 998.0
9 D IND("Lookup E878.9 returns 998.0") N IEN,DA,DIK
10 S IEN=276746 K FDA S FDA(757.01,IEN_",",.01)="Unspecified Surgical Operations and/or Procedure as the cause of Abnormal Reaction of Patient, or Later Complication" D FILE^DIE("","FDA")
11 S IEN=97087 K FDA S FDA(757.01,IEN_",",.01)="Postoperative Shock, Not Elsewhere Classified" D FILE^DIE("","FDA")
12 S IEN=283759 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
13 S IEN=283760 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
14 S IEN=102809 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
15 Q
16C30 ; Lookup E930.2 returns 960.3
17 D IND("Lookup E930.2 returns 960.3") N IEN,DA,DIK
18 S IEN=42332 K FDA S FDA(757.01,IEN_",",.01)="Antibiotics, Chloramphenicol Group causing Adverse Effects in Therapeutic Use" D FILE^DIE("","FDA")
19 S IEN=275987 K FDA S FDA(757.01,IEN_",",.01)="Poisoning by Antibiotics, Erythromycin and Other Marcrolides" D FILE^DIE("","FDA")
20 S IEN=269328 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
21 S IEN=269329 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
22 S IEN=282954 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
23 Q
24C31 ; Lookup E946.7 returns 976.9
25 D IND("Lookup E946.7 returns 976.9") N IEN,DA,DIK
26 S IEN=47058 K FDA S FDA(757.01,IEN_",",.01)="Dental Drugs Topically Applied" D FILE^DIE("","FDA")
27 S IEN=276147 K FDA S FDA(757.01,IEN_",",.01)="Poisoning by Unspecified Agent Primarily Affecting Skin and Mucous Membrane" D FILE^DIE("","FDA")
28 S IEN=269432 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
29 S IEN=269434 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
30 S IEN=283114 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
31 Q
32C32 ; Lookup E950.4 returns 964.2
33 D IND("Lookup E950.4 returns 964.2") N IEN,DA,DIK
34 S IEN=259817 K FDA S FDA(757.01,IEN_",",.01)="Suicide and Self-Inflicted Poisoning by Other Specified Drugs or Medicinal Substances" D FILE^DIE("","FDA")
35 S IEN=276028 K FDA S FDA(757.01,IEN_",",.01)="Poisoning by Anticoagulants" D FILE^DIE("","FDA")
36 S IEN=269769 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
37 S IEN=269771 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
38 S IEN=282995 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
39 Q
40C33 ; Lookup E953.8 returns E958.8
41 D IND("Lookup E953.8 returns E958.8") N IEN,DA,DIK
42 S IEN=294993 K FDA S FDA(757.01,IEN_",",.01)="Suicide and Self-Inflicted Injury by other Specified Means" D FILE^DIE("","FDA")
43 S IEN=305516 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
44 S IEN=305578 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
45 S ^LEX(757,155034,0)="295837^" S DA=155034,DIK="^LEX(757," D IX1^DIK
46 S ^LEX(757.001,155034,0)="155034^4^4" S DA=155034,DIK="^LEX(757.001," D IX1^DIK
47 S ^LEX(757.1,223689,0)="155034^6^33" S DA=223689,DIK="^LEX(757.1," D IX1^DIK
48 S ^LEX(757.01,295837,0)="Suicide and Self-Inflicted Injury by other specified means, causing Strangulation or Suffocation"
49 S ^LEX(757.01,295837,1)="155034^1^D^1" S DA=295837,DIK="^LEX(757.01," D IX1^DIK
50 S DA=305516,DIK="^LEX(757.02," D ^DIK S ^LEX(757.02,305516,0)="295837^E953.8^1^155034^1^^1",^LEX(757.02,305516,4,0)="^757.28D^1^1",^LEX(757.02,305516,4,1,0)="2781001^1" D IX1^DIK
51 Q
52C34 ; Lookup E958.9 returns E953.9
53 D IND("Lookup E958.9 returns E953.9") N IEN,DA,DIK
54 S IEN=115521 K FDA S FDA(757.01,IEN_",",.01)="Suicide and Self-Inflicted Injury by other Unspecified Means" D FILE^DIE("","FDA")
55 S IEN=122357 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
56 S IEN=122358 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
57 S ^LEX(757,155035,0)="295841^" S DA=155035,DIK="^LEX(757," D IX1^DIK
58 S ^LEX(757.001,155035,0)="155035^4^4" S DA=155035,DIK="^LEX(757.001," D IX1^DIK
59 S ^LEX(757.1,223690,0)="155035^6^33" S DA=223690,DIK="^LEX(757.1," D IX1^DIK
60 S ^LEX(757.01,295841,0)="Suicide and Self-Inflicted Injury by unspecified means, causing Strangulation or Suffocation"
61 S ^LEX(757.01,295841,1)="155035^1^D^1" S DA=295841,DIK="^LEX(757.01," D IX1^DIK
62 S DA=122357,DIK="^LEX(757.02," D ^DIK S ^LEX(757.02,122357,0)="295841^E953.9^1^155035^1^^1",^LEX(757.02,122357,4,0)="^757.28D^1^1",^LEX(757.02,122357,4,1,0)="2781001^1" D IX1^DIK
63 Q
64REM(X,Y) ; Remedy Ticket
65 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_" "
66 S X=X_" "_Y S:$E(X,1)'=" " X=" "_X D MES^XPDUTL(X)
67REMI(X,Y) ; Remedy Ticket - Indented
68 N I S X=$G(X),Y=$G(Y) Q:'$L(X)
69 I $L(Y) S X=" "_X F Q:$L(X)>48 S X=X_" "
70 S X=X_" "_Y S:$E(X,1)'=" " X=" "_X D MES^XPDUTL(X)
71 Q
72IND(X) ; Indent Text
73 N I S X=$G(X) Q:'$L(X) S X=" "_X D MES^XPDUTL(X)
74 Q
Note: See TracBrowser for help on using the repository browser.