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

IBDEI3FX.m

Go to the documentation of this file.
IBDEI3FX ; ; 19-NOV-2015
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
 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
Q Q
 ;;^UTILITY(U,$J,358.3,57879,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57879,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage 4
 ;;^UTILITY(U,$J,358.3,57879,1,4,0)
 ;;=4^L89.114
 ;;^UTILITY(U,$J,358.3,57879,2)
 ;;=^5009356
 ;;^UTILITY(U,$J,358.3,57880,0)
 ;;=L89.119^^270^2897^95
 ;;^UTILITY(U,$J,358.3,57880,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57880,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Unspec Stage
 ;;^UTILITY(U,$J,358.3,57880,1,4,0)
 ;;=4^L89.119
 ;;^UTILITY(U,$J,358.3,57880,2)
 ;;=^5009357
 ;;^UTILITY(U,$J,358.3,57881,0)
 ;;=L89.110^^270^2897^96
 ;;^UTILITY(U,$J,358.3,57881,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57881,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Unstageable
 ;;^UTILITY(U,$J,358.3,57881,1,4,0)
 ;;=4^L89.110
 ;;^UTILITY(U,$J,358.3,57881,2)
 ;;=^5009352
 ;;^UTILITY(U,$J,358.3,57882,0)
 ;;=L89.151^^270^2897^97
 ;;^UTILITY(U,$J,358.3,57882,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57882,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Stage 1
 ;;^UTILITY(U,$J,358.3,57882,1,4,0)
 ;;=4^L89.151
 ;;^UTILITY(U,$J,358.3,57882,2)
 ;;=^5009369
 ;;^UTILITY(U,$J,358.3,57883,0)
 ;;=L89.152^^270^2897^98
 ;;^UTILITY(U,$J,358.3,57883,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57883,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Stage 2
 ;;^UTILITY(U,$J,358.3,57883,1,4,0)
 ;;=4^L89.152
 ;;^UTILITY(U,$J,358.3,57883,2)
 ;;=^5009370
 ;;^UTILITY(U,$J,358.3,57884,0)
 ;;=L89.153^^270^2897^99
 ;;^UTILITY(U,$J,358.3,57884,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57884,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Stage 3
 ;;^UTILITY(U,$J,358.3,57884,1,4,0)
 ;;=4^L89.153
 ;;^UTILITY(U,$J,358.3,57884,2)
 ;;=^5009371
 ;;^UTILITY(U,$J,358.3,57885,0)
 ;;=L89.154^^270^2897^100
 ;;^UTILITY(U,$J,358.3,57885,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57885,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Stage 4
 ;;^UTILITY(U,$J,358.3,57885,1,4,0)
 ;;=4^L89.154
 ;;^UTILITY(U,$J,358.3,57885,2)
 ;;=^5009372
 ;;^UTILITY(U,$J,358.3,57886,0)
 ;;=L89.159^^270^2897^101
 ;;^UTILITY(U,$J,358.3,57886,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57886,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Unspec Stage
 ;;^UTILITY(U,$J,358.3,57886,1,4,0)
 ;;=4^L89.159
 ;;^UTILITY(U,$J,358.3,57886,2)
 ;;=^5009373
 ;;^UTILITY(U,$J,358.3,57887,0)
 ;;=L89.150^^270^2897^102
 ;;^UTILITY(U,$J,358.3,57887,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57887,1,3,0)
 ;;=3^Pressure Ulcer Sacral Region,Unstageable
 ;;^UTILITY(U,$J,358.3,57887,1,4,0)
 ;;=4^L89.150
 ;;^UTILITY(U,$J,358.3,57887,2)
 ;;=^5009368
 ;;^UTILITY(U,$J,358.3,57888,0)
 ;;=Z48.01^^270^2898^1
 ;;^UTILITY(U,$J,358.3,57888,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57888,1,3,0)
 ;;=3^Change/Removal of Surgical Wound Dressing
 ;;^UTILITY(U,$J,358.3,57888,1,4,0)
 ;;=4^Z48.01
 ;;^UTILITY(U,$J,358.3,57888,2)
 ;;=^5063034
 ;;^UTILITY(U,$J,358.3,57889,0)
 ;;=Z48.02^^270^2898^2
 ;;^UTILITY(U,$J,358.3,57889,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,57889,1,3,0)
 ;;=3^Removal of Sutures
 ;;^UTILITY(U,$J,358.3,57889,1,4,0)
 ;;=4^Z48.02
 ;;^UTILITY(U,$J,358.3,57889,2)
 ;;=^5063035
 ;;^UTILITY(U,$J,358.3,57890,0)
 ;;=Q3014^^271^2899^5^^^^1
 ;;^UTILITY(U,$J,358.3,57890,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,57890,1,2,0)
 ;;=2^Q3014
 ;;^UTILITY(U,$J,358.3,57890,1,3,0)
 ;;=3^TELEHEALTH FACILITY FEE
 ;;^UTILITY(U,$J,358.3,57891,0)
 ;;=92227^^271^2899^3^^^^1
 ;;^UTILITY(U,$J,358.3,57891,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,57891,1,2,0)
 ;;=2^92227
 ;;^UTILITY(U,$J,358.3,57891,1,3,0)
 ;;=3^REMOTE DX RETINAL IMAGING
 ;;^UTILITY(U,$J,358.3,57892,0)
 ;;=92228^^271^2899^4^^^^1