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

IBDEI2K0.m

Go to the documentation of this file.
  1. IBDEI2K0 ; ; 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,40772,2)
  1. ;;=^5015877
  1. ;;^UTILITY(U,$J,358.3,40773,0)
  1. ;;=R30.0^^152^2016^36
  1. ;;^UTILITY(U,$J,358.3,40773,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40773,1,3,0)
  1. ;;=3^Dysuria
  1. ;;^UTILITY(U,$J,358.3,40773,1,4,0)
  1. ;;=4^R30.0
  1. ;;^UTILITY(U,$J,358.3,40773,2)
  1. ;;=^5019322
  1. ;;^UTILITY(U,$J,358.3,40774,0)
  1. ;;=N92.1^^152^2016^39
  1. ;;^UTILITY(U,$J,358.3,40774,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40774,1,3,0)
  1. ;;=3^Excessive/Frequent Menstruation w/ Irregular Cycle
  1. ;;^UTILITY(U,$J,358.3,40774,1,4,0)
  1. ;;=4^N92.1
  1. ;;^UTILITY(U,$J,358.3,40774,2)
  1. ;;=^5015909
  1. ;;^UTILITY(U,$J,358.3,40775,0)
  1. ;;=Z08.^^152^2016^41
  1. ;;^UTILITY(U,$J,358.3,40775,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40775,1,3,0)
  1. ;;=3^F/U Exam After Malig Neop Treatment
  1. ;;^UTILITY(U,$J,358.3,40775,1,4,0)
  1. ;;=4^Z08.
  1. ;;^UTILITY(U,$J,358.3,40775,2)
  1. ;;=^5062667
  1. ;;^UTILITY(U,$J,358.3,40776,0)
  1. ;;=Z80.3^^152^2016^42
  1. ;;^UTILITY(U,$J,358.3,40776,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40776,1,3,0)
  1. ;;=3^Family Hx of Breast CA
  1. ;;^UTILITY(U,$J,358.3,40776,1,4,0)
  1. ;;=4^Z80.3
  1. ;;^UTILITY(U,$J,358.3,40776,2)
  1. ;;=^5063347
  1. ;;^UTILITY(U,$J,358.3,40777,0)
  1. ;;=Z80.49^^152^2016^43
  1. ;;^UTILITY(U,$J,358.3,40777,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40777,1,3,0)
  1. ;;=3^Family Hx of Genital Organ CA
  1. ;;^UTILITY(U,$J,358.3,40777,1,4,0)
  1. ;;=4^Z80.49
  1. ;;^UTILITY(U,$J,358.3,40777,2)
  1. ;;=^5063351
  1. ;;^UTILITY(U,$J,358.3,40778,0)
  1. ;;=Z80.41^^152^2016^44
  1. ;;^UTILITY(U,$J,358.3,40778,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40778,1,3,0)
  1. ;;=3^Family Hx of Ovarian CA
  1. ;;^UTILITY(U,$J,358.3,40778,1,4,0)
  1. ;;=4^Z80.41
  1. ;;^UTILITY(U,$J,358.3,40778,2)
  1. ;;=^5063348
  1. ;;^UTILITY(U,$J,358.3,40779,0)
  1. ;;=N73.9^^152^2016^47
  1. ;;^UTILITY(U,$J,358.3,40779,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40779,1,3,0)
  1. ;;=3^Female Pelvic Inflammatory Disease,Unspec
  1. ;;^UTILITY(U,$J,358.3,40779,1,4,0)
  1. ;;=4^N73.9
  1. ;;^UTILITY(U,$J,358.3,40779,2)
  1. ;;=^5015820
  1. ;;^UTILITY(U,$J,358.3,40780,0)
  1. ;;=N60.32^^152^2016^48
  1. ;;^UTILITY(U,$J,358.3,40780,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40780,1,3,0)
  1. ;;=3^Fibrosclerosis,Left Breast
  1. ;;^UTILITY(U,$J,358.3,40780,1,4,0)
  1. ;;=4^N60.32
  1. ;;^UTILITY(U,$J,358.3,40780,2)
  1. ;;=^5015780
  1. ;;^UTILITY(U,$J,358.3,40781,0)
  1. ;;=N60.31^^152^2016^49
  1. ;;^UTILITY(U,$J,358.3,40781,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40781,1,3,0)
  1. ;;=3^Fibrosclerosis,Right Breast
  1. ;;^UTILITY(U,$J,358.3,40781,1,4,0)
  1. ;;=4^N60.31
  1. ;;^UTILITY(U,$J,358.3,40781,2)
  1. ;;=^5015779
  1. ;;^UTILITY(U,$J,358.3,40782,0)
  1. ;;=Z01.411^^152^2016^50
  1. ;;^UTILITY(U,$J,358.3,40782,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40782,1,3,0)
  1. ;;=3^GYN Exam w/ Abnormal Findings
  1. ;;^UTILITY(U,$J,358.3,40782,1,4,0)
  1. ;;=4^Z01.411
  1. ;;^UTILITY(U,$J,358.3,40782,2)
  1. ;;=^5062622
  1. ;;^UTILITY(U,$J,358.3,40783,0)
  1. ;;=Z01.419^^152^2016^1
  1. ;;^UTILITY(U,$J,358.3,40783,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40783,1,3,0)
  1. ;;=3
  1. ;;^UTILITY(U,$J,358.3,40783,1,4,0)
  1. ;;=4^Z01.419
  1. ;;^UTILITY(U,$J,358.3,40783,2)
  1. ;;=^5062623
  1. ;;^UTILITY(U,$J,358.3,40784,0)
  1. ;;=Z01.419^^152^2016^51
  1. ;;^UTILITY(U,$J,358.3,40784,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40784,1,3,0)
  1. ;;=3^GYN Exam w/ Normal Findings
  1. ;;^UTILITY(U,$J,358.3,40784,1,4,0)
  1. ;;=4^Z01.419
  1. ;;^UTILITY(U,$J,358.3,40784,2)
  1. ;;=^5062623
  1. ;;^UTILITY(U,$J,358.3,40785,0)
  1. ;;=R87.613^^152^2016^53
  1. ;;^UTILITY(U,$J,358.3,40785,1,0)
  1. ;;=^358.31IA^4^2