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

IBDEI3F1.m

Go to the documentation of this file.
IBDEI3F1 ; ; 19-NOV-2015
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
 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
Q Q
 ;;^UTILITY(U,$J,358.3,57457,1,3,0)
 ;;=3^Candidiasis of Vulva & Vagina
 ;;^UTILITY(U,$J,358.3,57457,1,4,0)
 ;;=4^B37.3
 ;;^UTILITY(U,$J,358.3,57457,2)
 ;;=^5000615
 ;;^UTILITY(U,$J,358.3,57458,0)
 ;;=A59.01^^267^2878^57
 ;;^UTILITY(U,$J,358.3,57458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57458,1,3,0)
 ;;=3^Trichomonal Vulvovaginitis
 ;;^UTILITY(U,$J,358.3,57458,1,4,0)
 ;;=4^A59.01
 ;;^UTILITY(U,$J,358.3,57458,2)
 ;;=^121763
 ;;^UTILITY(U,$J,358.3,57459,0)
 ;;=D25.9^^267^2878^40
 ;;^UTILITY(U,$J,358.3,57459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57459,1,3,0)
 ;;=3^Leiomyoma of Uterus,Unspec
 ;;^UTILITY(U,$J,358.3,57459,1,4,0)
 ;;=4^D25.9
 ;;^UTILITY(U,$J,358.3,57459,2)
 ;;=^5002081
 ;;^UTILITY(U,$J,358.3,57460,0)
 ;;=D06.9^^267^2878^10
 ;;^UTILITY(U,$J,358.3,57460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57460,1,3,0)
 ;;=3^Carcinoma in Situ of Cervix,Unspec
 ;;^UTILITY(U,$J,358.3,57460,1,4,0)
 ;;=4^D06.9
 ;;^UTILITY(U,$J,358.3,57460,2)
 ;;=^5001941
 ;;^UTILITY(U,$J,358.3,57461,0)
 ;;=D06.0^^267^2878^11
 ;;^UTILITY(U,$J,358.3,57461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57461,1,3,0)
 ;;=3^Carcinoma in Situ of Endocervix
 ;;^UTILITY(U,$J,358.3,57461,1,4,0)
 ;;=4^D06.0
 ;;^UTILITY(U,$J,358.3,57461,2)
 ;;=^5001938
 ;;^UTILITY(U,$J,358.3,57462,0)
 ;;=D06.1^^267^2878^12
 ;;^UTILITY(U,$J,358.3,57462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57462,1,3,0)
 ;;=3^Carcinoma in Situ of Exocervix
 ;;^UTILITY(U,$J,358.3,57462,1,4,0)
 ;;=4^D06.1
 ;;^UTILITY(U,$J,358.3,57462,2)
 ;;=^5001939
 ;;^UTILITY(U,$J,358.3,57463,0)
 ;;=N60.11^^267^2878^24
 ;;^UTILITY(U,$J,358.3,57463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57463,1,3,0)
 ;;=3^Diffuse Cystic Mastopathy,Right Breast
 ;;^UTILITY(U,$J,358.3,57463,1,4,0)
 ;;=4^N60.11
 ;;^UTILITY(U,$J,358.3,57463,2)
 ;;=^5015773
 ;;^UTILITY(U,$J,358.3,57464,0)
 ;;=N60.12^^267^2878^23
 ;;^UTILITY(U,$J,358.3,57464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57464,1,3,0)
 ;;=3^Diffuse Cystic Mastopathy,Left Breast
 ;;^UTILITY(U,$J,358.3,57464,1,4,0)
 ;;=4^N60.12
 ;;^UTILITY(U,$J,358.3,57464,2)
 ;;=^5015774
 ;;^UTILITY(U,$J,358.3,57465,0)
 ;;=N63.^^267^2878^41
 ;;^UTILITY(U,$J,358.3,57465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57465,1,3,0)
 ;;=3^Lump in Breast,Unspec
 ;;^UTILITY(U,$J,358.3,57465,1,4,0)
 ;;=4^N63.
 ;;^UTILITY(U,$J,358.3,57465,2)
 ;;=^5015791
 ;;^UTILITY(U,$J,358.3,57466,0)
 ;;=N73.9^^267^2878^31
 ;;^UTILITY(U,$J,358.3,57466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57466,1,3,0)
 ;;=3^Female Pelvic Inflammatory Disease,Unspec
 ;;^UTILITY(U,$J,358.3,57466,1,4,0)
 ;;=4^N73.9
 ;;^UTILITY(U,$J,358.3,57466,2)
 ;;=^5015820
 ;;^UTILITY(U,$J,358.3,57467,0)
 ;;=N72.^^267^2878^37
 ;;^UTILITY(U,$J,358.3,57467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57467,1,3,0)
 ;;=3^Inflammatory Disease of Cervix Uteri
 ;;^UTILITY(U,$J,358.3,57467,1,4,0)
 ;;=4^N72.
 ;;^UTILITY(U,$J,358.3,57467,2)
 ;;=^5015812
 ;;^UTILITY(U,$J,358.3,57468,0)
 ;;=N76.0^^267^2878^62
 ;;^UTILITY(U,$J,358.3,57468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57468,1,3,0)
 ;;=3^Vaginitis,Acute
 ;;^UTILITY(U,$J,358.3,57468,1,4,0)
 ;;=4^N76.0
 ;;^UTILITY(U,$J,358.3,57468,2)
 ;;=^5015826
 ;;^UTILITY(U,$J,358.3,57469,0)
 ;;=N76.1^^267^2878^63
 ;;^UTILITY(U,$J,358.3,57469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57469,1,3,0)
 ;;=3^Vaginitis,Subacute & Chronic
 ;;^UTILITY(U,$J,358.3,57469,1,4,0)
 ;;=4^N76.1
 ;;^UTILITY(U,$J,358.3,57469,2)
 ;;=^5015827
 ;;^UTILITY(U,$J,358.3,57470,0)
 ;;=N81.3^^267^2878^59
 ;;^UTILITY(U,$J,358.3,57470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57470,1,3,0)
 ;;=3^Uterovaginal Prolapse,Complete