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.
  1. IBDEI1MC ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.4,939,0)
  1. ;;=EVALUATIONS^4^71
  1. ;;^UTILITY(U,$J,358.4,940,0)
  1. ;;=SPINAL INJECTION CODES^8^71
  1. ;;^UTILITY(U,$J,358.4,941,0)
  1. ;;=SUPPLIES^9^71
  1. ;;^UTILITY(U,$J,358.4,942,0)
  1. ;;=TREATMENT PROCEDURES^10^71
  1. ;;^UTILITY(U,$J,358.4,943,0)
  1. ;;=TRIGGER POINT INJECTIONS^11^71
  1. ;;^UTILITY(U,$J,358.4,944,0)
  1. ;;=ACUPUNCTURE^1^71
  1. ;;^UTILITY(U,$J,358.4,945,0)
  1. ;;=NAILS^7^71
  1. ;;^UTILITY(U,$J,358.4,946,0)
  1. ;;=INTRATHECAL BACLOFED PUMP REFILL/ADJ^6^71
  1. ;;^UTILITY(U,$J,358.4,947,0)
  1. ;;=NEW PT-OFFICE^2^72
  1. ;;^UTILITY(U,$J,358.4,948,0)
  1. ;;=ESTABLISHED PT-OFFICE^1^72
  1. ;;^UTILITY(U,$J,358.4,949,0)
  1. ;;=CONSULTATIONS^3^72
  1. ;;^UTILITY(U,$J,358.4,950,0)
  1. ;;=HOME VISIT-EST PT^4^72
  1. ;;^UTILITY(U,$J,358.4,951,0)
  1. ;;=HOME VISIT-NEW PT^5^72
  1. ;;^UTILITY(U,$J,358.4,952,0)
  1. ;;=CARDIOVASCULAR^2^73
  1. ;;^UTILITY(U,$J,358.4,953,0)
  1. ;;=EXTERNAL CAUSES (SECONDARY DX ONLY)^3^73
  1. ;;^UTILITY(U,$J,358.4,954,0)
  1. ;;=MENTAL HEALTH^4^73
  1. ;;^UTILITY(U,$J,358.4,955,0)
  1. ;;=MUSCULOSKELETAL^5^73
  1. ;;^UTILITY(U,$J,358.4,956,0)
  1. ;;=NEPHRO/GU/GI^6^73
  1. ;;^UTILITY(U,$J,358.4,957,0)
  1. ;;=PARAPLEGIA^8^73
  1. ;;^UTILITY(U,$J,358.4,958,0)
  1. ;;=QUADRAPLEGIA^9^73
  1. ;;^UTILITY(U,$J,358.4,959,0)
  1. ;;=ULCERS^13^73
  1. ;;^UTILITY(U,$J,358.4,960,0)
  1. ;;=OTHER HEALTH STATUS FACTORS^7^73
  1. ;;^UTILITY(U,$J,358.4,961,0)
  1. ;;=COMMON DIAGNOSES^1^73
  1. ;;^UTILITY(U,$J,358.4,962,0)
  1. ;;=SUICIDAL IDEATIONS/ATTEMPTS^12^73
  1. ;;^UTILITY(U,$J,358.4,963,0)
  1. ;;=SPORT PARTICIPATION^11^73
  1. ;;^UTILITY(U,$J,358.4,964,0)
  1. ;;=SPASM OF MUSCLE (SPASTICITY)^10^73
  1. ;;^UTILITY(U,$J,358.4,965,0)
  1. ;;=ESTABLISHED PATIENT^1^74
  1. ;;^UTILITY(U,$J,358.4,966,0)
  1. ;;=CONSULTATIONS^2^74
  1. ;;^UTILITY(U,$J,358.4,967,0)
  1. ;;=TELEHEALTH FACILITY FEE^1^75
  1. ;;^UTILITY(U,$J,358.4,968,0)
  1. ;;=A DIAGNOSES^2^76
  1. ;;^UTILITY(U,$J,358.4,969,0)
  1. ;;=D DIAGNOSES^5^76
  1. ;;^UTILITY(U,$J,358.4,970,0)
  1. ;;=E DIAGNOSES^6^76
  1. ;;^UTILITY(U,$J,358.4,971,0)
  1. ;;=F DIAGNOSES^7^76
  1. ;;^UTILITY(U,$J,358.4,972,0)
  1. ;;=I DIAGNOSES^10^76
  1. ;;^UTILITY(U,$J,358.4,973,0)
  1. ;;=K DIAGNOSES^11^76
  1. ;;^UTILITY(U,$J,358.4,974,0)
  1. ;;=M DIAGNOSES^13^76
  1. ;;^UTILITY(U,$J,358.4,975,0)
  1. ;;=N DIAGNOSES^14^76
  1. ;;^UTILITY(U,$J,358.4,976,0)
  1. ;;=P DIAGNOSES^16^76
  1. ;;^UTILITY(U,$J,358.4,977,0)
  1. ;;=R DIAGNOSES^17^76
  1. ;;^UTILITY(U,$J,358.4,978,0)
  1. ;;=S DIAGNOSES^18^76
  1. ;;^UTILITY(U,$J,358.4,979,0)
  1. ;;=T DIAGNOSES^20^76
  1. ;;^UTILITY(U,$J,358.4,980,0)
  1. ;;=V DIAGNOSES^22^76
  1. ;;^UTILITY(U,$J,358.4,981,0)
  1. ;;=X DIAGNOSES^24^76
  1. ;;^UTILITY(U,$J,358.4,982,0)
  1. ;;=C DIAGNOSES^4^76
  1. ;;^UTILITY(U,$J,358.4,983,0)
  1. ;;=W DIAGNOSES^23^76
  1. ;;^UTILITY(U,$J,358.4,984,0)
  1. ;;=B DIAGNOSES^3^76
  1. ;;^UTILITY(U,$J,358.4,985,0)
  1. ;;=G DIAGNOSES^8^76
  1. ;;^UTILITY(U,$J,358.4,986,0)
  1. ;;=H DIAGNOSES^8^76
  1. ;;^UTILITY(U,$J,358.4,987,0)
  1. ;;=L DIAGNOSES^12^76
  1. ;;^UTILITY(U,$J,358.4,988,0)
  1. ;;=O DIAGNOSES^15^76
  1. ;;^UTILITY(U,$J,358.4,989,0)
  1. ;;=U DIAGNOSES^21^76
  1. ;;^UTILITY(U,$J,358.4,990,0)
  1. ;;=Z DIAGNOSES^25^76
  1. ;;^UTILITY(U,$J,358.4,991,0)
  1. ;;=SUICIDE IDEATIONS/ATTEMPTS^19^76
  1. ;;^UTILITY(U,$J,358.4,992,0)
  1. ;;=MOST COMMON DX^1^76
  1. ;;^UTILITY(U,$J,358.4,993,0)
  1. ;;=TELEHEALTH FACILITY FEE^1^77
  1. ;;^UTILITY(U,$J,358.4,994,0)
  1. ;;=INFECTIOUS DISEASE^12^78
  1. ;;^UTILITY(U,$J,358.4,995,0)
  1. ;;=NEOPLASMS^14^78
  1. ;;^UTILITY(U,$J,358.4,996,0)
  1. ;;=HEMATOLOGY/ENDOCRINE^9^78
  1. ;;^UTILITY(U,$J,358.4,997,0)
  1. ;;=MENTAL HEALTH^13^78
  1. ;;^UTILITY(U,$J,358.4,998,0)
  1. ;;=NEUROLOGY^15^78
  1. ;;^UTILITY(U,$J,358.4,999,0)
  1. ;;=GI^7^78
  1. ;;^UTILITY(U,$J,358.4,1000,0)
  1. ;;=CARDIOLOGY^3^78