LEX2073G ;ISL/KER - LEX*2.0*73 Post-Install - Mixed Case 3 ;01/03/2011
;;2.0;LEXICON UTILITY;**73**;Sep 23, 1996;Build 10
;
; External Global Variables
; None
;
; External References
; FILE^DIE ICR 2053
; IX1^DIK ICR 10013
; MES^XPDUTL ICR 10141
;
Q
EN ;
N DA,DIK,DIE,LEXEX,LEXEXP,LEXFDA,LEXIC,LEXIEN,LEXIENS,LEXLN,LEXSO,LEXTG,LEXTX
S LEXTG="LEX",LEXTX="" F LEXIC=1:1 D Q:'$L(LEXTX)
. S LEXTX="" S LEXEX="S LEXTX=$T("_LEXTG_"+"_LEXIC_")" X LEXEX N LEXLN,LEXSO,LEXIEN,LEXIENS,LEXEXP
. S LEXLN=$P(LEXTX,";;",2,$L(LEXTX,";;")) S:'$L($TR(LEXLN,";","")) LEXTX="" Q:'$L(LEXTX)
. S LEXSO=$P(LEXLN,";;",1),LEXIEN=$P(LEXLN,";;",2),LEXEXP=$P(LEXLN,";;",3) Q:'$L(LEXSO) Q:+LEXIEN'>0 Q:'$D(^LEX(757.01,+LEXIEN,0)) Q:'$L(LEXEXP)
. K LEXFDA S LEXIENS=LEXIEN_",",LEXFDA(757.01,LEXIENS,.01)=$G(LEXEXP)
. D FILE^DIE("","LEXFDA") S DA=LEXIEN,DIK="^LEX(757.01," D IX1^DIK
Q
D MES^XPDUTL(" 8710-9916")
;;CODE;;757.01;;EXP
LEX ;; 8710-9916
;;8710;;304954;;Neuralgia of upper Radicular Nerves Affecting all Shoulder and Elbow Movements
;;8711;;304955;;Neuralgia of Middle Radicular Nerves Affecting Adduction, Abduction and Rotation of Arm, Flexion of Elbow and Extention of Wrist
;;8712;;304956;;Neuralgia of lower Radicular Nerves Affecting the Intrinsic Muscles of the Hand and Flexors of the Wrist and Fingers
;;8713;;304957;;Neuralgia of all Radicular Nerves Affecting the Shoulder, Arm, Wrist and Hand
;;8714;;304958;;Neuralgia of the Musculospiral Nerve (Radial Nerve)
;;8715;;304959;;Neuralgia of the Median Nerve
;;8716;;304960;;Neuralgia of the Ulnar Nerve
;;8717;;304961;;Neuralgia of the Musculocutaneous Nerve (Lateral Cord)
;;8718;;304962;;Neuralgia of the Circumflex Nerve
;;8719;;304963;;Neuralgia of the Long Thoracic Nerve
;;8720;;304964;;Neuralgia of the Sciatic Nerve
;;8721;;304965;;Neuralgia of the Lateral Popliteal Nerve (Common Peroneal)
;;8722;;304966;;Neuralgia of the Musculocutaneous Nerve (Superficial Peroneal)
;;8723;;304967;;Neuralgia of the Anterior Tibial Nerve (Deep Peroneal)
;;8724;;304968;;Neuralgia of the Internal Popliteal Nerve (Tibial)
;;8725;;304969;;Neuralgia of the Posterior Tibial Nerve
;;8726;;304970;;Neuralgia of the Anterior Crural Nerve (Femoral)
;;8727;;304971;;Neuralgia of the Internal Saphenous Nerve
;;8728;;304972;;Neuralgia of the Obturator Nerve
;;8729;;304973;;Neuralgia of the External Cutaneous Nerve of the Thigh
;;8730;;304974;;Neuralgia of the Ilio-Inguinal Nerve
;;8910;;41462;;Epilepsy (Grand Mal)
;;8911;;41507;;Epilepsy (Petit Mal)
;;8912;;304975;;Epilepsy (Jacksonian and Focal Motor or Sensory)
;;8913;;304976;;Epilepsy (Diencephalic)
;;8914;;189204;;Epilepsy (Psychomotor)
;;9201;;108318;;Schizophrenia (Disorganized Type)
;;9202;;108305;;Schizophrenia (Catatonic Type)
;;9203;;108330;;Schizophrenia (Paranoid Type)
;;9204;;108345;;Schizophrenia (Undifferentiated Type)
;;9205;;88157;;Other Specified Types of Schizophrenia
;;9208;;304979;;Delusional Disorder
;;9210;;11537;;Psychotic Disorder
;;9211;;108264;;Schizoaffective Disorder
;;9300;;304981;;Delirium
;;9301;;304983;;Dementia due to Infection
;;9304;;304989;;Dementia due to Head Trauma
;;9305;;304990;;Multi-Infarct Dementia with Cerebral Arteriosclerosis
;;9310;;304995;;Dementia of Unknown Etiology
;;9312;;98227;;Dementia of Alzheimer's type
;;9326;;186640;;Dementia due to other Medical Conditions
;;9327;;86314;;Organic Mental Disorder
;;9400;;50059;;Generalized Anxiety Disorder
;;9403;;93431;;Specific (Simple) Phobia
;;9404;;84900;;Obsessive-Compulsive Disorder
;;9410;;83041;;Other and unspecified Neurosis
;;9411;;305004;;Post-Traumatic Stress Disorder
;;9412;;89489;;Panic Disorder
;;9413;;9211;;Anxiety Disorder
;;9416;;303640;;Amnesia, Fugue, Identity Disorder
;;9417;;32878;;Depersonalization Disorder
;;9421;;112280;;Somatization Disorder
;;9422;;1048;;Pain Disorder
;;9423;;123543;;Undifferentiated Somatoform Disorder
;;9424;;28139;;Conversion Disorder
;;9425;;60556;;Hypochondriasis
;;9431;;30028;;Cyclothymic Disorder
;;9432;;14791;;Bipolar Disorder
;;9433;;303478;;Dysthymic Disorder
;;9434;;73302;;Major Depressive Disorder
;;9435;;303635;;Mood Disorder
;;9440;;1049;;Chronic Adjustment Disorder
;;9520;;7942;;Anorexia Nervosa
;;9521;;17407;;Bulimia Nervosa
;;9900;;305017;;Osteomyelitis or Osteoradionecrosis of Maxilla or Mandible
;;9901;;305018;;Complete Loss of Mandible between Angles
;;9902;;305019;;Loss of Approximately One-Half of Mandible
;;9903;;305020;;Nonunion of Mandible
;;9904;;305021;;Malunion of Mandible
;;9905;;305022;;Limitation of Motion of Temporomandibular Articulation
;;9906;;305023;;Loss of Whole or part of the Mandibular Ramus
;;9907;;305024;;Loss of less than One-Half of the Substance of the Madibular Ramus without Involving a Loss of Continuity
;;9908;;305025;;Loss of Condylar Process of Mandible (One or both Sides)
;;9909;;305026;;Loss of Coronoid Process of Mandible
;;9911;;305028;;Loss of Half or more of the Hard Palate
;;9912;;305029;;Loss of less than Half of the Hard Palate
;;9913;;305030;;Loss of Teeth due to Loss of the Substance of the Body of the Maxilla or Mandible without a Loss of Continuity
;;9914;;305031;;Loss of more than Half of the Maxilla
;;9915;;305032;;Loss of Half or less of the Maxilla
;;9916;;305033;;Nonunion or Malunion of the Maxilla
;;333.72;;334067;;Acute Dystonia due to Drugs
;;333.79;;334068;;Other Acquired Torsion Dystonia
;;;;;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX2073G 5685 printed Dec 13, 2024@02:04:46 Page 2
LEX2073G ;ISL/KER - LEX*2.0*73 Post-Install - Mixed Case 3 ;01/03/2011
+1 ;;2.0;LEXICON UTILITY;**73**;Sep 23, 1996;Build 10
+2 ;
+3 ; External Global Variables
+4 ; None
+5 ;
+6 ; External References
+7 ; FILE^DIE ICR 2053
+8 ; IX1^DIK ICR 10013
+9 ; MES^XPDUTL ICR 10141
+10 ;
+11 QUIT
EN ;
+1 NEW DA,DIK,DIE,LEXEX,LEXEXP,LEXFDA,LEXIC,LEXIEN,LEXIENS,LEXLN,LEXSO,LEXTG,LEXTX
+2 SET LEXTG="LEX"
SET LEXTX=""
FOR LEXIC=1:1
Begin DoDot:1
+3 SET LEXTX=""
SET LEXEX="S LEXTX=$T("_LEXTG_"+"_LEXIC_")"
XECUTE LEXEX
NEW LEXLN,LEXSO,LEXIEN,LEXIENS,LEXEXP
+4 SET LEXLN=$PIECE(LEXTX,";;",2,$LENGTH(LEXTX,";;"))
if '$LENGTH($TRANSLATE(LEXLN,";",""))
SET LEXTX=""
if '$LENGTH(LEXTX)
QUIT
+5 SET LEXSO=$PIECE(LEXLN,";;",1)
SET LEXIEN=$PIECE(LEXLN,";;",2)
SET LEXEXP=$PIECE(LEXLN,";;",3)
if '$LENGTH(LEXSO)
QUIT
if +LEXIEN'>0
QUIT
if '$DATA(^LEX(757.01,+LEXIEN,0))
QUIT
if '$LENGTH(LEXEXP)
QUIT
+6 KILL LEXFDA
SET LEXIENS=LEXIEN_","
SET LEXFDA(757.01,LEXIENS,.01)=$GET(LEXEXP)
+7 DO FILE^DIE("","LEXFDA")
SET DA=LEXIEN
SET DIK="^LEX(757.01,"
DO IX1^DIK
End DoDot:1
if '$LENGTH(LEXTX)
QUIT
+8 QUIT
+9 DO MES^XPDUTL(" 8710-9916")
+10 ;;CODE;;757.01;;EXP
LEX ;; 8710-9916
+1 ;;8710;;304954;;Neuralgia of upper Radicular Nerves Affecting all Shoulder and Elbow Movements
+2 ;;8711;;304955;;Neuralgia of Middle Radicular Nerves Affecting Adduction, Abduction and Rotation of Arm, Flexion of Elbow and Extention of Wrist
+3 ;;8712;;304956;;Neuralgia of lower Radicular Nerves Affecting the Intrinsic Muscles of the Hand and Flexors of the Wrist and Fingers
+4 ;;8713;;304957;;Neuralgia of all Radicular Nerves Affecting the Shoulder, Arm, Wrist and Hand
+5 ;;8714;;304958;;Neuralgia of the Musculospiral Nerve (Radial Nerve)
+6 ;;8715;;304959;;Neuralgia of the Median Nerve
+7 ;;8716;;304960;;Neuralgia of the Ulnar Nerve
+8 ;;8717;;304961;;Neuralgia of the Musculocutaneous Nerve (Lateral Cord)
+9 ;;8718;;304962;;Neuralgia of the Circumflex Nerve
+10 ;;8719;;304963;;Neuralgia of the Long Thoracic Nerve
+11 ;;8720;;304964;;Neuralgia of the Sciatic Nerve
+12 ;;8721;;304965;;Neuralgia of the Lateral Popliteal Nerve (Common Peroneal)
+13 ;;8722;;304966;;Neuralgia of the Musculocutaneous Nerve (Superficial Peroneal)
+14 ;;8723;;304967;;Neuralgia of the Anterior Tibial Nerve (Deep Peroneal)
+15 ;;8724;;304968;;Neuralgia of the Internal Popliteal Nerve (Tibial)
+16 ;;8725;;304969;;Neuralgia of the Posterior Tibial Nerve
+17 ;;8726;;304970;;Neuralgia of the Anterior Crural Nerve (Femoral)
+18 ;;8727;;304971;;Neuralgia of the Internal Saphenous Nerve
+19 ;;8728;;304972;;Neuralgia of the Obturator Nerve
+20 ;;8729;;304973;;Neuralgia of the External Cutaneous Nerve of the Thigh
+21 ;;8730;;304974;;Neuralgia of the Ilio-Inguinal Nerve
+22 ;;8910;;41462;;Epilepsy (Grand Mal)
+23 ;;8911;;41507;;Epilepsy (Petit Mal)
+24 ;;8912;;304975;;Epilepsy (Jacksonian and Focal Motor or Sensory)
+25 ;;8913;;304976;;Epilepsy (Diencephalic)
+26 ;;8914;;189204;;Epilepsy (Psychomotor)
+27 ;;9201;;108318;;Schizophrenia (Disorganized Type)
+28 ;;9202;;108305;;Schizophrenia (Catatonic Type)
+29 ;;9203;;108330;;Schizophrenia (Paranoid Type)
+30 ;;9204;;108345;;Schizophrenia (Undifferentiated Type)
+31 ;;9205;;88157;;Other Specified Types of Schizophrenia
+32 ;;9208;;304979;;Delusional Disorder
+33 ;;9210;;11537;;Psychotic Disorder
+34 ;;9211;;108264;;Schizoaffective Disorder
+35 ;;9300;;304981;;Delirium
+36 ;;9301;;304983;;Dementia due to Infection
+37 ;;9304;;304989;;Dementia due to Head Trauma
+38 ;;9305;;304990;;Multi-Infarct Dementia with Cerebral Arteriosclerosis
+39 ;;9310;;304995;;Dementia of Unknown Etiology
+40 ;;9312;;98227;;Dementia of Alzheimer's type
+41 ;;9326;;186640;;Dementia due to other Medical Conditions
+42 ;;9327;;86314;;Organic Mental Disorder
+43 ;;9400;;50059;;Generalized Anxiety Disorder
+44 ;;9403;;93431;;Specific (Simple) Phobia
+45 ;;9404;;84900;;Obsessive-Compulsive Disorder
+46 ;;9410;;83041;;Other and unspecified Neurosis
+47 ;;9411;;305004;;Post-Traumatic Stress Disorder
+48 ;;9412;;89489;;Panic Disorder
+49 ;;9413;;9211;;Anxiety Disorder
+50 ;;9416;;303640;;Amnesia, Fugue, Identity Disorder
+51 ;;9417;;32878;;Depersonalization Disorder
+52 ;;9421;;112280;;Somatization Disorder
+53 ;;9422;;1048;;Pain Disorder
+54 ;;9423;;123543;;Undifferentiated Somatoform Disorder
+55 ;;9424;;28139;;Conversion Disorder
+56 ;;9425;;60556;;Hypochondriasis
+57 ;;9431;;30028;;Cyclothymic Disorder
+58 ;;9432;;14791;;Bipolar Disorder
+59 ;;9433;;303478;;Dysthymic Disorder
+60 ;;9434;;73302;;Major Depressive Disorder
+61 ;;9435;;303635;;Mood Disorder
+62 ;;9440;;1049;;Chronic Adjustment Disorder
+63 ;;9520;;7942;;Anorexia Nervosa
+64 ;;9521;;17407;;Bulimia Nervosa
+65 ;;9900;;305017;;Osteomyelitis or Osteoradionecrosis of Maxilla or Mandible
+66 ;;9901;;305018;;Complete Loss of Mandible between Angles
+67 ;;9902;;305019;;Loss of Approximately One-Half of Mandible
+68 ;;9903;;305020;;Nonunion of Mandible
+69 ;;9904;;305021;;Malunion of Mandible
+70 ;;9905;;305022;;Limitation of Motion of Temporomandibular Articulation
+71 ;;9906;;305023;;Loss of Whole or part of the Mandibular Ramus
+72 ;;9907;;305024;;Loss of less than One-Half of the Substance of the Madibular Ramus without Involving a Loss of Continuity
+73 ;;9908;;305025;;Loss of Condylar Process of Mandible (One or both Sides)
+74 ;;9909;;305026;;Loss of Coronoid Process of Mandible
+75 ;;9911;;305028;;Loss of Half or more of the Hard Palate
+76 ;;9912;;305029;;Loss of less than Half of the Hard Palate
+77 ;;9913;;305030;;Loss of Teeth due to Loss of the Substance of the Body of the Maxilla or Mandible without a Loss of Continuity
+78 ;;9914;;305031;;Loss of more than Half of the Maxilla
+79 ;;9915;;305032;;Loss of Half or less of the Maxilla
+80 ;;9916;;305033;;Nonunion or Malunion of the Maxilla
+81 ;;333.72;;334067;;Acute Dystonia due to Drugs
+82 ;;333.79;;334068;;Other Acquired Torsion Dystonia
+83 ;;;;;;
