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

IBDEI3F3.m

Go to the documentation of this file.
IBDEI3F3 ; ; 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,57484,0)
 ;;=N97.9^^267^2878^30
 ;;^UTILITY(U,$J,358.3,57484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57484,1,3,0)
 ;;=3^Female Infertility,Unspec
 ;;^UTILITY(U,$J,358.3,57484,1,4,0)
 ;;=4^N97.9
 ;;^UTILITY(U,$J,358.3,57484,2)
 ;;=^5015935
 ;;^UTILITY(U,$J,358.3,57485,0)
 ;;=R63.0^^267^2878^8
 ;;^UTILITY(U,$J,358.3,57485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57485,1,3,0)
 ;;=3^Anorexia
 ;;^UTILITY(U,$J,358.3,57485,1,4,0)
 ;;=4^R63.0
 ;;^UTILITY(U,$J,358.3,57485,2)
 ;;=^7939
 ;;^UTILITY(U,$J,358.3,57486,0)
 ;;=R30.0^^267^2878^28
 ;;^UTILITY(U,$J,358.3,57486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57486,1,3,0)
 ;;=3^Dysuria
 ;;^UTILITY(U,$J,358.3,57486,1,4,0)
 ;;=4^R30.0
 ;;^UTILITY(U,$J,358.3,57486,2)
 ;;=^5019322
 ;;^UTILITY(U,$J,358.3,57487,0)
 ;;=R19.00^^267^2878^38
 ;;^UTILITY(U,$J,358.3,57487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57487,1,3,0)
 ;;=3^Intra-Abd & Pelvic Swelling/Mass/Lump,Unspec Site
 ;;^UTILITY(U,$J,358.3,57487,1,4,0)
 ;;=4^R19.00
 ;;^UTILITY(U,$J,358.3,57487,2)
 ;;=^5019254
 ;;^UTILITY(U,$J,358.3,57488,0)
 ;;=R92.8^^267^2878^3
 ;;^UTILITY(U,$J,358.3,57488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57488,1,3,0)
 ;;=3^Abnormal & Inconclusive Findings on Dx Imaging of Breast
 ;;^UTILITY(U,$J,358.3,57488,1,4,0)
 ;;=4^R92.8
 ;;^UTILITY(U,$J,358.3,57488,2)
 ;;=^5019712
 ;;^UTILITY(U,$J,358.3,57489,0)
 ;;=R92.0^^267^2878^43
 ;;^UTILITY(U,$J,358.3,57489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57489,1,3,0)
 ;;=3^Mammographic Microcalcification on Dx Imaging of Breast
 ;;^UTILITY(U,$J,358.3,57489,1,4,0)
 ;;=4^R92.0
 ;;^UTILITY(U,$J,358.3,57489,2)
 ;;=^5019709
 ;;^UTILITY(U,$J,358.3,57490,0)
 ;;=R92.1^^267^2878^42
 ;;^UTILITY(U,$J,358.3,57490,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57490,1,3,0)
 ;;=3^Mammographic Calcification on Dx Imaging of Breast
 ;;^UTILITY(U,$J,358.3,57490,1,4,0)
 ;;=4^R92.1
 ;;^UTILITY(U,$J,358.3,57490,2)
 ;;=^5019710
 ;;^UTILITY(U,$J,358.3,57491,0)
 ;;=R92.2^^267^2878^36
 ;;^UTILITY(U,$J,358.3,57491,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57491,1,3,0)
 ;;=3^Inconclusive Mammogram
 ;;^UTILITY(U,$J,358.3,57491,1,4,0)
 ;;=4^R92.2
 ;;^UTILITY(U,$J,358.3,57491,2)
 ;;=^5019711
 ;;^UTILITY(U,$J,358.3,57492,0)
 ;;=R87.619^^267^2878^4
 ;;^UTILITY(U,$J,358.3,57492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57492,1,3,0)
 ;;=3^Abnormal Cytology in Specimen from Cervix Uteri
 ;;^UTILITY(U,$J,358.3,57492,1,4,0)
 ;;=4^R87.619
 ;;^UTILITY(U,$J,358.3,57492,2)
 ;;=^5019676
 ;;^UTILITY(U,$J,358.3,57493,0)
 ;;=R87.610^^267^2878^2
 ;;^UTILITY(U,$J,358.3,57493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57493,1,3,0)
 ;;=3^ASC-US
 ;;^UTILITY(U,$J,358.3,57493,1,4,0)
 ;;=4^R87.610
 ;;^UTILITY(U,$J,358.3,57493,2)
 ;;=^5019668
 ;;^UTILITY(U,$J,358.3,57494,0)
 ;;=R87.611^^267^2878^1
 ;;^UTILITY(U,$J,358.3,57494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57494,1,3,0)
 ;;=3^ASC-H
 ;;^UTILITY(U,$J,358.3,57494,1,4,0)
 ;;=4^R87.611
 ;;^UTILITY(U,$J,358.3,57494,2)
 ;;=^5019669
 ;;^UTILITY(U,$J,358.3,57495,0)
 ;;=R87.612^^267^2878^39
 ;;^UTILITY(U,$J,358.3,57495,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57495,1,3,0)
 ;;=3^LGSIL
 ;;^UTILITY(U,$J,358.3,57495,1,4,0)
 ;;=4^R87.612
 ;;^UTILITY(U,$J,358.3,57495,2)
 ;;=^5019670
 ;;^UTILITY(U,$J,358.3,57496,0)
 ;;=R87.613^^267^2878^35
 ;;^UTILITY(U,$J,358.3,57496,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57496,1,3,0)
 ;;=3^HGSIL
 ;;^UTILITY(U,$J,358.3,57496,1,4,0)
 ;;=4^R87.613
 ;;^UTILITY(U,$J,358.3,57496,2)
 ;;=^5019671
 ;;^UTILITY(U,$J,358.3,57497,0)
 ;;=R87.810^^267^2878^15