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

IBDEI13C.m

Go to the documentation of this file.
  1. IBDEI13C ; ; 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,17715,1,4,0)
  1. ;;=4^N92.1
  1. ;;^UTILITY(U,$J,358.3,17715,2)
  1. ;;=^5015909
  1. ;;^UTILITY(U,$J,358.3,17716,0)
  1. ;;=Z08.^^61^791^41
  1. ;;^UTILITY(U,$J,358.3,17716,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17716,1,3,0)
  1. ;;=3^F/U Exam After Malig Neop Treatment
  1. ;;^UTILITY(U,$J,358.3,17716,1,4,0)
  1. ;;=4^Z08.
  1. ;;^UTILITY(U,$J,358.3,17716,2)
  1. ;;=^5062667
  1. ;;^UTILITY(U,$J,358.3,17717,0)
  1. ;;=Z80.3^^61^791^42
  1. ;;^UTILITY(U,$J,358.3,17717,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17717,1,3,0)
  1. ;;=3^Family Hx of Breast CA
  1. ;;^UTILITY(U,$J,358.3,17717,1,4,0)
  1. ;;=4^Z80.3
  1. ;;^UTILITY(U,$J,358.3,17717,2)
  1. ;;=^5063347
  1. ;;^UTILITY(U,$J,358.3,17718,0)
  1. ;;=Z80.49^^61^791^43
  1. ;;^UTILITY(U,$J,358.3,17718,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17718,1,3,0)
  1. ;;=3^Family Hx of Genital Organ CA
  1. ;;^UTILITY(U,$J,358.3,17718,1,4,0)
  1. ;;=4^Z80.49
  1. ;;^UTILITY(U,$J,358.3,17718,2)
  1. ;;=^5063351
  1. ;;^UTILITY(U,$J,358.3,17719,0)
  1. ;;=Z80.41^^61^791^44
  1. ;;^UTILITY(U,$J,358.3,17719,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17719,1,3,0)
  1. ;;=3^Family Hx of Ovarian CA
  1. ;;^UTILITY(U,$J,358.3,17719,1,4,0)
  1. ;;=4^Z80.41
  1. ;;^UTILITY(U,$J,358.3,17719,2)
  1. ;;=^5063348
  1. ;;^UTILITY(U,$J,358.3,17720,0)
  1. ;;=N73.9^^61^791^47
  1. ;;^UTILITY(U,$J,358.3,17720,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17720,1,3,0)
  1. ;;=3^Female Pelvic Inflammatory Disease,Unspec
  1. ;;^UTILITY(U,$J,358.3,17720,1,4,0)
  1. ;;=4^N73.9
  1. ;;^UTILITY(U,$J,358.3,17720,2)
  1. ;;=^5015820
  1. ;;^UTILITY(U,$J,358.3,17721,0)
  1. ;;=N60.32^^61^791^48
  1. ;;^UTILITY(U,$J,358.3,17721,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17721,1,3,0)
  1. ;;=3^Fibrosclerosis,Left Breast
  1. ;;^UTILITY(U,$J,358.3,17721,1,4,0)
  1. ;;=4^N60.32
  1. ;;^UTILITY(U,$J,358.3,17721,2)
  1. ;;=^5015780
  1. ;;^UTILITY(U,$J,358.3,17722,0)
  1. ;;=N60.31^^61^791^49
  1. ;;^UTILITY(U,$J,358.3,17722,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17722,1,3,0)
  1. ;;=3^Fibrosclerosis,Right Breast
  1. ;;^UTILITY(U,$J,358.3,17722,1,4,0)
  1. ;;=4^N60.31
  1. ;;^UTILITY(U,$J,358.3,17722,2)
  1. ;;=^5015779
  1. ;;^UTILITY(U,$J,358.3,17723,0)
  1. ;;=Z01.411^^61^791^50
  1. ;;^UTILITY(U,$J,358.3,17723,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17723,1,3,0)
  1. ;;=3^GYN Exam w/ Abnormal Findings
  1. ;;^UTILITY(U,$J,358.3,17723,1,4,0)
  1. ;;=4^Z01.411
  1. ;;^UTILITY(U,$J,358.3,17723,2)
  1. ;;=^5062622
  1. ;;^UTILITY(U,$J,358.3,17724,0)
  1. ;;=Z01.419^^61^791^1
  1. ;;^UTILITY(U,$J,358.3,17724,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17724,1,3,0)
  1. ;;=3
  1. ;;^UTILITY(U,$J,358.3,17724,1,4,0)
  1. ;;=4^Z01.419
  1. ;;^UTILITY(U,$J,358.3,17724,2)
  1. ;;=^5062623
  1. ;;^UTILITY(U,$J,358.3,17725,0)
  1. ;;=Z01.419^^61^791^51
  1. ;;^UTILITY(U,$J,358.3,17725,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17725,1,3,0)
  1. ;;=3^GYN Exam w/ Normal Findings
  1. ;;^UTILITY(U,$J,358.3,17725,1,4,0)
  1. ;;=4^Z01.419
  1. ;;^UTILITY(U,$J,358.3,17725,2)
  1. ;;=^5062623
  1. ;;^UTILITY(U,$J,358.3,17726,0)
  1. ;;=R87.613^^61^791^53
  1. ;;^UTILITY(U,$J,358.3,17726,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17726,1,3,0)
  1. ;;=3^HGSIL
  1. ;;^UTILITY(U,$J,358.3,17726,1,4,0)
  1. ;;=4^R87.613
  1. ;;^UTILITY(U,$J,358.3,17726,2)
  1. ;;=^5019671
  1. ;;^UTILITY(U,$J,358.3,17727,0)
  1. ;;=R87.612^^61^791^63
  1. ;;^UTILITY(U,$J,358.3,17727,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17727,1,3,0)
  1. ;;=3^LGSIL
  1. ;;^UTILITY(U,$J,358.3,17727,1,4,0)
  1. ;;=4^R87.612
  1. ;;^UTILITY(U,$J,358.3,17727,2)
  1. ;;=^5019670
  1. ;;^UTILITY(U,$J,358.3,17728,0)
  1. ;;=R92.1^^61^791^66
  1. ;;^UTILITY(U,$J,358.3,17728,1,0)
  1. ;;=^358.31IA^4^2