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

IBDEI0W8.m

Go to the documentation of this file.
IBDEI0W8 ; ; 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,14527,0)
 ;;=95909^^57^688^17^^^^1
 ;;^UTILITY(U,$J,358.3,14527,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14527,1,2,0)
 ;;=2^Nerve conduction studies; 5-6 studies
 ;;^UTILITY(U,$J,358.3,14527,1,3,0)
 ;;=3^95909
 ;;^UTILITY(U,$J,358.3,14528,0)
 ;;=95910^^57^688^18^^^^1
 ;;^UTILITY(U,$J,358.3,14528,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14528,1,2,0)
 ;;=2^Nerve conduction studies; 7-8 studies
 ;;^UTILITY(U,$J,358.3,14528,1,3,0)
 ;;=3^95910
 ;;^UTILITY(U,$J,358.3,14529,0)
 ;;=95911^^57^688^19^^^^1
 ;;^UTILITY(U,$J,358.3,14529,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14529,1,2,0)
 ;;=2^Nerve conduction studies; 9-10 studies
 ;;^UTILITY(U,$J,358.3,14529,1,3,0)
 ;;=3^95911
 ;;^UTILITY(U,$J,358.3,14530,0)
 ;;=95912^^57^688^15^^^^1
 ;;^UTILITY(U,$J,358.3,14530,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14530,1,2,0)
 ;;=2^Nerve conduction studies; 11-12 studies
 ;;^UTILITY(U,$J,358.3,14530,1,3,0)
 ;;=3^95912
 ;;^UTILITY(U,$J,358.3,14531,0)
 ;;=95913^^57^688^20^^^^1
 ;;^UTILITY(U,$J,358.3,14531,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14531,1,2,0)
 ;;=2^Nerve conduction studies;13 or > studies
 ;;^UTILITY(U,$J,358.3,14531,1,3,0)
 ;;=3^95913
 ;;^UTILITY(U,$J,358.3,14532,0)
 ;;=95933^^57^688^1^^^^1
 ;;^UTILITY(U,$J,358.3,14532,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14532,1,2,0)
 ;;=2^Blink Reflex Test
 ;;^UTILITY(U,$J,358.3,14532,1,3,0)
 ;;=3^95933
 ;;^UTILITY(U,$J,358.3,14533,0)
 ;;=95925^^57^688^25^^^^1
 ;;^UTILITY(U,$J,358.3,14533,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14533,1,2,0)
 ;;=2^Somatosensory Testing
 ;;^UTILITY(U,$J,358.3,14533,1,3,0)
 ;;=3^95925
 ;;^UTILITY(U,$J,358.3,14534,0)
 ;;=97161^^57^688^22^^^^1
 ;;^UTILITY(U,$J,358.3,14534,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14534,1,2,0)
 ;;=2^PT Evaluation,Low Complex,20 min
 ;;^UTILITY(U,$J,358.3,14534,1,3,0)
 ;;=3^97161
 ;;^UTILITY(U,$J,358.3,14535,0)
 ;;=97162^^57^688^23^^^^1
 ;;^UTILITY(U,$J,358.3,14535,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14535,1,2,0)
 ;;=2^PT Evaluation,Mod Complex,30 min
 ;;^UTILITY(U,$J,358.3,14535,1,3,0)
 ;;=3^97162
 ;;^UTILITY(U,$J,358.3,14536,0)
 ;;=97163^^57^688^23^^^^1
 ;;^UTILITY(U,$J,358.3,14536,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14536,1,2,0)
 ;;=2^PT Evaluation,High Complex,45 min
 ;;^UTILITY(U,$J,358.3,14536,1,3,0)
 ;;=3^97163
 ;;^UTILITY(U,$J,358.3,14537,0)
 ;;=99366^^57^689^1^^^^1
 ;;^UTILITY(U,$J,358.3,14537,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14537,1,2,0)
 ;;=2^Interdisc Team Conf Non-Phys w/ Pt/Fam>29min
 ;;^UTILITY(U,$J,358.3,14537,1,3,0)
 ;;=3^99366
 ;;^UTILITY(U,$J,358.3,14538,0)
 ;;=99368^^57^689^2^^^^1
 ;;^UTILITY(U,$J,358.3,14538,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14538,1,2,0)
 ;;=2^Interdisc Team Conf Non-Phys w/o Pt/Fam>29min
 ;;^UTILITY(U,$J,358.3,14538,1,3,0)
 ;;=3^99368
 ;;^UTILITY(U,$J,358.3,14539,0)
 ;;=99367^^57^689^3^^^^1
 ;;^UTILITY(U,$J,358.3,14539,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14539,1,2,0)
 ;;=2^Interdisc Team Conf Phys w/o Pt/Fam>29min
 ;;^UTILITY(U,$J,358.3,14539,1,3,0)
 ;;=3^99367
 ;;^UTILITY(U,$J,358.3,14540,0)
 ;;=97810^^57^690^3^^^^1
 ;;^UTILITY(U,$J,358.3,14540,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,14540,1,2,0)
 ;;=2^Acupuncture w/o Stimul 15 Min
 ;;^UTILITY(U,$J,358.3,14540,1,3,0)
 ;;=3^97810
 ;;^UTILITY(U,$J,358.3,14541,0)
 ;;=97811^^57^690^4^^^^1
 ;;^UTILITY(U,$J,358.3,14541,1,0)
 ;;=^358.31IA^3^2