IBDEI1M5 ; ; 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,522,0)
;;=PERSONAL HX OF MENTAL DISORDER^35^42
;;^UTILITY(U,$J,358.4,523,0)
;;=PERSONS SEEKING CONSULT^37^42
;;^UTILITY(U,$J,358.4,524,0)
;;=POSTPROCEDURAL STATES^38^42
;;^UTILITY(U,$J,358.4,525,0)
;;=PSYCHOSOCIAL CIRCUMSTANCES^39^42
;;^UTILITY(U,$J,358.4,526,0)
;;=SENSES/FUNCTION PROBLEMS^44^42
;;^UTILITY(U,$J,358.4,527,0)
;;=UNAVAILABILITY OF MED FACILITY CARE^60^42
;;^UTILITY(U,$J,358.4,528,0)
;;=UPPER LIMB AMPUTATION STATUS^61^42
;;^UTILITY(U,$J,358.4,529,0)
;;=MD/PA/NP E&M CONSULTATIONS^3^43
;;^UTILITY(U,$J,358.4,530,0)
;;=MD/PA/NP-ESTABLISHED PATIENT^2^43
;;^UTILITY(U,$J,358.4,531,0)
;;=MD/PA/NP-NEW PATIENT^1^43
;;^UTILITY(U,$J,358.4,532,0)
;;=MD/PA/NP HOME VISIT-NEW PATIENT^4^43
;;^UTILITY(U,$J,358.4,533,0)
;;=MD/PA/NP HOME VISIT-ESTABLISHED PATIENT^5^43
;;^UTILITY(U,$J,358.4,534,0)
;;=OUTPT NEW PATIENT^3^44
;;^UTILITY(U,$J,358.4,535,0)
;;=OUTPT ESTABLISHED PATIENT^2^44
;;^UTILITY(U,$J,358.4,536,0)
;;=OUTPT CONSULTATIONS^4^44
;;^UTILITY(U,$J,358.4,537,0)
;;=NURSING VISIT ONLY^1^44
;;^UTILITY(U,$J,358.4,538,0)
;;=INITIAL OBSERVATION^9^44
;;^UTILITY(U,$J,358.4,539,0)
;;=SAME DAY ADM/DISCHARGE^12^44
;;^UTILITY(U,$J,358.4,540,0)
;;=INPT CONSULTATIONS^5^44
;;^UTILITY(U,$J,358.4,541,0)
;;=INITIAL HOSPITAL CARE^6^44
;;^UTILITY(U,$J,358.4,542,0)
;;=SUBSEQUENT HOSPITAL CARE^7^44
;;^UTILITY(U,$J,358.4,543,0)
;;=HOSPITAL CARE D/C SERVICES^8^44
;;^UTILITY(U,$J,358.4,544,0)
;;=SUBSEQUENT OBSERVATION CARE^10^44
;;^UTILITY(U,$J,358.4,545,0)
;;=OBSERVATION CARE D/C SERVICES^11^44
;;^UTILITY(U,$J,358.4,546,0)
;;=PROLONGED SERVICES^5^45
;;^UTILITY(U,$J,358.4,547,0)
;;=VENOUS^7^45
;;^UTILITY(U,$J,358.4,548,0)
;;=BP MONITORING^1^45
;;^UTILITY(U,$J,358.4,549,0)
;;=MEDICATION^4^45
;;^UTILITY(U,$J,358.4,550,0)
;;=CARDIOVASCULAR^2^45
;;^UTILITY(U,$J,358.4,551,0)
;;=CATHETER^3^45
;;^UTILITY(U,$J,358.4,552,0)
;;=TEAM CONFERENCE^6^45
;;^UTILITY(U,$J,358.4,553,0)
;;=HEMODIALYSIS-ESRD^14^46
;;^UTILITY(U,$J,358.4,554,0)
;;=PERITONEAL DIALYSIS ENCOUNTER^23^46
;;^UTILITY(U,$J,358.4,555,0)
;;=CARDIOLOGY/CARDIORENAL SYNDROME^2^46
;;^UTILITY(U,$J,358.4,556,0)
;;=COMPLICATIONS/OTHER^4^46
;;^UTILITY(U,$J,358.4,557,0)
;;=CYSTIC KIDNEY DISEASE^5^46
;;^UTILITY(U,$J,358.4,558,0)
;;=DIABETES/DIABETIC RENAL DISEASE^6^46
;;^UTILITY(U,$J,358.4,559,0)
;;=FLUID/ELECTROLYTE DISORDER^8^46
;;^UTILITY(U,$J,358.4,560,0)
;;=GENERAL SYMPTOMS^9^46
;;^UTILITY(U,$J,358.4,561,0)
;;=GENITAL/URINARY^10^46
;;^UTILITY(U,$J,358.4,562,0)
;;=HEMATOLOGY^12^46
;;^UTILITY(U,$J,358.4,563,0)
;;=HYPERTENSION^15^46
;;^UTILITY(U,$J,358.4,564,0)
;;=INFECTIOUS DISEASE^16^46
;;^UTILITY(U,$J,358.4,565,0)
;;=NEPHRITIS GLUMERULONEPHRITIS^18^46
;;^UTILITY(U,$J,358.4,566,0)
;;=NEPHRITIS INTERSTITIAL^19^46
;;^UTILITY(U,$J,358.4,567,0)
;;=NEPHROTIC SYNDROME^21^46
;;^UTILITY(U,$J,358.4,568,0)
;;=OBSTRUCTIVE UROPATHY^22^46
;;^UTILITY(U,$J,358.4,569,0)
;;=TRANSPLANT^26^46
;;^UTILITY(U,$J,358.4,570,0)
;;=CKD/KIDNEY DISEASE^3^46
;;^UTILITY(U,$J,358.4,571,0)
;;=HEMODIALYSIS-AKI^13^46
;;^UTILITY(U,$J,358.4,572,0)
;;=ACUTE KIDNEY INJURY^1^46
;;^UTILITY(U,$J,358.4,573,0)
;;=GLOMERULAR DISEASE^11^46
;;^UTILITY(U,$J,358.4,574,0)
;;=KIDNEY INVOLVMNT IN SYSTEMIC DISEASE^17^46
;;^UTILITY(U,$J,358.4,575,0)
;;=NEPHROLITHASIS^20^46
;;^UTILITY(U,$J,358.4,576,0)
;;=POISONING & INTOXICATIONS^24^46
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1M5 3761 printed Dec 13, 2024@02:11:24 Page 2
IBDEI1M5 ; ; 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,522,0)
+2 ;;=PERSONAL HX OF MENTAL DISORDER^35^42
+3 ;;^UTILITY(U,$J,358.4,523,0)
+4 ;;=PERSONS SEEKING CONSULT^37^42
+5 ;;^UTILITY(U,$J,358.4,524,0)
+6 ;;=POSTPROCEDURAL STATES^38^42
+7 ;;^UTILITY(U,$J,358.4,525,0)
+8 ;;=PSYCHOSOCIAL CIRCUMSTANCES^39^42
+9 ;;^UTILITY(U,$J,358.4,526,0)
+10 ;;=SENSES/FUNCTION PROBLEMS^44^42
+11 ;;^UTILITY(U,$J,358.4,527,0)
+12 ;;=UNAVAILABILITY OF MED FACILITY CARE^60^42
+13 ;;^UTILITY(U,$J,358.4,528,0)
+14 ;;=UPPER LIMB AMPUTATION STATUS^61^42
+15 ;;^UTILITY(U,$J,358.4,529,0)
+16 ;;=MD/PA/NP E&M CONSULTATIONS^3^43
+17 ;;^UTILITY(U,$J,358.4,530,0)
+18 ;;=MD/PA/NP-ESTABLISHED PATIENT^2^43
+19 ;;^UTILITY(U,$J,358.4,531,0)
+20 ;;=MD/PA/NP-NEW PATIENT^1^43
+21 ;;^UTILITY(U,$J,358.4,532,0)
+22 ;;=MD/PA/NP HOME VISIT-NEW PATIENT^4^43
+23 ;;^UTILITY(U,$J,358.4,533,0)
+24 ;;=MD/PA/NP HOME VISIT-ESTABLISHED PATIENT^5^43
+25 ;;^UTILITY(U,$J,358.4,534,0)
+26 ;;=OUTPT NEW PATIENT^3^44
+27 ;;^UTILITY(U,$J,358.4,535,0)
+28 ;;=OUTPT ESTABLISHED PATIENT^2^44
+29 ;;^UTILITY(U,$J,358.4,536,0)
+30 ;;=OUTPT CONSULTATIONS^4^44
+31 ;;^UTILITY(U,$J,358.4,537,0)
+32 ;;=NURSING VISIT ONLY^1^44
+33 ;;^UTILITY(U,$J,358.4,538,0)
+34 ;;=INITIAL OBSERVATION^9^44
+35 ;;^UTILITY(U,$J,358.4,539,0)
+36 ;;=SAME DAY ADM/DISCHARGE^12^44
+37 ;;^UTILITY(U,$J,358.4,540,0)
+38 ;;=INPT CONSULTATIONS^5^44
+39 ;;^UTILITY(U,$J,358.4,541,0)
+40 ;;=INITIAL HOSPITAL CARE^6^44
+41 ;;^UTILITY(U,$J,358.4,542,0)
+42 ;;=SUBSEQUENT HOSPITAL CARE^7^44
+43 ;;^UTILITY(U,$J,358.4,543,0)
+44 ;;=HOSPITAL CARE D/C SERVICES^8^44
+45 ;;^UTILITY(U,$J,358.4,544,0)
+46 ;;=SUBSEQUENT OBSERVATION CARE^10^44
+47 ;;^UTILITY(U,$J,358.4,545,0)
+48 ;;=OBSERVATION CARE D/C SERVICES^11^44
+49 ;;^UTILITY(U,$J,358.4,546,0)
+50 ;;=PROLONGED SERVICES^5^45
+51 ;;^UTILITY(U,$J,358.4,547,0)
+52 ;;=VENOUS^7^45
+53 ;;^UTILITY(U,$J,358.4,548,0)
+54 ;;=BP MONITORING^1^45
+55 ;;^UTILITY(U,$J,358.4,549,0)
+56 ;;=MEDICATION^4^45
+57 ;;^UTILITY(U,$J,358.4,550,0)
+58 ;;=CARDIOVASCULAR^2^45
+59 ;;^UTILITY(U,$J,358.4,551,0)
+60 ;;=CATHETER^3^45
+61 ;;^UTILITY(U,$J,358.4,552,0)
+62 ;;=TEAM CONFERENCE^6^45
+63 ;;^UTILITY(U,$J,358.4,553,0)
+64 ;;=HEMODIALYSIS-ESRD^14^46
+65 ;;^UTILITY(U,$J,358.4,554,0)
+66 ;;=PERITONEAL DIALYSIS ENCOUNTER^23^46
+67 ;;^UTILITY(U,$J,358.4,555,0)
+68 ;;=CARDIOLOGY/CARDIORENAL SYNDROME^2^46
+69 ;;^UTILITY(U,$J,358.4,556,0)
+70 ;;=COMPLICATIONS/OTHER^4^46
+71 ;;^UTILITY(U,$J,358.4,557,0)
+72 ;;=CYSTIC KIDNEY DISEASE^5^46
+73 ;;^UTILITY(U,$J,358.4,558,0)
+74 ;;=DIABETES/DIABETIC RENAL DISEASE^6^46
+75 ;;^UTILITY(U,$J,358.4,559,0)
+76 ;;=FLUID/ELECTROLYTE DISORDER^8^46
+77 ;;^UTILITY(U,$J,358.4,560,0)
+78 ;;=GENERAL SYMPTOMS^9^46
+79 ;;^UTILITY(U,$J,358.4,561,0)
+80 ;;=GENITAL/URINARY^10^46
+81 ;;^UTILITY(U,$J,358.4,562,0)
+82 ;;=HEMATOLOGY^12^46
+83 ;;^UTILITY(U,$J,358.4,563,0)
+84 ;;=HYPERTENSION^15^46
+85 ;;^UTILITY(U,$J,358.4,564,0)
+86 ;;=INFECTIOUS DISEASE^16^46
+87 ;;^UTILITY(U,$J,358.4,565,0)
+88 ;;=NEPHRITIS GLUMERULONEPHRITIS^18^46
+89 ;;^UTILITY(U,$J,358.4,566,0)
+90 ;;=NEPHRITIS INTERSTITIAL^19^46
+91 ;;^UTILITY(U,$J,358.4,567,0)
+92 ;;=NEPHROTIC SYNDROME^21^46
+93 ;;^UTILITY(U,$J,358.4,568,0)
+94 ;;=OBSTRUCTIVE UROPATHY^22^46
+95 ;;^UTILITY(U,$J,358.4,569,0)
+96 ;;=TRANSPLANT^26^46
+97 ;;^UTILITY(U,$J,358.4,570,0)
+98 ;;=CKD/KIDNEY DISEASE^3^46
+99 ;;^UTILITY(U,$J,358.4,571,0)
+100 ;;=HEMODIALYSIS-AKI^13^46
+101 ;;^UTILITY(U,$J,358.4,572,0)
+102 ;;=ACUTE KIDNEY INJURY^1^46
+103 ;;^UTILITY(U,$J,358.4,573,0)
+104 ;;=GLOMERULAR DISEASE^11^46
+105 ;;^UTILITY(U,$J,358.4,574,0)
+106 ;;=KIDNEY INVOLVMNT IN SYSTEMIC DISEASE^17^46
+107 ;;^UTILITY(U,$J,358.4,575,0)
+108 ;;=NEPHROLITHASIS^20^46
+109 ;;^UTILITY(U,$J,358.4,576,0)
+110 ;;=POISONING & INTOXICATIONS^24^46