IBDEI0FR ; ; 03-MAY-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
 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
Q Q
 ;;^UTILITY(U,$J,358.4,1326,0)
 ;;=W DIAGNOSES^23^97
 ;;^UTILITY(U,$J,358.4,1327,0)
 ;;=B DIAGNOSES^3^97
 ;;^UTILITY(U,$J,358.4,1328,0)
 ;;=G DIAGNOSES^8^97
 ;;^UTILITY(U,$J,358.4,1329,0)
 ;;=H DIAGNOSES^8^97
 ;;^UTILITY(U,$J,358.4,1330,0)
 ;;=L DIAGNOSES^12^97
 ;;^UTILITY(U,$J,358.4,1331,0)
 ;;=O DIAGNOSES^15^97
 ;;^UTILITY(U,$J,358.4,1332,0)
 ;;=U DIAGNOSES^21^97
 ;;^UTILITY(U,$J,358.4,1333,0)
 ;;=Z DIAGNOSES^25^97
 ;;^UTILITY(U,$J,358.4,1334,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^19^97
 ;;^UTILITY(U,$J,358.4,1335,0)
 ;;=MOST COMMON DX^1^97
 ;;^UTILITY(U,$J,358.4,1336,0)
 ;;=TELEHEALTH FACILITY FEE^1^98
 ;;^UTILITY(U,$J,358.4,1337,0)
 ;;=INFECTIOUS DISEASE^12^99
 ;;^UTILITY(U,$J,358.4,1338,0)
 ;;=NEOPLASMS^14^99
 ;;^UTILITY(U,$J,358.4,1339,0)
 ;;=HEMATOLOGY/ENDOCRINE^9^99
 ;;^UTILITY(U,$J,358.4,1340,0)
 ;;=MENTAL HEALTH^13^99
 ;;^UTILITY(U,$J,358.4,1341,0)
 ;;=NEUROLOGY^15^99
 ;;^UTILITY(U,$J,358.4,1342,0)
 ;;=GI^7^99
 ;;^UTILITY(U,$J,358.4,1343,0)
 ;;=CARDIOLOGY^3^99
 ;;^UTILITY(U,$J,358.4,1344,0)
 ;;=HERNIA^10^99
 ;;^UTILITY(U,$J,358.4,1345,0)
 ;;=GENITOURINARY^6^99
 ;;^UTILITY(U,$J,358.4,1346,0)
 ;;=SKIN^22^99
 ;;^UTILITY(U,$J,358.4,1347,0)
 ;;=ENT^4^99
 ;;^UTILITY(U,$J,358.4,1348,0)
 ;;=RHEUMATOLOGY/ORTHO^20^99
 ;;^UTILITY(U,$J,358.4,1349,0)
 ;;=RESPIRATORY^19^99
 ;;^UTILITY(U,$J,358.4,1350,0)
 ;;=SIGNS/SYMPTOMS/HX OF^21^99
 ;;^UTILITY(U,$J,358.4,1351,0)
 ;;=VASCULAR^24^99
 ;;^UTILITY(U,$J,358.4,1352,0)
 ;;=ANTICOAGULATION^2^99
 ;;^UTILITY(U,$J,358.4,1353,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^23^99
 ;;^UTILITY(U,$J,358.4,1354,0)
 ;;=ALLERGY/ASTHMA^1^99
 ;;^UTILITY(U,$J,358.4,1355,0)
 ;;=EYES^5^99
 ;;^UTILITY(U,$J,358.4,1356,0)
 ;;=HEADACHES^8^99
 ;;^UTILITY(U,$J,358.4,1357,0)
 ;;=IMMUNOLOGY^11^99
 ;;^UTILITY(U,$J,358.4,1358,0)
 ;;=NICOTINE DEPENDENCE^16^99
 ;;^UTILITY(U,$J,358.4,1359,0)
 ;;=PERSONAL HX/STATUS^18^99
 ;;^UTILITY(U,$J,358.4,1360,0)
 ;;=NEW PATIENT^2^100
 ;;^UTILITY(U,$J,358.4,1361,0)
 ;;=ESTABLISHED PATIENT^1^100
 ;;^UTILITY(U,$J,358.4,1362,0)
 ;;=CONSULTATIONS^3^100
 ;;^UTILITY(U,$J,358.4,1363,0)
 ;;=POST OP VISIT (GLOBAL)^4^100
 ;;^UTILITY(U,$J,358.4,1364,0)
 ;;=BONE MARROW^1^101
 ;;^UTILITY(U,$J,358.4,1365,0)
 ;;=HEART^2^101
 ;;^UTILITY(U,$J,358.4,1366,0)
 ;;=HEART-LUNG^3^101
 ;;^UTILITY(U,$J,358.4,1367,0)
 ;;=LIVER^4^101
 ;;^UTILITY(U,$J,358.4,1368,0)
 ;;=LUNG^5^101
 ;;^UTILITY(U,$J,358.4,1369,0)
 ;;=PANCREAS^7^101
 ;;^UTILITY(U,$J,358.4,1370,0)
 ;;=RENAL^9^101
 ;;^UTILITY(U,$J,358.4,1371,0)
 ;;=REPAIR/RESECTION OF DONOR HEART^10^101
 ;;^UTILITY(U,$J,358.4,1372,0)
 ;;=PROLONGED SERVICE^8^101
 ;;^UTILITY(U,$J,358.4,1373,0)
 ;;=MODERATE SEDATION^6^101
 ;;^UTILITY(U,$J,358.4,1374,0)
 ;;=CHRONIC PULM. HEART DISEASE^2^102
 ;;^UTILITY(U,$J,358.4,1375,0)
 ;;=DIS. OF BLOOD/FORMING ORGA^4^102
 ;;^UTILITY(U,$J,358.4,1376,0)
 ;;=HERNIA^7^102
 ;;^UTILITY(U,$J,358.4,1377,0)
 ;;=KIDNEY/PANCREAS^8^102
 ;;^UTILITY(U,$J,358.4,1378,0)
 ;;=LIVER^9^102
 ;;^UTILITY(U,$J,358.4,1379,0)
 ;;=LUNG^10^102
 ;;^UTILITY(U,$J,358.4,1380,0)
 ;;=MALIGNANT LYMPH & HEMATOP^11^102
 ;;^UTILITY(U,$J,358.4,1381,0)
 ;;=MALIGNANT NEOPLASMS SOLID ORGANS^12^102
 ;;^UTILITY(U,$J,358.4,1382,0)
 ;;=METABOLIC DISORDERS^13^102
 ;;^UTILITY(U,$J,358.4,1383,0)
 ;;=SYMPTOMS/SIGNS^14^102
 ;;^UTILITY(U,$J,358.4,1384,0)
 ;;=COMPLICATIONS OF SURGERY^3^102
 ;;^UTILITY(U,$J,358.4,1385,0)
 ;;=DONORS OF ORGANS AND TISSUES^5^102
 ;;^UTILITY(U,$J,358.4,1386,0)
 ;;=HEART^6^102
 ;;^UTILITY(U,$J,358.4,1387,0)
 ;;=AFTERCARE FOLLOWING TRANSPLANT^1^102
 ;;^UTILITY(U,$J,358.4,1388,0)
 ;;=NEW PATIENT^2^103
 ;;^UTILITY(U,$J,358.4,1389,0)
 ;;=ESTABLISHED PATIENT^1^103
 ;;^UTILITY(U,$J,358.4,1390,0)
 ;;=POST-OP (GLOBAL)^3^103
 ;;^UTILITY(U,$J,358.4,1391,0)
 ;;=JOINT INJECTIONS^15^104
 ;;^UTILITY(U,$J,358.4,1392,0)
 ;;=TENDON INJECTION^26^104
 ;;^UTILITY(U,$J,358.4,1393,0)
 ;;=SKIN PROCEDURES^24^104
 ;;^UTILITY(U,$J,358.4,1394,0)
 ;;=ADMINISTRATION OF INJ MEDICATIONS^2^104
 ;;^UTILITY(U,$J,358.4,1395,0)
 ;;=EKG^11^104
 ;;^UTILITY(U,$J,358.4,1396,0)
 ;;=NOSEBLEEDS^16^104
 ;;^UTILITY(U,$J,358.4,1397,0)
 ;;=REMOVAL FB IN EAR^18^104
 ;;^UTILITY(U,$J,358.4,1398,0)
 ;;=INJECTABLE MEDICATIONS^14^104
 ;;^UTILITY(U,$J,358.4,1399,0)
 ;;=INFUSION MEDICATIONS^12^104
 ;;^UTILITY(U,$J,358.4,1400,0)
 ;;=ADMINISTRATION OF IV MEDICATIONS^3^104
 ;;^UTILITY(U,$J,358.4,1401,0)
 ;;=INHALATION SOLUTIONS THRU DME^13^104
 ;;^UTILITY(U,$J,358.4,1402,0)
 ;;=ADMINISTRATION OF DME^1^104
 ;;^UTILITY(U,$J,358.4,1403,0)
 ;;=DEMO OF METERED INHALER^10^104
 ;;^UTILITY(U,$J,358.4,1404,0)
 ;;=BLOOD TESTS^6^104
 ;;^UTILITY(U,$J,358.4,1405,0)
 ;;=BLADDER ^5^104
 ;;^UTILITY(U,$J,358.4,1406,0)
 ;;=BLOOD TRANSFUSION^7^104
 ;;^UTILITY(U,$J,358.4,1407,0)
 ;;=AIRWAY TREATMENTS^4^104
 ;;^UTILITY(U,$J,358.4,1408,0)
 ;;=BURN TREATMENT^8^104
 ;;^UTILITY(U,$J,358.4,1409,0)
 ;;=TB TEST^25^104
 ;;^UTILITY(U,$J,358.4,1410,0)
 ;;=REPAIR-SIMPLE-SCALP,NK,TRUNK^20^104
 ;;^UTILITY(U,$J,358.4,1411,0)
 ;;=REPAIR-SIMPLE-FACE,MUCOUS^19^104
 ;;^UTILITY(U,$J,358.4,1412,0)
 ;;=REPAIR-INTERM-SCALP,TRUNK^23^104
 ;;^UTILITY(U,$J,358.4,1413,0)
 ;;=REPAIR-INTERM-NK,HAND,FT,GENITALIA^22^104
 ;;^UTILITY(U,$J,358.4,1414,0)
 ;;=REPAIR-INTERM-FACE,MUCOUS^21^104
 ;;^UTILITY(U,$J,358.4,1415,0)
 ;;=OTHER^27^104
 ;;^UTILITY(U,$J,358.4,1416,0)
 ;;=PSYCHIATRY^17^104
 ;;^UTILITY(U,$J,358.4,1417,0)
 ;;=COVID-19 RELATED^9^104
 ;;^UTILITY(U,$J,358.4,1418,0)
 ;;=PC COMMON DIAGNOSES^1^105
 ;;^UTILITY(U,$J,358.4,1419,0)
 ;;=ADMINISTRATIVE TOPICS^15^105
 ;;^UTILITY(U,$J,358.4,1420,0)
 ;;=ANGINA^16^105
 ;;^UTILITY(U,$J,358.4,1421,0)
 ;;=ATHEROSCLEROSIS^17^105
 ;;^UTILITY(U,$J,358.4,1422,0)
 ;;=CARDIOVASCULAR^18^105
 ;;^UTILITY(U,$J,358.4,1423,0)
 ;;=DERMATOLOGY^22^105
 ;;^UTILITY(U,$J,358.4,1424,0)
 ;;=EAR DISORDERS^24^105
 ;;^UTILITY(U,$J,358.4,1425,0)
 ;;=EENT^25^105
 ;;^UTILITY(U,$J,358.4,1426,0)
 ;;=ENDOCRINE/METABOLIC^26^105
 ;;^UTILITY(U,$J,358.4,1427,0)
 ;;=EYE DISORDERS^27^105
 ;;^UTILITY(U,$J,358.4,1428,0)
 ;;=EYE INJURY^28^105
 ;;^UTILITY(U,$J,358.4,1429,0)
 ;;=GASTROENTEROLOGY^29^105
 ;;^UTILITY(U,$J,358.4,1430,0)
 ;;=GU/RENAL^30^105
 ;;^UTILITY(U,$J,358.4,1431,0)
 ;;=HEADACHE^31^105
 ;;^UTILITY(U,$J,358.4,1432,0)
 ;;=HEART VALVE DISEASE^32^105
 ;;^UTILITY(U,$J,358.4,1433,0)
 ;;=HEMATOLOGY/ONCOLOGY^33^105
 ;;^UTILITY(U,$J,358.4,1434,0)
 ;;=HISTORY OF ILLNESS^34^105
 ;;^UTILITY(U,$J,358.4,1435,0)
 ;;=INFECTIOUS DISEASE^35^105
 ;;^UTILITY(U,$J,358.4,1436,0)
 ;;=LIVER DISEASE^36^105
 ;;^UTILITY(U,$J,358.4,1437,0)
 ;;=MENTAL HEALTH^38^105
 ;;^UTILITY(U,$J,358.4,1438,0)
 ;;=MOVEMENT DISORDERS^39^105
 ;;^UTILITY(U,$J,358.4,1439,0)
 ;;=MUSCULOSKELETAL^40^105
 ;;^UTILITY(U,$J,358.4,1440,0)
 ;;=NEUROLOGY^41^105
 ;;^UTILITY(U,$J,358.4,1441,0)
 ;;=PAIN^42^105
 ;;^UTILITY(U,$J,358.4,1442,0)
 ;;=PREVENTIVE HEALTH^43^105
 ;;^UTILITY(U,$J,358.4,1443,0)
 ;;=PULMONARY^44^105
 ;;^UTILITY(U,$J,358.4,1444,0)
 ;;=SEXUAL TRAUMA^45^105
 ;;^UTILITY(U,$J,358.4,1445,0)
 ;;=SIGNS,SYMPTOMS,CONDITIONS^46^105
 ;;^UTILITY(U,$J,358.4,1446,0)
 ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^47^105
 ;;^UTILITY(U,$J,358.4,1447,0)
 ;;=SUBSTANCE DISORDERS^48^105
 ;;^UTILITY(U,$J,358.4,1448,0)
 ;;=VARICOSE VEINS^50^105
 ;;^UTILITY(U,$J,358.4,1449,0)
 ;;=WOMEN'S HEALTH^51^105
 ;;^UTILITY(U,$J,358.4,1450,0)
 ;;=WOUNDS-INITIAL ENCOUNTER^52^105
 ;;^UTILITY(U,$J,358.4,1451,0)
 ;;=COMA^20^105
 ;;^UTILITY(U,$J,358.4,1452,0)
 ;;=CAUSES OF INJURY^19^105
 ;;^UTILITY(U,$J,358.4,1453,0)
 ;;=DEMENTIA^21^105
 ;;^UTILITY(U,$J,358.4,1454,0)
 ;;=LONG TERM CURRENT DRUG THERAPY^37^105
 ;;^UTILITY(U,$J,358.4,1455,0)
 ;;=ACQUIRED ABSENCE OF BODY PART(S)^2^105
 ;;^UTILITY(U,$J,358.4,1456,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^49^105
 ;;^UTILITY(U,$J,358.4,1457,0)
 ;;=ACSC ACUTE KIDNEY FAILURE^3^105
 ;;^UTILITY(U,$J,358.4,1458,0)
 ;;=ACSC ANGINA^4^105
 ;;^UTILITY(U,$J,358.4,1459,0)
 ;;=ACSC ASTHMA/BRONCHITIS/COPD^5^105
 ;;^UTILITY(U,$J,358.4,1460,0)
 ;;=ACSC CHF^6^105
 ;;^UTILITY(U,$J,358.4,1461,0)
 ;;=ACSC DEHYDRATION^7^105
 ;;^UTILITY(U,$J,358.4,1462,0)
 ;;=ACSC DIABETES TYPE 1^8^105
 ;;^UTILITY(U,$J,358.4,1463,0)
 ;;=ACSC DIABETES TYPE 2^9^105
 ;;^UTILITY(U,$J,358.4,1464,0)
 ;;=ACSC HYPERTENSION^10^105
 ;;^UTILITY(U,$J,358.4,1465,0)
 ;;=ACSC INFECTIOUS GASTROENTERITIS^11^105
 ;;^UTILITY(U,$J,358.4,1466,0)
 ;;=ACSC PNEUMONIA^12^105
 ;;^UTILITY(U,$J,358.4,1467,0)
 ;;=ACSC UTI^13^105
 ;;^UTILITY(U,$J,358.4,1468,0)
 ;;=ACSC VIRAL ENTERITIS^14^105
 ;;^UTILITY(U,$J,358.4,1469,0)
 ;;=E-CIG/VAPE LUNG INJURY^23^105
 ;;^UTILITY(U,$J,358.4,1470,0)
 ;;=HEALTH/BEHAVIOR ASSESSMENT^1^106
 ;;^UTILITY(U,$J,358.4,1471,0)
 ;;=HEALTH/BEHAVIOR INTERVENTION^2^106
 ;;^UTILITY(U,$J,358.4,1472,0)
 ;;=PC COMMON DIAGNOSES^1^107
 ;;^UTILITY(U,$J,358.4,1473,0)
 ;;=ADMINISTRATIVE TOPICS^15^107
 ;;^UTILITY(U,$J,358.4,1474,0)
 ;;=ANGINA^16^107
 ;;^UTILITY(U,$J,358.4,1475,0)
 ;;=ATHEROSCLEROSIS^17^107
 ;;^UTILITY(U,$J,358.4,1476,0)
 ;;=CARDIOVASCULAR^18^107
 ;;^UTILITY(U,$J,358.4,1477,0)
 ;;=DERMATOLOGY^22^107
 ;;^UTILITY(U,$J,358.4,1478,0)
 ;;=EAR DISORDERS^24^107
 ;;^UTILITY(U,$J,358.4,1479,0)
 ;;=EENT^25^107
 ;;^UTILITY(U,$J,358.4,1480,0)
 ;;=ENDOCRINE/METABOLIC^26^107
 ;;^UTILITY(U,$J,358.4,1481,0)
 ;;=EYE DISORDERS^27^107
 ;;^UTILITY(U,$J,358.4,1482,0)
 ;;=EYE INJURY^28^107
 ;;^UTILITY(U,$J,358.4,1483,0)
 ;;=GASTROENTEROLOGY^29^107
 ;;^UTILITY(U,$J,358.4,1484,0)
 ;;=GU/RENAL^30^107
 ;;^UTILITY(U,$J,358.4,1485,0)
 ;;=HEADACHE^31^107
 ;;^UTILITY(U,$J,358.4,1486,0)
 ;;=HEART VALVE DISEASE^32^107
 ;;^UTILITY(U,$J,358.4,1487,0)
 ;;=HEMATOLOGY/ONCOLOGY^33^107
 ;;^UTILITY(U,$J,358.4,1488,0)
 ;;=HISTORY OF ILLNESS^34^107
 ;;^UTILITY(U,$J,358.4,1489,0)
 ;;=INFECTIOUS DISEASE^35^107
 ;;^UTILITY(U,$J,358.4,1490,0)
 ;;=LIVER DISEASE^36^107
 ;;^UTILITY(U,$J,358.4,1491,0)
 ;;=MENTAL HEALTH^38^107
 ;;^UTILITY(U,$J,358.4,1492,0)
 ;;=MOVEMENT DISORDERS^39^107
 ;;^UTILITY(U,$J,358.4,1493,0)
 ;;=MUSCULOSKELETAL^40^107
 ;;^UTILITY(U,$J,358.4,1494,0)
 ;;=NEUROLOGY^41^107
 ;;^UTILITY(U,$J,358.4,1495,0)
 ;;=PAIN^42^107
 ;;^UTILITY(U,$J,358.4,1496,0)
 ;;=PREVENTIVE HEALTH^43^107
 ;;^UTILITY(U,$J,358.4,1497,0)
 ;;=PULMONARY^44^107
 ;;^UTILITY(U,$J,358.4,1498,0)
 ;;=SEXUAL TRAUMA^45^107
 ;;^UTILITY(U,$J,358.4,1499,0)
 ;;=SIGNS,SYMPTOMS,CONDITIONS^46^107
 ;;^UTILITY(U,$J,358.4,1500,0)
 ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^47^107
 ;;^UTILITY(U,$J,358.4,1501,0)
 ;;=SUBSTANCE DISORDERS^48^107
 ;;^UTILITY(U,$J,358.4,1502,0)
 ;;=VARICOSE VEINS^50^107
 ;;^UTILITY(U,$J,358.4,1503,0)
 ;;=WOMEN'S HEALTH^51^107
 ;;^UTILITY(U,$J,358.4,1504,0)
 ;;=WOUNDS-INITIAL ENCOUNTER^52^107
 ;;^UTILITY(U,$J,358.4,1505,0)
 ;;=COMA^20^107
 ;;^UTILITY(U,$J,358.4,1506,0)
 ;;=CAUSES OF INJURY^19^107
 ;;^UTILITY(U,$J,358.4,1507,0)
 ;;=DEMENTIA^21^107
 ;;^UTILITY(U,$J,358.4,1508,0)
 ;;=LONG TERM CURRENT DRUG THERAPY^37^107
 ;;^UTILITY(U,$J,358.4,1509,0)
 ;;=ACQUIRED ABSENCE OF BODY PART(S)^2^107
 ;;^UTILITY(U,$J,358.4,1510,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^49^107
 ;;^UTILITY(U,$J,358.4,1511,0)
 ;;=ACSC ACUTE KIDNEY FAILURE^3^107
 ;;^UTILITY(U,$J,358.4,1512,0)
 ;;=ACSC ANGINA^4^107
 ;;^UTILITY(U,$J,358.4,1513,0)
 ;;=ACSC ASTHMA/BRONCHITIS/COPD^5^107
 ;;^UTILITY(U,$J,358.4,1514,0)
 ;;=ACSC CHF^6^107
 ;;^UTILITY(U,$J,358.4,1515,0)
 ;;=ACSC DEHYDRATION^7^107
 ;;^UTILITY(U,$J,358.4,1516,0)
 ;;=ACSC DIABETES TYPE 1^8^107
 ;;^UTILITY(U,$J,358.4,1517,0)
 ;;=ACSC DIABETES TYPE 2^9^107
 ;;^UTILITY(U,$J,358.4,1518,0)
 ;;=ACSC HYPERTENSION^10^107
 ;;^UTILITY(U,$J,358.4,1519,0)
 ;;=ACSC INFECTIOUS GASTROENTERITIS^11^107
 ;;^UTILITY(U,$J,358.4,1520,0)
 ;;=ACSC PNEUMONIA^12^107
 ;;^UTILITY(U,$J,358.4,1521,0)
 ;;=ACSC UTI^13^107
 ;;^UTILITY(U,$J,358.4,1522,0)
 ;;=ACSC VIRAL ENTERITIS^14^107
 ;;^UTILITY(U,$J,358.4,1523,0)
 ;;=E-CIG/VAPE LUNG INJURY^23^107
 ;;^UTILITY(U,$J,358.4,1524,0)
 ;;=COVID-19 CONFIRMED^2^108
 ;;^UTILITY(U,$J,358.4,1525,0)
 ;;=COVID-19 EXPOSURE^3^108
 ;;^UTILITY(U,$J,358.4,1526,0)
 ;;=COVID-19 RELATED COND/SYMP^5^108
 ;;^UTILITY(U,$J,358.4,1527,0)
 ;;=COVID-19 SCREEN^1^108
 ;;^UTILITY(U,$J,358.4,1528,0)
 ;;=COVID-19 PRE-OP^4^108
 ;;^UTILITY(U,$J,358.4,1529,0)
 ;;=COVID-19 VACCINE STATUS^6^108
 ;;^UTILITY(U,$J,358.4,1530,0)
 ;;=COVID-19 ^1^109
 ;;^UTILITY(U,$J,358.4,1531,0)
 ;;=COVID-19 CONFIRMED^2^110
 ;;^UTILITY(U,$J,358.4,1532,0)
 ;;=COVID-19 EXPOSURE^3^110
 ;;^UTILITY(U,$J,358.4,1533,0)
 ;;=COVID-19 RELATED COND/SYMP^5^110
 ;;^UTILITY(U,$J,358.4,1534,0)
 ;;=COVID-19 SCREEN^1^110
 ;;^UTILITY(U,$J,358.4,1535,0)
 ;;=COVID-19 PRE-OP^4^110
 ;;^UTILITY(U,$J,358.4,1536,0)
 ;;=COVID-19 VACCINE STATUS^6^110
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0FR   13028     printed  Sep 23, 2025@19:23:48                                                                                                                                                                                                   Page 2
IBDEI0FR  ; ; 03-MAY-2022
 +1       ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
 +2        if 'DIFQR(358.4)
               QUIT 
           FOR I=1:2
               SET X=$TEXT(Q+I)
               if X=""
                   QUIT 
               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
               SET X=$EXTRACT(X,4,999)
               if $ASCII(Y)=126
                   SET I=I+1
                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
               if $ASCII(Y)=61
                   SET Y=$EXTRACT(Y,2,999)
               XECUTE NO
              IF '$TEST
                   SET @X=Y
Q          QUIT 
 +1       ;;^UTILITY(U,$J,358.4,1326,0)
 +2       ;;=W DIAGNOSES^23^97
 +3       ;;^UTILITY(U,$J,358.4,1327,0)
 +4       ;;=B DIAGNOSES^3^97
 +5       ;;^UTILITY(U,$J,358.4,1328,0)
 +6       ;;=G DIAGNOSES^8^97
 +7       ;;^UTILITY(U,$J,358.4,1329,0)
 +8       ;;=H DIAGNOSES^8^97
 +9       ;;^UTILITY(U,$J,358.4,1330,0)
 +10      ;;=L DIAGNOSES^12^97
 +11      ;;^UTILITY(U,$J,358.4,1331,0)
 +12      ;;=O DIAGNOSES^15^97
 +13      ;;^UTILITY(U,$J,358.4,1332,0)
 +14      ;;=U DIAGNOSES^21^97
 +15      ;;^UTILITY(U,$J,358.4,1333,0)
 +16      ;;=Z DIAGNOSES^25^97
 +17      ;;^UTILITY(U,$J,358.4,1334,0)
 +18      ;;=SUICIDE IDEATIONS/ATTEMPTS^19^97
 +19      ;;^UTILITY(U,$J,358.4,1335,0)
 +20      ;;=MOST COMMON DX^1^97
 +21      ;;^UTILITY(U,$J,358.4,1336,0)
 +22      ;;=TELEHEALTH FACILITY FEE^1^98
 +23      ;;^UTILITY(U,$J,358.4,1337,0)
 +24      ;;=INFECTIOUS DISEASE^12^99
 +25      ;;^UTILITY(U,$J,358.4,1338,0)
 +26      ;;=NEOPLASMS^14^99
 +27      ;;^UTILITY(U,$J,358.4,1339,0)
 +28      ;;=HEMATOLOGY/ENDOCRINE^9^99
 +29      ;;^UTILITY(U,$J,358.4,1340,0)
 +30      ;;=MENTAL HEALTH^13^99
 +31      ;;^UTILITY(U,$J,358.4,1341,0)
 +32      ;;=NEUROLOGY^15^99
 +33      ;;^UTILITY(U,$J,358.4,1342,0)
 +34      ;;=GI^7^99
 +35      ;;^UTILITY(U,$J,358.4,1343,0)
 +36      ;;=CARDIOLOGY^3^99
 +37      ;;^UTILITY(U,$J,358.4,1344,0)
 +38      ;;=HERNIA^10^99
 +39      ;;^UTILITY(U,$J,358.4,1345,0)
 +40      ;;=GENITOURINARY^6^99
 +41      ;;^UTILITY(U,$J,358.4,1346,0)
 +42      ;;=SKIN^22^99
 +43      ;;^UTILITY(U,$J,358.4,1347,0)
 +44      ;;=ENT^4^99
 +45      ;;^UTILITY(U,$J,358.4,1348,0)
 +46      ;;=RHEUMATOLOGY/ORTHO^20^99
 +47      ;;^UTILITY(U,$J,358.4,1349,0)
 +48      ;;=RESPIRATORY^19^99
 +49      ;;^UTILITY(U,$J,358.4,1350,0)
 +50      ;;=SIGNS/SYMPTOMS/HX OF^21^99
 +51      ;;^UTILITY(U,$J,358.4,1351,0)
 +52      ;;=VASCULAR^24^99
 +53      ;;^UTILITY(U,$J,358.4,1352,0)
 +54      ;;=ANTICOAGULATION^2^99
 +55      ;;^UTILITY(U,$J,358.4,1353,0)
 +56      ;;=SUICIDE IDEATIONS/ATTEMPTS^23^99
 +57      ;;^UTILITY(U,$J,358.4,1354,0)
 +58      ;;=ALLERGY/ASTHMA^1^99
 +59      ;;^UTILITY(U,$J,358.4,1355,0)
 +60      ;;=EYES^5^99
 +61      ;;^UTILITY(U,$J,358.4,1356,0)
 +62      ;;=HEADACHES^8^99
 +63      ;;^UTILITY(U,$J,358.4,1357,0)
 +64      ;;=IMMUNOLOGY^11^99
 +65      ;;^UTILITY(U,$J,358.4,1358,0)
 +66      ;;=NICOTINE DEPENDENCE^16^99
 +67      ;;^UTILITY(U,$J,358.4,1359,0)
 +68      ;;=PERSONAL HX/STATUS^18^99
 +69      ;;^UTILITY(U,$J,358.4,1360,0)
 +70      ;;=NEW PATIENT^2^100
 +71      ;;^UTILITY(U,$J,358.4,1361,0)
 +72      ;;=ESTABLISHED PATIENT^1^100
 +73      ;;^UTILITY(U,$J,358.4,1362,0)
 +74      ;;=CONSULTATIONS^3^100
 +75      ;;^UTILITY(U,$J,358.4,1363,0)
 +76      ;;=POST OP VISIT (GLOBAL)^4^100
 +77      ;;^UTILITY(U,$J,358.4,1364,0)
 +78      ;;=BONE MARROW^1^101
 +79      ;;^UTILITY(U,$J,358.4,1365,0)
 +80      ;;=HEART^2^101
 +81      ;;^UTILITY(U,$J,358.4,1366,0)
 +82      ;;=HEART-LUNG^3^101
 +83      ;;^UTILITY(U,$J,358.4,1367,0)
 +84      ;;=LIVER^4^101
 +85      ;;^UTILITY(U,$J,358.4,1368,0)
 +86      ;;=LUNG^5^101
 +87      ;;^UTILITY(U,$J,358.4,1369,0)
 +88      ;;=PANCREAS^7^101
 +89      ;;^UTILITY(U,$J,358.4,1370,0)
 +90      ;;=RENAL^9^101
 +91      ;;^UTILITY(U,$J,358.4,1371,0)
 +92      ;;=REPAIR/RESECTION OF DONOR HEART^10^101
 +93      ;;^UTILITY(U,$J,358.4,1372,0)
 +94      ;;=PROLONGED SERVICE^8^101
 +95      ;;^UTILITY(U,$J,358.4,1373,0)
 +96      ;;=MODERATE SEDATION^6^101
 +97      ;;^UTILITY(U,$J,358.4,1374,0)
 +98      ;;=CHRONIC PULM. HEART DISEASE^2^102
 +99      ;;^UTILITY(U,$J,358.4,1375,0)
 +100     ;;=DIS. OF BLOOD/FORMING ORGA^4^102
 +101     ;;^UTILITY(U,$J,358.4,1376,0)
 +102     ;;=HERNIA^7^102
 +103     ;;^UTILITY(U,$J,358.4,1377,0)
 +104     ;;=KIDNEY/PANCREAS^8^102
 +105     ;;^UTILITY(U,$J,358.4,1378,0)
 +106     ;;=LIVER^9^102
 +107     ;;^UTILITY(U,$J,358.4,1379,0)
 +108     ;;=LUNG^10^102
 +109     ;;^UTILITY(U,$J,358.4,1380,0)
 +110     ;;=MALIGNANT LYMPH & HEMATOP^11^102
 +111     ;;^UTILITY(U,$J,358.4,1381,0)
 +112     ;;=MALIGNANT NEOPLASMS SOLID ORGANS^12^102
 +113     ;;^UTILITY(U,$J,358.4,1382,0)
 +114     ;;=METABOLIC DISORDERS^13^102
 +115     ;;^UTILITY(U,$J,358.4,1383,0)
 +116     ;;=SYMPTOMS/SIGNS^14^102
 +117     ;;^UTILITY(U,$J,358.4,1384,0)
 +118     ;;=COMPLICATIONS OF SURGERY^3^102
 +119     ;;^UTILITY(U,$J,358.4,1385,0)
 +120     ;;=DONORS OF ORGANS AND TISSUES^5^102
 +121     ;;^UTILITY(U,$J,358.4,1386,0)
 +122     ;;=HEART^6^102
 +123     ;;^UTILITY(U,$J,358.4,1387,0)
 +124     ;;=AFTERCARE FOLLOWING TRANSPLANT^1^102
 +125     ;;^UTILITY(U,$J,358.4,1388,0)
 +126     ;;=NEW PATIENT^2^103
 +127     ;;^UTILITY(U,$J,358.4,1389,0)
 +128     ;;=ESTABLISHED PATIENT^1^103
 +129     ;;^UTILITY(U,$J,358.4,1390,0)
 +130     ;;=POST-OP (GLOBAL)^3^103
 +131     ;;^UTILITY(U,$J,358.4,1391,0)
 +132     ;;=JOINT INJECTIONS^15^104
 +133     ;;^UTILITY(U,$J,358.4,1392,0)
 +134     ;;=TENDON INJECTION^26^104
 +135     ;;^UTILITY(U,$J,358.4,1393,0)
 +136     ;;=SKIN PROCEDURES^24^104
 +137     ;;^UTILITY(U,$J,358.4,1394,0)
 +138     ;;=ADMINISTRATION OF INJ MEDICATIONS^2^104
 +139     ;;^UTILITY(U,$J,358.4,1395,0)
 +140     ;;=EKG^11^104
 +141     ;;^UTILITY(U,$J,358.4,1396,0)
 +142     ;;=NOSEBLEEDS^16^104
 +143     ;;^UTILITY(U,$J,358.4,1397,0)
 +144     ;;=REMOVAL FB IN EAR^18^104
 +145     ;;^UTILITY(U,$J,358.4,1398,0)
 +146     ;;=INJECTABLE MEDICATIONS^14^104
 +147     ;;^UTILITY(U,$J,358.4,1399,0)
 +148     ;;=INFUSION MEDICATIONS^12^104
 +149     ;;^UTILITY(U,$J,358.4,1400,0)
 +150     ;;=ADMINISTRATION OF IV MEDICATIONS^3^104
 +151     ;;^UTILITY(U,$J,358.4,1401,0)
 +152     ;;=INHALATION SOLUTIONS THRU DME^13^104
 +153     ;;^UTILITY(U,$J,358.4,1402,0)
 +154     ;;=ADMINISTRATION OF DME^1^104
 +155     ;;^UTILITY(U,$J,358.4,1403,0)
 +156     ;;=DEMO OF METERED INHALER^10^104
 +157     ;;^UTILITY(U,$J,358.4,1404,0)
 +158     ;;=BLOOD TESTS^6^104
 +159     ;;^UTILITY(U,$J,358.4,1405,0)
 +160     ;;=BLADDER ^5^104
 +161     ;;^UTILITY(U,$J,358.4,1406,0)
 +162     ;;=BLOOD TRANSFUSION^7^104
 +163     ;;^UTILITY(U,$J,358.4,1407,0)
 +164     ;;=AIRWAY TREATMENTS^4^104
 +165     ;;^UTILITY(U,$J,358.4,1408,0)
 +166     ;;=BURN TREATMENT^8^104
 +167     ;;^UTILITY(U,$J,358.4,1409,0)
 +168     ;;=TB TEST^25^104
 +169     ;;^UTILITY(U,$J,358.4,1410,0)
 +170     ;;=REPAIR-SIMPLE-SCALP,NK,TRUNK^20^104
 +171     ;;^UTILITY(U,$J,358.4,1411,0)
 +172     ;;=REPAIR-SIMPLE-FACE,MUCOUS^19^104
 +173     ;;^UTILITY(U,$J,358.4,1412,0)
 +174     ;;=REPAIR-INTERM-SCALP,TRUNK^23^104
 +175     ;;^UTILITY(U,$J,358.4,1413,0)
 +176     ;;=REPAIR-INTERM-NK,HAND,FT,GENITALIA^22^104
 +177     ;;^UTILITY(U,$J,358.4,1414,0)
 +178     ;;=REPAIR-INTERM-FACE,MUCOUS^21^104
 +179     ;;^UTILITY(U,$J,358.4,1415,0)
 +180     ;;=OTHER^27^104
 +181     ;;^UTILITY(U,$J,358.4,1416,0)
 +182     ;;=PSYCHIATRY^17^104
 +183     ;;^UTILITY(U,$J,358.4,1417,0)
 +184     ;;=COVID-19 RELATED^9^104
 +185     ;;^UTILITY(U,$J,358.4,1418,0)
 +186     ;;=PC COMMON DIAGNOSES^1^105
 +187     ;;^UTILITY(U,$J,358.4,1419,0)
 +188     ;;=ADMINISTRATIVE TOPICS^15^105
 +189     ;;^UTILITY(U,$J,358.4,1420,0)
 +190     ;;=ANGINA^16^105
 +191     ;;^UTILITY(U,$J,358.4,1421,0)
 +192     ;;=ATHEROSCLEROSIS^17^105
 +193     ;;^UTILITY(U,$J,358.4,1422,0)
 +194     ;;=CARDIOVASCULAR^18^105
 +195     ;;^UTILITY(U,$J,358.4,1423,0)
 +196     ;;=DERMATOLOGY^22^105
 +197     ;;^UTILITY(U,$J,358.4,1424,0)
 +198     ;;=EAR DISORDERS^24^105
 +199     ;;^UTILITY(U,$J,358.4,1425,0)
 +200     ;;=EENT^25^105
 +201     ;;^UTILITY(U,$J,358.4,1426,0)
 +202     ;;=ENDOCRINE/METABOLIC^26^105
 +203     ;;^UTILITY(U,$J,358.4,1427,0)
 +204     ;;=EYE DISORDERS^27^105
 +205     ;;^UTILITY(U,$J,358.4,1428,0)
 +206     ;;=EYE INJURY^28^105
 +207     ;;^UTILITY(U,$J,358.4,1429,0)
 +208     ;;=GASTROENTEROLOGY^29^105
 +209     ;;^UTILITY(U,$J,358.4,1430,0)
 +210     ;;=GU/RENAL^30^105
 +211     ;;^UTILITY(U,$J,358.4,1431,0)
 +212     ;;=HEADACHE^31^105
 +213     ;;^UTILITY(U,$J,358.4,1432,0)
 +214     ;;=HEART VALVE DISEASE^32^105
 +215     ;;^UTILITY(U,$J,358.4,1433,0)
 +216     ;;=HEMATOLOGY/ONCOLOGY^33^105
 +217     ;;^UTILITY(U,$J,358.4,1434,0)
 +218     ;;=HISTORY OF ILLNESS^34^105
 +219     ;;^UTILITY(U,$J,358.4,1435,0)
 +220     ;;=INFECTIOUS DISEASE^35^105
 +221     ;;^UTILITY(U,$J,358.4,1436,0)
 +222     ;;=LIVER DISEASE^36^105
 +223     ;;^UTILITY(U,$J,358.4,1437,0)
 +224     ;;=MENTAL HEALTH^38^105
 +225     ;;^UTILITY(U,$J,358.4,1438,0)
 +226     ;;=MOVEMENT DISORDERS^39^105
 +227     ;;^UTILITY(U,$J,358.4,1439,0)
 +228     ;;=MUSCULOSKELETAL^40^105
 +229     ;;^UTILITY(U,$J,358.4,1440,0)
 +230     ;;=NEUROLOGY^41^105
 +231     ;;^UTILITY(U,$J,358.4,1441,0)
 +232     ;;=PAIN^42^105
 +233     ;;^UTILITY(U,$J,358.4,1442,0)
 +234     ;;=PREVENTIVE HEALTH^43^105
 +235     ;;^UTILITY(U,$J,358.4,1443,0)
 +236     ;;=PULMONARY^44^105
 +237     ;;^UTILITY(U,$J,358.4,1444,0)
 +238     ;;=SEXUAL TRAUMA^45^105
 +239     ;;^UTILITY(U,$J,358.4,1445,0)
 +240     ;;=SIGNS,SYMPTOMS,CONDITIONS^46^105
 +241     ;;^UTILITY(U,$J,358.4,1446,0)
 +242     ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^47^105
 +243     ;;^UTILITY(U,$J,358.4,1447,0)
 +244     ;;=SUBSTANCE DISORDERS^48^105
 +245     ;;^UTILITY(U,$J,358.4,1448,0)
 +246     ;;=VARICOSE VEINS^50^105
 +247     ;;^UTILITY(U,$J,358.4,1449,0)
 +248     ;;=WOMEN'S HEALTH^51^105
 +249     ;;^UTILITY(U,$J,358.4,1450,0)
 +250     ;;=WOUNDS-INITIAL ENCOUNTER^52^105
 +251     ;;^UTILITY(U,$J,358.4,1451,0)
 +252     ;;=COMA^20^105
 +253     ;;^UTILITY(U,$J,358.4,1452,0)
 +254     ;;=CAUSES OF INJURY^19^105
 +255     ;;^UTILITY(U,$J,358.4,1453,0)
 +256     ;;=DEMENTIA^21^105
 +257     ;;^UTILITY(U,$J,358.4,1454,0)
 +258     ;;=LONG TERM CURRENT DRUG THERAPY^37^105
 +259     ;;^UTILITY(U,$J,358.4,1455,0)
 +260     ;;=ACQUIRED ABSENCE OF BODY PART(S)^2^105
 +261     ;;^UTILITY(U,$J,358.4,1456,0)
 +262     ;;=SUICIDE IDEATIONS/ATTEMPTS^49^105
 +263     ;;^UTILITY(U,$J,358.4,1457,0)
 +264     ;;=ACSC ACUTE KIDNEY FAILURE^3^105
 +265     ;;^UTILITY(U,$J,358.4,1458,0)
 +266     ;;=ACSC ANGINA^4^105
 +267     ;;^UTILITY(U,$J,358.4,1459,0)
 +268     ;;=ACSC ASTHMA/BRONCHITIS/COPD^5^105
 +269     ;;^UTILITY(U,$J,358.4,1460,0)
 +270     ;;=ACSC CHF^6^105
 +271     ;;^UTILITY(U,$J,358.4,1461,0)
 +272     ;;=ACSC DEHYDRATION^7^105
 +273     ;;^UTILITY(U,$J,358.4,1462,0)
 +274     ;;=ACSC DIABETES TYPE 1^8^105
 +275     ;;^UTILITY(U,$J,358.4,1463,0)
 +276     ;;=ACSC DIABETES TYPE 2^9^105
 +277     ;;^UTILITY(U,$J,358.4,1464,0)
 +278     ;;=ACSC HYPERTENSION^10^105
 +279     ;;^UTILITY(U,$J,358.4,1465,0)
 +280     ;;=ACSC INFECTIOUS GASTROENTERITIS^11^105
 +281     ;;^UTILITY(U,$J,358.4,1466,0)
 +282     ;;=ACSC PNEUMONIA^12^105
 +283     ;;^UTILITY(U,$J,358.4,1467,0)
 +284     ;;=ACSC UTI^13^105
 +285     ;;^UTILITY(U,$J,358.4,1468,0)
 +286     ;;=ACSC VIRAL ENTERITIS^14^105
 +287     ;;^UTILITY(U,$J,358.4,1469,0)
 +288     ;;=E-CIG/VAPE LUNG INJURY^23^105
 +289     ;;^UTILITY(U,$J,358.4,1470,0)
 +290     ;;=HEALTH/BEHAVIOR ASSESSMENT^1^106
 +291     ;;^UTILITY(U,$J,358.4,1471,0)
 +292     ;;=HEALTH/BEHAVIOR INTERVENTION^2^106
 +293     ;;^UTILITY(U,$J,358.4,1472,0)
 +294     ;;=PC COMMON DIAGNOSES^1^107
 +295     ;;^UTILITY(U,$J,358.4,1473,0)
 +296     ;;=ADMINISTRATIVE TOPICS^15^107
 +297     ;;^UTILITY(U,$J,358.4,1474,0)
 +298     ;;=ANGINA^16^107
 +299     ;;^UTILITY(U,$J,358.4,1475,0)
 +300     ;;=ATHEROSCLEROSIS^17^107
 +301     ;;^UTILITY(U,$J,358.4,1476,0)
 +302     ;;=CARDIOVASCULAR^18^107
 +303     ;;^UTILITY(U,$J,358.4,1477,0)
 +304     ;;=DERMATOLOGY^22^107
 +305     ;;^UTILITY(U,$J,358.4,1478,0)
 +306     ;;=EAR DISORDERS^24^107
 +307     ;;^UTILITY(U,$J,358.4,1479,0)
 +308     ;;=EENT^25^107
 +309     ;;^UTILITY(U,$J,358.4,1480,0)
 +310     ;;=ENDOCRINE/METABOLIC^26^107
 +311     ;;^UTILITY(U,$J,358.4,1481,0)
 +312     ;;=EYE DISORDERS^27^107
 +313     ;;^UTILITY(U,$J,358.4,1482,0)
 +314     ;;=EYE INJURY^28^107
 +315     ;;^UTILITY(U,$J,358.4,1483,0)
 +316     ;;=GASTROENTEROLOGY^29^107
 +317     ;;^UTILITY(U,$J,358.4,1484,0)
 +318     ;;=GU/RENAL^30^107
 +319     ;;^UTILITY(U,$J,358.4,1485,0)
 +320     ;;=HEADACHE^31^107
 +321     ;;^UTILITY(U,$J,358.4,1486,0)
 +322     ;;=HEART VALVE DISEASE^32^107
 +323     ;;^UTILITY(U,$J,358.4,1487,0)
 +324     ;;=HEMATOLOGY/ONCOLOGY^33^107
 +325     ;;^UTILITY(U,$J,358.4,1488,0)
 +326     ;;=HISTORY OF ILLNESS^34^107
 +327     ;;^UTILITY(U,$J,358.4,1489,0)
 +328     ;;=INFECTIOUS DISEASE^35^107
 +329     ;;^UTILITY(U,$J,358.4,1490,0)
 +330     ;;=LIVER DISEASE^36^107
 +331     ;;^UTILITY(U,$J,358.4,1491,0)
 +332     ;;=MENTAL HEALTH^38^107
 +333     ;;^UTILITY(U,$J,358.4,1492,0)
 +334     ;;=MOVEMENT DISORDERS^39^107
 +335     ;;^UTILITY(U,$J,358.4,1493,0)
 +336     ;;=MUSCULOSKELETAL^40^107
 +337     ;;^UTILITY(U,$J,358.4,1494,0)
 +338     ;;=NEUROLOGY^41^107
 +339     ;;^UTILITY(U,$J,358.4,1495,0)
 +340     ;;=PAIN^42^107
 +341     ;;^UTILITY(U,$J,358.4,1496,0)
 +342     ;;=PREVENTIVE HEALTH^43^107
 +343     ;;^UTILITY(U,$J,358.4,1497,0)
 +344     ;;=PULMONARY^44^107
 +345     ;;^UTILITY(U,$J,358.4,1498,0)
 +346     ;;=SEXUAL TRAUMA^45^107
 +347     ;;^UTILITY(U,$J,358.4,1499,0)
 +348     ;;=SIGNS,SYMPTOMS,CONDITIONS^46^107
 +349     ;;^UTILITY(U,$J,358.4,1500,0)
 +350     ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^47^107
 +351     ;;^UTILITY(U,$J,358.4,1501,0)
 +352     ;;=SUBSTANCE DISORDERS^48^107
 +353     ;;^UTILITY(U,$J,358.4,1502,0)
 +354     ;;=VARICOSE VEINS^50^107
 +355     ;;^UTILITY(U,$J,358.4,1503,0)
 +356     ;;=WOMEN'S HEALTH^51^107
 +357     ;;^UTILITY(U,$J,358.4,1504,0)
 +358     ;;=WOUNDS-INITIAL ENCOUNTER^52^107
 +359     ;;^UTILITY(U,$J,358.4,1505,0)
 +360     ;;=COMA^20^107
 +361     ;;^UTILITY(U,$J,358.4,1506,0)
 +362     ;;=CAUSES OF INJURY^19^107
 +363     ;;^UTILITY(U,$J,358.4,1507,0)
 +364     ;;=DEMENTIA^21^107
 +365     ;;^UTILITY(U,$J,358.4,1508,0)
 +366     ;;=LONG TERM CURRENT DRUG THERAPY^37^107
 +367     ;;^UTILITY(U,$J,358.4,1509,0)
 +368     ;;=ACQUIRED ABSENCE OF BODY PART(S)^2^107
 +369     ;;^UTILITY(U,$J,358.4,1510,0)
 +370     ;;=SUICIDE IDEATIONS/ATTEMPTS^49^107
 +371     ;;^UTILITY(U,$J,358.4,1511,0)
 +372     ;;=ACSC ACUTE KIDNEY FAILURE^3^107
 +373     ;;^UTILITY(U,$J,358.4,1512,0)
 +374     ;;=ACSC ANGINA^4^107
 +375     ;;^UTILITY(U,$J,358.4,1513,0)
 +376     ;;=ACSC ASTHMA/BRONCHITIS/COPD^5^107
 +377     ;;^UTILITY(U,$J,358.4,1514,0)
 +378     ;;=ACSC CHF^6^107
 +379     ;;^UTILITY(U,$J,358.4,1515,0)
 +380     ;;=ACSC DEHYDRATION^7^107
 +381     ;;^UTILITY(U,$J,358.4,1516,0)
 +382     ;;=ACSC DIABETES TYPE 1^8^107
 +383     ;;^UTILITY(U,$J,358.4,1517,0)
 +384     ;;=ACSC DIABETES TYPE 2^9^107
 +385     ;;^UTILITY(U,$J,358.4,1518,0)
 +386     ;;=ACSC HYPERTENSION^10^107
 +387     ;;^UTILITY(U,$J,358.4,1519,0)
 +388     ;;=ACSC INFECTIOUS GASTROENTERITIS^11^107
 +389     ;;^UTILITY(U,$J,358.4,1520,0)
 +390     ;;=ACSC PNEUMONIA^12^107
 +391     ;;^UTILITY(U,$J,358.4,1521,0)
 +392     ;;=ACSC UTI^13^107
 +393     ;;^UTILITY(U,$J,358.4,1522,0)
 +394     ;;=ACSC VIRAL ENTERITIS^14^107
 +395     ;;^UTILITY(U,$J,358.4,1523,0)
 +396     ;;=E-CIG/VAPE LUNG INJURY^23^107
 +397     ;;^UTILITY(U,$J,358.4,1524,0)
 +398     ;;=COVID-19 CONFIRMED^2^108
 +399     ;;^UTILITY(U,$J,358.4,1525,0)
 +400     ;;=COVID-19 EXPOSURE^3^108
 +401     ;;^UTILITY(U,$J,358.4,1526,0)
 +402     ;;=COVID-19 RELATED COND/SYMP^5^108
 +403     ;;^UTILITY(U,$J,358.4,1527,0)
 +404     ;;=COVID-19 SCREEN^1^108
 +405     ;;^UTILITY(U,$J,358.4,1528,0)
 +406     ;;=COVID-19 PRE-OP^4^108
 +407     ;;^UTILITY(U,$J,358.4,1529,0)
 +408     ;;=COVID-19 VACCINE STATUS^6^108
 +409     ;;^UTILITY(U,$J,358.4,1530,0)
 +410     ;;=COVID-19 ^1^109
 +411     ;;^UTILITY(U,$J,358.4,1531,0)
 +412     ;;=COVID-19 CONFIRMED^2^110
 +413     ;;^UTILITY(U,$J,358.4,1532,0)
 +414     ;;=COVID-19 EXPOSURE^3^110
 +415     ;;^UTILITY(U,$J,358.4,1533,0)
 +416     ;;=COVID-19 RELATED COND/SYMP^5^110
 +417     ;;^UTILITY(U,$J,358.4,1534,0)
 +418     ;;=COVID-19 SCREEN^1^110
 +419     ;;^UTILITY(U,$J,358.4,1535,0)
 +420     ;;=COVID-19 PRE-OP^4^110
 +421     ;;^UTILITY(U,$J,358.4,1536,0)
 +422     ;;=COVID-19 VACCINE STATUS^6^110