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

IBDEI1XF.m

Go to the documentation of this file.
  1. IBDEI1XF ; ; 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,30774,0)
  1. ;;=R33.9^^123^1585^24
  1. ;;^UTILITY(U,$J,358.3,30774,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30774,1,3,0)
  1. ;;=3^Urinary Retention,Unspec
  1. ;;^UTILITY(U,$J,358.3,30774,1,4,0)
  1. ;;=4^R33.9
  1. ;;^UTILITY(U,$J,358.3,30774,2)
  1. ;;=^5019332
  1. ;;^UTILITY(U,$J,358.3,30775,0)
  1. ;;=D51.8^^123^1586^2
  1. ;;^UTILITY(U,$J,358.3,30775,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30775,1,3,0)
  1. ;;=3^Anemia,Vitamin B12 Deficiency
  1. ;;^UTILITY(U,$J,358.3,30775,1,4,0)
  1. ;;=4^D51.8
  1. ;;^UTILITY(U,$J,358.3,30775,2)
  1. ;;=^5002288
  1. ;;^UTILITY(U,$J,358.3,30776,0)
  1. ;;=D52.9^^123^1586^1
  1. ;;^UTILITY(U,$J,358.3,30776,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30776,1,3,0)
  1. ;;=3^Anemia,Folate Deficiency
  1. ;;^UTILITY(U,$J,358.3,30776,1,4,0)
  1. ;;=4^D52.9
  1. ;;^UTILITY(U,$J,358.3,30776,2)
  1. ;;=^5002293
  1. ;;^UTILITY(U,$J,358.3,30777,0)
  1. ;;=I10.^^123^1587^12
  1. ;;^UTILITY(U,$J,358.3,30777,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30777,1,3,0)
  1. ;;=3^Hypertension,Essential
  1. ;;^UTILITY(U,$J,358.3,30777,1,4,0)
  1. ;;=4^I10.
  1. ;;^UTILITY(U,$J,358.3,30777,2)
  1. ;;=^5007062
  1. ;;^UTILITY(U,$J,358.3,30778,0)
  1. ;;=I15.0^^123^1587^13
  1. ;;^UTILITY(U,$J,358.3,30778,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30778,1,3,0)
  1. ;;=3^Hypertension,Renovascular
  1. ;;^UTILITY(U,$J,358.3,30778,1,4,0)
  1. ;;=4^I15.0
  1. ;;^UTILITY(U,$J,358.3,30778,2)
  1. ;;=^5007071
  1. ;;^UTILITY(U,$J,358.3,30779,0)
  1. ;;=I13.11^^123^1587^8
  1. ;;^UTILITY(U,$J,358.3,30779,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30779,1,3,0)
  1. ;;=3^HTN Hrt & CKD w/o Hrt Failure w/ Stage 5 Chr Kidney/ESRD
  1. ;;^UTILITY(U,$J,358.3,30779,1,4,0)
  1. ;;=4^I13.11
  1. ;;^UTILITY(U,$J,358.3,30779,2)
  1. ;;=^5007069
  1. ;;^UTILITY(U,$J,358.3,30780,0)
  1. ;;=I13.2^^123^1587^7
  1. ;;^UTILITY(U,$J,358.3,30780,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30780,1,3,0)
  1. ;;=3^HTN Hrt & CKD w/ Hrt Failure w/ Stage 5 Chr Kidney/ESRD
  1. ;;^UTILITY(U,$J,358.3,30780,1,4,0)
  1. ;;=4^I13.2
  1. ;;^UTILITY(U,$J,358.3,30780,2)
  1. ;;=^5007070
  1. ;;^UTILITY(U,$J,358.3,30781,0)
  1. ;;=I70.1^^123^1587^3
  1. ;;^UTILITY(U,$J,358.3,30781,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30781,1,3,0)
  1. ;;=3^Atherosclerosis of Renal Artery
  1. ;;^UTILITY(U,$J,358.3,30781,1,4,0)
  1. ;;=4^I70.1
  1. ;;^UTILITY(U,$J,358.3,30781,2)
  1. ;;=^269760
  1. ;;^UTILITY(U,$J,358.3,30782,0)
  1. ;;=I77.3^^123^1587^2
  1. ;;^UTILITY(U,$J,358.3,30782,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30782,1,3,0)
  1. ;;=3^Arterial Fibromuscular Dysplasia
  1. ;;^UTILITY(U,$J,358.3,30782,1,4,0)
  1. ;;=4^I77.3
  1. ;;^UTILITY(U,$J,358.3,30782,2)
  1. ;;=^5007812
  1. ;;^UTILITY(U,$J,358.3,30783,0)
  1. ;;=E26.02^^123^1587^5
  1. ;;^UTILITY(U,$J,358.3,30783,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30783,1,3,0)
  1. ;;=3^Glucocorticoid-Remediable Aldosteronism
  1. ;;^UTILITY(U,$J,358.3,30783,1,4,0)
  1. ;;=4^E26.02
  1. ;;^UTILITY(U,$J,358.3,30783,2)
  1. ;;=^329904
  1. ;;^UTILITY(U,$J,358.3,30784,0)
  1. ;;=I12.9^^123^1587^14
  1. ;;^UTILITY(U,$J,358.3,30784,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30784,1,3,0)
  1. ;;=3^Hypertensive CKD Stage 1-4
  1. ;;^UTILITY(U,$J,358.3,30784,1,4,0)
  1. ;;=4^I12.9
  1. ;;^UTILITY(U,$J,358.3,30784,2)
  1. ;;=^5007066
  1. ;;^UTILITY(U,$J,358.3,30785,0)
  1. ;;=I12.0^^123^1587^15
  1. ;;^UTILITY(U,$J,358.3,30785,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,30785,1,3,0)
  1. ;;=3^Hypertensive CKD Stage 5 or ESRD
  1. ;;^UTILITY(U,$J,358.3,30785,1,4,0)
  1. ;;=4^I12.0
  1. ;;^UTILITY(U,$J,358.3,30785,2)
  1. ;;=^5007065
  1. ;;^UTILITY(U,$J,358.3,30786,0)
  1. ;;=I13.0^^123^1587^6
  1. ;;^UTILITY(U,$J,358.3,30786,1,0)
  1. ;;=^358.31IA^4^2