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

IBDEI1G0.m

Go to the documentation of this file.
  1. IBDEI1G0 ; ; 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,23337,1,4,0)
  1. ;;=4^R00.1
  1. ;;^UTILITY(U,$J,358.3,23337,2)
  1. ;;=^5019164
  1. ;;^UTILITY(U,$J,358.3,23338,0)
  1. ;;=R07.9^^78^1007^11
  1. ;;^UTILITY(U,$J,358.3,23338,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23338,1,3,0)
  1. ;;=3^Chest pain, unspecified
  1. ;;^UTILITY(U,$J,358.3,23338,1,4,0)
  1. ;;=4^R07.9
  1. ;;^UTILITY(U,$J,358.3,23338,2)
  1. ;;=^5019201
  1. ;;^UTILITY(U,$J,358.3,23339,0)
  1. ;;=R25.2^^78^1007^14
  1. ;;^UTILITY(U,$J,358.3,23339,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23339,1,3,0)
  1. ;;=3^Cramp and spasm
  1. ;;^UTILITY(U,$J,358.3,23339,1,4,0)
  1. ;;=4^R25.2
  1. ;;^UTILITY(U,$J,358.3,23339,2)
  1. ;;=^5019301
  1. ;;^UTILITY(U,$J,358.3,23340,0)
  1. ;;=R19.7^^78^1007^15
  1. ;;^UTILITY(U,$J,358.3,23340,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23340,1,3,0)
  1. ;;=3^Diarrhea, unspecified
  1. ;;^UTILITY(U,$J,358.3,23340,1,4,0)
  1. ;;=4^R19.7
  1. ;;^UTILITY(U,$J,358.3,23340,2)
  1. ;;=^5019276
  1. ;;^UTILITY(U,$J,358.3,23341,0)
  1. ;;=R42.^^78^1007^17
  1. ;;^UTILITY(U,$J,358.3,23341,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23341,1,3,0)
  1. ;;=3^Dizziness and giddiness
  1. ;;^UTILITY(U,$J,358.3,23341,1,4,0)
  1. ;;=4^R42.
  1. ;;^UTILITY(U,$J,358.3,23341,2)
  1. ;;=^5019450
  1. ;;^UTILITY(U,$J,358.3,23342,0)
  1. ;;=R13.10^^78^1007^18
  1. ;;^UTILITY(U,$J,358.3,23342,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23342,1,3,0)
  1. ;;=3^Dysphagia, unspecified
  1. ;;^UTILITY(U,$J,358.3,23342,1,4,0)
  1. ;;=4^R13.10
  1. ;;^UTILITY(U,$J,358.3,23342,2)
  1. ;;=^335307
  1. ;;^UTILITY(U,$J,358.3,23343,0)
  1. ;;=R06.00^^78^1007^19
  1. ;;^UTILITY(U,$J,358.3,23343,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23343,1,3,0)
  1. ;;=3^Dyspnea, unspecified
  1. ;;^UTILITY(U,$J,358.3,23343,1,4,0)
  1. ;;=4^R06.00
  1. ;;^UTILITY(U,$J,358.3,23343,2)
  1. ;;=^5019180
  1. ;;^UTILITY(U,$J,358.3,23344,0)
  1. ;;=R60.9^^78^1007^20
  1. ;;^UTILITY(U,$J,358.3,23344,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23344,1,3,0)
  1. ;;=3^Edema, unspecified
  1. ;;^UTILITY(U,$J,358.3,23344,1,4,0)
  1. ;;=4^R60.9
  1. ;;^UTILITY(U,$J,358.3,23344,2)
  1. ;;=^5019534
  1. ;;^UTILITY(U,$J,358.3,23345,0)
  1. ;;=R04.0^^78^1007^22
  1. ;;^UTILITY(U,$J,358.3,23345,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23345,1,3,0)
  1. ;;=3^Epistaxis
  1. ;;^UTILITY(U,$J,358.3,23345,1,4,0)
  1. ;;=4^R04.0
  1. ;;^UTILITY(U,$J,358.3,23345,2)
  1. ;;=^5019173
  1. ;;^UTILITY(U,$J,358.3,23346,0)
  1. ;;=R53.83^^78^1007^23
  1. ;;^UTILITY(U,$J,358.3,23346,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23346,1,3,0)
  1. ;;=3^Fatigue, other
  1. ;;^UTILITY(U,$J,358.3,23346,1,4,0)
  1. ;;=4^R53.83
  1. ;;^UTILITY(U,$J,358.3,23346,2)
  1. ;;=^5019520
  1. ;;^UTILITY(U,$J,358.3,23347,0)
  1. ;;=R50.9^^78^1007^24
  1. ;;^UTILITY(U,$J,358.3,23347,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23347,1,3,0)
  1. ;;=3^Fever, unspecified
  1. ;;^UTILITY(U,$J,358.3,23347,1,4,0)
  1. ;;=4^R50.9
  1. ;;^UTILITY(U,$J,358.3,23347,2)
  1. ;;=^5019512
  1. ;;^UTILITY(U,$J,358.3,23348,0)
  1. ;;=R31.9^^78^1007^28
  1. ;;^UTILITY(U,$J,358.3,23348,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23348,1,3,0)
  1. ;;=3^Hematuria, unspecified
  1. ;;^UTILITY(U,$J,358.3,23348,1,4,0)
  1. ;;=4^R31.9
  1. ;;^UTILITY(U,$J,358.3,23348,2)
  1. ;;=^5019328
  1. ;;^UTILITY(U,$J,358.3,23349,0)
  1. ;;=Z21.^^78^1007^25
  1. ;;^UTILITY(U,$J,358.3,23349,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23349,1,3,0)
  1. ;;=3^HIV status, asymptomatic
  1. ;;^UTILITY(U,$J,358.3,23349,1,4,0)
  1. ;;=4^Z21.
  1. ;;^UTILITY(U,$J,358.3,23349,2)
  1. ;;=^5062777
  1. ;;^UTILITY(U,$J,358.3,23350,0)
  1. ;;=R17.^^78^1007^33
  1. ;;^UTILITY(U,$J,358.3,23350,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23350,1,3,0)
  1. ;;=3^Jaundice, unspec