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

IBDEI20F.m

Go to the documentation of this file.
  1. IBDEI20F ; ; 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,32077,1,3,0)
  1. ;;=3^Lipoma
  1. ;;^UTILITY(U,$J,358.3,32077,1,4,0)
  1. ;;=4^D17.30
  1. ;;^UTILITY(U,$J,358.3,32077,2)
  1. ;;=^5002012
  1. ;;^UTILITY(U,$J,358.3,32078,0)
  1. ;;=D22.9^^126^1645^11
  1. ;;^UTILITY(U,$J,358.3,32078,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32078,1,3,0)
  1. ;;=3^Nevus,Skin
  1. ;;^UTILITY(U,$J,358.3,32078,1,4,0)
  1. ;;=4^D22.9
  1. ;;^UTILITY(U,$J,358.3,32078,2)
  1. ;;=^5002058
  1. ;;^UTILITY(U,$J,358.3,32079,0)
  1. ;;=R21.^^126^1645^12
  1. ;;^UTILITY(U,$J,358.3,32079,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32079,1,3,0)
  1. ;;=3^Rash/Skin Eruption
  1. ;;^UTILITY(U,$J,358.3,32079,1,4,0)
  1. ;;=4^R21.
  1. ;;^UTILITY(U,$J,358.3,32079,2)
  1. ;;=^5019283
  1. ;;^UTILITY(U,$J,358.3,32080,0)
  1. ;;=B86.^^126^1645^13
  1. ;;^UTILITY(U,$J,358.3,32080,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32080,1,3,0)
  1. ;;=3^Scabies
  1. ;;^UTILITY(U,$J,358.3,32080,1,4,0)
  1. ;;=4^B86.
  1. ;;^UTILITY(U,$J,358.3,32080,2)
  1. ;;=^108096
  1. ;;^UTILITY(U,$J,358.3,32081,0)
  1. ;;=L72.3^^126^1645^6
  1. ;;^UTILITY(U,$J,358.3,32081,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32081,1,3,0)
  1. ;;=3^Cyst,Sebaceous
  1. ;;^UTILITY(U,$J,358.3,32081,1,4,0)
  1. ;;=4^L72.3
  1. ;;^UTILITY(U,$J,358.3,32081,2)
  1. ;;=^5009281
  1. ;;^UTILITY(U,$J,358.3,32082,0)
  1. ;;=R22.9^^126^1645^10
  1. ;;^UTILITY(U,$J,358.3,32082,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32082,1,3,0)
  1. ;;=3^Mass,Subcutaneous
  1. ;;^UTILITY(U,$J,358.3,32082,1,4,0)
  1. ;;=4^R22.9
  1. ;;^UTILITY(U,$J,358.3,32082,2)
  1. ;;=^5019292
  1. ;;^UTILITY(U,$J,358.3,32083,0)
  1. ;;=B35.4^^126^1645^14
  1. ;;^UTILITY(U,$J,358.3,32083,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32083,1,3,0)
  1. ;;=3^Tinea Corporis
  1. ;;^UTILITY(U,$J,358.3,32083,1,4,0)
  1. ;;=4^B35.4
  1. ;;^UTILITY(U,$J,358.3,32083,2)
  1. ;;=^119704
  1. ;;^UTILITY(U,$J,358.3,32084,0)
  1. ;;=Z30.02^^126^1646^13
  1. ;;^UTILITY(U,$J,358.3,32084,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32084,1,3,0)
  1. ;;=3^Natural Family Planning Counseling and Instruction
  1. ;;^UTILITY(U,$J,358.3,32084,1,4,0)
  1. ;;=4^Z30.02
  1. ;;^UTILITY(U,$J,358.3,32084,2)
  1. ;;=^5062816
  1. ;;^UTILITY(U,$J,358.3,32085,0)
  1. ;;=Z30.49^^126^1646^1
  1. ;;^UTILITY(U,$J,358.3,32085,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32085,1,3,0)
  1. ;;=3^Contraceptive Mgmt NEC
  1. ;;^UTILITY(U,$J,358.3,32085,1,4,0)
  1. ;;=4^Z30.49
  1. ;;^UTILITY(U,$J,358.3,32085,2)
  1. ;;=^5062826
  1. ;;^UTILITY(U,$J,358.3,32086,0)
  1. ;;=Z30.9^^126^1646^2
  1. ;;^UTILITY(U,$J,358.3,32086,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32086,1,3,0)
  1. ;;=3^Contraceptive Mgmt NOS
  1. ;;^UTILITY(U,$J,358.3,32086,1,4,0)
  1. ;;=4^Z30.9
  1. ;;^UTILITY(U,$J,358.3,32086,2)
  1. ;;=^5062828
  1. ;;^UTILITY(U,$J,358.3,32087,0)
  1. ;;=Z30.40^^126^1646^3
  1. ;;^UTILITY(U,$J,358.3,32087,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32087,1,3,0)
  1. ;;=3^Contraceptive Surveillance
  1. ;;^UTILITY(U,$J,358.3,32087,1,4,0)
  1. ;;=4^Z30.40
  1. ;;^UTILITY(U,$J,358.3,32087,2)
  1. ;;=^5062819
  1. ;;^UTILITY(U,$J,358.3,32088,0)
  1. ;;=Z30.013^^126^1646^4
  1. ;;^UTILITY(U,$J,358.3,32088,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32088,1,3,0)
  1. ;;=3^Depo Provera,Initial
  1. ;;^UTILITY(U,$J,358.3,32088,1,4,0)
  1. ;;=4^Z30.013
  1. ;;^UTILITY(U,$J,358.3,32088,2)
  1. ;;=^5062812
  1. ;;^UTILITY(U,$J,358.3,32089,0)
  1. ;;=Z30.018^^126^1646^5
  1. ;;^UTILITY(U,$J,358.3,32089,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,32089,1,3,0)
  1. ;;=3^Diaphragm Fit
  1. ;;^UTILITY(U,$J,358.3,32089,1,4,0)
  1. ;;=4^Z30.018
  1. ;;^UTILITY(U,$J,358.3,32089,2)
  1. ;;=^5062814
  1. ;;^UTILITY(U,$J,358.3,32090,0)
  1. ;;=Z30.012^^126^1646^6
  1. ;;^UTILITY(U,$J,358.3,32090,1,0)
  1. ;;=^358.31IA^4^2