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

IBDEI3B3.m

Go to the documentation of this file.
  1. IBDEI3B3 ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. Q:'DIFQR(358.4) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,358.4,639,0)
  1. ;;=ED OBS (ADMIT&D/C SAME DAY)^2^71
  1. ;;^UTILITY(U,$J,358.4,640,0)
  1. ;;=ED COMMON DIAGNOSES^1^72
  1. ;;^UTILITY(U,$J,358.4,641,0)
  1. ;;=ADMINISTRATIVE TOPICS^2^72
  1. ;;^UTILITY(U,$J,358.4,642,0)
  1. ;;=CARDIOVASCULAR^3^72
  1. ;;^UTILITY(U,$J,358.4,643,0)
  1. ;;=EAR/NOSE/THROAT^6^72
  1. ;;^UTILITY(U,$J,358.4,644,0)
  1. ;;=ENDO/RENAL/ELECTROLYTES^5^72
  1. ;;^UTILITY(U,$J,358.4,645,0)
  1. ;;=EYE^7^72
  1. ;;^UTILITY(U,$J,358.4,646,0)
  1. ;;=GI/ABDOMEN^8^72
  1. ;;^UTILITY(U,$J,358.4,647,0)
  1. ;;=PSYCHIATRY^17^72
  1. ;;^UTILITY(U,$J,358.4,648,0)
  1. ;;=PAIN/LACERATION/WOUNDS^16^72
  1. ;;^UTILITY(U,$J,358.4,649,0)
  1. ;;=PULMONARY^18^72
  1. ;;^UTILITY(U,$J,358.4,650,0)
  1. ;;=GU/RECTAL^9^72
  1. ;;^UTILITY(U,$J,358.4,651,0)
  1. ;;=HEME/ONC/VASCULAR^10^72
  1. ;;^UTILITY(U,$J,358.4,652,0)
  1. ;;=INFECTIOUS DISEASE^11^72
  1. ;;^UTILITY(U,$J,358.4,653,0)
  1. ;;=MUSCULOSKELETAL/MISC^14^72
  1. ;;^UTILITY(U,$J,358.4,654,0)
  1. ;;=NEUROLOGY^15^72
  1. ;;^UTILITY(U,$J,358.4,655,0)
  1. ;;=SKIN^19^72
  1. ;;^UTILITY(U,$J,358.4,656,0)
  1. ;;=MUSCULOSKELETAL-LE^12^72
  1. ;;^UTILITY(U,$J,358.4,657,0)
  1. ;;=MUSCULOSKELETAL-UE^13^72
  1. ;;^UTILITY(U,$J,358.4,658,0)
  1. ;;=SUICIDE IDEATIONS/ATTEMPTS^20^72
  1. ;;^UTILITY(U,$J,358.4,659,0)
  1. ;;=E-CIG/VAPE LUNG INJURY (EVAL)^4^72
  1. ;;^UTILITY(U,$J,358.4,660,0)
  1. ;;=MISC-FALLS^21^72
  1. ;;^UTILITY(U,$J,358.4,661,0)
  1. ;;=MISC-VEHICLE ACCIDENTS^22^72
  1. ;;^UTILITY(U,$J,358.4,662,0)
  1. ;;=MISC-BITES,PUNCTURE WOUNDS,ASSAULTS^23^72
  1. ;;^UTILITY(U,$J,358.4,663,0)
  1. ;;=TEST - CATARACT / COLOR^4^73
  1. ;;^UTILITY(U,$J,358.4,664,0)
  1. ;;=IMAGING / PHOTOS^2^73
  1. ;;^UTILITY(U,$J,358.4,665,0)
  1. ;;=TEST - GLAUCOMA^3^73
  1. ;;^UTILITY(U,$J,358.4,666,0)
  1. ;;=TEST - OTHER^5^73
  1. ;;^UTILITY(U,$J,358.4,667,0)
  1. ;;=REFRACT / GLASSES / CL^1^73
  1. ;;^UTILITY(U,$J,358.4,668,0)
  1. ;;=EEF Version 2020 February^6^73
  1. ;;^UTILITY(U,$J,358.4,669,0)
  1. ;;=LOW VISION / BLINDNESS^21^74
  1. ;;^UTILITY(U,$J,358.4,670,0)
  1. ;;=RETINA - VASCULAR^12^74
  1. ;;^UTILITY(U,$J,358.4,671,0)
  1. ;;=EYELIDS / LASHES^2^74
  1. ;;^UTILITY(U,$J,358.4,672,0)
  1. ;;=NEURO / STRABISMUS^18^74
  1. ;;^UTILITY(U,$J,358.4,673,0)
  1. ;;=ORBIT - PLASTICS^20^74
  1. ;;^UTILITY(U,$J,358.4,674,0)
  1. ;;=VITREOUS^17^74
  1. ;;^UTILITY(U,$J,358.4,675,0)
  1. ;;=ORBIT - TRAUMA^19^74
  1. ;;^UTILITY(U,$J,358.4,676,0)
  1. ;;=LACRIMAL / NLD / NEOPLASMS^3^74
  1. ;;^UTILITY(U,$J,358.4,677,0)
  1. ;;=MOST FREQUENT^1^74
  1. ;;^UTILITY(U,$J,358.4,678,0)
  1. ;;=CONJUNCTIVA / SCLERA^4^74
  1. ;;^UTILITY(U,$J,358.4,679,0)
  1. ;;=CORNEA / ULCER^5^74
  1. ;;^UTILITY(U,$J,358.4,680,0)
  1. ;;=LENS / CATARACT / POSTOP^6^74
  1. ;;^UTILITY(U,$J,358.4,681,0)
  1. ;;=IRIS / UVEITIS^7^74
  1. ;;^UTILITY(U,$J,358.4,682,0)
  1. ;;=GLAUCOMA - OPEN ANGLE^8^74
  1. ;;^UTILITY(U,$J,358.4,683,0)
  1. ;;=GLAUCOMA - CLOSED ANGLE^9^74
  1. ;;^UTILITY(U,$J,358.4,684,0)
  1. ;;=GLAUCOMA - SECONDARY^10^74
  1. ;;^UTILITY(U,$J,358.4,685,0)
  1. ;;=RETINA - CHOROID / TUMORS / INFLAM^14^74
  1. ;;^UTILITY(U,$J,358.4,686,0)
  1. ;;=RETINA - TEAR / PERIPH / DEGENERATION^15^74
  1. ;;^UTILITY(U,$J,358.4,687,0)
  1. ;;=RETINA - MACULA^11^74
  1. ;;^UTILITY(U,$J,358.4,688,0)
  1. ;;=SUICIDE IDEATIONS/ATTEMPTS^23^74
  1. ;;^UTILITY(U,$J,358.4,689,0)
  1. ;;=PMH / OTHER^22^74
  1. ;;^UTILITY(U,$J,358.4,690,0)
  1. ;;=RETINA - VEGF INJECT DX CODES^16^74
  1. ;;^UTILITY(U,$J,358.4,691,0)
  1. ;;=RETINA - DIABETIC RETINOPATHY^13^74
  1. ;;^UTILITY(U,$J,358.4,692,0)
  1. ;;=NEW PATIENT^3^75
  1. ;;^UTILITY(U,$J,358.4,693,0)
  1. ;;=ESTABLISHED PATIENT^2^75
  1. ;;^UTILITY(U,$J,358.4,694,0)
  1. ;;=CONSULTS - OUTPT^4^75
  1. ;;^UTILITY(U,$J,358.4,695,0)
  1. ;;=EYE CODES^1^75
  1. ;;^UTILITY(U,$J,358.4,696,0)
  1. ;;=CONSULTS - INPT^5^75