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

IBDEI3F2.m

Go to the documentation of this file.
  1. IBDEI3F2 ; ; 19-NOV-2015
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
  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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,57470,1,4,0)
  1. ;;=4^N81.3
  1. ;;^UTILITY(U,$J,358.3,57470,2)
  1. ;;=^5015840
  1. ;;^UTILITY(U,$J,358.3,57471,0)
  1. ;;=N81.2^^267^2878^60
  1. ;;^UTILITY(U,$J,358.3,57471,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57471,1,3,0)
  1. ;;=3^Uterovaginal Prolapse,Incomplete
  1. ;;^UTILITY(U,$J,358.3,57471,1,4,0)
  1. ;;=4^N81.2
  1. ;;^UTILITY(U,$J,358.3,57471,2)
  1. ;;=^5015839
  1. ;;^UTILITY(U,$J,358.3,57472,0)
  1. ;;=N81.4^^267^2878^61
  1. ;;^UTILITY(U,$J,358.3,57472,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57472,1,3,0)
  1. ;;=3^Uterovaginal Prolapse,Unspec
  1. ;;^UTILITY(U,$J,358.3,57472,1,4,0)
  1. ;;=4^N81.4
  1. ;;^UTILITY(U,$J,358.3,57472,2)
  1. ;;=^5015841
  1. ;;^UTILITY(U,$J,358.3,57473,0)
  1. ;;=N87.9^^267^2878^27
  1. ;;^UTILITY(U,$J,358.3,57473,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57473,1,3,0)
  1. ;;=3^Dysplasia of Cervix Uteri,Unspec
  1. ;;^UTILITY(U,$J,358.3,57473,1,4,0)
  1. ;;=4^N87.9
  1. ;;^UTILITY(U,$J,358.3,57473,2)
  1. ;;=^5015877
  1. ;;^UTILITY(U,$J,358.3,57474,0)
  1. ;;=N87.0^^267^2878^13
  1. ;;^UTILITY(U,$J,358.3,57474,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57474,1,3,0)
  1. ;;=3^Cervical Dysplasia,Mild
  1. ;;^UTILITY(U,$J,358.3,57474,1,4,0)
  1. ;;=4^N87.0
  1. ;;^UTILITY(U,$J,358.3,57474,2)
  1. ;;=^5015875
  1. ;;^UTILITY(U,$J,358.3,57475,0)
  1. ;;=N87.1^^267^2878^14
  1. ;;^UTILITY(U,$J,358.3,57475,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57475,1,3,0)
  1. ;;=3^Cervical Dysplasia,Moderate
  1. ;;^UTILITY(U,$J,358.3,57475,1,4,0)
  1. ;;=4^N87.1
  1. ;;^UTILITY(U,$J,358.3,57475,2)
  1. ;;=^5015876
  1. ;;^UTILITY(U,$J,358.3,57476,0)
  1. ;;=N94.1^^267^2878^26
  1. ;;^UTILITY(U,$J,358.3,57476,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57476,1,3,0)
  1. ;;=3^Dyspareunia
  1. ;;^UTILITY(U,$J,358.3,57476,1,4,0)
  1. ;;=4^N94.1
  1. ;;^UTILITY(U,$J,358.3,57476,2)
  1. ;;=^5015917
  1. ;;^UTILITY(U,$J,358.3,57477,0)
  1. ;;=N94.6^^267^2878^25
  1. ;;^UTILITY(U,$J,358.3,57477,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57477,1,3,0)
  1. ;;=3^Dysmenorrhea,Unspec
  1. ;;^UTILITY(U,$J,358.3,57477,1,4,0)
  1. ;;=4^N94.6
  1. ;;^UTILITY(U,$J,358.3,57477,2)
  1. ;;=^5015922
  1. ;;^UTILITY(U,$J,358.3,57478,0)
  1. ;;=R10.2^^267^2878^46
  1. ;;^UTILITY(U,$J,358.3,57478,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57478,1,3,0)
  1. ;;=3^Pelvic & Perineal Pain
  1. ;;^UTILITY(U,$J,358.3,57478,1,4,0)
  1. ;;=4^R10.2
  1. ;;^UTILITY(U,$J,358.3,57478,2)
  1. ;;=^5019209
  1. ;;^UTILITY(U,$J,358.3,57479,0)
  1. ;;=N91.2^^267^2878^6
  1. ;;^UTILITY(U,$J,358.3,57479,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57479,1,3,0)
  1. ;;=3^Amenorrhea,Unspec
  1. ;;^UTILITY(U,$J,358.3,57479,1,4,0)
  1. ;;=4^N91.2
  1. ;;^UTILITY(U,$J,358.3,57479,2)
  1. ;;=^5015904
  1. ;;^UTILITY(U,$J,358.3,57480,0)
  1. ;;=N93.8^^267^2878^58
  1. ;;^UTILITY(U,$J,358.3,57480,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57480,1,3,0)
  1. ;;=3^Uterine & Vaginal Bleeding,Abnormal
  1. ;;^UTILITY(U,$J,358.3,57480,1,4,0)
  1. ;;=4^N93.8
  1. ;;^UTILITY(U,$J,358.3,57480,2)
  1. ;;=^5015915
  1. ;;^UTILITY(U,$J,358.3,57481,0)
  1. ;;=N95.0^^267^2878^49
  1. ;;^UTILITY(U,$J,358.3,57481,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57481,1,3,0)
  1. ;;=3^Postmenopausal Bleeding
  1. ;;^UTILITY(U,$J,358.3,57481,1,4,0)
  1. ;;=4^N95.0
  1. ;;^UTILITY(U,$J,358.3,57481,2)
  1. ;;=^97040
  1. ;;^UTILITY(U,$J,358.3,57482,0)
  1. ;;=N95.1^^267^2878^44
  1. ;;^UTILITY(U,$J,358.3,57482,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57482,1,3,0)
  1. ;;=3^Menopausal & Female Climacteric States
  1. ;;^UTILITY(U,$J,358.3,57482,1,4,0)
  1. ;;=4^N95.1
  1. ;;^UTILITY(U,$J,358.3,57482,2)
  1. ;;=^5015927
  1. ;;^UTILITY(U,$J,358.3,57483,0)
  1. ;;=N95.8^^267^2878^45
  1. ;;^UTILITY(U,$J,358.3,57483,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57483,1,3,0)
  1. ;;=3^Menopausal & Perimenopausal Disorders NEC
  1. ;;^UTILITY(U,$J,358.3,57483,1,4,0)
  1. ;;=4^N95.8
  1. ;;^UTILITY(U,$J,358.3,57483,2)
  1. ;;=^5015928