IBDEI1MD ; ; 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,1001,0)
;;=HERNIA^10^78
;;^UTILITY(U,$J,358.4,1002,0)
;;=GENITOURINARY^6^78
;;^UTILITY(U,$J,358.4,1003,0)
;;=SKIN^22^78
;;^UTILITY(U,$J,358.4,1004,0)
;;=ENT^4^78
;;^UTILITY(U,$J,358.4,1005,0)
;;=RHEUMATOLOGY/ORTHO^20^78
;;^UTILITY(U,$J,358.4,1006,0)
;;=RESPIRATORY^19^78
;;^UTILITY(U,$J,358.4,1007,0)
;;=SIGNS/SYMPTOMS/HX OF^21^78
;;^UTILITY(U,$J,358.4,1008,0)
;;=VASCULAR^24^78
;;^UTILITY(U,$J,358.4,1009,0)
;;=ANTICOAGULATION^2^78
;;^UTILITY(U,$J,358.4,1010,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^23^78
;;^UTILITY(U,$J,358.4,1011,0)
;;=ALLERGY/ASTHMA^1^78
;;^UTILITY(U,$J,358.4,1012,0)
;;=EYES^5^78
;;^UTILITY(U,$J,358.4,1013,0)
;;=HEADACHES^8^78
;;^UTILITY(U,$J,358.4,1014,0)
;;=IMMUNOLOGY^11^78
;;^UTILITY(U,$J,358.4,1015,0)
;;=NICOTINE DEPENDENCE^16^78
;;^UTILITY(U,$J,358.4,1016,0)
;;=PERSONAL HX/STATUS^18^78
;;^UTILITY(U,$J,358.4,1017,0)
;;=COMMON DIAGNOSES^1^79
;;^UTILITY(U,$J,358.4,1018,0)
;;=BODY MASS INDEX^3^79
;;^UTILITY(U,$J,358.4,1019,0)
;;=OBESITY^5^79
;;^UTILITY(U,$J,358.4,1020,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^6^79
;;^UTILITY(U,$J,358.4,1021,0)
;;=ANTICOAGULATION^2^79
;;^UTILITY(U,$J,358.4,1022,0)
;;=EYE^4^79
;;^UTILITY(U,$J,358.4,1023,0)
;;=MD/NP/PA ^1^80
;;^UTILITY(U,$J,358.4,1024,0)
;;=RN/LPN/SW/OTH HC PROF^2^80
;;^UTILITY(U,$J,358.4,1025,0)
;;=NEW PATIENT^2^81
;;^UTILITY(U,$J,358.4,1026,0)
;;=ESTABLISHED PATIENT^1^81
;;^UTILITY(U,$J,358.4,1027,0)
;;=CONSULTATIONS^3^81
;;^UTILITY(U,$J,358.4,1028,0)
;;=POST-OP F/U VISIT^5^81
;;^UTILITY(U,$J,358.4,1029,0)
;;=PREVENTIVE MED-EST PT^6^81
;;^UTILITY(U,$J,358.4,1030,0)
;;=PREVENTIVE MED-NEW PT^7^81
;;^UTILITY(U,$J,358.4,1031,0)
;;=GENITOURINARY & RENAL^19^82
;;^UTILITY(U,$J,358.4,1032,0)
;;=GYNECOLOGICAL/BREAST^20^82
;;^UTILITY(U,$J,358.4,1033,0)
;;=CARDIO/VASCULAR^14^82
;;^UTILITY(U,$J,358.4,1034,0)
;;=ENDOCRINE/METABOLIC/NUTRITION^16^82
;;^UTILITY(U,$J,358.4,1035,0)
;;=EYES/EARS/NOSE^17^82
;;^UTILITY(U,$J,358.4,1036,0)
;;=GASTROINTESTINAL^18^82
;;^UTILITY(U,$J,358.4,1037,0)
;;=MUSCULOSKELETAL^23^82
;;^UTILITY(U,$J,358.4,1038,0)
;;=NEUROLOGY^24^82
;;^UTILITY(U,$J,358.4,1039,0)
;;=PULMONARY^25^82
;;^UTILITY(U,$J,358.4,1040,0)
;;=PSYCHIATRIC^26^82
;;^UTILITY(U,$J,358.4,1041,0)
;;=SKIN^27^82
;;^UTILITY(U,$J,358.4,1042,0)
;;=IMMUNIZATIONS^21^82
;;^UTILITY(U,$J,358.4,1043,0)
;;=MISCELLANEOUS^22^82
;;^UTILITY(U,$J,358.4,1044,0)
;;=PC COMMON DIAGNOSES^1^82
;;^UTILITY(U,$J,358.4,1045,0)
;;=ACSC ACUTE KIDNEY FAILURE^2^82
;;^UTILITY(U,$J,358.4,1046,0)
;;=ACSC ANGINA^3^82
;;^UTILITY(U,$J,358.4,1047,0)
;;=ACSC ASTHMA/BRONCHITIS/COPD^4^82
;;^UTILITY(U,$J,358.4,1048,0)
;;=ACSC CHF^5^82
;;^UTILITY(U,$J,358.4,1049,0)
;;=ACSC DEHYDRATION^6^82
;;^UTILITY(U,$J,358.4,1050,0)
;;=ACSC DIABETES TYPE 1^7^82
;;^UTILITY(U,$J,358.4,1051,0)
;;=ACSC DIABETES TYPE 2^8^82
;;^UTILITY(U,$J,358.4,1052,0)
;;=ACSC HYPERTENSION^9^82
;;^UTILITY(U,$J,358.4,1053,0)
;;=ACSC INFECTIOUS GASTROENTERITIS^10^82
;;^UTILITY(U,$J,358.4,1054,0)
;;=ACSC PNEUMONIA^11^82
;;^UTILITY(U,$J,358.4,1055,0)
;;=ACSC UTI^12^82
;;^UTILITY(U,$J,358.4,1056,0)
;;=ACSC VIRAL ENTERITIS^13^82
;;^UTILITY(U,$J,358.4,1057,0)
;;=COVID-19^15^82
;;^UTILITY(U,$J,358.4,1058,0)
;;=SUICIDE IDEATIONS/ATTEMPTS^28^82
;;^UTILITY(U,$J,358.4,1059,0)
;;=GYN PROCEDURES^1^83
;;^UTILITY(U,$J,358.4,1060,0)
;;=INJECTIONS^11^83
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1MD 3761 printed Sep 23, 2025@19:47:32 Page 2
IBDEI1MD ; ; 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,1001,0)
+2 ;;=HERNIA^10^78
+3 ;;^UTILITY(U,$J,358.4,1002,0)
+4 ;;=GENITOURINARY^6^78
+5 ;;^UTILITY(U,$J,358.4,1003,0)
+6 ;;=SKIN^22^78
+7 ;;^UTILITY(U,$J,358.4,1004,0)
+8 ;;=ENT^4^78
+9 ;;^UTILITY(U,$J,358.4,1005,0)
+10 ;;=RHEUMATOLOGY/ORTHO^20^78
+11 ;;^UTILITY(U,$J,358.4,1006,0)
+12 ;;=RESPIRATORY^19^78
+13 ;;^UTILITY(U,$J,358.4,1007,0)
+14 ;;=SIGNS/SYMPTOMS/HX OF^21^78
+15 ;;^UTILITY(U,$J,358.4,1008,0)
+16 ;;=VASCULAR^24^78
+17 ;;^UTILITY(U,$J,358.4,1009,0)
+18 ;;=ANTICOAGULATION^2^78
+19 ;;^UTILITY(U,$J,358.4,1010,0)
+20 ;;=SUICIDE IDEATIONS/ATTEMPTS^23^78
+21 ;;^UTILITY(U,$J,358.4,1011,0)
+22 ;;=ALLERGY/ASTHMA^1^78
+23 ;;^UTILITY(U,$J,358.4,1012,0)
+24 ;;=EYES^5^78
+25 ;;^UTILITY(U,$J,358.4,1013,0)
+26 ;;=HEADACHES^8^78
+27 ;;^UTILITY(U,$J,358.4,1014,0)
+28 ;;=IMMUNOLOGY^11^78
+29 ;;^UTILITY(U,$J,358.4,1015,0)
+30 ;;=NICOTINE DEPENDENCE^16^78
+31 ;;^UTILITY(U,$J,358.4,1016,0)
+32 ;;=PERSONAL HX/STATUS^18^78
+33 ;;^UTILITY(U,$J,358.4,1017,0)
+34 ;;=COMMON DIAGNOSES^1^79
+35 ;;^UTILITY(U,$J,358.4,1018,0)
+36 ;;=BODY MASS INDEX^3^79
+37 ;;^UTILITY(U,$J,358.4,1019,0)
+38 ;;=OBESITY^5^79
+39 ;;^UTILITY(U,$J,358.4,1020,0)
+40 ;;=SUICIDE IDEATIONS/ATTEMPTS^6^79
+41 ;;^UTILITY(U,$J,358.4,1021,0)
+42 ;;=ANTICOAGULATION^2^79
+43 ;;^UTILITY(U,$J,358.4,1022,0)
+44 ;;=EYE^4^79
+45 ;;^UTILITY(U,$J,358.4,1023,0)
+46 ;;=MD/NP/PA ^1^80
+47 ;;^UTILITY(U,$J,358.4,1024,0)
+48 ;;=RN/LPN/SW/OTH HC PROF^2^80
+49 ;;^UTILITY(U,$J,358.4,1025,0)
+50 ;;=NEW PATIENT^2^81
+51 ;;^UTILITY(U,$J,358.4,1026,0)
+52 ;;=ESTABLISHED PATIENT^1^81
+53 ;;^UTILITY(U,$J,358.4,1027,0)
+54 ;;=CONSULTATIONS^3^81
+55 ;;^UTILITY(U,$J,358.4,1028,0)
+56 ;;=POST-OP F/U VISIT^5^81
+57 ;;^UTILITY(U,$J,358.4,1029,0)
+58 ;;=PREVENTIVE MED-EST PT^6^81
+59 ;;^UTILITY(U,$J,358.4,1030,0)
+60 ;;=PREVENTIVE MED-NEW PT^7^81
+61 ;;^UTILITY(U,$J,358.4,1031,0)
+62 ;;=GENITOURINARY & RENAL^19^82
+63 ;;^UTILITY(U,$J,358.4,1032,0)
+64 ;;=GYNECOLOGICAL/BREAST^20^82
+65 ;;^UTILITY(U,$J,358.4,1033,0)
+66 ;;=CARDIO/VASCULAR^14^82
+67 ;;^UTILITY(U,$J,358.4,1034,0)
+68 ;;=ENDOCRINE/METABOLIC/NUTRITION^16^82
+69 ;;^UTILITY(U,$J,358.4,1035,0)
+70 ;;=EYES/EARS/NOSE^17^82
+71 ;;^UTILITY(U,$J,358.4,1036,0)
+72 ;;=GASTROINTESTINAL^18^82
+73 ;;^UTILITY(U,$J,358.4,1037,0)
+74 ;;=MUSCULOSKELETAL^23^82
+75 ;;^UTILITY(U,$J,358.4,1038,0)
+76 ;;=NEUROLOGY^24^82
+77 ;;^UTILITY(U,$J,358.4,1039,0)
+78 ;;=PULMONARY^25^82
+79 ;;^UTILITY(U,$J,358.4,1040,0)
+80 ;;=PSYCHIATRIC^26^82
+81 ;;^UTILITY(U,$J,358.4,1041,0)
+82 ;;=SKIN^27^82
+83 ;;^UTILITY(U,$J,358.4,1042,0)
+84 ;;=IMMUNIZATIONS^21^82
+85 ;;^UTILITY(U,$J,358.4,1043,0)
+86 ;;=MISCELLANEOUS^22^82
+87 ;;^UTILITY(U,$J,358.4,1044,0)
+88 ;;=PC COMMON DIAGNOSES^1^82
+89 ;;^UTILITY(U,$J,358.4,1045,0)
+90 ;;=ACSC ACUTE KIDNEY FAILURE^2^82
+91 ;;^UTILITY(U,$J,358.4,1046,0)
+92 ;;=ACSC ANGINA^3^82
+93 ;;^UTILITY(U,$J,358.4,1047,0)
+94 ;;=ACSC ASTHMA/BRONCHITIS/COPD^4^82
+95 ;;^UTILITY(U,$J,358.4,1048,0)
+96 ;;=ACSC CHF^5^82
+97 ;;^UTILITY(U,$J,358.4,1049,0)
+98 ;;=ACSC DEHYDRATION^6^82
+99 ;;^UTILITY(U,$J,358.4,1050,0)
+100 ;;=ACSC DIABETES TYPE 1^7^82
+101 ;;^UTILITY(U,$J,358.4,1051,0)
+102 ;;=ACSC DIABETES TYPE 2^8^82
+103 ;;^UTILITY(U,$J,358.4,1052,0)
+104 ;;=ACSC HYPERTENSION^9^82
+105 ;;^UTILITY(U,$J,358.4,1053,0)
+106 ;;=ACSC INFECTIOUS GASTROENTERITIS^10^82
+107 ;;^UTILITY(U,$J,358.4,1054,0)
+108 ;;=ACSC PNEUMONIA^11^82
+109 ;;^UTILITY(U,$J,358.4,1055,0)
+110 ;;=ACSC UTI^12^82
+111 ;;^UTILITY(U,$J,358.4,1056,0)
+112 ;;=ACSC VIRAL ENTERITIS^13^82
+113 ;;^UTILITY(U,$J,358.4,1057,0)
+114 ;;=COVID-19^15^82
+115 ;;^UTILITY(U,$J,358.4,1058,0)
+116 ;;=SUICIDE IDEATIONS/ATTEMPTS^28^82
+117 ;;^UTILITY(U,$J,358.4,1059,0)
+118 ;;=GYN PROCEDURES^1^83
+119 ;;^UTILITY(U,$J,358.4,1060,0)
+120 ;;=INJECTIONS^11^83
