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

IBDEI3DY.m

Go to the documentation of this file.
IBDEI3DY ; ; 19-NOV-2015
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,56916,2)
 ;;=^5019186
 ;;^UTILITY(U,$J,358.3,56917,0)
 ;;=R06.01^^261^2838^56
 ;;^UTILITY(U,$J,358.3,56917,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56917,1,3,0)
 ;;=3^Orthopnea
 ;;^UTILITY(U,$J,358.3,56917,1,4,0)
 ;;=4^R06.01
 ;;^UTILITY(U,$J,358.3,56917,2)
 ;;=^186737
 ;;^UTILITY(U,$J,358.3,56918,0)
 ;;=R06.02^^261^2838^61
 ;;^UTILITY(U,$J,358.3,56918,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56918,1,3,0)
 ;;=3^Shortness of Breath
 ;;^UTILITY(U,$J,358.3,56918,1,4,0)
 ;;=4^R06.02
 ;;^UTILITY(U,$J,358.3,56918,2)
 ;;=^5019181
 ;;^UTILITY(U,$J,358.3,56919,0)
 ;;=R06.82^^261^2838^65
 ;;^UTILITY(U,$J,358.3,56919,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56919,1,3,0)
 ;;=3^Tachypnea NEC
 ;;^UTILITY(U,$J,358.3,56919,1,4,0)
 ;;=4^R06.82
 ;;^UTILITY(U,$J,358.3,56919,2)
 ;;=^5019191
 ;;^UTILITY(U,$J,358.3,56920,0)
 ;;=R06.2^^261^2838^69
 ;;^UTILITY(U,$J,358.3,56920,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56920,1,3,0)
 ;;=3^Wheezing
 ;;^UTILITY(U,$J,358.3,56920,1,4,0)
 ;;=4^R06.2
 ;;^UTILITY(U,$J,358.3,56920,2)
 ;;=^5019184
 ;;^UTILITY(U,$J,358.3,56921,0)
 ;;=R06.00^^261^2838^23
 ;;^UTILITY(U,$J,358.3,56921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56921,1,3,0)
 ;;=3^Dyspnea,Unspec
 ;;^UTILITY(U,$J,358.3,56921,1,4,0)
 ;;=4^R06.00
 ;;^UTILITY(U,$J,358.3,56921,2)
 ;;=^5019180
 ;;^UTILITY(U,$J,358.3,56922,0)
 ;;=R06.1^^261^2838^63
 ;;^UTILITY(U,$J,358.3,56922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56922,1,3,0)
 ;;=3^Stridor
 ;;^UTILITY(U,$J,358.3,56922,1,4,0)
 ;;=4^R06.1
 ;;^UTILITY(U,$J,358.3,56922,2)
 ;;=^5019183
 ;;^UTILITY(U,$J,358.3,56923,0)
 ;;=R05.^^261^2838^16
 ;;^UTILITY(U,$J,358.3,56923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56923,1,3,0)
 ;;=3^Cough
 ;;^UTILITY(U,$J,358.3,56923,1,4,0)
 ;;=4^R05.
 ;;^UTILITY(U,$J,358.3,56923,2)
 ;;=^5019179
 ;;^UTILITY(U,$J,358.3,56924,0)
 ;;=R04.2^^261^2838^40
 ;;^UTILITY(U,$J,358.3,56924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56924,1,3,0)
 ;;=3^Hemoptysis
 ;;^UTILITY(U,$J,358.3,56924,1,4,0)
 ;;=4^R04.2
 ;;^UTILITY(U,$J,358.3,56924,2)
 ;;=^5019175
 ;;^UTILITY(U,$J,358.3,56925,0)
 ;;=R09.3^^261^2838^3
 ;;^UTILITY(U,$J,358.3,56925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56925,1,3,0)
 ;;=3^Abnormal Sputum
 ;;^UTILITY(U,$J,358.3,56925,1,4,0)
 ;;=4^R09.3
 ;;^UTILITY(U,$J,358.3,56925,2)
 ;;=^5019202
 ;;^UTILITY(U,$J,358.3,56926,0)
 ;;=R07.9^^261^2838^10
 ;;^UTILITY(U,$J,358.3,56926,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56926,1,3,0)
 ;;=3^Chest Pain,Unspec
 ;;^UTILITY(U,$J,358.3,56926,1,4,0)
 ;;=4^R07.9
 ;;^UTILITY(U,$J,358.3,56926,2)
 ;;=^5019201
 ;;^UTILITY(U,$J,358.3,56927,0)
 ;;=R07.2^^261^2838^60
 ;;^UTILITY(U,$J,358.3,56927,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56927,1,3,0)
 ;;=3^Precordial Pain
 ;;^UTILITY(U,$J,358.3,56927,1,4,0)
 ;;=4^R07.2
 ;;^UTILITY(U,$J,358.3,56927,2)
 ;;=^5019197
 ;;^UTILITY(U,$J,358.3,56928,0)
 ;;=R07.1^^261^2838^9
 ;;^UTILITY(U,$J,358.3,56928,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56928,1,3,0)
 ;;=3^Chest Pain on Breathing
 ;;^UTILITY(U,$J,358.3,56928,1,4,0)
 ;;=4^R07.1
 ;;^UTILITY(U,$J,358.3,56928,2)
 ;;=^5019196
 ;;^UTILITY(U,$J,358.3,56929,0)
 ;;=R07.81^^261^2838^58
 ;;^UTILITY(U,$J,358.3,56929,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56929,1,3,0)
 ;;=3^Pleurodynia
 ;;^UTILITY(U,$J,358.3,56929,1,4,0)
 ;;=4^R07.81
 ;;^UTILITY(U,$J,358.3,56929,2)
 ;;=^5019198
 ;;^UTILITY(U,$J,358.3,56930,0)
 ;;=R22.2^^261^2838^49
 ;;^UTILITY(U,$J,358.3,56930,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,56930,1,3,0)
 ;;=3^Localized Swelling,Mass & Lump,Trunk
 ;;^UTILITY(U,$J,358.3,56930,1,4,0)
 ;;=4^R22.2