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

IBDEI1MC.m

Go to the documentation of this file.
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