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

IBDEI1NA.m

Go to the documentation of this file.
  1. IBDEI1NA ; ; 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,26268,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26268,1,3,0)
  1. ;;=3^Acquired Absence of Pancreas,Total
  1. ;;^UTILITY(U,$J,358.3,26268,1,4,0)
  1. ;;=4^Z90.410
  1. ;;^UTILITY(U,$J,358.3,26268,2)
  1. ;;=^5063587
  1. ;;^UTILITY(U,$J,358.3,26269,0)
  1. ;;=Z89.441^^107^1233^2
  1. ;;^UTILITY(U,$J,358.3,26269,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26269,1,3,0)
  1. ;;=3^Acquired Absence of Ankle,Right
  1. ;;^UTILITY(U,$J,358.3,26269,1,4,0)
  1. ;;=4^Z89.441
  1. ;;^UTILITY(U,$J,358.3,26269,2)
  1. ;;=^5063563
  1. ;;^UTILITY(U,$J,358.3,26270,0)
  1. ;;=Z90.11^^107^1233^4
  1. ;;^UTILITY(U,$J,358.3,26270,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26270,1,3,0)
  1. ;;=3^Acquired Absence of Breast & Nipple,Right
  1. ;;^UTILITY(U,$J,358.3,26270,1,4,0)
  1. ;;=4^Z90.11
  1. ;;^UTILITY(U,$J,358.3,26270,2)
  1. ;;=^5063582
  1. ;;^UTILITY(U,$J,358.3,26271,0)
  1. ;;=Z89.021^^107^1233^9
  1. ;;^UTILITY(U,$J,358.3,26271,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26271,1,3,0)
  1. ;;=3^Acquired Absence of Finger(s),Right
  1. ;;^UTILITY(U,$J,358.3,26271,1,4,0)
  1. ;;=4^Z89.021
  1. ;;^UTILITY(U,$J,358.3,26271,2)
  1. ;;=^5063534
  1. ;;^UTILITY(U,$J,358.3,26272,0)
  1. ;;=Z89.431^^107^1233^11
  1. ;;^UTILITY(U,$J,358.3,26272,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26272,1,3,0)
  1. ;;=3^Acquired Absence of Foot,Right
  1. ;;^UTILITY(U,$J,358.3,26272,1,4,0)
  1. ;;=4^Z89.431
  1. ;;^UTILITY(U,$J,358.3,26272,2)
  1. ;;=^5063560
  1. ;;^UTILITY(U,$J,358.3,26273,0)
  1. ;;=Z89.411^^107^1233^13
  1. ;;^UTILITY(U,$J,358.3,26273,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26273,1,3,0)
  1. ;;=3^Acquired Absence of Great Toe,Right
  1. ;;^UTILITY(U,$J,358.3,26273,1,4,0)
  1. ;;=4^Z89.411
  1. ;;^UTILITY(U,$J,358.3,26273,2)
  1. ;;=^5063554
  1. ;;^UTILITY(U,$J,358.3,26274,0)
  1. ;;=Z89.111^^107^1233^15
  1. ;;^UTILITY(U,$J,358.3,26274,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26274,1,3,0)
  1. ;;=3^Acquired Absence of Hand,Right
  1. ;;^UTILITY(U,$J,358.3,26274,1,4,0)
  1. ;;=4^Z89.111
  1. ;;^UTILITY(U,$J,358.3,26274,2)
  1. ;;=^5063537
  1. ;;^UTILITY(U,$J,358.3,26275,0)
  1. ;;=Z89.621^^107^1233^17
  1. ;;^UTILITY(U,$J,358.3,26275,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26275,1,3,0)
  1. ;;=3^Acquired Absence of Hip Joint,Right
  1. ;;^UTILITY(U,$J,358.3,26275,1,4,0)
  1. ;;=4^Z89.621
  1. ;;^UTILITY(U,$J,358.3,26275,2)
  1. ;;=^5063575
  1. ;;^UTILITY(U,$J,358.3,26276,0)
  1. ;;=Z89.611^^107^1233^21
  1. ;;^UTILITY(U,$J,358.3,26276,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26276,1,3,0)
  1. ;;=3^Acquired Absence of Leg Above Knee,Right
  1. ;;^UTILITY(U,$J,358.3,26276,1,4,0)
  1. ;;=4^Z89.611
  1. ;;^UTILITY(U,$J,358.3,26276,2)
  1. ;;=^5063572
  1. ;;^UTILITY(U,$J,358.3,26277,0)
  1. ;;=Z89.511^^107^1233^23
  1. ;;^UTILITY(U,$J,358.3,26277,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26277,1,3,0)
  1. ;;=3^Acquired Absence of Leg Below Knee,Right
  1. ;;^UTILITY(U,$J,358.3,26277,1,4,0)
  1. ;;=4^Z89.511
  1. ;;^UTILITY(U,$J,358.3,26277,2)
  1. ;;=^5063566
  1. ;;^UTILITY(U,$J,358.3,26278,0)
  1. ;;=Z89.231^^107^1233^33
  1. ;;^UTILITY(U,$J,358.3,26278,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26278,1,3,0)
  1. ;;=3^Acquired Absence of Shoulder,Right
  1. ;;^UTILITY(U,$J,358.3,26278,1,4,0)
  1. ;;=4^Z89.231
  1. ;;^UTILITY(U,$J,358.3,26278,2)
  1. ;;=^5063551
  1. ;;^UTILITY(U,$J,358.3,26279,0)
  1. ;;=Z89.011^^107^1233^37
  1. ;;^UTILITY(U,$J,358.3,26279,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,26279,1,3,0)
  1. ;;=3^Acquired Absence of Thumb,Right
  1. ;;^UTILITY(U,$J,358.3,26279,1,4,0)
  1. ;;=4^Z89.011
  1. ;;^UTILITY(U,$J,358.3,26279,2)
  1. ;;=^5063531
  1. ;;^UTILITY(U,$J,358.3,26280,0)
  1. ;;=Z89.421^^107^1233^26