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

IBDEI0OW.m

Go to the documentation of this file.
IBDEI0OW ; ; 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,11177,1,4,0)
 ;;=4^F14.288
 ;;^UTILITY(U,$J,358.3,11177,2)
 ;;=^5003267
 ;;^UTILITY(U,$J,358.3,11178,0)
 ;;=F14.988^^42^509^36
 ;;^UTILITY(U,$J,358.3,11178,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11178,1,3,0)
 ;;=3^Cocaine Induced Obess-Compul & Rel D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,11178,1,4,0)
 ;;=4^F14.988
 ;;^UTILITY(U,$J,358.3,11178,2)
 ;;=^5003281
 ;;^UTILITY(U,$J,358.3,11179,0)
 ;;=F14.159^^42^509^37
 ;;^UTILITY(U,$J,358.3,11179,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11179,1,3,0)
 ;;=3^Cocaine Induced Psychotic D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,11179,1,4,0)
 ;;=4^F14.159
 ;;^UTILITY(U,$J,358.3,11179,2)
 ;;=^5003247
 ;;^UTILITY(U,$J,358.3,11180,0)
 ;;=F14.259^^42^509^38
 ;;^UTILITY(U,$J,358.3,11180,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11180,1,3,0)
 ;;=3^Cocaine Induced Psychotic D/O w/ Mod-Sev Use D/O
 ;;^UTILITY(U,$J,358.3,11180,1,4,0)
 ;;=4^F14.259
 ;;^UTILITY(U,$J,358.3,11180,2)
 ;;=^5003263
 ;;^UTILITY(U,$J,358.3,11181,0)
 ;;=F14.959^^42^509^39
 ;;^UTILITY(U,$J,358.3,11181,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11181,1,3,0)
 ;;=3^Cocaine Induced Psychotic D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,11181,1,4,0)
 ;;=4^F14.959
 ;;^UTILITY(U,$J,358.3,11181,2)
 ;;=^5003277
 ;;^UTILITY(U,$J,358.3,11182,0)
 ;;=F14.181^^42^509^40
 ;;^UTILITY(U,$J,358.3,11182,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11182,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunction w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,11182,1,4,0)
 ;;=4^F14.181
 ;;^UTILITY(U,$J,358.3,11182,2)
 ;;=^5003249
 ;;^UTILITY(U,$J,358.3,11183,0)
 ;;=F14.281^^42^509^41
 ;;^UTILITY(U,$J,358.3,11183,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11183,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunction w/ Mod-Sev Use D/O
 ;;^UTILITY(U,$J,358.3,11183,1,4,0)
 ;;=4^F14.281
 ;;^UTILITY(U,$J,358.3,11183,2)
 ;;=^5003265
 ;;^UTILITY(U,$J,358.3,11184,0)
 ;;=F14.981^^42^509^42
 ;;^UTILITY(U,$J,358.3,11184,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11184,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunction w/o Use D/O
 ;;^UTILITY(U,$J,358.3,11184,1,4,0)
 ;;=4^F14.981
 ;;^UTILITY(U,$J,358.3,11184,2)
 ;;=^5003279
 ;;^UTILITY(U,$J,358.3,11185,0)
 ;;=F14.182^^42^509^43
 ;;^UTILITY(U,$J,358.3,11185,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11185,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,11185,1,4,0)
 ;;=4^F14.182
 ;;^UTILITY(U,$J,358.3,11185,2)
 ;;=^5003250
 ;;^UTILITY(U,$J,358.3,11186,0)
 ;;=F14.282^^42^509^44
 ;;^UTILITY(U,$J,358.3,11186,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11186,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/ Mod-Sev Use D/O
 ;;^UTILITY(U,$J,358.3,11186,1,4,0)
 ;;=4^F14.282
 ;;^UTILITY(U,$J,358.3,11186,2)
 ;;=^5003266
 ;;^UTILITY(U,$J,358.3,11187,0)
 ;;=F14.982^^42^509^45
 ;;^UTILITY(U,$J,358.3,11187,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11187,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,11187,1,4,0)
 ;;=4^F14.982
 ;;^UTILITY(U,$J,358.3,11187,2)
 ;;=^5003280
 ;;^UTILITY(U,$J,358.3,11188,0)
 ;;=F14.122^^42^509^49
 ;;^UTILITY(U,$J,358.3,11188,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,11188,1,3,0)
 ;;=3^Cocaine Intoxication w/ Percept Disturb w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,11188,1,4,0)
 ;;=4^F14.122
 ;;^UTILITY(U,$J,358.3,11188,2)
 ;;=^5003242
 ;;^UTILITY(U,$J,358.3,11189,0)
 ;;=F14.222^^42^509^50
 ;;^UTILITY(U,$J,358.3,11189,1,0)
 ;;=^358.31IA^4^2