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

IBDEI1HG.m

Go to the documentation of this file.
  1. IBDEI1HG ; ; 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,23989,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23989,1,3,0)
  1. ;;=3^Transsexualism
  1. ;;^UTILITY(U,$J,358.3,23989,1,4,0)
  1. ;;=4^F64.0
  1. ;;^UTILITY(U,$J,358.3,23989,2)
  1. ;;=^121404
  1. ;;^UTILITY(U,$J,358.3,23990,0)
  1. ;;=B35.1^^82^1041^59
  1. ;;^UTILITY(U,$J,358.3,23990,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23990,1,3,0)
  1. ;;=3^Tinea Unguium
  1. ;;^UTILITY(U,$J,358.3,23990,1,4,0)
  1. ;;=4^B35.1
  1. ;;^UTILITY(U,$J,358.3,23990,2)
  1. ;;=^119748
  1. ;;^UTILITY(U,$J,358.3,23991,0)
  1. ;;=L03.90^^82^1041^3
  1. ;;^UTILITY(U,$J,358.3,23991,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23991,1,3,0)
  1. ;;=3^Cellulitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,23991,1,4,0)
  1. ;;=4^L03.90
  1. ;;^UTILITY(U,$J,358.3,23991,2)
  1. ;;=^5009067
  1. ;;^UTILITY(U,$J,358.3,23992,0)
  1. ;;=L03.91^^82^1041^7
  1. ;;^UTILITY(U,$J,358.3,23992,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23992,1,3,0)
  1. ;;=3^Lymphangitis,Acute,Unspec
  1. ;;^UTILITY(U,$J,358.3,23992,1,4,0)
  1. ;;=4^L03.91
  1. ;;^UTILITY(U,$J,358.3,23992,2)
  1. ;;=^5009068
  1. ;;^UTILITY(U,$J,358.3,23993,0)
  1. ;;=L25.9^^82^1041^4
  1. ;;^UTILITY(U,$J,358.3,23993,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23993,1,3,0)
  1. ;;=3^Contact Dermatitis,Unspec Cause
  1. ;;^UTILITY(U,$J,358.3,23993,1,4,0)
  1. ;;=4^L25.9
  1. ;;^UTILITY(U,$J,358.3,23993,2)
  1. ;;=^5133647
  1. ;;^UTILITY(U,$J,358.3,23994,0)
  1. ;;=L40.0^^82^1041^54
  1. ;;^UTILITY(U,$J,358.3,23994,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23994,1,3,0)
  1. ;;=3^Psoriasis Vulgaris
  1. ;;^UTILITY(U,$J,358.3,23994,1,4,0)
  1. ;;=4^L40.0
  1. ;;^UTILITY(U,$J,358.3,23994,2)
  1. ;;=^5009160
  1. ;;^UTILITY(U,$J,358.3,23995,0)
  1. ;;=L40.2^^82^1041^1
  1. ;;^UTILITY(U,$J,358.3,23995,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23995,1,3,0)
  1. ;;=3^Acrodermatitis Continua
  1. ;;^UTILITY(U,$J,358.3,23995,1,4,0)
  1. ;;=4^L40.2
  1. ;;^UTILITY(U,$J,358.3,23995,2)
  1. ;;=^5009162
  1. ;;^UTILITY(U,$J,358.3,23996,0)
  1. ;;=L40.3^^82^1041^57
  1. ;;^UTILITY(U,$J,358.3,23996,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23996,1,3,0)
  1. ;;=3^Pustulosis Palmaris et Plantaris
  1. ;;^UTILITY(U,$J,358.3,23996,1,4,0)
  1. ;;=4^L40.3
  1. ;;^UTILITY(U,$J,358.3,23996,2)
  1. ;;=^5009163
  1. ;;^UTILITY(U,$J,358.3,23997,0)
  1. ;;=L40.4^^82^1041^5
  1. ;;^UTILITY(U,$J,358.3,23997,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23997,1,3,0)
  1. ;;=3^Guttate Psoriasis
  1. ;;^UTILITY(U,$J,358.3,23997,1,4,0)
  1. ;;=4^L40.4
  1. ;;^UTILITY(U,$J,358.3,23997,2)
  1. ;;=^5009164
  1. ;;^UTILITY(U,$J,358.3,23998,0)
  1. ;;=L40.8^^82^1041^55
  1. ;;^UTILITY(U,$J,358.3,23998,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23998,1,3,0)
  1. ;;=3^Psoriasis,Other
  1. ;;^UTILITY(U,$J,358.3,23998,1,4,0)
  1. ;;=4^L40.8
  1. ;;^UTILITY(U,$J,358.3,23998,2)
  1. ;;=^271917
  1. ;;^UTILITY(U,$J,358.3,23999,0)
  1. ;;=L40.9^^82^1041^56
  1. ;;^UTILITY(U,$J,358.3,23999,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23999,1,3,0)
  1. ;;=3^Psoriasis,Unspec
  1. ;;^UTILITY(U,$J,358.3,23999,1,4,0)
  1. ;;=4^L40.9
  1. ;;^UTILITY(U,$J,358.3,23999,2)
  1. ;;=^5009171
  1. ;;^UTILITY(U,$J,358.3,24000,0)
  1. ;;=L57.0^^82^1041^2
  1. ;;^UTILITY(U,$J,358.3,24000,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24000,1,3,0)
  1. ;;=3^Actinic Keratosis
  1. ;;^UTILITY(U,$J,358.3,24000,1,4,0)
  1. ;;=4^L57.0
  1. ;;^UTILITY(U,$J,358.3,24000,2)
  1. ;;=^66900
  1. ;;^UTILITY(U,$J,358.3,24001,0)
  1. ;;=L97.911^^82^1041^33
  1. ;;^UTILITY(U,$J,358.3,24001,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24001,1,3,0)
  1. ;;=3^Non-Prs Chr Ulc,RLL,Ltd to Brkdwn Skin
  1. ;;^UTILITY(U,$J,358.3,24001,1,4,0)
  1. ;;=4^L97.911
  1. ;;^UTILITY(U,$J,358.3,24001,2)
  1. ;;=^5133679