- IBDEI1MC ; ; 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,939,0)
- ;;=EVALUATIONS^4^71
- ;;^UTILITY(U,$J,358.4,940,0)
- ;;=SPINAL INJECTION CODES^8^71
- ;;^UTILITY(U,$J,358.4,941,0)
- ;;=SUPPLIES^9^71
- ;;^UTILITY(U,$J,358.4,942,0)
- ;;=TREATMENT PROCEDURES^10^71
- ;;^UTILITY(U,$J,358.4,943,0)
- ;;=TRIGGER POINT INJECTIONS^11^71
- ;;^UTILITY(U,$J,358.4,944,0)
- ;;=ACUPUNCTURE^1^71
- ;;^UTILITY(U,$J,358.4,945,0)
- ;;=NAILS^7^71
- ;;^UTILITY(U,$J,358.4,946,0)
- ;;=INTRATHECAL BACLOFED PUMP REFILL/ADJ^6^71
- ;;^UTILITY(U,$J,358.4,947,0)
- ;;=NEW PT-OFFICE^2^72
- ;;^UTILITY(U,$J,358.4,948,0)
- ;;=ESTABLISHED PT-OFFICE^1^72
- ;;^UTILITY(U,$J,358.4,949,0)
- ;;=CONSULTATIONS^3^72
- ;;^UTILITY(U,$J,358.4,950,0)
- ;;=HOME VISIT-EST PT^4^72
- ;;^UTILITY(U,$J,358.4,951,0)
- ;;=HOME VISIT-NEW PT^5^72
- ;;^UTILITY(U,$J,358.4,952,0)
- ;;=CARDIOVASCULAR^2^73
- ;;^UTILITY(U,$J,358.4,953,0)
- ;;=EXTERNAL CAUSES (SECONDARY DX ONLY)^3^73
- ;;^UTILITY(U,$J,358.4,954,0)
- ;;=MENTAL HEALTH^4^73
- ;;^UTILITY(U,$J,358.4,955,0)
- ;;=MUSCULOSKELETAL^5^73
- ;;^UTILITY(U,$J,358.4,956,0)
- ;;=NEPHRO/GU/GI^6^73
- ;;^UTILITY(U,$J,358.4,957,0)
- ;;=PARAPLEGIA^8^73
- ;;^UTILITY(U,$J,358.4,958,0)
- ;;=QUADRAPLEGIA^9^73
- ;;^UTILITY(U,$J,358.4,959,0)
- ;;=ULCERS^13^73
- ;;^UTILITY(U,$J,358.4,960,0)
- ;;=OTHER HEALTH STATUS FACTORS^7^73
- ;;^UTILITY(U,$J,358.4,961,0)
- ;;=COMMON DIAGNOSES^1^73
- ;;^UTILITY(U,$J,358.4,962,0)
- ;;=SUICIDAL IDEATIONS/ATTEMPTS^12^73
- ;;^UTILITY(U,$J,358.4,963,0)
- ;;=SPORT PARTICIPATION^11^73
- ;;^UTILITY(U,$J,358.4,964,0)
- ;;=SPASM OF MUSCLE (SPASTICITY)^10^73
- ;;^UTILITY(U,$J,358.4,965,0)
- ;;=ESTABLISHED PATIENT^1^74
- ;;^UTILITY(U,$J,358.4,966,0)
- ;;=CONSULTATIONS^2^74
- ;;^UTILITY(U,$J,358.4,967,0)
- ;;=TELEHEALTH FACILITY FEE^1^75
- ;;^UTILITY(U,$J,358.4,968,0)
- ;;=A DIAGNOSES^2^76
- ;;^UTILITY(U,$J,358.4,969,0)
- ;;=D DIAGNOSES^5^76
- ;;^UTILITY(U,$J,358.4,970,0)
- ;;=E DIAGNOSES^6^76
- ;;^UTILITY(U,$J,358.4,971,0)
- ;;=F DIAGNOSES^7^76
- ;;^UTILITY(U,$J,358.4,972,0)
- ;;=I DIAGNOSES^10^76
- ;;^UTILITY(U,$J,358.4,973,0)
- ;;=K DIAGNOSES^11^76
- ;;^UTILITY(U,$J,358.4,974,0)
- ;;=M DIAGNOSES^13^76
- ;;^UTILITY(U,$J,358.4,975,0)
- ;;=N DIAGNOSES^14^76
- ;;^UTILITY(U,$J,358.4,976,0)
- ;;=P DIAGNOSES^16^76
- ;;^UTILITY(U,$J,358.4,977,0)
- ;;=R DIAGNOSES^17^76
- ;;^UTILITY(U,$J,358.4,978,0)
- ;;=S DIAGNOSES^18^76
- ;;^UTILITY(U,$J,358.4,979,0)
- ;;=T DIAGNOSES^20^76
- ;;^UTILITY(U,$J,358.4,980,0)
- ;;=V DIAGNOSES^22^76
- ;;^UTILITY(U,$J,358.4,981,0)
- ;;=X DIAGNOSES^24^76
- ;;^UTILITY(U,$J,358.4,982,0)
- ;;=C DIAGNOSES^4^76
- ;;^UTILITY(U,$J,358.4,983,0)
- ;;=W DIAGNOSES^23^76
- ;;^UTILITY(U,$J,358.4,984,0)
- ;;=B DIAGNOSES^3^76
- ;;^UTILITY(U,$J,358.4,985,0)
- ;;=G DIAGNOSES^8^76
- ;;^UTILITY(U,$J,358.4,986,0)
- ;;=H DIAGNOSES^8^76
- ;;^UTILITY(U,$J,358.4,987,0)
- ;;=L DIAGNOSES^12^76
- ;;^UTILITY(U,$J,358.4,988,0)
- ;;=O DIAGNOSES^15^76
- ;;^UTILITY(U,$J,358.4,989,0)
- ;;=U DIAGNOSES^21^76
- ;;^UTILITY(U,$J,358.4,990,0)
- ;;=Z DIAGNOSES^25^76
- ;;^UTILITY(U,$J,358.4,991,0)
- ;;=SUICIDE IDEATIONS/ATTEMPTS^19^76
- ;;^UTILITY(U,$J,358.4,992,0)
- ;;=MOST COMMON DX^1^76
- ;;^UTILITY(U,$J,358.4,993,0)
- ;;=TELEHEALTH FACILITY FEE^1^77
- ;;^UTILITY(U,$J,358.4,994,0)
- ;;=INFECTIOUS DISEASE^12^78
- ;;^UTILITY(U,$J,358.4,995,0)
- ;;=NEOPLASMS^14^78
- ;;^UTILITY(U,$J,358.4,996,0)
- ;;=HEMATOLOGY/ENDOCRINE^9^78
- ;;^UTILITY(U,$J,358.4,997,0)
- ;;=MENTAL HEALTH^13^78
- ;;^UTILITY(U,$J,358.4,998,0)
- ;;=NEUROLOGY^15^78
- ;;^UTILITY(U,$J,358.4,999,0)
- ;;=GI^7^78
- ;;^UTILITY(U,$J,358.4,1000,0)
- ;;=CARDIOLOGY^3^78
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI1MC 3791 printed Feb 18, 2025@23:37:52 Page 2
- IBDEI1MC ; ; 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,939,0)
- +2 ;;=EVALUATIONS^4^71
- +3 ;;^UTILITY(U,$J,358.4,940,0)
- +4 ;;=SPINAL INJECTION CODES^8^71
- +5 ;;^UTILITY(U,$J,358.4,941,0)
- +6 ;;=SUPPLIES^9^71
- +7 ;;^UTILITY(U,$J,358.4,942,0)
- +8 ;;=TREATMENT PROCEDURES^10^71
- +9 ;;^UTILITY(U,$J,358.4,943,0)
- +10 ;;=TRIGGER POINT INJECTIONS^11^71
- +11 ;;^UTILITY(U,$J,358.4,944,0)
- +12 ;;=ACUPUNCTURE^1^71
- +13 ;;^UTILITY(U,$J,358.4,945,0)
- +14 ;;=NAILS^7^71
- +15 ;;^UTILITY(U,$J,358.4,946,0)
- +16 ;;=INTRATHECAL BACLOFED PUMP REFILL/ADJ^6^71
- +17 ;;^UTILITY(U,$J,358.4,947,0)
- +18 ;;=NEW PT-OFFICE^2^72
- +19 ;;^UTILITY(U,$J,358.4,948,0)
- +20 ;;=ESTABLISHED PT-OFFICE^1^72
- +21 ;;^UTILITY(U,$J,358.4,949,0)
- +22 ;;=CONSULTATIONS^3^72
- +23 ;;^UTILITY(U,$J,358.4,950,0)
- +24 ;;=HOME VISIT-EST PT^4^72
- +25 ;;^UTILITY(U,$J,358.4,951,0)
- +26 ;;=HOME VISIT-NEW PT^5^72
- +27 ;;^UTILITY(U,$J,358.4,952,0)
- +28 ;;=CARDIOVASCULAR^2^73
- +29 ;;^UTILITY(U,$J,358.4,953,0)
- +30 ;;=EXTERNAL CAUSES (SECONDARY DX ONLY)^3^73
- +31 ;;^UTILITY(U,$J,358.4,954,0)
- +32 ;;=MENTAL HEALTH^4^73
- +33 ;;^UTILITY(U,$J,358.4,955,0)
- +34 ;;=MUSCULOSKELETAL^5^73
- +35 ;;^UTILITY(U,$J,358.4,956,0)
- +36 ;;=NEPHRO/GU/GI^6^73
- +37 ;;^UTILITY(U,$J,358.4,957,0)
- +38 ;;=PARAPLEGIA^8^73
- +39 ;;^UTILITY(U,$J,358.4,958,0)
- +40 ;;=QUADRAPLEGIA^9^73
- +41 ;;^UTILITY(U,$J,358.4,959,0)
- +42 ;;=ULCERS^13^73
- +43 ;;^UTILITY(U,$J,358.4,960,0)
- +44 ;;=OTHER HEALTH STATUS FACTORS^7^73
- +45 ;;^UTILITY(U,$J,358.4,961,0)
- +46 ;;=COMMON DIAGNOSES^1^73
- +47 ;;^UTILITY(U,$J,358.4,962,0)
- +48 ;;=SUICIDAL IDEATIONS/ATTEMPTS^12^73
- +49 ;;^UTILITY(U,$J,358.4,963,0)
- +50 ;;=SPORT PARTICIPATION^11^73
- +51 ;;^UTILITY(U,$J,358.4,964,0)
- +52 ;;=SPASM OF MUSCLE (SPASTICITY)^10^73
- +53 ;;^UTILITY(U,$J,358.4,965,0)
- +54 ;;=ESTABLISHED PATIENT^1^74
- +55 ;;^UTILITY(U,$J,358.4,966,0)
- +56 ;;=CONSULTATIONS^2^74
- +57 ;;^UTILITY(U,$J,358.4,967,0)
- +58 ;;=TELEHEALTH FACILITY FEE^1^75
- +59 ;;^UTILITY(U,$J,358.4,968,0)
- +60 ;;=A DIAGNOSES^2^76
- +61 ;;^UTILITY(U,$J,358.4,969,0)
- +62 ;;=D DIAGNOSES^5^76
- +63 ;;^UTILITY(U,$J,358.4,970,0)
- +64 ;;=E DIAGNOSES^6^76
- +65 ;;^UTILITY(U,$J,358.4,971,0)
- +66 ;;=F DIAGNOSES^7^76
- +67 ;;^UTILITY(U,$J,358.4,972,0)
- +68 ;;=I DIAGNOSES^10^76
- +69 ;;^UTILITY(U,$J,358.4,973,0)
- +70 ;;=K DIAGNOSES^11^76
- +71 ;;^UTILITY(U,$J,358.4,974,0)
- +72 ;;=M DIAGNOSES^13^76
- +73 ;;^UTILITY(U,$J,358.4,975,0)
- +74 ;;=N DIAGNOSES^14^76
- +75 ;;^UTILITY(U,$J,358.4,976,0)
- +76 ;;=P DIAGNOSES^16^76
- +77 ;;^UTILITY(U,$J,358.4,977,0)
- +78 ;;=R DIAGNOSES^17^76
- +79 ;;^UTILITY(U,$J,358.4,978,0)
- +80 ;;=S DIAGNOSES^18^76
- +81 ;;^UTILITY(U,$J,358.4,979,0)
- +82 ;;=T DIAGNOSES^20^76
- +83 ;;^UTILITY(U,$J,358.4,980,0)
- +84 ;;=V DIAGNOSES^22^76
- +85 ;;^UTILITY(U,$J,358.4,981,0)
- +86 ;;=X DIAGNOSES^24^76
- +87 ;;^UTILITY(U,$J,358.4,982,0)
- +88 ;;=C DIAGNOSES^4^76
- +89 ;;^UTILITY(U,$J,358.4,983,0)
- +90 ;;=W DIAGNOSES^23^76
- +91 ;;^UTILITY(U,$J,358.4,984,0)
- +92 ;;=B DIAGNOSES^3^76
- +93 ;;^UTILITY(U,$J,358.4,985,0)
- +94 ;;=G DIAGNOSES^8^76
- +95 ;;^UTILITY(U,$J,358.4,986,0)
- +96 ;;=H DIAGNOSES^8^76
- +97 ;;^UTILITY(U,$J,358.4,987,0)
- +98 ;;=L DIAGNOSES^12^76
- +99 ;;^UTILITY(U,$J,358.4,988,0)
- +100 ;;=O DIAGNOSES^15^76
- +101 ;;^UTILITY(U,$J,358.4,989,0)
- +102 ;;=U DIAGNOSES^21^76
- +103 ;;^UTILITY(U,$J,358.4,990,0)
- +104 ;;=Z DIAGNOSES^25^76
- +105 ;;^UTILITY(U,$J,358.4,991,0)
- +106 ;;=SUICIDE IDEATIONS/ATTEMPTS^19^76
- +107 ;;^UTILITY(U,$J,358.4,992,0)
- +108 ;;=MOST COMMON DX^1^76
- +109 ;;^UTILITY(U,$J,358.4,993,0)
- +110 ;;=TELEHEALTH FACILITY FEE^1^77
- +111 ;;^UTILITY(U,$J,358.4,994,0)
- +112 ;;=INFECTIOUS DISEASE^12^78
- +113 ;;^UTILITY(U,$J,358.4,995,0)
- +114 ;;=NEOPLASMS^14^78
- +115 ;;^UTILITY(U,$J,358.4,996,0)
- +116 ;;=HEMATOLOGY/ENDOCRINE^9^78
- +117 ;;^UTILITY(U,$J,358.4,997,0)
- +118 ;;=MENTAL HEALTH^13^78
- +119 ;;^UTILITY(U,$J,358.4,998,0)
- +120 ;;=NEUROLOGY^15^78
- +121 ;;^UTILITY(U,$J,358.4,999,0)
- +122 ;;=GI^7^78
- +123 ;;^UTILITY(U,$J,358.4,1000,0)
- +124 ;;=CARDIOLOGY^3^78