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

IBDEI32Y.m

Go to the documentation of this file.
IBDEI32Y ; ; 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,49180,0)
 ;;=99497^^186^2435^1^^^^1
 ;;^UTILITY(U,$J,358.3,49180,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,49180,1,1,0)
 ;;=1^99497
 ;;^UTILITY(U,$J,358.3,49180,1,2,0)
 ;;=2^ACP;Expl/Dsc;1st 30 min
 ;;^UTILITY(U,$J,358.3,49181,0)
 ;;=99498^^186^2435^2^^^^1
 ;;^UTILITY(U,$J,358.3,49181,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,49181,1,1,0)
 ;;=1^99498
 ;;^UTILITY(U,$J,358.3,49181,1,2,0)
 ;;=2^ACP,Ea Addl 30 min
 ;;^UTILITY(U,$J,358.3,49182,0)
 ;;=99366^^186^2436^1^^^^1
 ;;^UTILITY(U,$J,358.3,49182,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,49182,1,1,0)
 ;;=1^99366
 ;;^UTILITY(U,$J,358.3,49182,1,2,0)
 ;;=2^Team Conf w/ Pt/Fam by QHP 30+ Min
 ;;^UTILITY(U,$J,358.3,49183,0)
 ;;=99367^^186^2436^3^^^^1
 ;;^UTILITY(U,$J,358.3,49183,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,49183,1,1,0)
 ;;=1^99367
 ;;^UTILITY(U,$J,358.3,49183,1,2,0)
 ;;=2^Team Conf w/o Pt/Fam by Phys 30+ Min
 ;;^UTILITY(U,$J,358.3,49184,0)
 ;;=99368^^186^2436^2^^^^1
 ;;^UTILITY(U,$J,358.3,49184,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,49184,1,1,0)
 ;;=1^99368
 ;;^UTILITY(U,$J,358.3,49184,1,2,0)
 ;;=2^Team Conf w/o Pt/Fam by QHP 30+ Min
 ;;^UTILITY(U,$J,358.3,49185,0)
 ;;=C34.91^^187^2437^13
 ;;^UTILITY(U,$J,358.3,49185,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49185,1,3,0)
 ;;=3^Malig Neop Bronchus/Lung,Right
 ;;^UTILITY(U,$J,358.3,49185,1,4,0)
 ;;=4^C34.91
 ;;^UTILITY(U,$J,358.3,49185,2)
 ;;=^5000967
 ;;^UTILITY(U,$J,358.3,49186,0)
 ;;=C34.92^^187^2437^12
 ;;^UTILITY(U,$J,358.3,49186,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49186,1,3,0)
 ;;=3^Malig Neop Bronchus/Lung,Left
 ;;^UTILITY(U,$J,358.3,49186,1,4,0)
 ;;=4^C34.92
 ;;^UTILITY(U,$J,358.3,49186,2)
 ;;=^5000968
 ;;^UTILITY(U,$J,358.3,49187,0)
 ;;=C18.9^^187^2437^14
 ;;^UTILITY(U,$J,358.3,49187,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49187,1,3,0)
 ;;=3^Malig Neop Colon,Unspec
 ;;^UTILITY(U,$J,358.3,49187,1,4,0)
 ;;=4^C18.9
 ;;^UTILITY(U,$J,358.3,49187,2)
 ;;=^5000929
 ;;^UTILITY(U,$J,358.3,49188,0)
 ;;=C22.0^^187^2437^4
 ;;^UTILITY(U,$J,358.3,49188,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49188,1,3,0)
 ;;=3^Liver Cell Carcinoma
 ;;^UTILITY(U,$J,358.3,49188,1,4,0)
 ;;=4^C22.0
 ;;^UTILITY(U,$J,358.3,49188,2)
 ;;=^5000933
 ;;^UTILITY(U,$J,358.3,49189,0)
 ;;=C22.2^^187^2437^2
 ;;^UTILITY(U,$J,358.3,49189,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49189,1,3,0)
 ;;=3^Hepatoblastoma
 ;;^UTILITY(U,$J,358.3,49189,1,4,0)
 ;;=4^C22.2
 ;;^UTILITY(U,$J,358.3,49189,2)
 ;;=^5000935
 ;;^UTILITY(U,$J,358.3,49190,0)
 ;;=C22.7^^187^2437^3
 ;;^UTILITY(U,$J,358.3,49190,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49190,1,3,0)
 ;;=3^Liver Carcinoma,Other
 ;;^UTILITY(U,$J,358.3,49190,1,4,0)
 ;;=4^C22.7
 ;;^UTILITY(U,$J,358.3,49190,2)
 ;;=^5000938
 ;;^UTILITY(U,$J,358.3,49191,0)
 ;;=C22.8^^187^2437^20
 ;;^UTILITY(U,$J,358.3,49191,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49191,1,3,0)
 ;;=3^Malig Neop Liver,Primary,Unspec
 ;;^UTILITY(U,$J,358.3,49191,1,4,0)
 ;;=4^C22.8
 ;;^UTILITY(U,$J,358.3,49191,2)
 ;;=^5000939
 ;;^UTILITY(U,$J,358.3,49192,0)
 ;;=C25.9^^187^2437^22
 ;;^UTILITY(U,$J,358.3,49192,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,49192,1,3,0)
 ;;=3^Malig Neop Pancreas,Unspec
 ;;^UTILITY(U,$J,358.3,49192,1,4,0)
 ;;=4^C25.9
 ;;^UTILITY(U,$J,358.3,49192,2)
 ;;=^5000946
 ;;^UTILITY(U,$J,358.3,49193,0)
 ;;=C15.9^^187^2437^15
 ;;^UTILITY(U,$J,358.3,49193,1,0)
 ;;=^358.31IA^4^2