IBDEI3IG ; ; 19-NOV-2015
;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.4,1302,0)
;;=VACCINE ADMINISTRATION^5^131
;;^UTILITY(U,$J,358.4,1303,0)
;;=VACCINES^6^131
;;^UTILITY(U,$J,358.4,1304,0)
;;=PC COMMON DIAGNOSES^1^132
;;^UTILITY(U,$J,358.4,1305,0)
;;=ADMINISTRATIVE TOPICS^2^132
;;^UTILITY(U,$J,358.4,1306,0)
;;=ANGINA^3^132
;;^UTILITY(U,$J,358.4,1307,0)
;;=ATHEROSCLEROSIS^4^132
;;^UTILITY(U,$J,358.4,1308,0)
;;=CARDIOVASCULAR^5^132
;;^UTILITY(U,$J,358.4,1309,0)
;;=DERMATOLOGY^9^132
;;^UTILITY(U,$J,358.4,1310,0)
;;=EAR DISORDERS^10^132
;;^UTILITY(U,$J,358.4,1311,0)
;;=EENT^11^132
;;^UTILITY(U,$J,358.4,1312,0)
;;=ENDOCRINE/METABOLIC^12^132
;;^UTILITY(U,$J,358.4,1313,0)
;;=EYE DISORDERS^13^132
;;^UTILITY(U,$J,358.4,1314,0)
;;=EYE INJURY^14^132
;;^UTILITY(U,$J,358.4,1315,0)
;;=GASTROENTEROLOGY^15^132
;;^UTILITY(U,$J,358.4,1316,0)
;;=GU/RENAL^16^132
;;^UTILITY(U,$J,358.4,1317,0)
;;=HEADACHE^17^132
;;^UTILITY(U,$J,358.4,1318,0)
;;=HEART FAILURE^18^132
;;^UTILITY(U,$J,358.4,1319,0)
;;=HEART VALVE DISEASE^19^132
;;^UTILITY(U,$J,358.4,1320,0)
;;=HEMATOLOGY/ONCOLOGY^20^132
;;^UTILITY(U,$J,358.4,1321,0)
;;=HISTORY OF ILLNESS^21^132
;;^UTILITY(U,$J,358.4,1322,0)
;;=INFECTIOUS DISEASE^22^132
;;^UTILITY(U,$J,358.4,1323,0)
;;=LIVER DISEASE^23^132
;;^UTILITY(U,$J,358.4,1324,0)
;;=MENTAL HEALTH^25^132
;;^UTILITY(U,$J,358.4,1325,0)
;;=MOVEMENT DISORDERS^26^132
;;^UTILITY(U,$J,358.4,1326,0)
;;=MUSCULOSKELETAL^27^132
;;^UTILITY(U,$J,358.4,1327,0)
;;=NEUROLOGY^28^132
;;^UTILITY(U,$J,358.4,1328,0)
;;=PAIN^29^132
;;^UTILITY(U,$J,358.4,1329,0)
;;=PREVENTIVE HEALTH^30^132
;;^UTILITY(U,$J,358.4,1330,0)
;;=PULMONARY^31^132
;;^UTILITY(U,$J,358.4,1331,0)
;;=SEXUAL TRAUMA^32^132
;;^UTILITY(U,$J,358.4,1332,0)
;;=SIGNS,SYMPTOMS,CONDITIONS^33^132
;;^UTILITY(U,$J,358.4,1333,0)
;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^132
;;^UTILITY(U,$J,358.4,1334,0)
;;=SUBSTANCE DISORDERS^35^132
;;^UTILITY(U,$J,358.4,1335,0)
;;=VARICOSE VEINS^36^132
;;^UTILITY(U,$J,358.4,1336,0)
;;=WOMEN'S HEALTH^37^132
;;^UTILITY(U,$J,358.4,1337,0)
;;=WOUNDS-INITIAL ENCOUNTER^38^132
;;^UTILITY(U,$J,358.4,1338,0)
;;=COMA^7^132
;;^UTILITY(U,$J,358.4,1339,0)
;;=CAUSES OF INJURY^6^132
;;^UTILITY(U,$J,358.4,1340,0)
;;=DEMENTIA^8^132
;;^UTILITY(U,$J,358.4,1341,0)
;;=LONG TERM CURRENT DRUG THERAPY^24^132
;;^UTILITY(U,$J,358.4,1342,0)
;;=NEW PATIENT^2^133
;;^UTILITY(U,$J,358.4,1343,0)
;;=ESTABLISHED PATIENT^1^133
;;^UTILITY(U,$J,358.4,1344,0)
;;=CONSULTATIONS^3^133
;;^UTILITY(U,$J,358.4,1345,0)
;;=IMMUNIZATIONS^2^134
;;^UTILITY(U,$J,358.4,1346,0)
;;=INJECTION^3^134
;;^UTILITY(U,$J,358.4,1347,0)
;;=SKIN TESTS^10^134
;;^UTILITY(U,$J,358.4,1348,0)
;;=NURSING PROCEDURES^5^134
;;^UTILITY(U,$J,358.4,1349,0)
;;=MINOR PROCEDURES^4^134
;;^UTILITY(U,$J,358.4,1350,0)
;;=SPLINTS^10^134
;;^UTILITY(U,$J,358.4,1351,0)
;;=REPAIR-SIMPLE SCALP,NK,TRUNK,GENTIALS^9^134
;;^UTILITY(U,$J,358.4,1352,0)
;;=REPAIR-SIMPLE FACE,MUCOUS^8^134
;;^UTILITY(U,$J,358.4,1353,0)
;;=PREVENTIVE MED-EST PT^6^134
;;^UTILITY(U,$J,358.4,1354,0)
;;=PREVENTIVE MED-NEW PT^7^134
;;^UTILITY(U,$J,358.4,1355,0)
;;=IMMUNIZATION ADMIN^1^134
;;^UTILITY(U,$J,358.4,1356,0)
;;=PC COMMON DIAGNOSES^1^135
;;^UTILITY(U,$J,358.4,1357,0)
;;=ADMINISTRATIVE TOPICS^2^135
;;^UTILITY(U,$J,358.4,1358,0)
;;=ANGINA^3^135
;;^UTILITY(U,$J,358.4,1359,0)
;;=ATHEROSCLEROSIS^4^135
;;^UTILITY(U,$J,358.4,1360,0)
;;=CARDIOVASCULAR^5^135
;;^UTILITY(U,$J,358.4,1361,0)
;;=DERMATOLOGY^9^135
;;^UTILITY(U,$J,358.4,1362,0)
;;=EAR DISORDERS^10^135
;;^UTILITY(U,$J,358.4,1363,0)
;;=EENT^11^135
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3IG 3947 printed Sep 23, 2025@20:25:27 Page 2
IBDEI3IG ; ; 19-NOV-2015
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
+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,99)
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,1302,0)
+2 ;;=VACCINE ADMINISTRATION^5^131
+3 ;;^UTILITY(U,$J,358.4,1303,0)
+4 ;;=VACCINES^6^131
+5 ;;^UTILITY(U,$J,358.4,1304,0)
+6 ;;=PC COMMON DIAGNOSES^1^132
+7 ;;^UTILITY(U,$J,358.4,1305,0)
+8 ;;=ADMINISTRATIVE TOPICS^2^132
+9 ;;^UTILITY(U,$J,358.4,1306,0)
+10 ;;=ANGINA^3^132
+11 ;;^UTILITY(U,$J,358.4,1307,0)
+12 ;;=ATHEROSCLEROSIS^4^132
+13 ;;^UTILITY(U,$J,358.4,1308,0)
+14 ;;=CARDIOVASCULAR^5^132
+15 ;;^UTILITY(U,$J,358.4,1309,0)
+16 ;;=DERMATOLOGY^9^132
+17 ;;^UTILITY(U,$J,358.4,1310,0)
+18 ;;=EAR DISORDERS^10^132
+19 ;;^UTILITY(U,$J,358.4,1311,0)
+20 ;;=EENT^11^132
+21 ;;^UTILITY(U,$J,358.4,1312,0)
+22 ;;=ENDOCRINE/METABOLIC^12^132
+23 ;;^UTILITY(U,$J,358.4,1313,0)
+24 ;;=EYE DISORDERS^13^132
+25 ;;^UTILITY(U,$J,358.4,1314,0)
+26 ;;=EYE INJURY^14^132
+27 ;;^UTILITY(U,$J,358.4,1315,0)
+28 ;;=GASTROENTEROLOGY^15^132
+29 ;;^UTILITY(U,$J,358.4,1316,0)
+30 ;;=GU/RENAL^16^132
+31 ;;^UTILITY(U,$J,358.4,1317,0)
+32 ;;=HEADACHE^17^132
+33 ;;^UTILITY(U,$J,358.4,1318,0)
+34 ;;=HEART FAILURE^18^132
+35 ;;^UTILITY(U,$J,358.4,1319,0)
+36 ;;=HEART VALVE DISEASE^19^132
+37 ;;^UTILITY(U,$J,358.4,1320,0)
+38 ;;=HEMATOLOGY/ONCOLOGY^20^132
+39 ;;^UTILITY(U,$J,358.4,1321,0)
+40 ;;=HISTORY OF ILLNESS^21^132
+41 ;;^UTILITY(U,$J,358.4,1322,0)
+42 ;;=INFECTIOUS DISEASE^22^132
+43 ;;^UTILITY(U,$J,358.4,1323,0)
+44 ;;=LIVER DISEASE^23^132
+45 ;;^UTILITY(U,$J,358.4,1324,0)
+46 ;;=MENTAL HEALTH^25^132
+47 ;;^UTILITY(U,$J,358.4,1325,0)
+48 ;;=MOVEMENT DISORDERS^26^132
+49 ;;^UTILITY(U,$J,358.4,1326,0)
+50 ;;=MUSCULOSKELETAL^27^132
+51 ;;^UTILITY(U,$J,358.4,1327,0)
+52 ;;=NEUROLOGY^28^132
+53 ;;^UTILITY(U,$J,358.4,1328,0)
+54 ;;=PAIN^29^132
+55 ;;^UTILITY(U,$J,358.4,1329,0)
+56 ;;=PREVENTIVE HEALTH^30^132
+57 ;;^UTILITY(U,$J,358.4,1330,0)
+58 ;;=PULMONARY^31^132
+59 ;;^UTILITY(U,$J,358.4,1331,0)
+60 ;;=SEXUAL TRAUMA^32^132
+61 ;;^UTILITY(U,$J,358.4,1332,0)
+62 ;;=SIGNS,SYMPTOMS,CONDITIONS^33^132
+63 ;;^UTILITY(U,$J,358.4,1333,0)
+64 ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^34^132
+65 ;;^UTILITY(U,$J,358.4,1334,0)
+66 ;;=SUBSTANCE DISORDERS^35^132
+67 ;;^UTILITY(U,$J,358.4,1335,0)
+68 ;;=VARICOSE VEINS^36^132
+69 ;;^UTILITY(U,$J,358.4,1336,0)
+70 ;;=WOMEN'S HEALTH^37^132
+71 ;;^UTILITY(U,$J,358.4,1337,0)
+72 ;;=WOUNDS-INITIAL ENCOUNTER^38^132
+73 ;;^UTILITY(U,$J,358.4,1338,0)
+74 ;;=COMA^7^132
+75 ;;^UTILITY(U,$J,358.4,1339,0)
+76 ;;=CAUSES OF INJURY^6^132
+77 ;;^UTILITY(U,$J,358.4,1340,0)
+78 ;;=DEMENTIA^8^132
+79 ;;^UTILITY(U,$J,358.4,1341,0)
+80 ;;=LONG TERM CURRENT DRUG THERAPY^24^132
+81 ;;^UTILITY(U,$J,358.4,1342,0)
+82 ;;=NEW PATIENT^2^133
+83 ;;^UTILITY(U,$J,358.4,1343,0)
+84 ;;=ESTABLISHED PATIENT^1^133
+85 ;;^UTILITY(U,$J,358.4,1344,0)
+86 ;;=CONSULTATIONS^3^133
+87 ;;^UTILITY(U,$J,358.4,1345,0)
+88 ;;=IMMUNIZATIONS^2^134
+89 ;;^UTILITY(U,$J,358.4,1346,0)
+90 ;;=INJECTION^3^134
+91 ;;^UTILITY(U,$J,358.4,1347,0)
+92 ;;=SKIN TESTS^10^134
+93 ;;^UTILITY(U,$J,358.4,1348,0)
+94 ;;=NURSING PROCEDURES^5^134
+95 ;;^UTILITY(U,$J,358.4,1349,0)
+96 ;;=MINOR PROCEDURES^4^134
+97 ;;^UTILITY(U,$J,358.4,1350,0)
+98 ;;=SPLINTS^10^134
+99 ;;^UTILITY(U,$J,358.4,1351,0)
+100 ;;=REPAIR-SIMPLE SCALP,NK,TRUNK,GENTIALS^9^134
+101 ;;^UTILITY(U,$J,358.4,1352,0)
+102 ;;=REPAIR-SIMPLE FACE,MUCOUS^8^134
+103 ;;^UTILITY(U,$J,358.4,1353,0)
+104 ;;=PREVENTIVE MED-EST PT^6^134
+105 ;;^UTILITY(U,$J,358.4,1354,0)
+106 ;;=PREVENTIVE MED-NEW PT^7^134
+107 ;;^UTILITY(U,$J,358.4,1355,0)
+108 ;;=IMMUNIZATION ADMIN^1^134
+109 ;;^UTILITY(U,$J,358.4,1356,0)
+110 ;;=PC COMMON DIAGNOSES^1^135
+111 ;;^UTILITY(U,$J,358.4,1357,0)
+112 ;;=ADMINISTRATIVE TOPICS^2^135
+113 ;;^UTILITY(U,$J,358.4,1358,0)
+114 ;;=ANGINA^3^135
+115 ;;^UTILITY(U,$J,358.4,1359,0)
+116 ;;=ATHEROSCLEROSIS^4^135
+117 ;;^UTILITY(U,$J,358.4,1360,0)
+118 ;;=CARDIOVASCULAR^5^135
+119 ;;^UTILITY(U,$J,358.4,1361,0)
+120 ;;=DERMATOLOGY^9^135
+121 ;;^UTILITY(U,$J,358.4,1362,0)
+122 ;;=EAR DISORDERS^10^135
+123 ;;^UTILITY(U,$J,358.4,1363,0)
+124 ;;=EENT^11^135
