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

IBDEI374.m

Go to the documentation of this file.
  1. IBDEI374 ; ; 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,51026,0)
  1. ;;=N30.90^^193^2499^20
  1. ;;^UTILITY(U,$J,358.3,51026,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51026,1,3,0)
  1. ;;=3^Cystitis w/o Hematuria,Unspec
  1. ;;^UTILITY(U,$J,358.3,51026,1,4,0)
  1. ;;=4^N30.90
  1. ;;^UTILITY(U,$J,358.3,51026,2)
  1. ;;=^5015642
  1. ;;^UTILITY(U,$J,358.3,51027,0)
  1. ;;=N41.9^^193^2499^38
  1. ;;^UTILITY(U,$J,358.3,51027,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51027,1,3,0)
  1. ;;=3^Inflammatory Disease of Prostate,Unspec
  1. ;;^UTILITY(U,$J,358.3,51027,1,4,0)
  1. ;;=4^N41.9
  1. ;;^UTILITY(U,$J,358.3,51027,2)
  1. ;;=^5015694
  1. ;;^UTILITY(U,$J,358.3,51028,0)
  1. ;;=N70.91^^193^2499^75
  1. ;;^UTILITY(U,$J,358.3,51028,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51028,1,3,0)
  1. ;;=3^Salpingitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,51028,1,4,0)
  1. ;;=4^N70.91
  1. ;;^UTILITY(U,$J,358.3,51028,2)
  1. ;;=^5015806
  1. ;;^UTILITY(U,$J,358.3,51029,0)
  1. ;;=N70.93^^193^2499^74
  1. ;;^UTILITY(U,$J,358.3,51029,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51029,1,3,0)
  1. ;;=3^Salpingitis & Oophoritis,Unspec
  1. ;;^UTILITY(U,$J,358.3,51029,1,4,0)
  1. ;;=4^N70.93
  1. ;;^UTILITY(U,$J,358.3,51029,2)
  1. ;;=^5015808
  1. ;;^UTILITY(U,$J,358.3,51030,0)
  1. ;;=N70.92^^193^2499^55
  1. ;;^UTILITY(U,$J,358.3,51030,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51030,1,3,0)
  1. ;;=3^Oophoritis,Unspec
  1. ;;^UTILITY(U,$J,358.3,51030,1,4,0)
  1. ;;=4^N70.92
  1. ;;^UTILITY(U,$J,358.3,51030,2)
  1. ;;=^5015807
  1. ;;^UTILITY(U,$J,358.3,51031,0)
  1. ;;=N73.9^^193^2499^37
  1. ;;^UTILITY(U,$J,358.3,51031,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51031,1,3,0)
  1. ;;=3^Inflammatory Disease Female Pelvic,Unspec
  1. ;;^UTILITY(U,$J,358.3,51031,1,4,0)
  1. ;;=4^N73.9
  1. ;;^UTILITY(U,$J,358.3,51031,2)
  1. ;;=^5015820
  1. ;;^UTILITY(U,$J,358.3,51032,0)
  1. ;;=A56.11^^193^2499^36
  1. ;;^UTILITY(U,$J,358.3,51032,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51032,1,3,0)
  1. ;;=3^Inflammatory Disease Chlamydial Female Pelvic
  1. ;;^UTILITY(U,$J,358.3,51032,1,4,0)
  1. ;;=4^A56.11
  1. ;;^UTILITY(U,$J,358.3,51032,2)
  1. ;;=^5000342
  1. ;;^UTILITY(U,$J,358.3,51033,0)
  1. ;;=N73.5^^193^2499^64
  1. ;;^UTILITY(U,$J,358.3,51033,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51033,1,3,0)
  1. ;;=3^Peritonitis Female Pelvic,Unspec
  1. ;;^UTILITY(U,$J,358.3,51033,1,4,0)
  1. ;;=4^N73.5
  1. ;;^UTILITY(U,$J,358.3,51033,2)
  1. ;;=^5015817
  1. ;;^UTILITY(U,$J,358.3,51034,0)
  1. ;;=N72.^^193^2499^35
  1. ;;^UTILITY(U,$J,358.3,51034,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51034,1,3,0)
  1. ;;=3^Inflammatory Disease Cervix Uteri
  1. ;;^UTILITY(U,$J,358.3,51034,1,4,0)
  1. ;;=4^N72.
  1. ;;^UTILITY(U,$J,358.3,51034,2)
  1. ;;=^5015812
  1. ;;^UTILITY(U,$J,358.3,51035,0)
  1. ;;=N76.3^^193^2499^92
  1. ;;^UTILITY(U,$J,358.3,51035,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51035,1,3,0)
  1. ;;=3^Vulvitis,Subacute & Chronic
  1. ;;^UTILITY(U,$J,358.3,51035,1,4,0)
  1. ;;=4^N76.3
  1. ;;^UTILITY(U,$J,358.3,51035,2)
  1. ;;=^5015829
  1. ;;^UTILITY(U,$J,358.3,51036,0)
  1. ;;=N76.1^^193^2499^88
  1. ;;^UTILITY(U,$J,358.3,51036,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51036,1,3,0)
  1. ;;=3^Vaginitis,Subacute & Chronic
  1. ;;^UTILITY(U,$J,358.3,51036,1,4,0)
  1. ;;=4^N76.1
  1. ;;^UTILITY(U,$J,358.3,51036,2)
  1. ;;=^5015827
  1. ;;^UTILITY(U,$J,358.3,51037,0)
  1. ;;=N76.2^^193^2499^91
  1. ;;^UTILITY(U,$J,358.3,51037,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,51037,1,3,0)
  1. ;;=3^Vulvitis,Acute
  1. ;;^UTILITY(U,$J,358.3,51037,1,4,0)
  1. ;;=4^N76.2
  1. ;;^UTILITY(U,$J,358.3,51037,2)
  1. ;;=^5015828
  1. ;;^UTILITY(U,$J,358.3,51038,0)
  1. ;;=N76.0^^193^2499^87
  1. ;;^UTILITY(U,$J,358.3,51038,1,0)
  1. ;;=^358.31IA^4^2