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

IBDEI3FU.m

Go to the documentation of this file.
  1. IBDEI3FU ; ; 19-NOV-2015
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
  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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,57841,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57841,1,3,0)
  1. ;;=3^Pressure Ulcer Right Ankle,Stage 1
  1. ;;^UTILITY(U,$J,358.3,57841,1,4,0)
  1. ;;=4^L89.511
  1. ;;^UTILITY(U,$J,358.3,57841,2)
  1. ;;=^5009416
  1. ;;^UTILITY(U,$J,358.3,57842,0)
  1. ;;=L89.512^^270^2897^56
  1. ;;^UTILITY(U,$J,358.3,57842,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57842,1,3,0)
  1. ;;=3^Pressure Ulcer Right Ankle,Stage 2
  1. ;;^UTILITY(U,$J,358.3,57842,1,4,0)
  1. ;;=4^L89.512
  1. ;;^UTILITY(U,$J,358.3,57842,2)
  1. ;;=^5009417
  1. ;;^UTILITY(U,$J,358.3,57843,0)
  1. ;;=L89.513^^270^2897^57
  1. ;;^UTILITY(U,$J,358.3,57843,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57843,1,3,0)
  1. ;;=3^Pressure Ulcer Right Ankle,Stage 3
  1. ;;^UTILITY(U,$J,358.3,57843,1,4,0)
  1. ;;=4^L89.513
  1. ;;^UTILITY(U,$J,358.3,57843,2)
  1. ;;=^5009418
  1. ;;^UTILITY(U,$J,358.3,57844,0)
  1. ;;=L89.514^^270^2897^58
  1. ;;^UTILITY(U,$J,358.3,57844,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57844,1,3,0)
  1. ;;=3^Pressure Ulcer Right Ankle,Stage 4
  1. ;;^UTILITY(U,$J,358.3,57844,1,4,0)
  1. ;;=4^L89.514
  1. ;;^UTILITY(U,$J,358.3,57844,2)
  1. ;;=^5009419
  1. ;;^UTILITY(U,$J,358.3,57845,0)
  1. ;;=L89.519^^270^2897^59
  1. ;;^UTILITY(U,$J,358.3,57845,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57845,1,3,0)
  1. ;;=3^Pressure Ulcer Right Ankle,Unspec Stage
  1. ;;^UTILITY(U,$J,358.3,57845,1,4,0)
  1. ;;=4^L89.519
  1. ;;^UTILITY(U,$J,358.3,57845,2)
  1. ;;=^5133673
  1. ;;^UTILITY(U,$J,358.3,57846,0)
  1. ;;=L89.510^^270^2897^60
  1. ;;^UTILITY(U,$J,358.3,57846,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57846,1,3,0)
  1. ;;=3^Pressure Ulcer Right Ankle,Unstageable
  1. ;;^UTILITY(U,$J,358.3,57846,1,4,0)
  1. ;;=4^L89.510
  1. ;;^UTILITY(U,$J,358.3,57846,2)
  1. ;;=^5009415
  1. ;;^UTILITY(U,$J,358.3,57847,0)
  1. ;;=L89.311^^270^2897^61
  1. ;;^UTILITY(U,$J,358.3,57847,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57847,1,3,0)
  1. ;;=3^Pressure Ulcer Right Buttock,Stage 1
  1. ;;^UTILITY(U,$J,358.3,57847,1,4,0)
  1. ;;=4^L89.311
  1. ;;^UTILITY(U,$J,358.3,57847,2)
  1. ;;=^5009395
  1. ;;^UTILITY(U,$J,358.3,57848,0)
  1. ;;=L89.312^^270^2897^62
  1. ;;^UTILITY(U,$J,358.3,57848,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57848,1,3,0)
  1. ;;=3^Pressure Ulcer Right Buttock,Stage 2
  1. ;;^UTILITY(U,$J,358.3,57848,1,4,0)
  1. ;;=4^L89.312
  1. ;;^UTILITY(U,$J,358.3,57848,2)
  1. ;;=^5009396
  1. ;;^UTILITY(U,$J,358.3,57849,0)
  1. ;;=L89.313^^270^2897^63
  1. ;;^UTILITY(U,$J,358.3,57849,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57849,1,3,0)
  1. ;;=3^Pressure Ulcer Right Buttock,Stage 3
  1. ;;^UTILITY(U,$J,358.3,57849,1,4,0)
  1. ;;=4^L89.313
  1. ;;^UTILITY(U,$J,358.3,57849,2)
  1. ;;=^5009397
  1. ;;^UTILITY(U,$J,358.3,57850,0)
  1. ;;=L89.314^^270^2897^64
  1. ;;^UTILITY(U,$J,358.3,57850,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57850,1,3,0)
  1. ;;=3^Pressure Ulcer Right Buttock,Stage 4
  1. ;;^UTILITY(U,$J,358.3,57850,1,4,0)
  1. ;;=4^L89.314
  1. ;;^UTILITY(U,$J,358.3,57850,2)
  1. ;;=^5009398
  1. ;;^UTILITY(U,$J,358.3,57851,0)
  1. ;;=L89.319^^270^2897^65
  1. ;;^UTILITY(U,$J,358.3,57851,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57851,1,3,0)
  1. ;;=3^Pressure Ulcer Right Buttock,Unspec Stage
  1. ;;^UTILITY(U,$J,358.3,57851,1,4,0)
  1. ;;=4^L89.319
  1. ;;^UTILITY(U,$J,358.3,57851,2)
  1. ;;=^5133670
  1. ;;^UTILITY(U,$J,358.3,57852,0)
  1. ;;=L89.310^^270^2897^66
  1. ;;^UTILITY(U,$J,358.3,57852,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57852,1,3,0)
  1. ;;=3^Pressure Ulcer Right Buttock,Unstageable
  1. ;;^UTILITY(U,$J,358.3,57852,1,4,0)
  1. ;;=4^L89.310
  1. ;;^UTILITY(U,$J,358.3,57852,2)
  1. ;;=^5009394
  1. ;;^UTILITY(U,$J,358.3,57853,0)
  1. ;;=L89.011^^270^2897^67
  1. ;;^UTILITY(U,$J,358.3,57853,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,57853,1,3,0)
  1. ;;=3^Pressure Ulcer Right Elbow,Stage 1
  1. ;;^UTILITY(U,$J,358.3,57853,1,4,0)
  1. ;;=4^L89.011