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

IBDEI1T5.m

Go to the documentation of this file.
IBDEI1T5 ; ; 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,28862,1,4,0)
 ;;=4^F14.181
 ;;^UTILITY(U,$J,358.3,28862,2)
 ;;=^5003249
 ;;^UTILITY(U,$J,358.3,28863,0)
 ;;=F14.281^^115^1424^14
 ;;^UTILITY(U,$J,358.3,28863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28863,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunc w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,28863,1,4,0)
 ;;=4^F14.281
 ;;^UTILITY(U,$J,358.3,28863,2)
 ;;=^5003265
 ;;^UTILITY(U,$J,358.3,28864,0)
 ;;=F14.981^^115^1424^15
 ;;^UTILITY(U,$J,358.3,28864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28864,1,3,0)
 ;;=3^Cocaine Induced Sexual Dysfunc w/o Use D/O
 ;;^UTILITY(U,$J,358.3,28864,1,4,0)
 ;;=4^F14.981
 ;;^UTILITY(U,$J,358.3,28864,2)
 ;;=^5003279
 ;;^UTILITY(U,$J,358.3,28865,0)
 ;;=F14.182^^115^1424^16
 ;;^UTILITY(U,$J,358.3,28865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28865,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,28865,1,4,0)
 ;;=4^F14.182
 ;;^UTILITY(U,$J,358.3,28865,2)
 ;;=^5003250
 ;;^UTILITY(U,$J,358.3,28866,0)
 ;;=F14.282^^115^1424^17
 ;;^UTILITY(U,$J,358.3,28866,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28866,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,28866,1,4,0)
 ;;=4^F14.282
 ;;^UTILITY(U,$J,358.3,28866,2)
 ;;=^5003266
 ;;^UTILITY(U,$J,358.3,28867,0)
 ;;=F14.982^^115^1424^18
 ;;^UTILITY(U,$J,358.3,28867,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28867,1,3,0)
 ;;=3^Cocaine Induced Sleep D/O w/o Use D/O
 ;;^UTILITY(U,$J,358.3,28867,1,4,0)
 ;;=4^F14.982
 ;;^UTILITY(U,$J,358.3,28867,2)
 ;;=^5003280
 ;;^UTILITY(U,$J,358.3,28868,0)
 ;;=F14.122^^115^1424^22
 ;;^UTILITY(U,$J,358.3,28868,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28868,1,3,0)
 ;;=3^Cocaine Intox w/ Percept Disturb w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,28868,1,4,0)
 ;;=4^F14.122
 ;;^UTILITY(U,$J,358.3,28868,2)
 ;;=^5003242
 ;;^UTILITY(U,$J,358.3,28869,0)
 ;;=F14.222^^115^1424^23
 ;;^UTILITY(U,$J,358.3,28869,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28869,1,3,0)
 ;;=3^Cocaine Intox w/ Percept Disturb w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,28869,1,4,0)
 ;;=4^F14.222
 ;;^UTILITY(U,$J,358.3,28869,2)
 ;;=^5003257
 ;;^UTILITY(U,$J,358.3,28870,0)
 ;;=F14.922^^115^1424^24
 ;;^UTILITY(U,$J,358.3,28870,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28870,1,3,0)
 ;;=3^Cocaine Intox w/ Percept Disturb w/o Use D/O
 ;;^UTILITY(U,$J,358.3,28870,1,4,0)
 ;;=4^F14.922
 ;;^UTILITY(U,$J,358.3,28870,2)
 ;;=^5003272
 ;;^UTILITY(U,$J,358.3,28871,0)
 ;;=F14.129^^115^1424^25
 ;;^UTILITY(U,$J,358.3,28871,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28871,1,3,0)
 ;;=3^Cocaine Intox w/o Percept Disturb w/ Mild Use D/O
 ;;^UTILITY(U,$J,358.3,28871,1,4,0)
 ;;=4^F14.129
 ;;^UTILITY(U,$J,358.3,28871,2)
 ;;=^5003243
 ;;^UTILITY(U,$J,358.3,28872,0)
 ;;=F14.229^^115^1424^26
 ;;^UTILITY(U,$J,358.3,28872,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28872,1,3,0)
 ;;=3^Cocaine Intox w/o Percept Disturb w/ Mod/Sev Use D/O
 ;;^UTILITY(U,$J,358.3,28872,1,4,0)
 ;;=4^F14.229
 ;;^UTILITY(U,$J,358.3,28872,2)
 ;;=^5003258
 ;;^UTILITY(U,$J,358.3,28873,0)
 ;;=F14.929^^115^1424^27
 ;;^UTILITY(U,$J,358.3,28873,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,28873,1,3,0)
 ;;=3^Cocaine Intox w/o Percept Disturb w/o Use D/O
 ;;^UTILITY(U,$J,358.3,28873,1,4,0)
 ;;=4^F14.929
 ;;^UTILITY(U,$J,358.3,28873,2)
 ;;=^5003273
 ;;^UTILITY(U,$J,358.3,28874,0)
 ;;=F14.121^^115^1424^19
 ;;^UTILITY(U,$J,358.3,28874,1,0)
 ;;=^358.31IA^4^2