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

IBDEI3IQ.m

Go to the documentation of this file.
  1. IBDEI3IQ ; ; 19-NOV-2015
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
  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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,358.4,1875,0)
  1. ;;=CONSULTATIONS^3^171
  1. ;;^UTILITY(U,$J,358.4,1876,0)
  1. ;;=POST OP^4^171
  1. ;;^UTILITY(U,$J,358.4,1877,0)
  1. ;;=ANKLE^2^172
  1. ;;^UTILITY(U,$J,358.4,1878,0)
  1. ;;=ELBOW^3^172
  1. ;;^UTILITY(U,$J,358.4,1879,0)
  1. ;;=FEMUR/THIGH^5^172
  1. ;;^UTILITY(U,$J,358.4,1880,0)
  1. ;;=FOOT/TOE^7^172
  1. ;;^UTILITY(U,$J,358.4,1881,0)
  1. ;;=FOREARM^8^172
  1. ;;^UTILITY(U,$J,358.4,1882,0)
  1. ;;=HAND/FINGER^9^172
  1. ;;^UTILITY(U,$J,358.4,1883,0)
  1. ;;=HUMERUS^10^172
  1. ;;^UTILITY(U,$J,358.4,1884,0)
  1. ;;=KNEE^11^172
  1. ;;^UTILITY(U,$J,358.4,1885,0)
  1. ;;=OTHER ^12^172
  1. ;;^UTILITY(U,$J,358.4,1886,0)
  1. ;;=PAIN^13^172
  1. ;;^UTILITY(U,$J,358.4,1887,0)
  1. ;;=PELVIS/HIP^14^172
  1. ;;^UTILITY(U,$J,358.4,1888,0)
  1. ;;=SHOULDER^17^172
  1. ;;^UTILITY(U,$J,358.4,1889,0)
  1. ;;=TIBIA/FIBULA^18^172
  1. ;;^UTILITY(U,$J,358.4,1890,0)
  1. ;;=WRIST^19^172
  1. ;;^UTILITY(U,$J,358.4,1891,0)
  1. ;;=AMPUTATION STATUS^1^172
  1. ;;^UTILITY(U,$J,358.4,1892,0)
  1. ;;=POST-OP/FOLLOW-UP CARE SUTURES/DRESSINGS^15^172
  1. ;;^UTILITY(U,$J,358.4,1893,0)
  1. ;;=F/U FOR HEALED FX^4^172
  1. ;;^UTILITY(U,$J,358.4,1894,0)
  1. ;;=SECONDARY DX ONLY^16^172
  1. ;;^UTILITY(U,$J,358.4,1895,0)
  1. ;;=ESTABLISHED PATIENT^1^173
  1. ;;^UTILITY(U,$J,358.4,1896,0)
  1. ;;=CONSULTATION-CLINICIAN^2^173
  1. ;;^UTILITY(U,$J,358.4,1897,0)
  1. ;;=NEW PATIENT^3^173
  1. ;;^UTILITY(U,$J,358.4,1898,0)
  1. ;;=NEUROLYSIS^1^174
  1. ;;^UTILITY(U,$J,358.4,1899,0)
  1. ;;=NEUROSTIMULATORS^2^174
  1. ;;^UTILITY(U,$J,358.4,1900,0)
  1. ;;=OTHER PROCEDURES^3^174
  1. ;;^UTILITY(U,$J,358.4,1901,0)
  1. ;;=SPINAL PROCEDURES/NERVE BLOCKS^4^174
  1. ;;^UTILITY(U,$J,358.4,1902,0)
  1. ;;=TEAM CONFERENCE^5^174
  1. ;;^UTILITY(U,$J,358.4,1903,0)
  1. ;;=ABDOMINAL PAIN^1^175
  1. ;;^UTILITY(U,$J,358.4,1904,0)
  1. ;;=CARDIAC^2^175
  1. ;;^UTILITY(U,$J,358.4,1905,0)
  1. ;;=DIGESTIVE SYSTEM DISEASES^3^175
  1. ;;^UTILITY(U,$J,358.4,1906,0)
  1. ;;=NERVOUS SYSTEM DISEASES^7^175
  1. ;;^UTILITY(U,$J,358.4,1907,0)
  1. ;;=GENERAL SIGNS & SYMPTOMS^4^175
  1. ;;^UTILITY(U,$J,358.4,1908,0)
  1. ;;=INFECTIOUS DISEASES^5^175
  1. ;;^UTILITY(U,$J,358.4,1909,0)
  1. ;;=MALIGNANT NEOPLASMS^6^175
  1. ;;^UTILITY(U,$J,358.4,1910,0)
  1. ;;=OTHER^8^175
  1. ;;^UTILITY(U,$J,358.4,1911,0)
  1. ;;=PRE/POST SURGERY^9^175
  1. ;;^UTILITY(U,$J,358.4,1912,0)
  1. ;;=RESPIRATORY^10^175
  1. ;;^UTILITY(U,$J,358.4,1913,0)
  1. ;;=PEER SERVICES^1^176
  1. ;;^UTILITY(U,$J,358.4,1914,0)
  1. ;;=ABUSE AND NEGLECT^1^177
  1. ;;^UTILITY(U,$J,358.4,1915,0)
  1. ;;=ANXIETY DISORDERS^3^177
  1. ;;^UTILITY(U,$J,358.4,1916,0)
  1. ;;=BIPOLAR DISORDERS^4^177
  1. ;;^UTILITY(U,$J,358.4,1917,0)
  1. ;;=DELIRIUM^7^177
  1. ;;^UTILITY(U,$J,358.4,1918,0)
  1. ;;=DEMENTIA/NEUROCOGNITIVE DISORDERS^8^177
  1. ;;^UTILITY(U,$J,358.4,1919,0)
  1. ;;=DEPRESSIVE DISORDERS^9^177
  1. ;;^UTILITY(U,$J,358.4,1920,0)
  1. ;;=DISSOCIATIVE DISORDERS ^10^177
  1. ;;^UTILITY(U,$J,358.4,1921,0)
  1. ;;=EATING DISORDERS^11^177
  1. ;;^UTILITY(U,$J,358.4,1922,0)
  1. ;;=EDUCATIONAL/OCCUPATIONAL PROBLEMS^12^177
  1. ;;^UTILITY(U,$J,358.4,1923,0)
  1. ;;=GENDER DYSPHORIA^13^177
  1. ;;^UTILITY(U,$J,358.4,1924,0)
  1. ;;=HOUSING/ECONOMIC PROBLEMS^14^177
  1. ;;^UTILITY(U,$J,358.4,1925,0)
  1. ;;=MEDICATION-INDUCED MOVEMENT DISORDERS^16^177
  1. ;;^UTILITY(U,$J,358.4,1926,0)
  1. ;;=OBSESSIVE-COMPULSIVE & RELATED DISORDERS^17^177
  1. ;;^UTILITY(U,$J,358.4,1927,0)
  1. ;;=ORGANIC DISORDERS^18^177
  1. ;;^UTILITY(U,$J,358.4,1928,0)
  1. ;;=PERSONAL HX & CURRENT CIRCUMSTANCES^20^177
  1. ;;^UTILITY(U,$J,358.4,1929,0)
  1. ;;=ADHD^2^177
  1. ;;^UTILITY(U,$J,358.4,1930,0)
  1. ;;=COUNSELING/MED ADVICE^5^177
  1. ;;^UTILITY(U,$J,358.4,1931,0)
  1. ;;=SOCIAL ENVIRONMENT PROBLEMS^28^177
  1. ;;^UTILITY(U,$J,358.4,1932,0)
  1. ;;=PARAPHILIC DISORDERS^19^177
  1. ;;^UTILITY(U,$J,358.4,1933,0)
  1. ;;=PERSONALITY DISORDERS^21^177
  1. ;;^UTILITY(U,$J,358.4,1934,0)
  1. ;;=CRIME/LEGAL SYSTEM PROBLEMS^6^177
  1. ;;^UTILITY(U,$J,358.4,1935,0)
  1. ;;=PSYCHOSOCIAL/PERSONAL/ENVIRONMENTAL^22^177