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

IBDEI32L.m

Go to the documentation of this file.
  1. IBDEI32L ; ; 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,49022,2)
  1. ;;=^5063615
  1. ;;^UTILITY(U,$J,358.3,49023,0)
  1. ;;=Z91.19^^185^2428^79
  1. ;;^UTILITY(U,$J,358.3,49023,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49023,1,3,0)
  1. ;;=3^Noncompliance w/ Medical Treatment/Regimen
  1. ;;^UTILITY(U,$J,358.3,49023,1,4,0)
  1. ;;=4^Z91.19
  1. ;;^UTILITY(U,$J,358.3,49023,2)
  1. ;;=^5063618
  1. ;;^UTILITY(U,$J,358.3,49024,0)
  1. ;;=Z91.15^^185^2428^80
  1. ;;^UTILITY(U,$J,358.3,49024,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49024,1,3,0)
  1. ;;=3^Noncompliance w/ Renal Dialysis
  1. ;;^UTILITY(U,$J,358.3,49024,1,4,0)
  1. ;;=4^Z91.15
  1. ;;^UTILITY(U,$J,358.3,49024,2)
  1. ;;=^5063617
  1. ;;^UTILITY(U,$J,358.3,49025,0)
  1. ;;=Z57.2^^185^2428^85
  1. ;;^UTILITY(U,$J,358.3,49025,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49025,1,3,0)
  1. ;;=3^Occupational Exposure to Dust
  1. ;;^UTILITY(U,$J,358.3,49025,1,4,0)
  1. ;;=4^Z57.2
  1. ;;^UTILITY(U,$J,358.3,49025,2)
  1. ;;=^5063120
  1. ;;^UTILITY(U,$J,358.3,49026,0)
  1. ;;=Z57.31^^185^2428^91
  1. ;;^UTILITY(U,$J,358.3,49026,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49026,1,3,0)
  1. ;;=3^Occupational Exposure to Tobacco Smoke,Environmental
  1. ;;^UTILITY(U,$J,358.3,49026,1,4,0)
  1. ;;=4^Z57.31
  1. ;;^UTILITY(U,$J,358.3,49026,2)
  1. ;;=^5063121
  1. ;;^UTILITY(U,$J,358.3,49027,0)
  1. ;;=Z57.6^^185^2428^86
  1. ;;^UTILITY(U,$J,358.3,49027,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49027,1,3,0)
  1. ;;=3^Occupational Exposure to Extreme Temperature
  1. ;;^UTILITY(U,$J,358.3,49027,1,4,0)
  1. ;;=4^Z57.6
  1. ;;^UTILITY(U,$J,358.3,49027,2)
  1. ;;=^5063125
  1. ;;^UTILITY(U,$J,358.3,49028,0)
  1. ;;=Z57.0^^185^2428^88
  1. ;;^UTILITY(U,$J,358.3,49028,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49028,1,3,0)
  1. ;;=3^Occupational Exposure to Noise
  1. ;;^UTILITY(U,$J,358.3,49028,1,4,0)
  1. ;;=4^Z57.0
  1. ;;^UTILITY(U,$J,358.3,49028,2)
  1. ;;=^5063118
  1. ;;^UTILITY(U,$J,358.3,49029,0)
  1. ;;=Z57.39^^185^2428^84
  1. ;;^UTILITY(U,$J,358.3,49029,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49029,1,3,0)
  1. ;;=3^Occupational Exposure to Air Contaminants
  1. ;;^UTILITY(U,$J,358.3,49029,1,4,0)
  1. ;;=4^Z57.39
  1. ;;^UTILITY(U,$J,358.3,49029,2)
  1. ;;=^5063122
  1. ;;^UTILITY(U,$J,358.3,49030,0)
  1. ;;=Z57.8^^185^2428^89
  1. ;;^UTILITY(U,$J,358.3,49030,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49030,1,3,0)
  1. ;;=3^Occupational Exposure to Other Risk Factors
  1. ;;^UTILITY(U,$J,358.3,49030,1,4,0)
  1. ;;=4^Z57.8
  1. ;;^UTILITY(U,$J,358.3,49030,2)
  1. ;;=^5063127
  1. ;;^UTILITY(U,$J,358.3,49031,0)
  1. ;;=Z57.1^^185^2428^90
  1. ;;^UTILITY(U,$J,358.3,49031,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49031,1,3,0)
  1. ;;=3^Occupational Exposure to Radiation
  1. ;;^UTILITY(U,$J,358.3,49031,1,4,0)
  1. ;;=4^Z57.1
  1. ;;^UTILITY(U,$J,358.3,49031,2)
  1. ;;=^5063119
  1. ;;^UTILITY(U,$J,358.3,49032,0)
  1. ;;=Z57.4^^185^2428^83
  1. ;;^UTILITY(U,$J,358.3,49032,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49032,1,3,0)
  1. ;;=3^Occupational Exposure to Agriculture Toxic Agents
  1. ;;^UTILITY(U,$J,358.3,49032,1,4,0)
  1. ;;=4^Z57.4
  1. ;;^UTILITY(U,$J,358.3,49032,2)
  1. ;;=^5063123
  1. ;;^UTILITY(U,$J,358.3,49033,0)
  1. ;;=Z57.5^^185^2428^87
  1. ;;^UTILITY(U,$J,358.3,49033,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49033,1,3,0)
  1. ;;=3^Occupational Exposure to Industrial Toxic Agents
  1. ;;^UTILITY(U,$J,358.3,49033,1,4,0)
  1. ;;=4^Z57.5
  1. ;;^UTILITY(U,$J,358.3,49033,2)
  1. ;;=^5063124
  1. ;;^UTILITY(U,$J,358.3,49034,0)
  1. ;;=Z57.9^^185^2428^92
  1. ;;^UTILITY(U,$J,358.3,49034,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,49034,1,3,0)
  1. ;;=3^Occupational Exposure to Unspec Risk Factor
  1. ;;^UTILITY(U,$J,358.3,49034,1,4,0)
  1. ;;=4^Z57.9