IBDEI3BY ; ; 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,2349,0)
;;=B DIAGNOSIS^2^181
;;^UTILITY(U,$J,358.4,2350,0)
;;=C DIAGNOSIS^3^181
;;^UTILITY(U,$J,358.4,2351,0)
;;=CANCER (NOT MELANOMA)^4^181
;;^UTILITY(U,$J,358.4,2352,0)
;;=D DIAGNOSIS^5^181
;;^UTILITY(U,$J,358.4,2353,0)
;;=E/F DIAGNOSIS^6^181
;;^UTILITY(U,$J,358.4,2354,0)
;;=G DIAGNOSIS^7^181
;;^UTILITY(U,$J,358.4,2355,0)
;;=H DIAGNOSIS^8^181
;;^UTILITY(U,$J,358.4,2356,0)
;;=I DIAGNOSIS^9^181
;;^UTILITY(U,$J,358.4,2357,0)
;;=J/K/L DIAGNOSIS^10^181
;;^UTILITY(U,$J,358.4,2358,0)
;;=M DIAGNOSIS^11^181
;;^UTILITY(U,$J,358.4,2359,0)
;;=N/O DIAGNOSIS^12^181
;;^UTILITY(U,$J,358.4,2360,0)
;;=P DIAGNOSIS^13^181
;;^UTILITY(U,$J,358.4,2361,0)
;;=R DIAGNOSIS^15^181
;;^UTILITY(U,$J,358.4,2362,0)
;;=S DIAGNOSIS^16^181
;;^UTILITY(U,$J,358.4,2363,0)
;;=T/U DIAGNOSIS^18^181
;;^UTILITY(U,$J,358.4,2364,0)
;;=V/W/X/Y/Z DIAGNOSIS^18^181
;;^UTILITY(U,$J,358.4,2365,0)
;;=PRE-OP,POST-OP,COUNSELING^14^181
;;^UTILITY(U,$J,358.4,2366,0)
;;=SUICIDE IDEATION/ATTEMPT^17^181
;;^UTILITY(U,$J,358.4,2367,0)
;;=NERVE BLOCK^13^182
;;^UTILITY(U,$J,358.4,2368,0)
;;=CATH^2^182
;;^UTILITY(U,$J,358.4,2369,0)
;;=CVA DEVICE^4^182
;;^UTILITY(U,$J,358.4,2370,0)
;;=EPIDURAL^5^182
;;^UTILITY(U,$J,358.4,2371,0)
;;=FOREARM/WRIST/HAND^6^182
;;^UTILITY(U,$J,358.4,2372,0)
;;=HEAD^6^182
;;^UTILITY(U,$J,358.4,2373,0)
;;=INTRATHORACIC^8^182
;;^UTILITY(U,$J,358.4,2374,0)
;;=IV^9^182
;;^UTILITY(U,$J,358.4,2375,0)
;;=LOWER ABDOMEN^10^182
;;^UTILITY(U,$J,358.4,2376,0)
;;=LOWER LEG^11^182
;;^UTILITY(U,$J,358.4,2377,0)
;;=NECK^12^182
;;^UTILITY(U,$J,358.4,2378,0)
;;=ARTERIAL^1^182
;;^UTILITY(U,$J,358.4,2379,0)
;;=OTHER^14^182
;;^UTILITY(U,$J,358.4,2380,0)
;;=PELVIS^15^182
;;^UTILITY(U,$J,358.4,2381,0)
;;=RADIOLOGICAL PROCEDURE^17^182
;;^UTILITY(U,$J,358.4,2382,0)
;;=SHOULDER/AXILLA^18^182
;;^UTILITY(U,$J,358.4,2383,0)
;;=SPINAL NERVES^19^182
;;^UTILITY(U,$J,358.4,2384,0)
;;=SPINE/SPINAL CORD^20^182
;;^UTILITY(U,$J,358.4,2385,0)
;;=TEE^21^182
;;^UTILITY(U,$J,358.4,2386,0)
;;=THORAX^22^182
;;^UTILITY(U,$J,358.4,2387,0)
;;=UPPER ABDOMEN^23^182
;;^UTILITY(U,$J,358.4,2388,0)
;;=UPPER ARM/ELBOW^24^182
;;^UTILITY(U,$J,358.4,2389,0)
;;=UPPER LEG^25^182
;;^UTILITY(U,$J,358.4,2390,0)
;;=CRITICAL CARE^3^182
;;^UTILITY(U,$J,358.4,2391,0)
;;=INJECT-SPINE^7^182
;;^UTILITY(U,$J,358.4,2392,0)
;;=QUALIFYING CIRCUMSTANCES^16^182
;;^UTILITY(U,$J,358.4,2393,0)
;;=SUBSEQUENT NRSG FACILITY CARE^2^183
;;^UTILITY(U,$J,358.4,2394,0)
;;=INITIAL NRSG FACILITY CARE^1^183
;;^UTILITY(U,$J,358.4,2395,0)
;;=INPT-CONSULTATIONS^3^183
;;^UTILITY(U,$J,358.4,2396,0)
;;=DISCHARGE DAY VISIT^6^183
;;^UTILITY(U,$J,358.4,2397,0)
;;=OTH NURSG FACILITY SVCS^4^183
;;^UTILITY(U,$J,358.4,2398,0)
;;=TRANSITIONAL CARE^5^183
;;^UTILITY(U,$J,358.4,2399,0)
;;=INPT VENT MGMT^6^184
;;^UTILITY(U,$J,358.4,2400,0)
;;=ASSESSMENT^2^184
;;^UTILITY(U,$J,358.4,2401,0)
;;=PROLONGED SERVICES^7^184
;;^UTILITY(U,$J,358.4,2402,0)
;;=TEAM CONFERENCE^8^184
;;^UTILITY(U,$J,358.4,2403,0)
;;=ADVANCE CARE PLANNING^1^184
;;^UTILITY(U,$J,358.4,2404,0)
;;=CARE MGMT FOR BEHAV HLTH COND^3^184
;;^UTILITY(U,$J,358.4,2405,0)
;;=COGNITIVE ASSESS/CARE PLAN^4^184
;;^UTILITY(U,$J,358.4,2406,0)
;;=COLLABORATIVE CARE MGMT^5^184
;;^UTILITY(U,$J,358.4,2407,0)
;;=THERAPEUTIC INTVN^9^184
;;^UTILITY(U,$J,358.4,2408,0)
;;=DEMENTIA/COGNITIVE^6^185
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3BY 3775 printed Apr 09, 2024@21:18:36 Page 2
IBDEI3BY ; ; 04-FEB-2020
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
+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,2349,0)
+2 ;;=B DIAGNOSIS^2^181
+3 ;;^UTILITY(U,$J,358.4,2350,0)
+4 ;;=C DIAGNOSIS^3^181
+5 ;;^UTILITY(U,$J,358.4,2351,0)
+6 ;;=CANCER (NOT MELANOMA)^4^181
+7 ;;^UTILITY(U,$J,358.4,2352,0)
+8 ;;=D DIAGNOSIS^5^181
+9 ;;^UTILITY(U,$J,358.4,2353,0)
+10 ;;=E/F DIAGNOSIS^6^181
+11 ;;^UTILITY(U,$J,358.4,2354,0)
+12 ;;=G DIAGNOSIS^7^181
+13 ;;^UTILITY(U,$J,358.4,2355,0)
+14 ;;=H DIAGNOSIS^8^181
+15 ;;^UTILITY(U,$J,358.4,2356,0)
+16 ;;=I DIAGNOSIS^9^181
+17 ;;^UTILITY(U,$J,358.4,2357,0)
+18 ;;=J/K/L DIAGNOSIS^10^181
+19 ;;^UTILITY(U,$J,358.4,2358,0)
+20 ;;=M DIAGNOSIS^11^181
+21 ;;^UTILITY(U,$J,358.4,2359,0)
+22 ;;=N/O DIAGNOSIS^12^181
+23 ;;^UTILITY(U,$J,358.4,2360,0)
+24 ;;=P DIAGNOSIS^13^181
+25 ;;^UTILITY(U,$J,358.4,2361,0)
+26 ;;=R DIAGNOSIS^15^181
+27 ;;^UTILITY(U,$J,358.4,2362,0)
+28 ;;=S DIAGNOSIS^16^181
+29 ;;^UTILITY(U,$J,358.4,2363,0)
+30 ;;=T/U DIAGNOSIS^18^181
+31 ;;^UTILITY(U,$J,358.4,2364,0)
+32 ;;=V/W/X/Y/Z DIAGNOSIS^18^181
+33 ;;^UTILITY(U,$J,358.4,2365,0)
+34 ;;=PRE-OP,POST-OP,COUNSELING^14^181
+35 ;;^UTILITY(U,$J,358.4,2366,0)
+36 ;;=SUICIDE IDEATION/ATTEMPT^17^181
+37 ;;^UTILITY(U,$J,358.4,2367,0)
+38 ;;=NERVE BLOCK^13^182
+39 ;;^UTILITY(U,$J,358.4,2368,0)
+40 ;;=CATH^2^182
+41 ;;^UTILITY(U,$J,358.4,2369,0)
+42 ;;=CVA DEVICE^4^182
+43 ;;^UTILITY(U,$J,358.4,2370,0)
+44 ;;=EPIDURAL^5^182
+45 ;;^UTILITY(U,$J,358.4,2371,0)
+46 ;;=FOREARM/WRIST/HAND^6^182
+47 ;;^UTILITY(U,$J,358.4,2372,0)
+48 ;;=HEAD^6^182
+49 ;;^UTILITY(U,$J,358.4,2373,0)
+50 ;;=INTRATHORACIC^8^182
+51 ;;^UTILITY(U,$J,358.4,2374,0)
+52 ;;=IV^9^182
+53 ;;^UTILITY(U,$J,358.4,2375,0)
+54 ;;=LOWER ABDOMEN^10^182
+55 ;;^UTILITY(U,$J,358.4,2376,0)
+56 ;;=LOWER LEG^11^182
+57 ;;^UTILITY(U,$J,358.4,2377,0)
+58 ;;=NECK^12^182
+59 ;;^UTILITY(U,$J,358.4,2378,0)
+60 ;;=ARTERIAL^1^182
+61 ;;^UTILITY(U,$J,358.4,2379,0)
+62 ;;=OTHER^14^182
+63 ;;^UTILITY(U,$J,358.4,2380,0)
+64 ;;=PELVIS^15^182
+65 ;;^UTILITY(U,$J,358.4,2381,0)
+66 ;;=RADIOLOGICAL PROCEDURE^17^182
+67 ;;^UTILITY(U,$J,358.4,2382,0)
+68 ;;=SHOULDER/AXILLA^18^182
+69 ;;^UTILITY(U,$J,358.4,2383,0)
+70 ;;=SPINAL NERVES^19^182
+71 ;;^UTILITY(U,$J,358.4,2384,0)
+72 ;;=SPINE/SPINAL CORD^20^182
+73 ;;^UTILITY(U,$J,358.4,2385,0)
+74 ;;=TEE^21^182
+75 ;;^UTILITY(U,$J,358.4,2386,0)
+76 ;;=THORAX^22^182
+77 ;;^UTILITY(U,$J,358.4,2387,0)
+78 ;;=UPPER ABDOMEN^23^182
+79 ;;^UTILITY(U,$J,358.4,2388,0)
+80 ;;=UPPER ARM/ELBOW^24^182
+81 ;;^UTILITY(U,$J,358.4,2389,0)
+82 ;;=UPPER LEG^25^182
+83 ;;^UTILITY(U,$J,358.4,2390,0)
+84 ;;=CRITICAL CARE^3^182
+85 ;;^UTILITY(U,$J,358.4,2391,0)
+86 ;;=INJECT-SPINE^7^182
+87 ;;^UTILITY(U,$J,358.4,2392,0)
+88 ;;=QUALIFYING CIRCUMSTANCES^16^182
+89 ;;^UTILITY(U,$J,358.4,2393,0)
+90 ;;=SUBSEQUENT NRSG FACILITY CARE^2^183
+91 ;;^UTILITY(U,$J,358.4,2394,0)
+92 ;;=INITIAL NRSG FACILITY CARE^1^183
+93 ;;^UTILITY(U,$J,358.4,2395,0)
+94 ;;=INPT-CONSULTATIONS^3^183
+95 ;;^UTILITY(U,$J,358.4,2396,0)
+96 ;;=DISCHARGE DAY VISIT^6^183
+97 ;;^UTILITY(U,$J,358.4,2397,0)
+98 ;;=OTH NURSG FACILITY SVCS^4^183
+99 ;;^UTILITY(U,$J,358.4,2398,0)
+100 ;;=TRANSITIONAL CARE^5^183
+101 ;;^UTILITY(U,$J,358.4,2399,0)
+102 ;;=INPT VENT MGMT^6^184
+103 ;;^UTILITY(U,$J,358.4,2400,0)
+104 ;;=ASSESSMENT^2^184
+105 ;;^UTILITY(U,$J,358.4,2401,0)
+106 ;;=PROLONGED SERVICES^7^184
+107 ;;^UTILITY(U,$J,358.4,2402,0)
+108 ;;=TEAM CONFERENCE^8^184
+109 ;;^UTILITY(U,$J,358.4,2403,0)
+110 ;;=ADVANCE CARE PLANNING^1^184
+111 ;;^UTILITY(U,$J,358.4,2404,0)
+112 ;;=CARE MGMT FOR BEHAV HLTH COND^3^184
+113 ;;^UTILITY(U,$J,358.4,2405,0)
+114 ;;=COGNITIVE ASSESS/CARE PLAN^4^184
+115 ;;^UTILITY(U,$J,358.4,2406,0)
+116 ;;=COLLABORATIVE CARE MGMT^5^184
+117 ;;^UTILITY(U,$J,358.4,2407,0)
+118 ;;=THERAPEUTIC INTVN^9^184
+119 ;;^UTILITY(U,$J,358.4,2408,0)
+120 ;;=DEMENTIA/COGNITIVE^6^185
