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

IBDEI3BR.m

Go to the documentation of this file.
  1. IBDEI3BR ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,1958,0)
  1. ;;=ESTABLISHED PATIENT^1^150
  1. ;;^UTILITY(U,$J,358.4,1959,0)
  1. ;;=CONSULTATIONS^3^150
  1. ;;^UTILITY(U,$J,358.4,1960,0)
  1. ;;=PREVENTIVE MED-EST PT^4^150
  1. ;;^UTILITY(U,$J,358.4,1961,0)
  1. ;;=PREVENTIVE MED-NEW PT^5^150
  1. ;;^UTILITY(U,$J,358.4,1962,0)
  1. ;;=INJECTION^10^151
  1. ;;^UTILITY(U,$J,358.4,1963,0)
  1. ;;=SKIN TEST^22^151
  1. ;;^UTILITY(U,$J,358.4,1964,0)
  1. ;;=NURSING PROCEDURES^12^151
  1. ;;^UTILITY(U,$J,358.4,1965,0)
  1. ;;=MINOR PROCEDURES^11^151
  1. ;;^UTILITY(U,$J,358.4,1966,0)
  1. ;;=SPLINTS^23^151
  1. ;;^UTILITY(U,$J,358.4,1967,0)
  1. ;;=EDUCATION/TRAINING^4^151
  1. ;;^UTILITY(U,$J,358.4,1968,0)
  1. ;;=ALLERGY SHOTS^2^151
  1. ;;^UTILITY(U,$J,358.4,1969,0)
  1. ;;=EKG^5^151
  1. ;;^UTILITY(U,$J,358.4,1970,0)
  1. ;;=BEHAVIORAL CHANGE INTERVENTION^3^151
  1. ;;^UTILITY(U,$J,358.4,1971,0)
  1. ;;=OTH PREVENTIVE MEDICINE SVCS^13^151
  1. ;;^UTILITY(U,$J,358.4,1972,0)
  1. ;;=GYN PROCEDURES^6^151
  1. ;;^UTILITY(U,$J,358.4,1973,0)
  1. ;;=RISK FACTOR REDUCTION^21^151
  1. ;;^UTILITY(U,$J,358.4,1974,0)
  1. ;;=PREVENTIVE GROUP COUNSELING^15^151
  1. ;;^UTILITY(U,$J,358.4,1975,0)
  1. ;;=PROLONGED SERVICE^18^151
  1. ;;^UTILITY(U,$J,358.4,1976,0)
  1. ;;=IMMUNIZATION ADMINISTRATION^8^151
  1. ;;^UTILITY(U,$J,358.4,1977,0)
  1. ;;=REPAIR-SIMPLE FACE/MUCOUS^19^151
  1. ;;^UTILITY(U,$J,358.4,1978,0)
  1. ;;=REPAIR-SIMPLE SCALP/NK/TRUNK^20^151
  1. ;;^UTILITY(U,$J,358.4,1979,0)
  1. ;;=PREVENTIVE MED-EST PT^16^151
  1. ;;^UTILITY(U,$J,358.4,1980,0)
  1. ;;=PREVENTIVE MED-NEW PT^17^151
  1. ;;^UTILITY(U,$J,358.4,1981,0)
  1. ;;=ADVANCE CARE PLANNING^1^151
  1. ;;^UTILITY(U,$J,358.4,1982,0)
  1. ;;=HEALTH BEHAVIORAL ASSESSMENT^7^151
  1. ;;^UTILITY(U,$J,358.4,1983,0)
  1. ;;=PHARMACY SERVICES^14^151
  1. ;;^UTILITY(U,$J,358.4,1984,0)
  1. ;;=IMMUNIZATIONS^9^151
  1. ;;^UTILITY(U,$J,358.4,1985,0)
  1. ;;=PC COMMON DIAGNOSES^1^152
  1. ;;^UTILITY(U,$J,358.4,1986,0)
  1. ;;=ADMINISTRATIVE TOPICS^15^152
  1. ;;^UTILITY(U,$J,358.4,1987,0)
  1. ;;=ANGINA^16^152
  1. ;;^UTILITY(U,$J,358.4,1988,0)
  1. ;;=ATHEROSCLEROSIS^17^152
  1. ;;^UTILITY(U,$J,358.4,1989,0)
  1. ;;=CARDIOVASCULAR^18^152
  1. ;;^UTILITY(U,$J,358.4,1990,0)
  1. ;;=DERMATOLOGY^22^152
  1. ;;^UTILITY(U,$J,358.4,1991,0)
  1. ;;=EAR DISORDERS^24^152
  1. ;;^UTILITY(U,$J,358.4,1992,0)
  1. ;;=EENT^25^152
  1. ;;^UTILITY(U,$J,358.4,1993,0)
  1. ;;=ENDOCRINE/METABOLIC^26^152
  1. ;;^UTILITY(U,$J,358.4,1994,0)
  1. ;;=EYE DISORDERS^27^152
  1. ;;^UTILITY(U,$J,358.4,1995,0)
  1. ;;=EYE INJURY^28^152
  1. ;;^UTILITY(U,$J,358.4,1996,0)
  1. ;;=GASTROENTEROLOGY^29^152
  1. ;;^UTILITY(U,$J,358.4,1997,0)
  1. ;;=GU/RENAL^30^152
  1. ;;^UTILITY(U,$J,358.4,1998,0)
  1. ;;=HEADACHE^31^152
  1. ;;^UTILITY(U,$J,358.4,1999,0)
  1. ;;=HEART VALVE DISEASE^32^152
  1. ;;^UTILITY(U,$J,358.4,2000,0)
  1. ;;=HEMATOLOGY/ONCOLOGY^33^152
  1. ;;^UTILITY(U,$J,358.4,2001,0)
  1. ;;=HISTORY OF ILLNESS^34^152
  1. ;;^UTILITY(U,$J,358.4,2002,0)
  1. ;;=INFECTIOUS DISEASE^35^152
  1. ;;^UTILITY(U,$J,358.4,2003,0)
  1. ;;=LIVER DISEASE^36^152
  1. ;;^UTILITY(U,$J,358.4,2004,0)
  1. ;;=MENTAL HEALTH^38^152
  1. ;;^UTILITY(U,$J,358.4,2005,0)
  1. ;;=MOVEMENT DISORDERS^39^152
  1. ;;^UTILITY(U,$J,358.4,2006,0)
  1. ;;=MUSCULOSKELETAL^40^152
  1. ;;^UTILITY(U,$J,358.4,2007,0)
  1. ;;=NEUROLOGY^41^152
  1. ;;^UTILITY(U,$J,358.4,2008,0)
  1. ;;=PAIN^42^152
  1. ;;^UTILITY(U,$J,358.4,2009,0)
  1. ;;=PREVENTIVE HEALTH^43^152
  1. ;;^UTILITY(U,$J,358.4,2010,0)
  1. ;;=PULMONARY^44^152
  1. ;;^UTILITY(U,$J,358.4,2011,0)
  1. ;;=SEXUAL TRAUMA^45^152
  1. ;;^UTILITY(U,$J,358.4,2012,0)
  1. ;;=SIGNS,SYMPTOMS,CONDITIONS^46^152
  1. ;;^UTILITY(U,$J,358.4,2013,0)
  1. ;;=SPRAIN/STRAIN-INITIAL ENCOUNTER^47^152
  1. ;;^UTILITY(U,$J,358.4,2014,0)
  1. ;;=SUBSTANCE DISORDERS^48^152