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

IBDEI1PE.m

Go to the documentation of this file.
  1. IBDEI1PE ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. Q:'DIFQR(358.3) 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.3,27220,1,4,0)
  1. ;;=4^L98.1
  1. ;;^UTILITY(U,$J,358.3,27220,2)
  1. ;;=^186781
  1. ;;^UTILITY(U,$J,358.3,27221,0)
  1. ;;=N94.3^^110^1315^9
  1. ;;^UTILITY(U,$J,358.3,27221,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27221,1,3,0)
  1. ;;=3^Premenstrual Tension Syndrome
  1. ;;^UTILITY(U,$J,358.3,27221,1,4,0)
  1. ;;=4^N94.3
  1. ;;^UTILITY(U,$J,358.3,27221,2)
  1. ;;=^5015919
  1. ;;^UTILITY(U,$J,358.3,27222,0)
  1. ;;=F91.2^^110^1316^1
  1. ;;^UTILITY(U,$J,358.3,27222,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27222,1,3,0)
  1. ;;=3^Conduct D/O,Adolescent-Onset Type
  1. ;;^UTILITY(U,$J,358.3,27222,1,4,0)
  1. ;;=4^F91.2
  1. ;;^UTILITY(U,$J,358.3,27222,2)
  1. ;;=^5003699
  1. ;;^UTILITY(U,$J,358.3,27223,0)
  1. ;;=F91.1^^110^1316^2
  1. ;;^UTILITY(U,$J,358.3,27223,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27223,1,3,0)
  1. ;;=3^Conduct D/O,Childhood-Onset Type
  1. ;;^UTILITY(U,$J,358.3,27223,1,4,0)
  1. ;;=4^F91.1
  1. ;;^UTILITY(U,$J,358.3,27223,2)
  1. ;;=^5003698
  1. ;;^UTILITY(U,$J,358.3,27224,0)
  1. ;;=F91.9^^110^1316^3
  1. ;;^UTILITY(U,$J,358.3,27224,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27224,1,3,0)
  1. ;;=3^Conduct D/O,Unspec
  1. ;;^UTILITY(U,$J,358.3,27224,1,4,0)
  1. ;;=4^F91.9
  1. ;;^UTILITY(U,$J,358.3,27224,2)
  1. ;;=^5003701
  1. ;;^UTILITY(U,$J,358.3,27225,0)
  1. ;;=F63.81^^110^1316^6
  1. ;;^UTILITY(U,$J,358.3,27225,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27225,1,3,0)
  1. ;;=3^Intermittent Explosive D/O
  1. ;;^UTILITY(U,$J,358.3,27225,1,4,0)
  1. ;;=4^F63.81
  1. ;;^UTILITY(U,$J,358.3,27225,2)
  1. ;;=^5003644
  1. ;;^UTILITY(U,$J,358.3,27226,0)
  1. ;;=F63.2^^110^1316^7
  1. ;;^UTILITY(U,$J,358.3,27226,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27226,1,3,0)
  1. ;;=3^Kleptomania
  1. ;;^UTILITY(U,$J,358.3,27226,1,4,0)
  1. ;;=4^F63.2
  1. ;;^UTILITY(U,$J,358.3,27226,2)
  1. ;;=^5003642
  1. ;;^UTILITY(U,$J,358.3,27227,0)
  1. ;;=F91.3^^110^1316^8
  1. ;;^UTILITY(U,$J,358.3,27227,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27227,1,3,0)
  1. ;;=3^Oppositional Defiant D/O
  1. ;;^UTILITY(U,$J,358.3,27227,1,4,0)
  1. ;;=4^F91.3
  1. ;;^UTILITY(U,$J,358.3,27227,2)
  1. ;;=^331955
  1. ;;^UTILITY(U,$J,358.3,27228,0)
  1. ;;=F63.1^^110^1316^9
  1. ;;^UTILITY(U,$J,358.3,27228,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27228,1,3,0)
  1. ;;=3^Pyromania
  1. ;;^UTILITY(U,$J,358.3,27228,1,4,0)
  1. ;;=4^F63.1
  1. ;;^UTILITY(U,$J,358.3,27228,2)
  1. ;;=^5003641
  1. ;;^UTILITY(U,$J,358.3,27229,0)
  1. ;;=F91.8^^110^1316^4
  1. ;;^UTILITY(U,$J,358.3,27229,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27229,1,3,0)
  1. ;;=3^Disruptive,Impulse-Control & Conduct D/O,Oth
  1. ;;^UTILITY(U,$J,358.3,27229,1,4,0)
  1. ;;=4^F91.8
  1. ;;^UTILITY(U,$J,358.3,27229,2)
  1. ;;=^5003700
  1. ;;^UTILITY(U,$J,358.3,27230,0)
  1. ;;=R45.6^^110^1316^10
  1. ;;^UTILITY(U,$J,358.3,27230,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27230,1,3,0)
  1. ;;=3^Violent Behavior
  1. ;;^UTILITY(U,$J,358.3,27230,1,4,0)
  1. ;;=4^R45.6
  1. ;;^UTILITY(U,$J,358.3,27230,2)
  1. ;;=^5019467
  1. ;;^UTILITY(U,$J,358.3,27231,0)
  1. ;;=R45.850^^110^1316^5
  1. ;;^UTILITY(U,$J,358.3,27231,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27231,1,3,0)
  1. ;;=3^Homicidal Ideations
  1. ;;^UTILITY(U,$J,358.3,27231,1,4,0)
  1. ;;=4^R45.850
  1. ;;^UTILITY(U,$J,358.3,27231,2)
  1. ;;=^5019473
  1. ;;^UTILITY(U,$J,358.3,27232,0)
  1. ;;=F98.0^^110^1317^2
  1. ;;^UTILITY(U,$J,358.3,27232,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,27232,1,3,0)
  1. ;;=3^Enuresis
  1. ;;^UTILITY(U,$J,358.3,27232,1,4,0)
  1. ;;=4^F98.0
  1. ;;^UTILITY(U,$J,358.3,27232,2)
  1. ;;=^5003711
  1. ;;^UTILITY(U,$J,358.3,27233,0)
  1. ;;=F98.1^^110^1317^1
  1. ;;^UTILITY(U,$J,358.3,27233,1,0)
  1. ;;=^358.31IA^4^2