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

IBDEI2TJ.m

Go to the documentation of this file.
  1. IBDEI2TJ ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,44955,1,3,0)
  1. ;;=3^Malig Neop Skin of Right Upper Eyelid,Incl Canthus
  1. ;;^UTILITY(U,$J,358.3,44955,1,4,0)
  1. ;;=4^C44.1921
  1. ;;^UTILITY(U,$J,358.3,44955,2)
  1. ;;=^5157270
  1. ;;^UTILITY(U,$J,358.3,44956,0)
  1. ;;=C44.1992^^170^2241^22
  1. ;;^UTILITY(U,$J,358.3,44956,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44956,1,3,0)
  1. ;;=3^Malig Neop Skin of Left Lower Eyelid,Incl Canthus
  1. ;;^UTILITY(U,$J,358.3,44956,1,4,0)
  1. ;;=4^C44.1992
  1. ;;^UTILITY(U,$J,358.3,44956,2)
  1. ;;=^5157273
  1. ;;^UTILITY(U,$J,358.3,44957,0)
  1. ;;=C44.1991^^170^2241^24
  1. ;;^UTILITY(U,$J,358.3,44957,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44957,1,3,0)
  1. ;;=3^Malig Neop Skin of Left Upper Eyelid,Incl Canthus
  1. ;;^UTILITY(U,$J,358.3,44957,1,4,0)
  1. ;;=4^C44.1991
  1. ;;^UTILITY(U,$J,358.3,44957,2)
  1. ;;=^5157272
  1. ;;^UTILITY(U,$J,358.3,44958,0)
  1. ;;=D22.122^^170^2241^39
  1. ;;^UTILITY(U,$J,358.3,44958,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44958,1,3,0)
  1. ;;=3^Melanocytic Nevi of Left Lower Eyelid
  1. ;;^UTILITY(U,$J,358.3,44958,1,4,0)
  1. ;;=4^D22.122
  1. ;;^UTILITY(U,$J,358.3,44958,2)
  1. ;;=^5157289
  1. ;;^UTILITY(U,$J,358.3,44959,0)
  1. ;;=D22.121^^170^2241^41
  1. ;;^UTILITY(U,$J,358.3,44959,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44959,1,3,0)
  1. ;;=3^Melanocytic Nevi of Left Upper Eyelid
  1. ;;^UTILITY(U,$J,358.3,44959,1,4,0)
  1. ;;=4^D22.121
  1. ;;^UTILITY(U,$J,358.3,44959,2)
  1. ;;=^5157288
  1. ;;^UTILITY(U,$J,358.3,44960,0)
  1. ;;=D22.112^^170^2241^45
  1. ;;^UTILITY(U,$J,358.3,44960,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44960,1,3,0)
  1. ;;=3^Melanocytic Nevi of Right Lower Eyelid
  1. ;;^UTILITY(U,$J,358.3,44960,1,4,0)
  1. ;;=4^D22.112
  1. ;;^UTILITY(U,$J,358.3,44960,2)
  1. ;;=^5157287
  1. ;;^UTILITY(U,$J,358.3,44961,0)
  1. ;;=D22.111^^170^2241^47
  1. ;;^UTILITY(U,$J,358.3,44961,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44961,1,3,0)
  1. ;;=3^Melanocytic Nevi of Right Upper Eyelid
  1. ;;^UTILITY(U,$J,358.3,44961,1,4,0)
  1. ;;=4^D22.111
  1. ;;^UTILITY(U,$J,358.3,44961,2)
  1. ;;=^5157286
  1. ;;^UTILITY(U,$J,358.3,44962,0)
  1. ;;=D03.122^^170^2241^64
  1. ;;^UTILITY(U,$J,358.3,44962,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44962,1,3,0)
  1. ;;=3^Melanoma in Situ of Left Lower Eyelid
  1. ;;^UTILITY(U,$J,358.3,44962,1,4,0)
  1. ;;=4^D03.122
  1. ;;^UTILITY(U,$J,358.3,44962,2)
  1. ;;=^5157281
  1. ;;^UTILITY(U,$J,358.3,44963,0)
  1. ;;=D03.121^^170^2241^65
  1. ;;^UTILITY(U,$J,358.3,44963,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44963,1,3,0)
  1. ;;=3^Melanoma in Situ of Left Upper Eyelid
  1. ;;^UTILITY(U,$J,358.3,44963,1,4,0)
  1. ;;=4^D03.121
  1. ;;^UTILITY(U,$J,358.3,44963,2)
  1. ;;=^5157280
  1. ;;^UTILITY(U,$J,358.3,44964,0)
  1. ;;=D03.112^^170^2241^68
  1. ;;^UTILITY(U,$J,358.3,44964,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44964,1,3,0)
  1. ;;=3^Melanoma in Situ of Right Lower Eyelid
  1. ;;^UTILITY(U,$J,358.3,44964,1,4,0)
  1. ;;=4^D03.112
  1. ;;^UTILITY(U,$J,358.3,44964,2)
  1. ;;=^5157279
  1. ;;^UTILITY(U,$J,358.3,44965,0)
  1. ;;=D03.111^^170^2241^69
  1. ;;^UTILITY(U,$J,358.3,44965,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44965,1,3,0)
  1. ;;=3^Melanoma in Situ of Right Upper Eyelid
  1. ;;^UTILITY(U,$J,358.3,44965,1,4,0)
  1. ;;=4^D03.111
  1. ;;^UTILITY(U,$J,358.3,44965,2)
  1. ;;=^5157278
  1. ;;^UTILITY(U,$J,358.3,44966,0)
  1. ;;=C4A.122^^170^2241^77
  1. ;;^UTILITY(U,$J,358.3,44966,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,44966,1,3,0)
  1. ;;=3^Merkle Cell CA,Left Lower Eyelid,Incl Canthus
  1. ;;^UTILITY(U,$J,358.3,44966,1,4,0)
  1. ;;=4^C4A.122
  1. ;;^UTILITY(U,$J,358.3,44966,2)
  1. ;;=^5157277
  1. ;;^UTILITY(U,$J,358.3,44967,0)
  1. ;;=C4A.121^^170^2241^71