Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LEX2073D

LEX2073D.m

Go to the documentation of this file.
  1. LEX2073D ;ISL/KER - LEX*2.0*73 Post-Install - Mixed Case 2 ;01/03/2011
  1. ;;2.0;LEXICON UTILITY;**73**;Sep 23, 1996;Build 10
  1. ;
  1. ; External Global Variables
  1. ; None
  1. ;
  1. ; External References
  1. ; FILE^DIE ICR 2053
  1. ; IX1^DIK ICR 10013
  1. ; MES^XPDUTL ICR 10141
  1. ;
  1. Q
  1. EN ;
  1. N DA,DIK,DIE,LEXEX,LEXEXP,LEXFDA,LEXIC,LEXIEN,LEXIENS,LEXLN,LEXSO,LEXTG,LEXTX
  1. S LEXTG="LEX",LEXTX="" F LEXIC=1:1 D Q:'$L(LEXTX)
  1. . S LEXTX="" S LEXEX="S LEXTX=$T("_LEXTG_"+"_LEXIC_")" X LEXEX N LEXLN,LEXSO,LEXIEN,LEXIENS,LEXEXP
  1. . S LEXLN=$P(LEXTX,";;",2,$L(LEXTX,";;")) S:'$L($TR(LEXLN,";","")) LEXTX="" Q:'$L(LEXTX)
  1. . S LEXSO=$P(LEXLN,";;",1),LEXIEN=$P(LEXLN,";;",2),LEXEXP=$P(LEXLN,";;",3) Q:LEXSO'?4N Q:+LEXIEN'>0 Q:'$D(^LEX(757.01,+LEXIEN,0)) Q:'$L(LEXEXP)
  1. . K LEXFDA S LEXIENS=LEXIEN_",",LEXFDA(757.01,LEXIENS,.01)=$G(LEXEXP)
  1. . D FILE^DIE("","LEXFDA") S DA=LEXIEN,DIK="^LEX(757.01," D IX1^DIK
  1. Q
  1. D MES^XPDUTL(" 5260-6354")
  1. LEX ;; 5260-6354
  1. ;;5260;;304531;;Limitation of Flexion of Leg
  1. ;;5261;;304532;;Limitation of Extension of Leg
  1. ;;5262;;304533;;Impairment of Tibia and Fibula
  1. ;;5263;;265468;;Genu Recurvatum
  1. ;;5270;;304534;;Ankylosis of Ankle
  1. ;;5271;;304535;;Limitation of Motion of Ankle
  1. ;;5272;;304536;;Ankylosis of Subastragalar or Tarsal Joint
  1. ;;5273;;304537;;Malunion of Os Calcis or Astragalus
  1. ;;5274;;304545;;Astragalectomy
  1. ;;5275;;304539;;Shortening of Bones of the lower Extremity
  1. ;;5276;;46749;;Flatfoot
  1. ;;5277;;304540;;Weak Foot (Bilateral)
  1. ;;5278;;272746;;Claw Foot (Pes Cavus), Acquired
  1. ;;5279;;304541;;Anterior Metatarsalgia (Morton's Disease)
  1. ;;5280;;53764;;Hallux Valgus
  1. ;;5281;;265483;;Hallux Rigidus
  1. ;;5282;;186911;;Hammer Toe
  1. ;;5283;;304542;;Nonunion or Malunion of the Tarsal or Metatarsal Bones
  1. ;;5284;;304543;;Foot Injuries
  1. ;;5295;;12249;;Back Strain
  1. ;;5296;;304556;;Loss of part of the Skull (both Inner and outer Tables)
  1. ;;5297;;304557;;Removal of Ribs
  1. ;;5298;;304558;;Removal of Coccyx
  1. ;;5301;;304559;;Injury to the Extrinsic Muscles of the Shoulder Girdle (Group I Function: Upward Rotation of Scapula)
  1. ;;5302;;304566;;Injury to the Extrinsic Muscles of the Shoulder Girdle (Group II Function: Depression of Arm)
  1. ;;5303;;304567;;Injury to the Intrinsic Muscles of the Shoulder Girdle (Group III Function: Elevation and Abduction of Arm)
  1. ;;5304;;304568;;Injury to the Intrinsic Muscles of the Shoulder Girdle (Group IV Function: Stabilization of Shoulder)
  1. ;;5305;;304569;;Injury to the Flexor Muscles of the Elbow (Group V Function: Elbow Supination)
  1. ;;5306;;304570;;Injury to the Extensor Muscles of the Elbow (Group VI Function: Extension of Elbow)
  1. ;;5307;;304571;;Injury to the Muscles from the Internal Condyle of the Humerus (Group VII Function: Flexion of Wrist and Fingers)
  1. ;;5308;;304572;;Injury to the Muscles from the External Condyle of the Humerus (Group VIII Function: Extension of Wrist, Fingers, Thumb)
  1. ;;5309;;304573;;Injury to the Muscles of the Hand (Group IX Function: Forearm Muscles)
  1. ;;5310;;304574;;Injury to the Muscles of the Foot (Group X Function: Movement of Forefoot and Toes)
  1. ;;5311;;304575;;Injury to the Posterior and Lateral Muscles of the Leg (Group XI Function: Propulsion of Foot)
  1. ;;5312;;304576;;Injury to the Anterior Muscles of the Leg (Group XII Function: Dorsiflexion)
  1. ;;5313;;304577;;Injury to the Posterior Muscles of the Thigh (Group XIII Function: Extension of Hip and Flexion of Knee)
  1. ;;5314;;304578;;Injury to the Anterior Muscles of the Thigh (Group XIV Function: Extension of Knee)
  1. ;;5315;;304579;;Injury to the Mesial Muscles of the Thigh (Group Xv Function: Adduction of Hip)
  1. ;;5316;;304580;;Injury to the Muscles of the Pelvic Girdle (Group XVI Function: Flexion of Hip)
  1. ;;5317;;304581;;Injury to the Muscles of the Pelvic Girdle (Group XVII Function: Extension of Hip)
  1. ;;5318;;304582;;Injury to the Muscles of the Pelvic Girdle (Group XVIII Function: Outward Rotation of Thigh)
  1. ;;5319;;304583;;Injury to the Muscles of the Abdominal Wall (Group XIX Function: Abdominal Wall and lower Thorax)
  1. ;;5320;;304584;;Injury to the Muscles of the Spine (Group XX Function: Postural Support of Body)
  1. ;;5321;;304585;;Injury to the Muscles Involved with Respiration (Group XXI Function: Respiration)
  1. ;;5322;;304586;;Injury to the Muscles of the Front of the Neck (Group XXII Function: Rotary and Forward Movements, Head)
  1. ;;5323;;304587;;Injury to the Lateral and Posterior Muscles of the Neck (Group XXIII Function: Movements of Head)
  1. ;;5324;;304588;;Rupture of Diaphragm
  1. ;;5325;;304589;;Injury to the Muscles of the Face
  1. ;;5326;;304590;;Muscle Hernia
  1. ;;5327;;1054;;Malignant Neoplasm of Muscle
  1. ;;5328;;304606;;Benign Neoplasm of Muscle
  1. ;;5329;;304607;;Soft Tissue Sarcoma of Muscle, Fat or Connective Tissue
  1. ;;6000;;124827;;Uveitis
  1. ;;6001;;66755;;Keratitis
  1. ;;6002;;108564;;Scleritis
  1. ;;6003;;65605;;Iritis
  1. ;;6004;;29915;;Cyclitis
  1. ;;6005;;23985;;Choroiditis
  1. ;;6006;;105686;;Retinitis
  1. ;;6007;;304591;;Intraocular Hemorrhage, Recent
  1. ;;6008;;105529;;Retinal Detachment
  1. ;;6009;;304592;;Unhealed Injury of the Eye
  1. ;;6010;;304593;;Tuberculosis of the Eye
  1. ;;6011;;304594;;Localized Retinal Scars
  1. ;;6012;;304595;;Glaucoma (Congestive or Inflammatory)
  1. ;;6013;;304596;;Glaucoma (Simple, Primary, Noncongestive)
  1. ;;6014;;304597;;Malignant new Growths of the Eye
  1. ;;6015;;304598;;Benign new Growths of the Eye and Adnexa
  1. ;;6016;;304599;;Nystagmus, Central
  1. ;;6017;;304600;;Trachomatous Conjunctivitis (Chronic)
  1. ;;6018;;269008;;Chronic Conjunctivitis
  1. ;;6019;;15283;;Ptosis (Drooping Eyelid)
  1. ;;6020;;38326;;Ectropion
  1. ;;6021;;41016;;Entropion
  1. ;;6022;;265452;;Lagophthalmos
  1. ;;6023;;304601;;Loss of Eyebrows
  1. ;;6024;;304603;;Loss of Eyelashes
  1. ;;6025;;265453;;Epiphora
  1. ;;6026;;86002;;Optic Neuritis
  1. ;;6027;;268802;;Traumatic Cataract
  1. ;;6028;;20264;;Cataract
  1. ;;6029;;9445;;Aphakia
  1. ;;6030;;304605;;Paralysis of Accommodation
  1. ;;6031;;30880;;Dacryocystitis
  1. ;;6032;;304608;;Loss of a Portion of an Eyelid
  1. ;;6033;;304609;;Dislocation of Crystalline Lens
  1. ;;6034;;304610;;Pterygium
  1. ;;6035;;66799;;Keratoconus
  1. ;;6061;;304611;;Anatomical Loss of both Eyes
  1. ;;6062;;304613;;Blindness in both Eyes Having only Light Perception
  1. ;;6063;;304614;;Anatomical Loss of One Eye and 5/200 or less in the other Eye
  1. ;;6064;;304615;;Anatomical Loss of One Eye and 20/200 or less in the other Eye
  1. ;;6065;;304616;;Anatomical Loss of One Eye and Impaired Vision in the other Eye
  1. ;;6066;;304617;;Anatomical Loss of One Eye and Normal Vision in the other Eye
  1. ;;6067;;304618;;Blindnes of One Eye (Having only Light Perception) and 5/200 or less in the other Eye
  1. ;;6068;;304619;;Blindnes of One Eye (Having only Light Perception) and 20/200 or less in the other Eye
  1. ;;6069;;304620;;Blindnes of One Eye (Having only Light Perception) and Impaired Vision in the other Eye
  1. ;;6070;;304621;;Blindnes of One Eye (Having only Light Perception) and Normal Vision in the other Eye
  1. ;;6071;;304622;;Total Blindnes of both Eyes (5/200 or less)
  1. ;;6072;;304623;;Total Blindnes of One Eye (5/200 or less) and 20/200 or less in the other Eye
  1. ;;6073;;304624;;Total Blindnes of One Eye (5/200 or less) and Impaired Vision in the other Eye
  1. ;;6074;;304625;;Total Blindnes of One Eye (5/200 or less) and Normal Vision in the other Eye
  1. ;;6075;;304626;;Partial Blindnes of both Eyes (20/200 or less)
  1. ;;6076;;304627;;Partial Blindnes of One Eye (20/200 or less) and Impaired Vision in the other Eye
  1. ;;6077;;304628;;Partial Blindnes of One Eye (20/200 or less) and Normal Vision in the other Eye
  1. ;;6078;;304629;;Partial Blindnes of both Eyes (unspecified)
  1. ;;6079;;304630;;Partial Blindnes of One Eye (unspecified)
  1. ;;6080;;304631;;Impairment of Field Vision
  1. ;;6081;;304632;;Unilateral Pathological Scotoma
  1. ;;6090;;304634;;Impairment of Ocular Muscle Function
  1. ;;6091;;265885;;Symblepharon
  1. ;;6092;;304633;;Diplopia due to Limited Muscle Funciton
  1. ;;6200;;186937;;Chronic Suppurative Otitis Media
  1. ;;6201;;304646;;Chronic Catarrhal Otitis Media
  1. ;;6202;;88333;;Otosclerosis
  1. ;;6204;;67891;;Labyrinthitis
  1. ;;6205;;75725;;Meniere's Syndrome
  1. ;;6207;;304649;;Loss or Deformity of Auricle
  1. ;;6208;;304650;;Malignant new Growth of Ear (other than Skin only)
  1. ;;6209;;304651;;Benign new Growth of Ear (other than Skin only)
  1. ;;6210;;304653;;Disease of Auditory Canal
  1. ;;6211;;259079;;Perforation of Tympanic Membrane
  1. ;;6260;;119771;;Tinnitus
  1. ;;6275;;304654;;Loss of Sense of Smell
  1. ;;6276;;304655;;Loss of Sense of Taste
  1. ;;6300;;304656;;Asiatic Cholera
  1. ;;6301;;304657;;Kala-Azar (Visceral Leishmaniasis)
  1. ;;6302;;304669;;Leprosy (Hansen's Disease)
  1. ;;6304;;73348;;Malaria
  1. ;;6305;;46368;;Filariasis
  1. ;;6306;;12767;;Bartonella Infections
  1. ;;6307;;94858;;Plague
  1. ;;6308;;104564;;Relapsing Fever
  1. ;;6309;;105990;;Rheumatic Fever
  1. ;;6310;;116808;;Syphilis
  1. ;;6311;;122716;;Tuberculosis (Miliary)
  1. ;;6313;;11962;;Avitaminosis
  1. ;;6314;;13556;;Beriberi
  1. ;;6315;;91049;;Pellagra
  1. ;;6316;;304658;;Brucellosis (Malta or Undulant Fever)
  1. ;;6317;;108735;;Scrub Typhus
  1. ;;6318;;75520;;Melioidosis
  1. ;;6319;;72315;;Lyme Disease
  1. ;;6320;;90094;;Parasitic Diseases NOS
  1. ;;6350;;304660;;Systemic Lupus Erythematosus (Disseminated)
  1. ;;6351;;304652;;Human Immunodeficiency Virus (HIV) Related Illness (unspecified)
  1. ;;6354;;304659;;Chronic Fatigue Syndrome
  1. ;;;;;;