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

IBDEI2FD.m

Go to the documentation of this file.
  1. IBDEI2FD ; ; 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,38740,1,3,0)
  1. ;;=3^Heart Failure,Diastolic,Chronic
  1. ;;^UTILITY(U,$J,358.3,38740,1,4,0)
  1. ;;=4^I50.32
  1. ;;^UTILITY(U,$J,358.3,38740,2)
  1. ;;=^5007245
  1. ;;^UTILITY(U,$J,358.3,38741,0)
  1. ;;=I50.42^^152^1985^36
  1. ;;^UTILITY(U,$J,358.3,38741,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38741,1,3,0)
  1. ;;=3^Heart Failure,Systolic & Diastolic,Chronic
  1. ;;^UTILITY(U,$J,358.3,38741,1,4,0)
  1. ;;=4^I50.42
  1. ;;^UTILITY(U,$J,358.3,38741,2)
  1. ;;=^5007249
  1. ;;^UTILITY(U,$J,358.3,38742,0)
  1. ;;=I13.0^^152^1985^30
  1. ;;^UTILITY(U,$J,358.3,38742,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38742,1,3,0)
  1. ;;=3^HTN Hrt & CKD w/ Hrt Fail w/ Stage 1-4 Chr Kdny
  1. ;;^UTILITY(U,$J,358.3,38742,1,4,0)
  1. ;;=4^I13.0
  1. ;;^UTILITY(U,$J,358.3,38742,2)
  1. ;;=^5007067
  1. ;;^UTILITY(U,$J,358.3,38743,0)
  1. ;;=I13.2^^152^1985^31
  1. ;;^UTILITY(U,$J,358.3,38743,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38743,1,3,0)
  1. ;;=3^HTN Hrt & CKD w/ Hrt Fail w/ Stage 5 Chr Kdny
  1. ;;^UTILITY(U,$J,358.3,38743,1,4,0)
  1. ;;=4^I13.2
  1. ;;^UTILITY(U,$J,358.3,38743,2)
  1. ;;=^5007070
  1. ;;^UTILITY(U,$J,358.3,38744,0)
  1. ;;=I13.10^^152^1985^32
  1. ;;^UTILITY(U,$J,358.3,38744,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38744,1,3,0)
  1. ;;=3^HTN Hrt & CKD w/o Hrt Fail w/ Stage 1-4 Chr Kdny
  1. ;;^UTILITY(U,$J,358.3,38744,1,4,0)
  1. ;;=4^I13.10
  1. ;;^UTILITY(U,$J,358.3,38744,2)
  1. ;;=^5007068
  1. ;;^UTILITY(U,$J,358.3,38745,0)
  1. ;;=I13.11^^152^1985^33
  1. ;;^UTILITY(U,$J,358.3,38745,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38745,1,3,0)
  1. ;;=3^HTN Hrt & CKD w/o Hrt Fail w/ Stage 5 Chr Kdny
  1. ;;^UTILITY(U,$J,358.3,38745,1,4,0)
  1. ;;=4^I13.11
  1. ;;^UTILITY(U,$J,358.3,38745,2)
  1. ;;=^5007069
  1. ;;^UTILITY(U,$J,358.3,38746,0)
  1. ;;=E03.9^^152^1985^43
  1. ;;^UTILITY(U,$J,358.3,38746,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38746,1,3,0)
  1. ;;=3^Hypothyroidism,Unspec
  1. ;;^UTILITY(U,$J,358.3,38746,1,4,0)
  1. ;;=4^E03.9
  1. ;;^UTILITY(U,$J,358.3,38746,2)
  1. ;;=^5002476
  1. ;;^UTILITY(U,$J,358.3,38747,0)
  1. ;;=M54.5^^152^1985^46
  1. ;;^UTILITY(U,$J,358.3,38747,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38747,1,3,0)
  1. ;;=3^Low Back Pain
  1. ;;^UTILITY(U,$J,358.3,38747,1,4,0)
  1. ;;=4^M54.5
  1. ;;^UTILITY(U,$J,358.3,38747,2)
  1. ;;=^5012311
  1. ;;^UTILITY(U,$J,358.3,38748,0)
  1. ;;=C61.^^152^1985^47
  1. ;;^UTILITY(U,$J,358.3,38748,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38748,1,3,0)
  1. ;;=3^Malig Neopl Prostate
  1. ;;^UTILITY(U,$J,358.3,38748,1,4,0)
  1. ;;=4^C61.
  1. ;;^UTILITY(U,$J,358.3,38748,2)
  1. ;;=^267239
  1. ;;^UTILITY(U,$J,358.3,38749,0)
  1. ;;=F11.20^^152^1985^53
  1. ;;^UTILITY(U,$J,358.3,38749,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38749,1,3,0)
  1. ;;=3^Opioid Dependence,Uncomplicated
  1. ;;^UTILITY(U,$J,358.3,38749,1,4,0)
  1. ;;=4^F11.20
  1. ;;^UTILITY(U,$J,358.3,38749,2)
  1. ;;=^5003127
  1. ;;^UTILITY(U,$J,358.3,38750,0)
  1. ;;=M19.90^^152^1985^54
  1. ;;^UTILITY(U,$J,358.3,38750,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38750,1,3,0)
  1. ;;=3^Osteoarthritis,Unspec
  1. ;;^UTILITY(U,$J,358.3,38750,1,4,0)
  1. ;;=4^M19.90
  1. ;;^UTILITY(U,$J,358.3,38750,2)
  1. ;;=^5010853
  1. ;;^UTILITY(U,$J,358.3,38751,0)
  1. ;;=M85.80^^152^1985^55
  1. ;;^UTILITY(U,$J,358.3,38751,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38751,1,3,0)
  1. ;;=3^Osteopenia,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,38751,1,4,0)
  1. ;;=4^M85.80
  1. ;;^UTILITY(U,$J,358.3,38751,2)
  1. ;;=^5014473
  1. ;;^UTILITY(U,$J,358.3,38752,0)
  1. ;;=M81.0^^152^1985^56
  1. ;;^UTILITY(U,$J,358.3,38752,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,38752,1,3,0)
  1. ;;=3^Osteoporosis,Age-Related w/o Fx