IBDEI1M3 ; ; 01-FEB-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 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,417,0)
;;=WOMEN'S HEALTH^51^39
;;^UTILITY(U,$J,358.4,418,0)
;;=WOUNDS-INITIAL ENCOUNTER^52^39
;;^UTILITY(U,$J,358.4,419,0)
;;=COMA^20^39
;;^UTILITY(U,$J,358.4,420,0)
;;=CAUSES OF INJURY^19^39
;;^UTILITY(U,$J,358.4,421,0)
;;=DEMENTIA^21^39
;;^UTILITY(U,$J,358.4,422,0)
;;=LONG TERM CURRENT DRUG THERAPY^37^39
;;^UTILITY(U,$J,358.4,423,0)
;;=ACQUIRED ABSENCE OF BODY PART(S)^2^39
;;^UTILITY(U,$J,358.4,424,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^49^39
;;^UTILITY(U,$J,358.4,425,0)
;;=ACSC ACUTE KIDNEY FAILURE^3^39
;;^UTILITY(U,$J,358.4,426,0)
;;=ACSC ANGINA^4^39
;;^UTILITY(U,$J,358.4,427,0)
;;=ACSC ASTHMA/BRONCHITIS/COPD^5^39
;;^UTILITY(U,$J,358.4,428,0)
;;=ACSC CHF^6^39
;;^UTILITY(U,$J,358.4,429,0)
;;=ACSC DEHYDRATION^7^39
;;^UTILITY(U,$J,358.4,430,0)
;;=ACSC DIABETES TYPE 1^8^39
;;^UTILITY(U,$J,358.4,431,0)
;;=ACSC DIABETES TYPE 2^9^39
;;^UTILITY(U,$J,358.4,432,0)
;;=ACSC HYPERTENSION^10^39
;;^UTILITY(U,$J,358.4,433,0)
;;=ACSC INFECTIOUS GASTROENTERITIS^11^39
;;^UTILITY(U,$J,358.4,434,0)
;;=ACSC PNEUMONIA^12^39
;;^UTILITY(U,$J,358.4,435,0)
;;=ACSC UTI^13^39
;;^UTILITY(U,$J,358.4,436,0)
;;=ACSC VIRAL ENTERITIS^14^39
;;^UTILITY(U,$J,358.4,437,0)
;;=E-CIG/VAPE LUNG INJURY^23^39
;;^UTILITY(U,$J,358.4,438,0)
;;=TEAM CONFERENCE^20^40
;;^UTILITY(U,$J,358.4,439,0)
;;=PROCEDURE CODE^15^40
;;^UTILITY(U,$J,358.4,440,0)
;;=EDUCATION/TRAINING^6^40
;;^UTILITY(U,$J,358.4,441,0)
;;=IMMUNIZATIONS^9^40
;;^UTILITY(U,$J,358.4,442,0)
;;=OTH PREVENTIVE MEDICINE SVCS^10^40
;;^UTILITY(U,$J,358.4,443,0)
;;=SKIN TEST^18^40
;;^UTILITY(U,$J,358.4,444,0)
;;=PREVENTIVE MED-EST PT^12^40
;;^UTILITY(U,$J,358.4,445,0)
;;=PREVENTIVE MED-NEW PT^13^40
;;^UTILITY(U,$J,358.4,446,0)
;;=ADVANCED CARE PLANNING^1^40
;;^UTILITY(U,$J,358.4,447,0)
;;=IMMUNIZATION ADMINISTRATION^8^40
;;^UTILITY(U,$J,358.4,448,0)
;;=PHYSICIAN CARE PLAN OVERSIGHT^11^40
;;^UTILITY(U,$J,358.4,449,0)
;;=COVID-19 RELATED^5^40
;;^UTILITY(U,$J,358.4,450,0)
;;=CHRONIC CARE MANAGEMENT SERVICES^4^40
;;^UTILITY(U,$J,358.4,451,0)
;;=ANNUAL WELLNESS W/ PREV PLAN OF SVC^3^40
;;^UTILITY(U,$J,358.4,452,0)
;;=PROLONGED E&M SVC^16^40
;;^UTILITY(U,$J,358.4,453,0)
;;=PROLONGED SVC W/O DIRECT PT CONTACT^17^40
;;^UTILITY(U,$J,358.4,454,0)
;;=HOME HEALTH SUPERVISION^7^40
;;^UTILITY(U,$J,358.4,455,0)
;;=SMOKING/TOBACCO USE CESSATION COUNSELING^19^40
;;^UTILITY(U,$J,358.4,456,0)
;;=ALCOHOL/SUBSTANCE ABUSE SCRN/INTVN^2^40
;;^UTILITY(U,$J,358.4,457,0)
;;=PRINCIPLE CARE MANAGEMENT^14^40
;;^UTILITY(U,$J,358.4,458,0)
;;=PSYCHIATRIC THERAPY-INDIVIDUAL^8^41
;;^UTILITY(U,$J,358.4,459,0)
;;=INTAKE/SCREENING^4^41
;;^UTILITY(U,$J,358.4,460,0)
;;=CASE MANAGEMENT SERVICES^1^41
;;^UTILITY(U,$J,358.4,461,0)
;;=HEALTH AND BEHAVIOR ASSESSMENT^3^41
;;^UTILITY(U,$J,358.4,462,0)
;;=EDUCATION/TRAINING^2^41
;;^UTILITY(U,$J,358.4,463,0)
;;=TEAM CONFERENCE-FTF W/ PATIENT^10^41
;;^UTILITY(U,$J,358.4,464,0)
;;=MD/PA/NP PSYCHOTHERAPY W/ E&M^6^41
;;^UTILITY(U,$J,358.4,465,0)
;;=MD/PA/NP/SW PROLONGED SERVICES^5^41
;;^UTILITY(U,$J,358.4,466,0)
;;=PSYCHIATRIC THERAPY-GROUP^9^41
;;^UTILITY(U,$J,358.4,467,0)
;;=TEAM CONFERENCE-FTF W/O PATIENT^11^41
;;^UTILITY(U,$J,358.4,468,0)
;;=PEER SUPPORT^7^41
;;^UTILITY(U,$J,358.4,469,0)
;;=ABUSE,NEGLECT, & VIOLENCE^1^42
;;^UTILITY(U,$J,358.4,470,0)
;;=ANXIETY DISORDERS^3^42
;;^UTILITY(U,$J,358.4,471,0)
;;=BIPOLAR DISORDERS^4^42
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1M3 3793 printed Sep 23, 2025@19:47:23 Page 2
IBDEI1M3 ; ; 01-FEB-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 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,417,0)
+2 ;;=WOMEN'S HEALTH^51^39
+3 ;;^UTILITY(U,$J,358.4,418,0)
+4 ;;=WOUNDS-INITIAL ENCOUNTER^52^39
+5 ;;^UTILITY(U,$J,358.4,419,0)
+6 ;;=COMA^20^39
+7 ;;^UTILITY(U,$J,358.4,420,0)
+8 ;;=CAUSES OF INJURY^19^39
+9 ;;^UTILITY(U,$J,358.4,421,0)
+10 ;;=DEMENTIA^21^39
+11 ;;^UTILITY(U,$J,358.4,422,0)
+12 ;;=LONG TERM CURRENT DRUG THERAPY^37^39
+13 ;;^UTILITY(U,$J,358.4,423,0)
+14 ;;=ACQUIRED ABSENCE OF BODY PART(S)^2^39
+15 ;;^UTILITY(U,$J,358.4,424,0)
+16 ;;=SUICIDE IDEATIONS/ATTEMPTS^49^39
+17 ;;^UTILITY(U,$J,358.4,425,0)
+18 ;;=ACSC ACUTE KIDNEY FAILURE^3^39
+19 ;;^UTILITY(U,$J,358.4,426,0)
+20 ;;=ACSC ANGINA^4^39
+21 ;;^UTILITY(U,$J,358.4,427,0)
+22 ;;=ACSC ASTHMA/BRONCHITIS/COPD^5^39
+23 ;;^UTILITY(U,$J,358.4,428,0)
+24 ;;=ACSC CHF^6^39
+25 ;;^UTILITY(U,$J,358.4,429,0)
+26 ;;=ACSC DEHYDRATION^7^39
+27 ;;^UTILITY(U,$J,358.4,430,0)
+28 ;;=ACSC DIABETES TYPE 1^8^39
+29 ;;^UTILITY(U,$J,358.4,431,0)
+30 ;;=ACSC DIABETES TYPE 2^9^39
+31 ;;^UTILITY(U,$J,358.4,432,0)
+32 ;;=ACSC HYPERTENSION^10^39
+33 ;;^UTILITY(U,$J,358.4,433,0)
+34 ;;=ACSC INFECTIOUS GASTROENTERITIS^11^39
+35 ;;^UTILITY(U,$J,358.4,434,0)
+36 ;;=ACSC PNEUMONIA^12^39
+37 ;;^UTILITY(U,$J,358.4,435,0)
+38 ;;=ACSC UTI^13^39
+39 ;;^UTILITY(U,$J,358.4,436,0)
+40 ;;=ACSC VIRAL ENTERITIS^14^39
+41 ;;^UTILITY(U,$J,358.4,437,0)
+42 ;;=E-CIG/VAPE LUNG INJURY^23^39
+43 ;;^UTILITY(U,$J,358.4,438,0)
+44 ;;=TEAM CONFERENCE^20^40
+45 ;;^UTILITY(U,$J,358.4,439,0)
+46 ;;=PROCEDURE CODE^15^40
+47 ;;^UTILITY(U,$J,358.4,440,0)
+48 ;;=EDUCATION/TRAINING^6^40
+49 ;;^UTILITY(U,$J,358.4,441,0)
+50 ;;=IMMUNIZATIONS^9^40
+51 ;;^UTILITY(U,$J,358.4,442,0)
+52 ;;=OTH PREVENTIVE MEDICINE SVCS^10^40
+53 ;;^UTILITY(U,$J,358.4,443,0)
+54 ;;=SKIN TEST^18^40
+55 ;;^UTILITY(U,$J,358.4,444,0)
+56 ;;=PREVENTIVE MED-EST PT^12^40
+57 ;;^UTILITY(U,$J,358.4,445,0)
+58 ;;=PREVENTIVE MED-NEW PT^13^40
+59 ;;^UTILITY(U,$J,358.4,446,0)
+60 ;;=ADVANCED CARE PLANNING^1^40
+61 ;;^UTILITY(U,$J,358.4,447,0)
+62 ;;=IMMUNIZATION ADMINISTRATION^8^40
+63 ;;^UTILITY(U,$J,358.4,448,0)
+64 ;;=PHYSICIAN CARE PLAN OVERSIGHT^11^40
+65 ;;^UTILITY(U,$J,358.4,449,0)
+66 ;;=COVID-19 RELATED^5^40
+67 ;;^UTILITY(U,$J,358.4,450,0)
+68 ;;=CHRONIC CARE MANAGEMENT SERVICES^4^40
+69 ;;^UTILITY(U,$J,358.4,451,0)
+70 ;;=ANNUAL WELLNESS W/ PREV PLAN OF SVC^3^40
+71 ;;^UTILITY(U,$J,358.4,452,0)
+72 ;;=PROLONGED E&M SVC^16^40
+73 ;;^UTILITY(U,$J,358.4,453,0)
+74 ;;=PROLONGED SVC W/O DIRECT PT CONTACT^17^40
+75 ;;^UTILITY(U,$J,358.4,454,0)
+76 ;;=HOME HEALTH SUPERVISION^7^40
+77 ;;^UTILITY(U,$J,358.4,455,0)
+78 ;;=SMOKING/TOBACCO USE CESSATION COUNSELING^19^40
+79 ;;^UTILITY(U,$J,358.4,456,0)
+80 ;;=ALCOHOL/SUBSTANCE ABUSE SCRN/INTVN^2^40
+81 ;;^UTILITY(U,$J,358.4,457,0)
+82 ;;=PRINCIPLE CARE MANAGEMENT^14^40
+83 ;;^UTILITY(U,$J,358.4,458,0)
+84 ;;=PSYCHIATRIC THERAPY-INDIVIDUAL^8^41
+85 ;;^UTILITY(U,$J,358.4,459,0)
+86 ;;=INTAKE/SCREENING^4^41
+87 ;;^UTILITY(U,$J,358.4,460,0)
+88 ;;=CASE MANAGEMENT SERVICES^1^41
+89 ;;^UTILITY(U,$J,358.4,461,0)
+90 ;;=HEALTH AND BEHAVIOR ASSESSMENT^3^41
+91 ;;^UTILITY(U,$J,358.4,462,0)
+92 ;;=EDUCATION/TRAINING^2^41
+93 ;;^UTILITY(U,$J,358.4,463,0)
+94 ;;=TEAM CONFERENCE-FTF W/ PATIENT^10^41
+95 ;;^UTILITY(U,$J,358.4,464,0)
+96 ;;=MD/PA/NP PSYCHOTHERAPY W/ E&M^6^41
+97 ;;^UTILITY(U,$J,358.4,465,0)
+98 ;;=MD/PA/NP/SW PROLONGED SERVICES^5^41
+99 ;;^UTILITY(U,$J,358.4,466,0)
+100 ;;=PSYCHIATRIC THERAPY-GROUP^9^41
+101 ;;^UTILITY(U,$J,358.4,467,0)
+102 ;;=TEAM CONFERENCE-FTF W/O PATIENT^11^41
+103 ;;^UTILITY(U,$J,358.4,468,0)
+104 ;;=PEER SUPPORT^7^41
+105 ;;^UTILITY(U,$J,358.4,469,0)
+106 ;;=ABUSE,NEGLECT, & VIOLENCE^1^42
+107 ;;^UTILITY(U,$J,358.4,470,0)
+108 ;;=ANXIETY DISORDERS^3^42
+109 ;;^UTILITY(U,$J,358.4,471,0)
+110 ;;=BIPOLAR DISORDERS^4^42
