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

IBDEI2GR.m

Go to the documentation of this file.
  1. IBDEI2GR ; ; 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,39343,1,3,0)
  1. ;;=3^Inguinal Hernia,Unilat w/o Obst or Gangrene
  1. ;;^UTILITY(U,$J,358.3,39343,1,4,0)
  1. ;;=4^K40.90
  1. ;;^UTILITY(U,$J,358.3,39343,2)
  1. ;;=^5008591
  1. ;;^UTILITY(U,$J,358.3,39344,0)
  1. ;;=K40.20^^152^1996^74
  1. ;;^UTILITY(U,$J,358.3,39344,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39344,1,3,0)
  1. ;;=3^Inguinal Hernia,Bilat w/o Obst or Gangrene
  1. ;;^UTILITY(U,$J,358.3,39344,1,4,0)
  1. ;;=4^K40.20
  1. ;;^UTILITY(U,$J,358.3,39344,2)
  1. ;;=^5008585
  1. ;;^UTILITY(U,$J,358.3,39345,0)
  1. ;;=K44.9^^152^1996^36
  1. ;;^UTILITY(U,$J,358.3,39345,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39345,1,3,0)
  1. ;;=3^Diaphragmatic Hernia w/o Obst or Gangrene
  1. ;;^UTILITY(U,$J,358.3,39345,1,4,0)
  1. ;;=4^K44.9
  1. ;;^UTILITY(U,$J,358.3,39345,2)
  1. ;;=^5008617
  1. ;;^UTILITY(U,$J,358.3,39346,0)
  1. ;;=K46.9^^152^1996^1
  1. ;;^UTILITY(U,$J,358.3,39346,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39346,1,3,0)
  1. ;;=3^Abdominal Hernia w/o Obst or Gangrene,Unspec
  1. ;;^UTILITY(U,$J,358.3,39346,1,4,0)
  1. ;;=4^K46.9
  1. ;;^UTILITY(U,$J,358.3,39346,2)
  1. ;;=^5008623
  1. ;;^UTILITY(U,$J,358.3,39347,0)
  1. ;;=K50.90^^152^1996^31
  1. ;;^UTILITY(U,$J,358.3,39347,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39347,1,3,0)
  1. ;;=3^Crohn's Disease w/o Complications,Unspec
  1. ;;^UTILITY(U,$J,358.3,39347,1,4,0)
  1. ;;=4^K50.90
  1. ;;^UTILITY(U,$J,358.3,39347,2)
  1. ;;=^5008645
  1. ;;^UTILITY(U,$J,358.3,39348,0)
  1. ;;=K50.911^^152^1996^29
  1. ;;^UTILITY(U,$J,358.3,39348,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39348,1,3,0)
  1. ;;=3^Crohn's Disease w/ Rectal Bleeding,Unspec
  1. ;;^UTILITY(U,$J,358.3,39348,1,4,0)
  1. ;;=4^K50.911
  1. ;;^UTILITY(U,$J,358.3,39348,2)
  1. ;;=^5008646
  1. ;;^UTILITY(U,$J,358.3,39349,0)
  1. ;;=K50.912^^152^1996^27
  1. ;;^UTILITY(U,$J,358.3,39349,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39349,1,3,0)
  1. ;;=3^Crohn's Disease w/ Intestinal Obstruction,Unspec
  1. ;;^UTILITY(U,$J,358.3,39349,1,4,0)
  1. ;;=4^K50.912
  1. ;;^UTILITY(U,$J,358.3,39349,2)
  1. ;;=^5008647
  1. ;;^UTILITY(U,$J,358.3,39350,0)
  1. ;;=K50.919^^152^1996^30
  1. ;;^UTILITY(U,$J,358.3,39350,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39350,1,3,0)
  1. ;;=3^Crohn's Disease w/ Unspec Complications,Unspec
  1. ;;^UTILITY(U,$J,358.3,39350,1,4,0)
  1. ;;=4^K50.919
  1. ;;^UTILITY(U,$J,358.3,39350,2)
  1. ;;=^5008651
  1. ;;^UTILITY(U,$J,358.3,39351,0)
  1. ;;=K50.914^^152^1996^25
  1. ;;^UTILITY(U,$J,358.3,39351,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39351,1,3,0)
  1. ;;=3^Crohn's Disease w/ Abscess,Unspec
  1. ;;^UTILITY(U,$J,358.3,39351,1,4,0)
  1. ;;=4^K50.914
  1. ;;^UTILITY(U,$J,358.3,39351,2)
  1. ;;=^5008649
  1. ;;^UTILITY(U,$J,358.3,39352,0)
  1. ;;=K50.913^^152^1996^26
  1. ;;^UTILITY(U,$J,358.3,39352,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39352,1,3,0)
  1. ;;=3^Crohn's Disease w/ Fistula,Unspec
  1. ;;^UTILITY(U,$J,358.3,39352,1,4,0)
  1. ;;=4^K50.913
  1. ;;^UTILITY(U,$J,358.3,39352,2)
  1. ;;=^5008648
  1. ;;^UTILITY(U,$J,358.3,39353,0)
  1. ;;=K50.918^^152^1996^28
  1. ;;^UTILITY(U,$J,358.3,39353,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39353,1,3,0)
  1. ;;=3^Crohn's Disease w/ Oth Complication,Unspec
  1. ;;^UTILITY(U,$J,358.3,39353,1,4,0)
  1. ;;=4^K50.918
  1. ;;^UTILITY(U,$J,358.3,39353,2)
  1. ;;=^5008650
  1. ;;^UTILITY(U,$J,358.3,39354,0)
  1. ;;=K51.90^^152^1996^90
  1. ;;^UTILITY(U,$J,358.3,39354,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39354,1,3,0)
  1. ;;=3^Ulcerative Colitis w/o Complications,Unspec
  1. ;;^UTILITY(U,$J,358.3,39354,1,4,0)
  1. ;;=4^K51.90
  1. ;;^UTILITY(U,$J,358.3,39354,2)
  1. ;;=^5008694
  1. ;;^UTILITY(U,$J,358.3,39355,0)
  1. ;;=K51.919^^152^1996^89