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

IBDEI0MZ.m

Go to the documentation of this file.
IBDEI0MZ ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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
Q Q
 ;;^UTILITY(U,$J,358.3,10327,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10327,1,2,0)
 ;;=2^HOME VISIT FECAL/ENEMA MGMT
 ;;^UTILITY(U,$J,358.3,10327,1,3,0)
 ;;=3^99511
 ;;^UTILITY(U,$J,358.3,10328,0)
 ;;=99601^^40^439^20^^^^1
 ;;^UTILITY(U,$J,358.3,10328,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10328,1,2,0)
 ;;=2^HOME INFUSION/VISIT 2 HRS
 ;;^UTILITY(U,$J,358.3,10328,1,3,0)
 ;;=3^99601
 ;;^UTILITY(U,$J,358.3,10329,0)
 ;;=99602^^40^439^19^^^^1
 ;;^UTILITY(U,$J,358.3,10329,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10329,1,2,0)
 ;;=2^HOME INFUSION,EA ADDL HR
 ;;^UTILITY(U,$J,358.3,10329,1,3,0)
 ;;=3^99602
 ;;^UTILITY(U,$J,358.3,10330,0)
 ;;=10061^^40^439^25^^^^1
 ;;^UTILITY(U,$J,358.3,10330,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10330,1,2,0)
 ;;=2^I&D ABSCESS,COMPLICATED
 ;;^UTILITY(U,$J,358.3,10330,1,3,0)
 ;;=3^10061
 ;;^UTILITY(U,$J,358.3,10331,0)
 ;;=10060^^40^439^26^^^^1
 ;;^UTILITY(U,$J,358.3,10331,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10331,1,2,0)
 ;;=2^I&D ABSCESS,SIMPLE
 ;;^UTILITY(U,$J,358.3,10331,1,3,0)
 ;;=3^10060
 ;;^UTILITY(U,$J,358.3,10332,0)
 ;;=11000^^40^439^8^^^^1
 ;;^UTILITY(U,$J,358.3,10332,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10332,1,2,0)
 ;;=2^DEBRIDE ECZEMA/INFECTED SKIN UP TO 10%
 ;;^UTILITY(U,$J,358.3,10332,1,3,0)
 ;;=3^11000
 ;;^UTILITY(U,$J,358.3,10333,0)
 ;;=11042^^40^439^14^^^^1
 ;;^UTILITY(U,$J,358.3,10333,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10333,1,2,0)
 ;;=2^DEBRIDE TISSUE,FIRST 20 SQ CM
 ;;^UTILITY(U,$J,358.3,10333,1,3,0)
 ;;=3^11042
 ;;^UTILITY(U,$J,358.3,10334,0)
 ;;=11200^^40^439^34^^^^1
 ;;^UTILITY(U,$J,358.3,10334,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10334,1,2,0)
 ;;=2^REMOVAL OF SKIN TAGS UP TO 15
 ;;^UTILITY(U,$J,358.3,10334,1,3,0)
 ;;=3^11200
 ;;^UTILITY(U,$J,358.3,10335,0)
 ;;=11400^^40^439^16^^^^1
 ;;^UTILITY(U,$J,358.3,10335,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10335,1,2,0)
 ;;=2^EXCISION LESION TRUNK/ARM/LEG
 ;;^UTILITY(U,$J,358.3,10335,1,3,0)
 ;;=3^11400
 ;;^UTILITY(U,$J,358.3,10336,0)
 ;;=11420^^40^439^15^^^^1
 ;;^UTILITY(U,$J,358.3,10336,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10336,1,2,0)
 ;;=2^EXCISION LESION NECK/HAND/FOOT
 ;;^UTILITY(U,$J,358.3,10336,1,3,0)
 ;;=3^11420
 ;;^UTILITY(U,$J,358.3,10337,0)
 ;;=11055^^40^439^43^^^^1
 ;;^UTILITY(U,$J,358.3,10337,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10337,1,2,0)
 ;;=2^TRIM CORN/CALLOUS,SINGLE
 ;;^UTILITY(U,$J,358.3,10337,1,3,0)
 ;;=3^11055
 ;;^UTILITY(U,$J,358.3,10338,0)
 ;;=11056^^40^439^41^^^^1
 ;;^UTILITY(U,$J,358.3,10338,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10338,1,2,0)
 ;;=2^TRIM CORN/CALLOUS,2-4
 ;;^UTILITY(U,$J,358.3,10338,1,3,0)
 ;;=3^11056
 ;;^UTILITY(U,$J,358.3,10339,0)
 ;;=11057^^40^439^42^^^^1
 ;;^UTILITY(U,$J,358.3,10339,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10339,1,2,0)
 ;;=2^TRIM CORN/CALLOUS,5 OR MORE
 ;;^UTILITY(U,$J,358.3,10339,1,3,0)
 ;;=3^11057
 ;;^UTILITY(U,$J,358.3,10340,0)
 ;;=12001^^40^439^40^^^^1
 ;;^UTILITY(U,$J,358.3,10340,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10340,1,2,0)
 ;;=2^SIMPLE REPAIR WND < 2.5cm,TRUNK/EXT
 ;;^UTILITY(U,$J,358.3,10340,1,3,0)
 ;;=3^12001
 ;;^UTILITY(U,$J,358.3,10341,0)
 ;;=12002^^40^439^38^^^^1
 ;;^UTILITY(U,$J,358.3,10341,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,10341,1,2,0)
 ;;=2^SIMPLE REPAIR WND 2.6-7.5cm,TRUNK/EXT
 ;;^UTILITY(U,$J,358.3,10341,1,3,0)
 ;;=3^12002