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

IBDEI387.m

Go to the documentation of this file.
  1. IBDEI387 ; ; 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,51504,1,3,0)
  1. ;;=3^Complete Loss of Teeth,Unspec,Class Unspec
  1. ;;^UTILITY(U,$J,358.3,51504,1,4,0)
  1. ;;=4^K08.109
  1. ;;^UTILITY(U,$J,358.3,51504,2)
  1. ;;=^5008410
  1. ;;^UTILITY(U,$J,358.3,51505,0)
  1. ;;=K08.401^^193^2509^138
  1. ;;^UTILITY(U,$J,358.3,51505,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51505,1,3,0)
  1. ;;=3^Partial Loss of Teeth,Unspec,Class I
  1. ;;^UTILITY(U,$J,358.3,51505,1,4,0)
  1. ;;=4^K08.401
  1. ;;^UTILITY(U,$J,358.3,51505,2)
  1. ;;=^5008432
  1. ;;^UTILITY(U,$J,358.3,51506,0)
  1. ;;=K08.402^^193^2509^139
  1. ;;^UTILITY(U,$J,358.3,51506,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51506,1,3,0)
  1. ;;=3^Partial Loss of Teeth,Unspec,Class II
  1. ;;^UTILITY(U,$J,358.3,51506,1,4,0)
  1. ;;=4^K08.402
  1. ;;^UTILITY(U,$J,358.3,51506,2)
  1. ;;=^5008433
  1. ;;^UTILITY(U,$J,358.3,51507,0)
  1. ;;=K08.403^^193^2509^140
  1. ;;^UTILITY(U,$J,358.3,51507,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51507,1,3,0)
  1. ;;=3^Partial Loss of Teeth,Unspec,Class III
  1. ;;^UTILITY(U,$J,358.3,51507,1,4,0)
  1. ;;=4^K08.403
  1. ;;^UTILITY(U,$J,358.3,51507,2)
  1. ;;=^5008434
  1. ;;^UTILITY(U,$J,358.3,51508,0)
  1. ;;=K08.404^^193^2509^141
  1. ;;^UTILITY(U,$J,358.3,51508,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51508,1,3,0)
  1. ;;=3^Partial Loss of Teeth,Unspec,Class IV
  1. ;;^UTILITY(U,$J,358.3,51508,1,4,0)
  1. ;;=4^K08.404
  1. ;;^UTILITY(U,$J,358.3,51508,2)
  1. ;;=^5008435
  1. ;;^UTILITY(U,$J,358.3,51509,0)
  1. ;;=K08.409^^193^2509^142
  1. ;;^UTILITY(U,$J,358.3,51509,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51509,1,3,0)
  1. ;;=3^Partial Loss of Teeth,Unspec,Class Unspec
  1. ;;^UTILITY(U,$J,358.3,51509,1,4,0)
  1. ;;=4^K08.409
  1. ;;^UTILITY(U,$J,358.3,51509,2)
  1. ;;=^5008436
  1. ;;^UTILITY(U,$J,358.3,51510,0)
  1. ;;=N39.42^^193^2509^98
  1. ;;^UTILITY(U,$J,358.3,51510,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51510,1,3,0)
  1. ;;=3^Incontinence w/o Sensory Awareness
  1. ;;^UTILITY(U,$J,358.3,51510,1,4,0)
  1. ;;=4^N39.42
  1. ;;^UTILITY(U,$J,358.3,51510,2)
  1. ;;=^5015681
  1. ;;^UTILITY(U,$J,358.3,51511,0)
  1. ;;=N39.43^^193^2509^148
  1. ;;^UTILITY(U,$J,358.3,51511,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51511,1,3,0)
  1. ;;=3^Post-Void Dribbling
  1. ;;^UTILITY(U,$J,358.3,51511,1,4,0)
  1. ;;=4^N39.43
  1. ;;^UTILITY(U,$J,358.3,51511,2)
  1. ;;=^5015682
  1. ;;^UTILITY(U,$J,358.3,51512,0)
  1. ;;=N39.44^^193^2509^128
  1. ;;^UTILITY(U,$J,358.3,51512,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51512,1,3,0)
  1. ;;=3^Nocturnal Enuresis
  1. ;;^UTILITY(U,$J,358.3,51512,1,4,0)
  1. ;;=4^N39.44
  1. ;;^UTILITY(U,$J,358.3,51512,2)
  1. ;;=^5015683
  1. ;;^UTILITY(U,$J,358.3,51513,0)
  1. ;;=N39.46^^193^2509^124
  1. ;;^UTILITY(U,$J,358.3,51513,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51513,1,3,0)
  1. ;;=3^Mixed Incontinence
  1. ;;^UTILITY(U,$J,358.3,51513,1,4,0)
  1. ;;=4^N39.46
  1. ;;^UTILITY(U,$J,358.3,51513,2)
  1. ;;=^5015685
  1. ;;^UTILITY(U,$J,358.3,51514,0)
  1. ;;=R06.01^^193^2509^132
  1. ;;^UTILITY(U,$J,358.3,51514,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51514,1,3,0)
  1. ;;=3^Orthopnea
  1. ;;^UTILITY(U,$J,358.3,51514,1,4,0)
  1. ;;=4^R06.01
  1. ;;^UTILITY(U,$J,358.3,51514,2)
  1. ;;=^186737
  1. ;;^UTILITY(U,$J,358.3,51515,0)
  1. ;;=R06.4^^193^2509^91
  1. ;;^UTILITY(U,$J,358.3,51515,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51515,1,3,0)
  1. ;;=3^Hyperventilation
  1. ;;^UTILITY(U,$J,358.3,51515,1,4,0)
  1. ;;=4^R06.4
  1. ;;^UTILITY(U,$J,358.3,51515,2)
  1. ;;=^5019186
  1. ;;^UTILITY(U,$J,358.3,51516,0)
  1. ;;=R06.6^^193^2509^87
  1. ;;^UTILITY(U,$J,358.3,51516,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51516,1,3,0)
  1. ;;=3^Hiccough
  1. ;;^UTILITY(U,$J,358.3,51516,1,4,0)
  1. ;;=4^R06.6