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

IBDEI3BC.m

Go to the documentation of this file.
IBDEI3BC ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,1148,0)
 ;;=OBSERVATION DISCHARGE^3^103
 ;;^UTILITY(U,$J,358.4,1149,0)
 ;;=INPT BEDSIDE VISITS-DAILY VISITS^5^103
 ;;^UTILITY(U,$J,358.4,1150,0)
 ;;=ADMIT & DISCHARGE SAME DAY^8^103
 ;;^UTILITY(U,$J,358.4,1151,0)
 ;;=DISCHARGE DAY CODES^9^103
 ;;^UTILITY(U,$J,358.4,1152,0)
 ;;=OBSERVATION SUBSEQUENT VISIT^2^103
 ;;^UTILITY(U,$J,358.4,1153,0)
 ;;=POST-OP VISIT^10^103
 ;;^UTILITY(U,$J,358.4,1154,0)
 ;;=CRITICAL CARE^7^103
 ;;^UTILITY(U,$J,358.4,1155,0)
 ;;=INPT VENT MGMT^4^104
 ;;^UTILITY(U,$J,358.4,1156,0)
 ;;=CRITICAL CARE^2^104
 ;;^UTILITY(U,$J,358.4,1157,0)
 ;;=TEAM CONFERENCE^8^104
 ;;^UTILITY(U,$J,358.4,1158,0)
 ;;=PROLONGED SERVICES^7^104
 ;;^UTILITY(U,$J,358.4,1159,0)
 ;;=BEDSIDE PROCEDURES^1^104
 ;;^UTILITY(U,$J,358.4,1160,0)
 ;;=MODERATE SEDATION^6^104
 ;;^UTILITY(U,$J,358.4,1161,0)
 ;;=MED MANAGEMENT^5^104
 ;;^UTILITY(U,$J,358.4,1162,0)
 ;;=IMMUNIZATIONS^3^104
 ;;^UTILITY(U,$J,358.4,1163,0)
 ;;=SIGNS/SYMPTOMS^16^105
 ;;^UTILITY(U,$J,358.4,1164,0)
 ;;=PAIN^14^105
 ;;^UTILITY(U,$J,358.4,1165,0)
 ;;=MASS^10^105
 ;;^UTILITY(U,$J,358.4,1166,0)
 ;;=COMPLICATIONS^3^105
 ;;^UTILITY(U,$J,358.4,1167,0)
 ;;=CARDIOVASCULAR^2^105
 ;;^UTILITY(U,$J,358.4,1168,0)
 ;;=RESPIRATORY^15^105
 ;;^UTILITY(U,$J,358.4,1169,0)
 ;;=GASTROENTEROLOGY^5^105
 ;;^UTILITY(U,$J,358.4,1170,0)
 ;;=GENITORURINARY^6^105
 ;;^UTILITY(U,$J,358.4,1171,0)
 ;;=MUSCULOSKELETAL^12^105
 ;;^UTILITY(U,$J,358.4,1172,0)
 ;;=NEUROLOGY^13^105
 ;;^UTILITY(U,$J,358.4,1173,0)
 ;;=HEMATOLOGY/ONCOLOGY^7^105
 ;;^UTILITY(U,$J,358.4,1174,0)
 ;;=INFECTIOUS DISEASE^9^105
 ;;^UTILITY(U,$J,358.4,1175,0)
 ;;=SUBSTANCE ABUSE-ALCOHOL^17^105
 ;;^UTILITY(U,$J,358.4,1176,0)
 ;;=SUBSTANCE ABUSE-AMPHETAMINE^18^105
 ;;^UTILITY(U,$J,358.4,1177,0)
 ;;=SUBSTANCE ABUSE-CANNABIS^19^105
 ;;^UTILITY(U,$J,358.4,1178,0)
 ;;=SUBSTANCE ABUSE-COCAINE^20^105
 ;;^UTILITY(U,$J,358.4,1179,0)
 ;;=SUBSTANCE ABUSE-HALLUCINOGEN^21^105
 ;;^UTILITY(U,$J,358.4,1180,0)
 ;;=SUBSTANCE ABUSE-INHALANT^22^105
 ;;^UTILITY(U,$J,358.4,1181,0)
 ;;=SUBSTANCE ABUSE-OPIOID^23^105
 ;;^UTILITY(U,$J,358.4,1182,0)
 ;;=SUBSTANCE ABUSE-PSYCHOACTIVE DRUGS^24^105
 ;;^UTILITY(U,$J,358.4,1183,0)
 ;;=SUBSTANCE ABUSE-SEDATIVE/HYPNOTIC^25^105
 ;;^UTILITY(U,$J,358.4,1184,0)
 ;;=SUBSTANCE ABUSE-TOBACCO^26^105
 ;;^UTILITY(U,$J,358.4,1185,0)
 ;;=ENDOCRINE^4^105
 ;;^UTILITY(U,$J,358.4,1186,0)
 ;;=ICU^8^105
 ;;^UTILITY(U,$J,358.4,1187,0)
 ;;=SUICIDAL IDEATIONS/ATTEMPTS^27^105
 ;;^UTILITY(U,$J,358.4,1188,0)
 ;;=MISCELLANEOUS^11^105
 ;;^UTILITY(U,$J,358.4,1189,0)
 ;;=GENERAL IM^1^105
 ;;^UTILITY(U,$J,358.4,1190,0)
 ;;=MFH-NON CLINICIAN VISIT ^2^106
 ;;^UTILITY(U,$J,358.4,1191,0)
 ;;=NURSING PROCEDURES^3^106
 ;;^UTILITY(U,$J,358.4,1192,0)
 ;;=SPLINTS^4^106
 ;;^UTILITY(U,$J,358.4,1193,0)
 ;;=MFH-CLINICIAN VISIT ^1^106
 ;;^UTILITY(U,$J,358.4,1194,0)
 ;;=VACCINE ADMINISTRATION^5^106
 ;;^UTILITY(U,$J,358.4,1195,0)
 ;;=VACCINES^6^106
 ;;^UTILITY(U,$J,358.4,1196,0)
 ;;=PC COMMON DIAGNOSES^1^107
 ;;^UTILITY(U,$J,358.4,1197,0)
 ;;=ADMINISTRATIVE TOPICS^15^107
 ;;^UTILITY(U,$J,358.4,1198,0)
 ;;=ANGINA^16^107
 ;;^UTILITY(U,$J,358.4,1199,0)
 ;;=ATHEROSCLEROSIS^17^107
 ;;^UTILITY(U,$J,358.4,1200,0)
 ;;=CARDIOVASCULAR^18^107
 ;;^UTILITY(U,$J,358.4,1201,0)
 ;;=DERMATOLOGY^22^107
 ;;^UTILITY(U,$J,358.4,1202,0)
 ;;=EAR DISORDERS^24^107
 ;;^UTILITY(U,$J,358.4,1203,0)
 ;;=EENT^25^107
 ;;^UTILITY(U,$J,358.4,1204,0)
 ;;=ENDOCRINE/METABOLIC^26^107