75 lines
5.1 KiB
Mathematica
75 lines
5.1 KiB
Mathematica
LEX2043C ; ISL/KER - Post Install LEX*2.0*43 ; 09/06/2006
|
|
;;2.0;LEXICON UTILITY;**43**;Sep 23, 1996;Build 1
|
|
;
|
|
EN ; Main Entry Point
|
|
D C29,C30,C31,C32,C33,C34
|
|
Q
|
|
;
|
|
C29 ; Lookup E878.9 returns 998.0
|
|
D IND("Lookup E878.9 returns 998.0") N IEN,DA,DIK
|
|
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")
|
|
S IEN=97087 K FDA S FDA(757.01,IEN_",",.01)="Postoperative Shock, Not Elsewhere Classified" D FILE^DIE("","FDA")
|
|
S IEN=283759 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
|
|
S IEN=283760 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
|
|
S IEN=102809 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
|
|
Q
|
|
C30 ; Lookup E930.2 returns 960.3
|
|
D IND("Lookup E930.2 returns 960.3") N IEN,DA,DIK
|
|
S IEN=42332 K FDA S FDA(757.01,IEN_",",.01)="Antibiotics, Chloramphenicol Group causing Adverse Effects in Therapeutic Use" D FILE^DIE("","FDA")
|
|
S IEN=275987 K FDA S FDA(757.01,IEN_",",.01)="Poisoning by Antibiotics, Erythromycin and Other Marcrolides" D FILE^DIE("","FDA")
|
|
S IEN=269328 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
|
|
S IEN=269329 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
|
|
S IEN=282954 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
|
|
Q
|
|
C31 ; Lookup E946.7 returns 976.9
|
|
D IND("Lookup E946.7 returns 976.9") N IEN,DA,DIK
|
|
S IEN=47058 K FDA S FDA(757.01,IEN_",",.01)="Dental Drugs Topically Applied" D FILE^DIE("","FDA")
|
|
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")
|
|
S IEN=269432 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
|
|
S IEN=269434 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
|
|
S IEN=283114 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
|
|
Q
|
|
C32 ; Lookup E950.4 returns 964.2
|
|
D IND("Lookup E950.4 returns 964.2") N IEN,DA,DIK
|
|
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")
|
|
S IEN=276028 K FDA S FDA(757.01,IEN_",",.01)="Poisoning by Anticoagulants" D FILE^DIE("","FDA")
|
|
S IEN=269769 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
|
|
S IEN=269771 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
|
|
S IEN=282995 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
|
|
Q
|
|
C33 ; Lookup E953.8 returns E958.8
|
|
D IND("Lookup E953.8 returns E958.8") N IEN,DA,DIK
|
|
S IEN=294993 K FDA S FDA(757.01,IEN_",",.01)="Suicide and Self-Inflicted Injury by other Specified Means" D FILE^DIE("","FDA")
|
|
S IEN=305516 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
|
|
S IEN=305578 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
|
|
S ^LEX(757,155034,0)="295837^" S DA=155034,DIK="^LEX(757," D IX1^DIK
|
|
S ^LEX(757.001,155034,0)="155034^4^4" S DA=155034,DIK="^LEX(757.001," D IX1^DIK
|
|
S ^LEX(757.1,223689,0)="155034^6^33" S DA=223689,DIK="^LEX(757.1," D IX1^DIK
|
|
S ^LEX(757.01,295837,0)="Suicide and Self-Inflicted Injury by other specified means, causing Strangulation or Suffocation"
|
|
S ^LEX(757.01,295837,1)="155034^1^D^1" S DA=295837,DIK="^LEX(757.01," D IX1^DIK
|
|
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
|
|
Q
|
|
C34 ; Lookup E958.9 returns E953.9
|
|
D IND("Lookup E958.9 returns E953.9") N IEN,DA,DIK
|
|
S IEN=115521 K FDA S FDA(757.01,IEN_",",.01)="Suicide and Self-Inflicted Injury by other Unspecified Means" D FILE^DIE("","FDA")
|
|
S IEN=122357 K FDA S FDA(757.02,IEN_",",4)="",FDA(757.02,IEN_",",6)="0" D FILE^DIE("","FDA")
|
|
S IEN=122358 K FDA S FDA(757.02,IEN_",",4)="1",FDA(757.02,IEN_",",6)="1" D FILE^DIE("","FDA")
|
|
S ^LEX(757,155035,0)="295841^" S DA=155035,DIK="^LEX(757," D IX1^DIK
|
|
S ^LEX(757.001,155035,0)="155035^4^4" S DA=155035,DIK="^LEX(757.001," D IX1^DIK
|
|
S ^LEX(757.1,223690,0)="155035^6^33" S DA=223690,DIK="^LEX(757.1," D IX1^DIK
|
|
S ^LEX(757.01,295841,0)="Suicide and Self-Inflicted Injury by unspecified means, causing Strangulation or Suffocation"
|
|
S ^LEX(757.01,295841,1)="155035^1^D^1" S DA=295841,DIK="^LEX(757.01," D IX1^DIK
|
|
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
|
|
Q
|
|
REM(X,Y) ; Remedy Ticket
|
|
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_" "
|
|
S X=X_" "_Y S:$E(X,1)'=" " X=" "_X D MES^XPDUTL(X)
|
|
REMI(X,Y) ; Remedy Ticket - Indented
|
|
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_" "
|
|
S X=X_" "_Y S:$E(X,1)'=" " X=" "_X D MES^XPDUTL(X)
|
|
Q
|
|
IND(X) ; Indent Text
|
|
N I S X=$G(X) Q:'$L(X) S X=" "_X D MES^XPDUTL(X)
|
|
Q
|