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

IBDEI1OA.m

Go to the documentation of this file.
IBDEI1OA ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,26736,1,4,0)
 ;;=4^F40.228
 ;;^UTILITY(U,$J,358.3,26736,2)
 ;;=^5003549
 ;;^UTILITY(U,$J,358.3,26737,0)
 ;;=F40.230^^110^1284^6
 ;;^UTILITY(U,$J,358.3,26737,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26737,1,3,0)
 ;;=3^Fear of Blood
 ;;^UTILITY(U,$J,358.3,26737,1,4,0)
 ;;=4^F40.230
 ;;^UTILITY(U,$J,358.3,26737,2)
 ;;=^5003550
 ;;^UTILITY(U,$J,358.3,26738,0)
 ;;=F40.231^^110^1284^7
 ;;^UTILITY(U,$J,358.3,26738,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26738,1,3,0)
 ;;=3^Fear of Injections & Transfusions
 ;;^UTILITY(U,$J,358.3,26738,1,4,0)
 ;;=4^F40.231
 ;;^UTILITY(U,$J,358.3,26738,2)
 ;;=^5003551
 ;;^UTILITY(U,$J,358.3,26739,0)
 ;;=F40.232^^110^1284^9
 ;;^UTILITY(U,$J,358.3,26739,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26739,1,3,0)
 ;;=3^Fear of Other Medical Care
 ;;^UTILITY(U,$J,358.3,26739,1,4,0)
 ;;=4^F40.232
 ;;^UTILITY(U,$J,358.3,26739,2)
 ;;=^5003552
 ;;^UTILITY(U,$J,358.3,26740,0)
 ;;=F40.233^^110^1284^8
 ;;^UTILITY(U,$J,358.3,26740,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26740,1,3,0)
 ;;=3^Fear of Injury
 ;;^UTILITY(U,$J,358.3,26740,1,4,0)
 ;;=4^F40.233
 ;;^UTILITY(U,$J,358.3,26740,2)
 ;;=^5003553
 ;;^UTILITY(U,$J,358.3,26741,0)
 ;;=F40.248^^110^1284^16
 ;;^UTILITY(U,$J,358.3,26741,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26741,1,3,0)
 ;;=3^Situational Phobia 
 ;;^UTILITY(U,$J,358.3,26741,1,4,0)
 ;;=4^F40.248
 ;;^UTILITY(U,$J,358.3,26741,2)
 ;;=^5003558
 ;;^UTILITY(U,$J,358.3,26742,0)
 ;;=F93.0^^110^1284^15
 ;;^UTILITY(U,$J,358.3,26742,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26742,1,3,0)
 ;;=3^Separation Anxiety Disorder
 ;;^UTILITY(U,$J,358.3,26742,1,4,0)
 ;;=4^F93.0
 ;;^UTILITY(U,$J,358.3,26742,2)
 ;;=^5003702
 ;;^UTILITY(U,$J,358.3,26743,0)
 ;;=F40.00^^110^1284^1
 ;;^UTILITY(U,$J,358.3,26743,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26743,1,3,0)
 ;;=3^Agrophobia
 ;;^UTILITY(U,$J,358.3,26743,1,4,0)
 ;;=4^F40.00
 ;;^UTILITY(U,$J,358.3,26743,2)
 ;;=^5003542
 ;;^UTILITY(U,$J,358.3,26744,0)
 ;;=F41.8^^110^1284^4
 ;;^UTILITY(U,$J,358.3,26744,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26744,1,3,0)
 ;;=3^Anxiety Disorder,Other Specified
 ;;^UTILITY(U,$J,358.3,26744,1,4,0)
 ;;=4^F41.8
 ;;^UTILITY(U,$J,358.3,26744,2)
 ;;=^5003566
 ;;^UTILITY(U,$J,358.3,26745,0)
 ;;=F40.298^^110^1284^13
 ;;^UTILITY(U,$J,358.3,26745,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26745,1,3,0)
 ;;=3^Phobia,Other Specified
 ;;^UTILITY(U,$J,358.3,26745,1,4,0)
 ;;=4^F40.298
 ;;^UTILITY(U,$J,358.3,26745,2)
 ;;=^5003561
 ;;^UTILITY(U,$J,358.3,26746,0)
 ;;=F41.9^^110^1284^5
 ;;^UTILITY(U,$J,358.3,26746,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26746,1,3,0)
 ;;=3^Anxiety Disorder,Unsp
 ;;^UTILITY(U,$J,358.3,26746,1,4,0)
 ;;=4^F41.9
 ;;^UTILITY(U,$J,358.3,26746,2)
 ;;=^5003567
 ;;^UTILITY(U,$J,358.3,26747,0)
 ;;=F94.0^^110^1284^14
 ;;^UTILITY(U,$J,358.3,26747,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26747,1,3,0)
 ;;=3^Selective Mutism
 ;;^UTILITY(U,$J,358.3,26747,1,4,0)
 ;;=4^F94.0
 ;;^UTILITY(U,$J,358.3,26747,2)
 ;;=^331954
 ;;^UTILITY(U,$J,358.3,26748,0)
 ;;=F06.33^^110^1285^1
 ;;^UTILITY(U,$J,358.3,26748,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26748,1,3,0)
 ;;=3^Bipolar & Rel D/O d/t Med Cond w/ Manic/Hypo-Like Ep
 ;;^UTILITY(U,$J,358.3,26748,1,4,0)
 ;;=4^F06.33
 ;;^UTILITY(U,$J,358.3,26748,2)
 ;;=^5003059
 ;;^UTILITY(U,$J,358.3,26749,0)
 ;;=F06.34^^110^1285^2