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