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

IBDEI15L.m

Go to the documentation of this file.
IBDEI15L ; ; 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,18722,1,4,0)
 ;;=4^N05.0
 ;;^UTILITY(U,$J,358.3,18722,2)
 ;;=^5015541
 ;;^UTILITY(U,$J,358.3,18723,0)
 ;;=N05.8^^64^837^23
 ;;^UTILITY(U,$J,358.3,18723,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18723,1,3,0)
 ;;=3^Nephritic Syndrome w/ Morphologic Changes,Unspec
 ;;^UTILITY(U,$J,358.3,18723,1,4,0)
 ;;=4^N05.8
 ;;^UTILITY(U,$J,358.3,18723,2)
 ;;=^5134085
 ;;^UTILITY(U,$J,358.3,18724,0)
 ;;=N18.6^^64^837^4
 ;;^UTILITY(U,$J,358.3,18724,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18724,1,3,0)
 ;;=3^ESRD
 ;;^UTILITY(U,$J,358.3,18724,1,4,0)
 ;;=4^N18.6
 ;;^UTILITY(U,$J,358.3,18724,2)
 ;;=^303986
 ;;^UTILITY(U,$J,358.3,18725,0)
 ;;=R59.9^^64^838^4
 ;;^UTILITY(U,$J,358.3,18725,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18725,1,3,0)
 ;;=3^Enlarged Lymph Nodes,Unspec
 ;;^UTILITY(U,$J,358.3,18725,1,4,0)
 ;;=4^R59.9
 ;;^UTILITY(U,$J,358.3,18725,2)
 ;;=^5019531
 ;;^UTILITY(U,$J,358.3,18726,0)
 ;;=R59.1^^64^838^2
 ;;^UTILITY(U,$J,358.3,18726,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18726,1,3,0)
 ;;=3^Enlarged Lymph Nodes,Generalized
 ;;^UTILITY(U,$J,358.3,18726,1,4,0)
 ;;=4^R59.1
 ;;^UTILITY(U,$J,358.3,18726,2)
 ;;=^5019530
 ;;^UTILITY(U,$J,358.3,18727,0)
 ;;=R59.0^^64^838^3
 ;;^UTILITY(U,$J,358.3,18727,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18727,1,3,0)
 ;;=3^Enlarged Lymph Nodes,Localized
 ;;^UTILITY(U,$J,358.3,18727,1,4,0)
 ;;=4^R59.0
 ;;^UTILITY(U,$J,358.3,18727,2)
 ;;=^5019529
 ;;^UTILITY(U,$J,358.3,18728,0)
 ;;=D64.9^^64^838^1
 ;;^UTILITY(U,$J,358.3,18728,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18728,1,3,0)
 ;;=3^Anemia,Unspec
 ;;^UTILITY(U,$J,358.3,18728,1,4,0)
 ;;=4^D64.9
 ;;^UTILITY(U,$J,358.3,18728,2)
 ;;=^5002351
 ;;^UTILITY(U,$J,358.3,18729,0)
 ;;=R79.9^^64^839^1
 ;;^UTILITY(U,$J,358.3,18729,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18729,1,3,0)
 ;;=3^Abnormal Finding of Blood Chemistry,Unspec
 ;;^UTILITY(U,$J,358.3,18729,1,4,0)
 ;;=4^R79.9
 ;;^UTILITY(U,$J,358.3,18729,2)
 ;;=^5019594
 ;;^UTILITY(U,$J,358.3,18730,0)
 ;;=R78.71^^64^839^2
 ;;^UTILITY(U,$J,358.3,18730,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18730,1,3,0)
 ;;=3^Abnormal Lead Level in Blood
 ;;^UTILITY(U,$J,358.3,18730,1,4,0)
 ;;=4^R78.71
 ;;^UTILITY(U,$J,358.3,18730,2)
 ;;=^5019586
 ;;^UTILITY(U,$J,358.3,18731,0)
 ;;=R79.0^^64^839^3
 ;;^UTILITY(U,$J,358.3,18731,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18731,1,3,0)
 ;;=3^Abnormal Level of Blood Mineral
 ;;^UTILITY(U,$J,358.3,18731,1,4,0)
 ;;=4^R79.0
 ;;^UTILITY(U,$J,358.3,18731,2)
 ;;=^5019590
 ;;^UTILITY(U,$J,358.3,18732,0)
 ;;=R78.79^^64^839^4
 ;;^UTILITY(U,$J,358.3,18732,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18732,1,3,0)
 ;;=3^Abnormal Level of Heavy Metals in Blood
 ;;^UTILITY(U,$J,358.3,18732,1,4,0)
 ;;=4^R78.79
 ;;^UTILITY(U,$J,358.3,18732,2)
 ;;=^5019587
 ;;^UTILITY(U,$J,358.3,18733,0)
 ;;=E79.0^^64^839^10
 ;;^UTILITY(U,$J,358.3,18733,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18733,1,3,0)
 ;;=3^Hyperuricemia w/o Signs of Inflam Arthrit/Tophaceous Disease
 ;;^UTILITY(U,$J,358.3,18733,1,4,0)
 ;;=4^E79.0
 ;;^UTILITY(U,$J,358.3,18733,2)
 ;;=^5002978
 ;;^UTILITY(U,$J,358.3,18734,0)
 ;;=K74.69^^64^839^5
 ;;^UTILITY(U,$J,358.3,18734,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18734,1,3,0)
 ;;=3^Cirrhosis of Liver NEC
 ;;^UTILITY(U,$J,358.3,18734,1,4,0)
 ;;=4^K74.69
 ;;^UTILITY(U,$J,358.3,18734,2)
 ;;=^5008823
 ;;^UTILITY(U,$J,358.3,18735,0)
 ;;=K74.60^^64^839^6