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

IBDEI1K9.m

Go to the documentation of this file.
  1. IBDEI1K9 ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,25309,1,3,0)
  1. ;;=3^Panic Disorder
  1. ;;^UTILITY(U,$J,358.3,25309,1,4,0)
  1. ;;=4^F41.0
  1. ;;^UTILITY(U,$J,358.3,25309,2)
  1. ;;=^5003564
  1. ;;^UTILITY(U,$J,358.3,25310,0)
  1. ;;=F41.1^^92^1148^10
  1. ;;^UTILITY(U,$J,358.3,25310,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25310,1,3,0)
  1. ;;=3^Generalized Anxiety Disorder
  1. ;;^UTILITY(U,$J,358.3,25310,1,4,0)
  1. ;;=4^F41.1
  1. ;;^UTILITY(U,$J,358.3,25310,2)
  1. ;;=^50059
  1. ;;^UTILITY(U,$J,358.3,25311,0)
  1. ;;=F40.10^^92^1148^17
  1. ;;^UTILITY(U,$J,358.3,25311,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25311,1,3,0)
  1. ;;=3^Social Anxiety Disorder (Social Phobia)
  1. ;;^UTILITY(U,$J,358.3,25311,1,4,0)
  1. ;;=4^F40.10
  1. ;;^UTILITY(U,$J,358.3,25311,2)
  1. ;;=^5003544
  1. ;;^UTILITY(U,$J,358.3,25312,0)
  1. ;;=F40.218^^92^1148^2
  1. ;;^UTILITY(U,$J,358.3,25312,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25312,1,3,0)
  1. ;;=3^Animal Phobia
  1. ;;^UTILITY(U,$J,358.3,25312,1,4,0)
  1. ;;=4^F40.218
  1. ;;^UTILITY(U,$J,358.3,25312,2)
  1. ;;=^5003547
  1. ;;^UTILITY(U,$J,358.3,25313,0)
  1. ;;=F40.228^^92^1148^11
  1. ;;^UTILITY(U,$J,358.3,25313,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25313,1,3,0)
  1. ;;=3^Natural Environment Phobia
  1. ;;^UTILITY(U,$J,358.3,25313,1,4,0)
  1. ;;=4^F40.228
  1. ;;^UTILITY(U,$J,358.3,25313,2)
  1. ;;=^5003549
  1. ;;^UTILITY(U,$J,358.3,25314,0)
  1. ;;=F40.230^^92^1148^6
  1. ;;^UTILITY(U,$J,358.3,25314,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25314,1,3,0)
  1. ;;=3^Fear of Blood
  1. ;;^UTILITY(U,$J,358.3,25314,1,4,0)
  1. ;;=4^F40.230
  1. ;;^UTILITY(U,$J,358.3,25314,2)
  1. ;;=^5003550
  1. ;;^UTILITY(U,$J,358.3,25315,0)
  1. ;;=F40.231^^92^1148^7
  1. ;;^UTILITY(U,$J,358.3,25315,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25315,1,3,0)
  1. ;;=3^Fear of Injections & Transfusions
  1. ;;^UTILITY(U,$J,358.3,25315,1,4,0)
  1. ;;=4^F40.231
  1. ;;^UTILITY(U,$J,358.3,25315,2)
  1. ;;=^5003551
  1. ;;^UTILITY(U,$J,358.3,25316,0)
  1. ;;=F40.232^^92^1148^9
  1. ;;^UTILITY(U,$J,358.3,25316,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25316,1,3,0)
  1. ;;=3^Fear of Other Medical Care
  1. ;;^UTILITY(U,$J,358.3,25316,1,4,0)
  1. ;;=4^F40.232
  1. ;;^UTILITY(U,$J,358.3,25316,2)
  1. ;;=^5003552
  1. ;;^UTILITY(U,$J,358.3,25317,0)
  1. ;;=F40.233^^92^1148^8
  1. ;;^UTILITY(U,$J,358.3,25317,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25317,1,3,0)
  1. ;;=3^Fear of Injury
  1. ;;^UTILITY(U,$J,358.3,25317,1,4,0)
  1. ;;=4^F40.233
  1. ;;^UTILITY(U,$J,358.3,25317,2)
  1. ;;=^5003553
  1. ;;^UTILITY(U,$J,358.3,25318,0)
  1. ;;=F40.248^^92^1148^16
  1. ;;^UTILITY(U,$J,358.3,25318,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25318,1,3,0)
  1. ;;=3^Situational Phobia
  1. ;;^UTILITY(U,$J,358.3,25318,1,4,0)
  1. ;;=4^F40.248
  1. ;;^UTILITY(U,$J,358.3,25318,2)
  1. ;;=^5003558
  1. ;;^UTILITY(U,$J,358.3,25319,0)
  1. ;;=F93.0^^92^1148^15
  1. ;;^UTILITY(U,$J,358.3,25319,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25319,1,3,0)
  1. ;;=3^Separation Anxiety Disorder
  1. ;;^UTILITY(U,$J,358.3,25319,1,4,0)
  1. ;;=4^F93.0
  1. ;;^UTILITY(U,$J,358.3,25319,2)
  1. ;;=^5003702
  1. ;;^UTILITY(U,$J,358.3,25320,0)
  1. ;;=F40.00^^92^1148^1
  1. ;;^UTILITY(U,$J,358.3,25320,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25320,1,3,0)
  1. ;;=3^Agrophobia
  1. ;;^UTILITY(U,$J,358.3,25320,1,4,0)
  1. ;;=4^F40.00
  1. ;;^UTILITY(U,$J,358.3,25320,2)
  1. ;;=^5003542
  1. ;;^UTILITY(U,$J,358.3,25321,0)
  1. ;;=F41.8^^92^1148^4
  1. ;;^UTILITY(U,$J,358.3,25321,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25321,1,3,0)
  1. ;;=3^Anxiety Disorder,Other Specified
  1. ;;^UTILITY(U,$J,358.3,25321,1,4,0)
  1. ;;=4^F41.8
  1. ;;^UTILITY(U,$J,358.3,25321,2)
  1. ;;=^5003566
  1. ;;^UTILITY(U,$J,358.3,25322,0)
  1. ;;=F40.298^^92^1148^13