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

IBDEI0BH.m

Go to the documentation of this file.
IBDEI0BH ; ; 01-AUG-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 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,979,0)
 ;;=INFECTIOUS DISEASE^10^74
 ;;^UTILITY(U,$J,358.4,980,0)
 ;;=INTERSTITIAL LUNG DISEASE^11^74
 ;;^UTILITY(U,$J,358.4,981,0)
 ;;=MUSCULOSKELETAL^12^74
 ;;^UTILITY(U,$J,358.4,982,0)
 ;;=SUTURES^24^74
 ;;^UTILITY(U,$J,358.4,983,0)
 ;;=RADIATION^20^74
 ;;^UTILITY(U,$J,358.4,984,0)
 ;;=OCCUPATIONAL^16^74
 ;;^UTILITY(U,$J,358.4,985,0)
 ;;=PAIN^17^74
 ;;^UTILITY(U,$J,358.4,986,0)
 ;;=PLEURAL DISEASE^18^74
 ;;^UTILITY(U,$J,358.4,987,0)
 ;;=PSYCHIATRIC/BEHAVIORAL^19^74
 ;;^UTILITY(U,$J,358.4,988,0)
 ;;=SKIN^21^74
 ;;^UTILITY(U,$J,358.4,989,0)
 ;;=NEUROLOGIC^13^74
 ;;^UTILITY(U,$J,358.4,990,0)
 ;;=OBSTRUCTIVE DISEASE^14^74
 ;;^UTILITY(U,$J,358.4,991,0)
 ;;=VASCULAR^26^74
 ;;^UTILITY(U,$J,358.4,992,0)
 ;;=SYMPTOMS^25^74
 ;;^UTILITY(U,$J,358.4,993,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^23^74
 ;;^UTILITY(U,$J,358.4,994,0)
 ;;=VACCINATIONS^12^75
 ;;^UTILITY(U,$J,358.4,995,0)
 ;;=INJECTION^5^75
 ;;^UTILITY(U,$J,358.4,996,0)
 ;;=EDUCATION/TRAINING^3^75
 ;;^UTILITY(U,$J,358.4,997,0)
 ;;=COUNSELING^2^75
 ;;^UTILITY(U,$J,358.4,998,0)
 ;;=EVALUATIONS^4^75
 ;;^UTILITY(U,$J,358.4,999,0)
 ;;=SPINAL INJECTION CODES^8^75
 ;;^UTILITY(U,$J,358.4,1000,0)
 ;;=SUPPLIES^9^75
 ;;^UTILITY(U,$J,358.4,1001,0)
 ;;=TREATMENT PROCEDURES^10^75
 ;;^UTILITY(U,$J,358.4,1002,0)
 ;;=TRIGGER POINT INJECTIONS^11^75
 ;;^UTILITY(U,$J,358.4,1003,0)
 ;;=ACUPUNCTURE^1^75
 ;;^UTILITY(U,$J,358.4,1004,0)
 ;;=NAILS^7^75
 ;;^UTILITY(U,$J,358.4,1005,0)
 ;;=INTRATHECAL BACLOFED PUMP REFILL/ADJ^6^75
 ;;^UTILITY(U,$J,358.4,1006,0)
 ;;=NEW PT-OFFICE^2^76
 ;;^UTILITY(U,$J,358.4,1007,0)
 ;;=ESTABLISHED PT-OFFICE^1^76
 ;;^UTILITY(U,$J,358.4,1008,0)
 ;;=CONSULTATIONS^3^76
 ;;^UTILITY(U,$J,358.4,1009,0)
 ;;=HOME VISIT-EST PT^4^76
 ;;^UTILITY(U,$J,358.4,1010,0)
 ;;=HOME VISIT-NEW PT^5^76
 ;;^UTILITY(U,$J,358.4,1011,0)
 ;;=CARDIOVASCULAR^2^77
 ;;^UTILITY(U,$J,358.4,1012,0)
 ;;=EXTERNAL CAUSES (SECONDARY DX ONLY)^3^77
 ;;^UTILITY(U,$J,358.4,1013,0)
 ;;=MENTAL HEALTH^4^77
 ;;^UTILITY(U,$J,358.4,1014,0)
 ;;=MUSCULOSKELETAL^5^77
 ;;^UTILITY(U,$J,358.4,1015,0)
 ;;=NEPHRO/GU/GI^6^77
 ;;^UTILITY(U,$J,358.4,1016,0)
 ;;=PARAPLEGIA^8^77
 ;;^UTILITY(U,$J,358.4,1017,0)
 ;;=QUADRAPLEGIA^9^77
 ;;^UTILITY(U,$J,358.4,1018,0)
 ;;=ULCERS^13^77
 ;;^UTILITY(U,$J,358.4,1019,0)
 ;;=OTHER HEALTH STATUS FACTORS^7^77
 ;;^UTILITY(U,$J,358.4,1020,0)
 ;;=COMMON DIAGNOSES^1^77
 ;;^UTILITY(U,$J,358.4,1021,0)
 ;;=SUICIDAL IDEATIONS/ATTEMPTS^12^77
 ;;^UTILITY(U,$J,358.4,1022,0)
 ;;=SPORT PARTICIPATION^11^77
 ;;^UTILITY(U,$J,358.4,1023,0)
 ;;=SPASM OF MUSCLE (SPASTICITY)^10^77
 ;;^UTILITY(U,$J,358.4,1024,0)
 ;;=MD/NP/PA ^1^78
 ;;^UTILITY(U,$J,358.4,1025,0)
 ;;=RN/LPN/SW/OTH HC PROF^2^78
 ;;^UTILITY(U,$J,358.4,1026,0)
 ;;=COMMON DIAGNOSES^1^79
 ;;^UTILITY(U,$J,358.4,1027,0)
 ;;=BODY MASS INDEX^3^79
 ;;^UTILITY(U,$J,358.4,1028,0)
 ;;=OBESITY^5^79
 ;;^UTILITY(U,$J,358.4,1029,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^6^79
 ;;^UTILITY(U,$J,358.4,1030,0)
 ;;=ANTICOAGULATION^2^79
 ;;^UTILITY(U,$J,358.4,1031,0)
 ;;=EYE^4^79
 ;;^UTILITY(U,$J,358.4,1032,0)
 ;;=TELE-EYE PROCEDURES^1^80
 ;;^UTILITY(U,$J,358.4,1033,0)
 ;;=LOW VISION / BLINDNESS^21^81
 ;;^UTILITY(U,$J,358.4,1034,0)
 ;;=RETINA - VASCULAR^12^81
 ;;^UTILITY(U,$J,358.4,1035,0)
 ;;=EYELIDS / LASHES^2^81
 ;;^UTILITY(U,$J,358.4,1036,0)
 ;;=NEURO / STRABISMUS^18^81
 ;;^UTILITY(U,$J,358.4,1037,0)
 ;;=ORBIT - PLASTICS^20^81
 ;;^UTILITY(U,$J,358.4,1038,0)
 ;;=VITREOUS^17^81
 ;;^UTILITY(U,$J,358.4,1039,0)
 ;;=ORBIT - TRAUMA^19^81
 ;;^UTILITY(U,$J,358.4,1040,0)
 ;;=LACRIMAL / NLD / NEOPLASMS^3^81
 ;;^UTILITY(U,$J,358.4,1041,0)
 ;;=MOST FREQUENT^1^81
 ;;^UTILITY(U,$J,358.4,1042,0)
 ;;=CONJUNCTIVA / SCLERA^4^81
 ;;^UTILITY(U,$J,358.4,1043,0)
 ;;=CORNEA / ULCER^5^81
 ;;^UTILITY(U,$J,358.4,1044,0)
 ;;=LENS / CATARACT / POSTOP^6^81
 ;;^UTILITY(U,$J,358.4,1045,0)
 ;;=IRIS / UVEITIS^7^81
 ;;^UTILITY(U,$J,358.4,1046,0)
 ;;=GLAUCOMA - OPEN ANGLE^8^81
 ;;^UTILITY(U,$J,358.4,1047,0)
 ;;=GLAUCOMA - CLOSED ANGLE^9^81
 ;;^UTILITY(U,$J,358.4,1048,0)
 ;;=GLAUCOMA - SECONDARY^10^81
 ;;^UTILITY(U,$J,358.4,1049,0)
 ;;=RETINA - CHOROID / TUMORS / INFLAM^14^81
 ;;^UTILITY(U,$J,358.4,1050,0)
 ;;=RETINA - TEAR / PERIPH / DEGENERATION^15^81
 ;;^UTILITY(U,$J,358.4,1051,0)
 ;;=RETINA - MACULA^11^81
 ;;^UTILITY(U,$J,358.4,1052,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^23^81
 ;;^UTILITY(U,$J,358.4,1053,0)
 ;;=PMH / OTHER^22^81
 ;;^UTILITY(U,$J,358.4,1054,0)
 ;;=RETINA - VEGF INJECT DX CODES^16^81
 ;;^UTILITY(U,$J,358.4,1055,0)
 ;;=RETINA - DIABETIC RETINOPATHY^13^81
 ;;^UTILITY(U,$J,358.4,1056,0)
 ;;=COVID-19 & RELATED^24^81
 ;;^UTILITY(U,$J,358.4,1057,0)
 ;;=PRE-OP VISIT^1^82
 ;;^UTILITY(U,$J,358.4,1058,0)
 ;;=CONSULTATION-CLINICIAN^2^82
 ;;^UTILITY(U,$J,358.4,1059,0)
 ;;=POST-OP VISIT^4^82
 ;;^UTILITY(U,$J,358.4,1060,0)
 ;;=NEW PATIENT^3^82
 ;;^UTILITY(U,$J,358.4,1061,0)
 ;;=A DIAGNOSIS^1^83
 ;;^UTILITY(U,$J,358.4,1062,0)
 ;;=B DIAGNOSIS^2^83
 ;;^UTILITY(U,$J,358.4,1063,0)
 ;;=C DIAGNOSIS^3^83
 ;;^UTILITY(U,$J,358.4,1064,0)
 ;;=CANCER (NOT MELANOMA)^4^83
 ;;^UTILITY(U,$J,358.4,1065,0)
 ;;=D DIAGNOSIS^5^83
 ;;^UTILITY(U,$J,358.4,1066,0)
 ;;=E/F DIAGNOSIS^6^83
 ;;^UTILITY(U,$J,358.4,1067,0)
 ;;=G DIAGNOSIS^7^83
 ;;^UTILITY(U,$J,358.4,1068,0)
 ;;=H DIAGNOSIS^8^83
 ;;^UTILITY(U,$J,358.4,1069,0)
 ;;=I DIAGNOSIS^9^83
 ;;^UTILITY(U,$J,358.4,1070,0)
 ;;=J/K/L DIAGNOSIS^10^83
 ;;^UTILITY(U,$J,358.4,1071,0)
 ;;=M DIAGNOSIS^11^83
 ;;^UTILITY(U,$J,358.4,1072,0)
 ;;=N/O DIAGNOSIS^12^83
 ;;^UTILITY(U,$J,358.4,1073,0)
 ;;=P DIAGNOSIS^13^83
 ;;^UTILITY(U,$J,358.4,1074,0)
 ;;=R DIAGNOSIS^15^83
 ;;^UTILITY(U,$J,358.4,1075,0)
 ;;=S DIAGNOSIS^16^83
 ;;^UTILITY(U,$J,358.4,1076,0)
 ;;=T/U DIAGNOSIS^18^83
 ;;^UTILITY(U,$J,358.4,1077,0)
 ;;=V/W/X/Y/Z DIAGNOSIS^18^83
 ;;^UTILITY(U,$J,358.4,1078,0)
 ;;=PRE-OP,POST-OP,COUNSELING^14^83
 ;;^UTILITY(U,$J,358.4,1079,0)
 ;;=SUICIDE IDEATION/ATTEMPT^17^83
 ;;^UTILITY(U,$J,358.4,1080,0)
 ;;=NERVE BLOCK^13^84
 ;;^UTILITY(U,$J,358.4,1081,0)
 ;;=CATH^2^84
 ;;^UTILITY(U,$J,358.4,1082,0)
 ;;=CVA DEVICE^4^84
 ;;^UTILITY(U,$J,358.4,1083,0)
 ;;=EPIDURAL^5^84
 ;;^UTILITY(U,$J,358.4,1084,0)
 ;;=FOREARM/WRIST/HAND^6^84
 ;;^UTILITY(U,$J,358.4,1085,0)
 ;;=HEAD^6^84
 ;;^UTILITY(U,$J,358.4,1086,0)
 ;;=INTRATHORACIC^8^84
 ;;^UTILITY(U,$J,358.4,1087,0)
 ;;=IV^9^84
 ;;^UTILITY(U,$J,358.4,1088,0)
 ;;=LOWER ABDOMEN^10^84
 ;;^UTILITY(U,$J,358.4,1089,0)
 ;;=LOWER LEG^11^84
 ;;^UTILITY(U,$J,358.4,1090,0)
 ;;=NECK^12^84
 ;;^UTILITY(U,$J,358.4,1091,0)
 ;;=ARTERIAL^1^84
 ;;^UTILITY(U,$J,358.4,1092,0)
 ;;=OTHER^14^84
 ;;^UTILITY(U,$J,358.4,1093,0)
 ;;=PELVIS^15^84
 ;;^UTILITY(U,$J,358.4,1094,0)
 ;;=RADIOLOGICAL PROCEDURE^17^84
 ;;^UTILITY(U,$J,358.4,1095,0)
 ;;=SHOULDER/AXILLA^18^84
 ;;^UTILITY(U,$J,358.4,1096,0)
 ;;=SPINAL NERVES^19^84
 ;;^UTILITY(U,$J,358.4,1097,0)
 ;;=SPINE/SPINAL CORD^20^84
 ;;^UTILITY(U,$J,358.4,1098,0)
 ;;=TEE^22^84
 ;;^UTILITY(U,$J,358.4,1099,0)
 ;;=THORAX^23^84
 ;;^UTILITY(U,$J,358.4,1100,0)
 ;;=UPPER ABDOMEN^24^84
 ;;^UTILITY(U,$J,358.4,1101,0)
 ;;=UPPER ARM/ELBOW^25^84
 ;;^UTILITY(U,$J,358.4,1102,0)
 ;;=UPPER LEG^26^84
 ;;^UTILITY(U,$J,358.4,1103,0)
 ;;=CRITICAL CARE^3^84
 ;;^UTILITY(U,$J,358.4,1104,0)
 ;;=INJECT-SPINE^7^84
 ;;^UTILITY(U,$J,358.4,1105,0)
 ;;=QUALIFYING CIRCUMSTANCES^16^84
 ;;^UTILITY(U,$J,358.4,1106,0)
 ;;=TEAM CONFERENCE^21^84
 ;;^UTILITY(U,$J,358.4,1107,0)
 ;;=VAGINA^27^84
 ;;^UTILITY(U,$J,358.4,1108,0)
 ;;=HOSPICE CARE SUPERVISION^2^85
 ;;^UTILITY(U,$J,358.4,1109,0)
 ;;=PROLONGED SERVICES^3^85
 ;;^UTILITY(U,$J,358.4,1110,0)
 ;;=ADVANCE CARE PLANNING^1^85
 ;;^UTILITY(U,$J,358.4,1111,0)
 ;;=TEAM CONFERENCE^4^85
 ;;^UTILITY(U,$J,358.4,1112,0)
 ;;=NEOPLASMS^9^86
 ;;^UTILITY(U,$J,358.4,1113,0)
 ;;=CARDIOVASCULAR DISORDERS^2^86
 ;;^UTILITY(U,$J,358.4,1114,0)
 ;;=MENTAL HEALTH^8^86
 ;;^UTILITY(U,$J,358.4,1115,0)
 ;;=NEUROLOGICAL CONDITIONS^10^86
 ;;^UTILITY(U,$J,358.4,1116,0)
 ;;=GI DISORDERS^5^86
 ;;^UTILITY(U,$J,358.4,1117,0)
 ;;=LIVER DISORDERS^7^86
 ;;^UTILITY(U,$J,358.4,1118,0)
 ;;=KIDNEY DISORDERS^6^86
 ;;^UTILITY(U,$J,358.4,1119,0)
 ;;=RESPIRATORY DISORDERS^11^86
 ;;^UTILITY(U,$J,358.4,1120,0)
 ;;=PALLIATIVE/HOSPICE ENCOUNTER^1^86
 ;;^UTILITY(U,$J,358.4,1121,0)
 ;;=OTHER CONDITIONS^13^86
 ;;^UTILITY(U,$J,358.4,1122,0)
 ;;=DEMENTIA^3^86
 ;;^UTILITY(U,$J,358.4,1123,0)
 ;;=GENERAL IM^4^86
 ;;^UTILITY(U,$J,358.4,1124,0)
 ;;=OTHER BACTERIAL DISEASES^12^86
 ;;^UTILITY(U,$J,358.4,1125,0)
 ;;=INPATIENT CONSULTATIONS^1^87
 ;;^UTILITY(U,$J,358.4,1126,0)
 ;;=INITIAL INPATIENT CARE^2^87
 ;;^UTILITY(U,$J,358.4,1127,0)
 ;;=SUBSEQUENT INPATIENT CARE^3^87
 ;;^UTILITY(U,$J,358.4,1128,0)
 ;;=DISCHARGE/PRONOUNCEMENT^4^87
 ;;^UTILITY(U,$J,358.4,1129,0)
 ;;=NH INITIAL INPATIENT CARE^5^87
 ;;^UTILITY(U,$J,358.4,1130,0)
 ;;=NH SUBSEQUENT INPATIENT CARE^6^87
 ;;^UTILITY(U,$J,358.4,1131,0)
 ;;=NH DISCHARGE/PRONOUNCEMENT^7^87
 ;;^UTILITY(U,$J,358.4,1132,0)
 ;;=HOSPICE CARE SUPERVISION^4^88
 ;;^UTILITY(U,$J,358.4,1133,0)
 ;;=ADVANCE LIFE PLANNING^2^88
 ;;^UTILITY(U,$J,358.4,1134,0)
 ;;=EDUCATION^3^88
 ;;^UTILITY(U,$J,358.4,1135,0)
 ;;=NON-VIDEO MONITORING^5^88
 ;;^UTILITY(U,$J,358.4,1136,0)
 ;;=TEAM CONFERENCE^7^88
 ;;^UTILITY(U,$J,358.4,1137,0)
 ;;=PROLONGED SERVICES^6^88
 ;;^UTILITY(U,$J,358.4,1138,0)
 ;;=ADVANCE CARE PLANNING^1^88
 ;;^UTILITY(U,$J,358.4,1139,0)
 ;;=NEW PATIENT ^2^89
 ;;^UTILITY(U,$J,358.4,1140,0)
 ;;=ESTABLISHED PATIENT ^1^89
 ;;^UTILITY(U,$J,358.4,1141,0)
 ;;=CONSULTATIONS ^3^89
 ;;^UTILITY(U,$J,358.4,1142,0)
 ;;=NEOPLASMS^9^90
 ;;^UTILITY(U,$J,358.4,1143,0)
 ;;=CARDIOVASCULAR DISORDERS^2^90
 ;;^UTILITY(U,$J,358.4,1144,0)
 ;;=MENTAL HEALTH^8^90
 ;;^UTILITY(U,$J,358.4,1145,0)
 ;;=NEUROLOGICAL CONDITIONS^10^90
 ;;^UTILITY(U,$J,358.4,1146,0)
 ;;=GI DISORDERS^5^90
 ;;^UTILITY(U,$J,358.4,1147,0)
 ;;=LIVER DISORDERS^7^90
 ;;^UTILITY(U,$J,358.4,1148,0)
 ;;=KIDNEY DISORDERS^6^90
 ;;^UTILITY(U,$J,358.4,1149,0)
 ;;=RESPIRATORY DISORDERS^11^90
 ;;^UTILITY(U,$J,358.4,1150,0)
 ;;=PALLIATIVE/HOSPICE ENCOUNTER^1^90
 ;;^UTILITY(U,$J,358.4,1151,0)
 ;;=OTHER CONDITIONS^13^90
 ;;^UTILITY(U,$J,358.4,1152,0)
 ;;=DEMENTIA^3^90
 ;;^UTILITY(U,$J,358.4,1153,0)
 ;;=GENERAL IM^4^90
 ;;^UTILITY(U,$J,358.4,1154,0)
 ;;=OTHER BACTERIAL DISEASES^12^90
 ;;^UTILITY(U,$J,358.4,1155,0)
 ;;=COVID-19 CONFIRMED^2^91
 ;;^UTILITY(U,$J,358.4,1156,0)
 ;;=COVID-19 EXPOSURE^3^91
 ;;^UTILITY(U,$J,358.4,1157,0)
 ;;=COVID-19 RELATED COND/SYMP^5^91
 ;;^UTILITY(U,$J,358.4,1158,0)
 ;;=COVID-19 SCREEN^1^91
 ;;^UTILITY(U,$J,358.4,1159,0)
 ;;=COVID-19 PRE-OP^4^91
 ;;^UTILITY(U,$J,358.4,1160,0)
 ;;=COVID-19 VACCINE STATUS^6^91
 ;;^UTILITY(U,$J,358.4,1161,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^7^91
 ;;^UTILITY(U,$J,358.4,1162,0)
 ;;=COVID-19 ^1^92
 ;;^UTILITY(U,$J,358.4,1163,0)
 ;;=COVID-19 CONFIRMED^2^93
 ;;^UTILITY(U,$J,358.4,1164,0)
 ;;=COVID-19 EXPOSURE^3^93
 ;;^UTILITY(U,$J,358.4,1165,0)
 ;;=COVID-19 RELATED COND/SYMP^5^93
 ;;^UTILITY(U,$J,358.4,1166,0)
 ;;=COVID-19 SCREEN^1^93
 ;;^UTILITY(U,$J,358.4,1167,0)
 ;;=COVID-19 PRE-OP^4^93
 ;;^UTILITY(U,$J,358.4,1168,0)
 ;;=COVID-19 VACCINE STATUS^6^93
 ;;^UTILITY(U,$J,358.4,1169,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^7^93
 ;;^UTILITY(U,$J,358.4,1178,0)
 ;;=REMOTE MONITORING^1^96
 ;;^UTILITY(U,$J,358.4,1179,0)
 ;;=ONLINE DIGITAL E/M-NONPROVIDER^3^96
 ;;^UTILITY(U,$J,358.4,1180,0)
 ;;=ONLINE DIGITAL E/M-PROVIDER^2^96
 ;;^UTILITY(U,$J,358.4,1181,0)
 ;;=SUICIDE IDEATIONS/ATTEMPTS^2^97
 ;;^UTILITY(U,$J,358.4,1182,0)
 ;;=DIABETES MELLITUS^1^97