IBDEI3J0 ; ; 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,2493,0)
;;=ON-LINE MEDICAL EVAL^8^223
;;^UTILITY(U,$J,358.4,2494,0)
;;=ACUPUNCTURE^1^223
;;^UTILITY(U,$J,358.4,2495,0)
;;=NEW PT-OFFICE^3^224
;;^UTILITY(U,$J,358.4,2496,0)
;;=ESTABLISHED PT-OFFICE^1^224
;;^UTILITY(U,$J,358.4,2497,0)
;;=CONSULTATIONS^5^224
;;^UTILITY(U,$J,358.4,2498,0)
;;=CARDIOVASCULAR^1^225
;;^UTILITY(U,$J,358.4,2499,0)
;;=EXTERNAL CAUSES (SECONDARY DX ONLY)^2^225
;;^UTILITY(U,$J,358.4,2500,0)
;;=MENTAL HEALTH^3^225
;;^UTILITY(U,$J,358.4,2501,0)
;;=MUSCULOSKELETAL^4^225
;;^UTILITY(U,$J,358.4,2502,0)
;;=NEPHRO/GU/GI^5^225
;;^UTILITY(U,$J,358.4,2503,0)
;;=PARAPLEGIA^7^225
;;^UTILITY(U,$J,358.4,2504,0)
;;=QUADRAPLEGIA^8^225
;;^UTILITY(U,$J,358.4,2505,0)
;;=ULCERS^9^225
;;^UTILITY(U,$J,358.4,2506,0)
;;=OTHER HEALTH STATUS FACTORS^6^225
;;^UTILITY(U,$J,358.4,2507,0)
;;=ON-LINE E&M^1^226
;;^UTILITY(U,$J,358.4,2508,0)
;;=ON-LINE E&M DIAGNOSES^1^227
;;^UTILITY(U,$J,358.4,2509,0)
;;=RESPIRATORY^8^228
;;^UTILITY(U,$J,358.4,2510,0)
;;=SLEEP TESTING AND EVAL^9^228
;;^UTILITY(U,$J,358.4,2511,0)
;;=PULMONARY FUNCTION TESTS^7^228
;;^UTILITY(U,$J,358.4,2512,0)
;;=ABG/OX/TRANSCUTANEUOUS^1^228
;;^UTILITY(U,$J,358.4,2513,0)
;;=HOME OXYGEN CLINIC^6^228
;;^UTILITY(U,$J,358.4,2514,0)
;;=CPAP^2^228
;;^UTILITY(U,$J,358.4,2515,0)
;;=EDUCATION/TRAINING^3^228
;;^UTILITY(U,$J,358.4,2516,0)
;;=NEW PATIENT^2^229
;;^UTILITY(U,$J,358.4,2517,0)
;;=ESTABLISHED PATIENT^1^229
;;^UTILITY(U,$J,358.4,2518,0)
;;=CONSULTATIONS^3^229
;;^UTILITY(U,$J,358.4,2519,0)
;;=PULMONARY DIAGNOSES^1^230
;;^UTILITY(U,$J,358.4,2520,0)
;;=SLEEP DX PRELIMINARY^2^230
;;^UTILITY(U,$J,358.4,2521,0)
;;=SLEEP DX CONFIRMED^3^230
;;^UTILITY(U,$J,358.4,2522,0)
;;=OTHER SLEEP RELATED DX^4^230
;;^UTILITY(U,$J,358.4,2523,0)
;;=ESTABLISHED PATIENT^1^231
;;^UTILITY(U,$J,358.4,2524,0)
;;=GROUP TREATMENT^8^232
;;^UTILITY(U,$J,358.4,2525,0)
;;=VOICE PROSTHESES^23^232
;;^UTILITY(U,$J,358.4,2526,0)
;;=AAC DEVICES^1^232
;;^UTILITY(U,$J,358.4,2527,0)
;;=OTHER PROCEDURES^13^232
;;^UTILITY(U,$J,358.4,2528,0)
;;=LARYNGOSCOPY PROCEDURES^9^232
;;^UTILITY(U,$J,358.4,2529,0)
;;=NASOPHARYNGOSCOPY^12^232
;;^UTILITY(U,$J,358.4,2530,0)
;;=DYSPHAGIA EVALUATION^5^232
;;^UTILITY(U,$J,358.4,2531,0)
;;=SPECIAL OTORHINOLARYNGOLOGIC SERVICES^17^232
;;^UTILITY(U,$J,358.4,2532,0)
;;=SCREENING^15^232
;;^UTILITY(U,$J,358.4,2533,0)
;;=ATTENTION G-CODES^2^232
;;^UTILITY(U,$J,358.4,2534,0)
;;=CARRY,MOVE,HANDLE OBJECTS^3^232
;;^UTILITY(U,$J,358.4,2535,0)
;;=CHANGE/MAINTAIN BODY POSITION^4^232
;;^UTILITY(U,$J,358.4,2536,0)
;;=EDUCATION^6^232
;;^UTILITY(U,$J,358.4,2537,0)
;;=FITTING/ORIENTATION DEVICE^7^232
;;^UTILITY(U,$J,358.4,2538,0)
;;=MEMORY G-CODES^10^232
;;^UTILITY(U,$J,358.4,2539,0)
;;=MOBILITY G-CODES^11^232
;;^UTILITY(U,$J,358.4,2540,0)
;;=SPEECH LANGUAGE PATHOLOGY^14^232
;;^UTILITY(U,$J,358.4,2541,0)
;;=SELF-CARE G-CODES^16^232
;;^UTILITY(U,$J,358.4,2542,0)
;;=SPEECH G-CODES^18^232
;;^UTILITY(U,$J,358.4,2543,0)
;;=SPOKEN LANGUAGE EXPRESSION G-CODES^19^232
;;^UTILITY(U,$J,358.4,2544,0)
;;=SPOKEN LANGUAGE G-CODES^20^232
;;^UTILITY(U,$J,358.4,2545,0)
;;=SWALLOWING G-CODES^21^232
;;^UTILITY(U,$J,358.4,2546,0)
;;=VOICE G-CODES^22^232
;;^UTILITY(U,$J,358.4,2547,0)
;;=DEVELOPMENTAL DISORDERS^1^233
;;^UTILITY(U,$J,358.4,2548,0)
;;=LATE EFFECTS OF CEREBROVASCULAR DISEASE^2^233
;;^UTILITY(U,$J,358.4,2549,0)
;;=VOCAL FOLD DISORDERS^3^233
;;^UTILITY(U,$J,358.4,2550,0)
;;=SWALLOWING DISORDERS^4^233
;;^UTILITY(U,$J,358.4,2551,0)
;;=SPEECH DISORDERS^5^233
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3J0 3941 printed Apr 09, 2024@20:48:18 Page 2
IBDEI3J0 ; ; 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,2493,0)
+2 ;;=ON-LINE MEDICAL EVAL^8^223
+3 ;;^UTILITY(U,$J,358.4,2494,0)
+4 ;;=ACUPUNCTURE^1^223
+5 ;;^UTILITY(U,$J,358.4,2495,0)
+6 ;;=NEW PT-OFFICE^3^224
+7 ;;^UTILITY(U,$J,358.4,2496,0)
+8 ;;=ESTABLISHED PT-OFFICE^1^224
+9 ;;^UTILITY(U,$J,358.4,2497,0)
+10 ;;=CONSULTATIONS^5^224
+11 ;;^UTILITY(U,$J,358.4,2498,0)
+12 ;;=CARDIOVASCULAR^1^225
+13 ;;^UTILITY(U,$J,358.4,2499,0)
+14 ;;=EXTERNAL CAUSES (SECONDARY DX ONLY)^2^225
+15 ;;^UTILITY(U,$J,358.4,2500,0)
+16 ;;=MENTAL HEALTH^3^225
+17 ;;^UTILITY(U,$J,358.4,2501,0)
+18 ;;=MUSCULOSKELETAL^4^225
+19 ;;^UTILITY(U,$J,358.4,2502,0)
+20 ;;=NEPHRO/GU/GI^5^225
+21 ;;^UTILITY(U,$J,358.4,2503,0)
+22 ;;=PARAPLEGIA^7^225
+23 ;;^UTILITY(U,$J,358.4,2504,0)
+24 ;;=QUADRAPLEGIA^8^225
+25 ;;^UTILITY(U,$J,358.4,2505,0)
+26 ;;=ULCERS^9^225
+27 ;;^UTILITY(U,$J,358.4,2506,0)
+28 ;;=OTHER HEALTH STATUS FACTORS^6^225
+29 ;;^UTILITY(U,$J,358.4,2507,0)
+30 ;;=ON-LINE E&M^1^226
+31 ;;^UTILITY(U,$J,358.4,2508,0)
+32 ;;=ON-LINE E&M DIAGNOSES^1^227
+33 ;;^UTILITY(U,$J,358.4,2509,0)
+34 ;;=RESPIRATORY^8^228
+35 ;;^UTILITY(U,$J,358.4,2510,0)
+36 ;;=SLEEP TESTING AND EVAL^9^228
+37 ;;^UTILITY(U,$J,358.4,2511,0)
+38 ;;=PULMONARY FUNCTION TESTS^7^228
+39 ;;^UTILITY(U,$J,358.4,2512,0)
+40 ;;=ABG/OX/TRANSCUTANEUOUS^1^228
+41 ;;^UTILITY(U,$J,358.4,2513,0)
+42 ;;=HOME OXYGEN CLINIC^6^228
+43 ;;^UTILITY(U,$J,358.4,2514,0)
+44 ;;=CPAP^2^228
+45 ;;^UTILITY(U,$J,358.4,2515,0)
+46 ;;=EDUCATION/TRAINING^3^228
+47 ;;^UTILITY(U,$J,358.4,2516,0)
+48 ;;=NEW PATIENT^2^229
+49 ;;^UTILITY(U,$J,358.4,2517,0)
+50 ;;=ESTABLISHED PATIENT^1^229
+51 ;;^UTILITY(U,$J,358.4,2518,0)
+52 ;;=CONSULTATIONS^3^229
+53 ;;^UTILITY(U,$J,358.4,2519,0)
+54 ;;=PULMONARY DIAGNOSES^1^230
+55 ;;^UTILITY(U,$J,358.4,2520,0)
+56 ;;=SLEEP DX PRELIMINARY^2^230
+57 ;;^UTILITY(U,$J,358.4,2521,0)
+58 ;;=SLEEP DX CONFIRMED^3^230
+59 ;;^UTILITY(U,$J,358.4,2522,0)
+60 ;;=OTHER SLEEP RELATED DX^4^230
+61 ;;^UTILITY(U,$J,358.4,2523,0)
+62 ;;=ESTABLISHED PATIENT^1^231
+63 ;;^UTILITY(U,$J,358.4,2524,0)
+64 ;;=GROUP TREATMENT^8^232
+65 ;;^UTILITY(U,$J,358.4,2525,0)
+66 ;;=VOICE PROSTHESES^23^232
+67 ;;^UTILITY(U,$J,358.4,2526,0)
+68 ;;=AAC DEVICES^1^232
+69 ;;^UTILITY(U,$J,358.4,2527,0)
+70 ;;=OTHER PROCEDURES^13^232
+71 ;;^UTILITY(U,$J,358.4,2528,0)
+72 ;;=LARYNGOSCOPY PROCEDURES^9^232
+73 ;;^UTILITY(U,$J,358.4,2529,0)
+74 ;;=NASOPHARYNGOSCOPY^12^232
+75 ;;^UTILITY(U,$J,358.4,2530,0)
+76 ;;=DYSPHAGIA EVALUATION^5^232
+77 ;;^UTILITY(U,$J,358.4,2531,0)
+78 ;;=SPECIAL OTORHINOLARYNGOLOGIC SERVICES^17^232
+79 ;;^UTILITY(U,$J,358.4,2532,0)
+80 ;;=SCREENING^15^232
+81 ;;^UTILITY(U,$J,358.4,2533,0)
+82 ;;=ATTENTION G-CODES^2^232
+83 ;;^UTILITY(U,$J,358.4,2534,0)
+84 ;;=CARRY,MOVE,HANDLE OBJECTS^3^232
+85 ;;^UTILITY(U,$J,358.4,2535,0)
+86 ;;=CHANGE/MAINTAIN BODY POSITION^4^232
+87 ;;^UTILITY(U,$J,358.4,2536,0)
+88 ;;=EDUCATION^6^232
+89 ;;^UTILITY(U,$J,358.4,2537,0)
+90 ;;=FITTING/ORIENTATION DEVICE^7^232
+91 ;;^UTILITY(U,$J,358.4,2538,0)
+92 ;;=MEMORY G-CODES^10^232
+93 ;;^UTILITY(U,$J,358.4,2539,0)
+94 ;;=MOBILITY G-CODES^11^232
+95 ;;^UTILITY(U,$J,358.4,2540,0)
+96 ;;=SPEECH LANGUAGE PATHOLOGY^14^232
+97 ;;^UTILITY(U,$J,358.4,2541,0)
+98 ;;=SELF-CARE G-CODES^16^232
+99 ;;^UTILITY(U,$J,358.4,2542,0)
+100 ;;=SPEECH G-CODES^18^232
+101 ;;^UTILITY(U,$J,358.4,2543,0)
+102 ;;=SPOKEN LANGUAGE EXPRESSION G-CODES^19^232
+103 ;;^UTILITY(U,$J,358.4,2544,0)
+104 ;;=SPOKEN LANGUAGE G-CODES^20^232
+105 ;;^UTILITY(U,$J,358.4,2545,0)
+106 ;;=SWALLOWING G-CODES^21^232
+107 ;;^UTILITY(U,$J,358.4,2546,0)
+108 ;;=VOICE G-CODES^22^232
+109 ;;^UTILITY(U,$J,358.4,2547,0)
+110 ;;=DEVELOPMENTAL DISORDERS^1^233
+111 ;;^UTILITY(U,$J,358.4,2548,0)
+112 ;;=LATE EFFECTS OF CEREBROVASCULAR DISEASE^2^233
+113 ;;^UTILITY(U,$J,358.4,2549,0)
+114 ;;=VOCAL FOLD DISORDERS^3^233
+115 ;;^UTILITY(U,$J,358.4,2550,0)
+116 ;;=SWALLOWING DISORDERS^4^233
+117 ;;^UTILITY(U,$J,358.4,2551,0)
+118 ;;=SPEECH DISORDERS^5^233
