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

IBDEI0LJ.m

Go to the documentation of this file.
  1. IBDEI0LJ ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,9688,1,4,0)
  1. ;;=4^N64.4
  1. ;;^UTILITY(U,$J,358.3,9688,2)
  1. ;;=^5015794
  1. ;;^UTILITY(U,$J,358.3,9689,0)
  1. ;;=N64.51^^39^417^60
  1. ;;^UTILITY(U,$J,358.3,9689,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9689,1,3,0)
  1. ;;=3^Induration of Breast
  1. ;;^UTILITY(U,$J,358.3,9689,1,4,0)
  1. ;;=4^N64.51
  1. ;;^UTILITY(U,$J,358.3,9689,2)
  1. ;;=^5015795
  1. ;;^UTILITY(U,$J,358.3,9690,0)
  1. ;;=N64.59^^39^417^105
  1. ;;^UTILITY(U,$J,358.3,9690,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9690,1,3,0)
  1. ;;=3^Signs and Symptoms in Breast,Other
  1. ;;^UTILITY(U,$J,358.3,9690,1,4,0)
  1. ;;=4^N64.59
  1. ;;^UTILITY(U,$J,358.3,9690,2)
  1. ;;=^5015797
  1. ;;^UTILITY(U,$J,358.3,9691,0)
  1. ;;=N64.52^^39^417^71
  1. ;;^UTILITY(U,$J,358.3,9691,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9691,1,3,0)
  1. ;;=3^Nipple Discharge
  1. ;;^UTILITY(U,$J,358.3,9691,1,4,0)
  1. ;;=4^N64.52
  1. ;;^UTILITY(U,$J,358.3,9691,2)
  1. ;;=^259531
  1. ;;^UTILITY(U,$J,358.3,9692,0)
  1. ;;=N64.53^^39^417^99
  1. ;;^UTILITY(U,$J,358.3,9692,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9692,1,3,0)
  1. ;;=3^Retraction of Nipple
  1. ;;^UTILITY(U,$J,358.3,9692,1,4,0)
  1. ;;=4^N64.53
  1. ;;^UTILITY(U,$J,358.3,9692,2)
  1. ;;=^5015796
  1. ;;^UTILITY(U,$J,358.3,9693,0)
  1. ;;=N75.1^^39^417^8
  1. ;;^UTILITY(U,$J,358.3,9693,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9693,1,3,0)
  1. ;;=3^Abscess of Bartholin's Gland
  1. ;;^UTILITY(U,$J,358.3,9693,1,4,0)
  1. ;;=4^N75.1
  1. ;;^UTILITY(U,$J,358.3,9693,2)
  1. ;;=^5015823
  1. ;;^UTILITY(U,$J,358.3,9694,0)
  1. ;;=N80.9^^39^417^37
  1. ;;^UTILITY(U,$J,358.3,9694,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9694,1,3,0)
  1. ;;=3^Endometriosis,Unspec
  1. ;;^UTILITY(U,$J,358.3,9694,1,4,0)
  1. ;;=4^N80.9
  1. ;;^UTILITY(U,$J,358.3,9694,2)
  1. ;;=^5015837
  1. ;;^UTILITY(U,$J,358.3,9695,0)
  1. ;;=N81.4^^39^417^112
  1. ;;^UTILITY(U,$J,358.3,9695,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9695,1,3,0)
  1. ;;=3^Uterovaginal Prolapse,Unspec
  1. ;;^UTILITY(U,$J,358.3,9695,1,4,0)
  1. ;;=4^N81.4
  1. ;;^UTILITY(U,$J,358.3,9695,2)
  1. ;;=^5015841
  1. ;;^UTILITY(U,$J,358.3,9696,0)
  1. ;;=N84.8^^39^417^87
  1. ;;^UTILITY(U,$J,358.3,9696,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9696,1,3,0)
  1. ;;=3^Polyp of Other Parts of Female Genital Tract
  1. ;;^UTILITY(U,$J,358.3,9696,1,4,0)
  1. ;;=4^N84.8
  1. ;;^UTILITY(U,$J,358.3,9696,2)
  1. ;;=^5015868
  1. ;;^UTILITY(U,$J,358.3,9697,0)
  1. ;;=N84.0^^39^417^85
  1. ;;^UTILITY(U,$J,358.3,9697,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9697,1,3,0)
  1. ;;=3^Polyp of Corpus Uteri
  1. ;;^UTILITY(U,$J,358.3,9697,1,4,0)
  1. ;;=4^N84.0
  1. ;;^UTILITY(U,$J,358.3,9697,2)
  1. ;;=^270517
  1. ;;^UTILITY(U,$J,358.3,9698,0)
  1. ;;=N84.9^^39^417^86
  1. ;;^UTILITY(U,$J,358.3,9698,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9698,1,3,0)
  1. ;;=3^Polyp of Female Genital Tract,Unspec
  1. ;;^UTILITY(U,$J,358.3,9698,1,4,0)
  1. ;;=4^N84.9
  1. ;;^UTILITY(U,$J,358.3,9698,2)
  1. ;;=^5015869
  1. ;;^UTILITY(U,$J,358.3,9699,0)
  1. ;;=N84.1^^39^417^84
  1. ;;^UTILITY(U,$J,358.3,9699,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9699,1,3,0)
  1. ;;=3^Polyp of Cervix Uteri
  1. ;;^UTILITY(U,$J,358.3,9699,1,4,0)
  1. ;;=4^N84.1
  1. ;;^UTILITY(U,$J,358.3,9699,2)
  1. ;;=^5015866
  1. ;;^UTILITY(U,$J,358.3,9700,0)
  1. ;;=N89.1^^39^417^114
  1. ;;^UTILITY(U,$J,358.3,9700,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9700,1,3,0)
  1. ;;=3^Vaginal Dysplasia,Moderate
  1. ;;^UTILITY(U,$J,358.3,9700,1,4,0)
  1. ;;=4^N89.1
  1. ;;^UTILITY(U,$J,358.3,9700,2)
  1. ;;=^5015886
  1. ;;^UTILITY(U,$J,358.3,9701,0)
  1. ;;=N89.0^^39^417^113
  1. ;;^UTILITY(U,$J,358.3,9701,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,9701,1,3,0)
  1. ;;=3^Vaginal Dysplasia,Mild