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

IBDEI2Q8.m

Go to the documentation of this file.
IBDEI2Q8 ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,43475,0)
 ;;=92614^^159^2117^4^^^^1
 ;;^UTILITY(U,$J,358.3,43475,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43475,1,2,0)
 ;;=2^92614
 ;;^UTILITY(U,$J,358.3,43475,1,3,0)
 ;;=3^Flx Fiberop Endosc Eval,Laryng Snsry Tst,Cine/Vid
 ;;^UTILITY(U,$J,358.3,43476,0)
 ;;=92615^^159^2117^5^^^^1
 ;;^UTILITY(U,$J,358.3,43476,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43476,1,2,0)
 ;;=2^92615
 ;;^UTILITY(U,$J,358.3,43476,1,3,0)
 ;;=3^Flx Fiberop Endosc Eval,Laryng Snsry Tst,I&R Only
 ;;^UTILITY(U,$J,358.3,43477,0)
 ;;=92617^^159^2117^6^^^^1
 ;;^UTILITY(U,$J,358.3,43477,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43477,1,2,0)
 ;;=2^92617
 ;;^UTILITY(U,$J,358.3,43477,1,3,0)
 ;;=3^Flx Fiberop Endosc Swllw Stdy,Laryng,I&R Only
 ;;^UTILITY(U,$J,358.3,43478,0)
 ;;=92507^^159^2118^3^^^^1
 ;;^UTILITY(U,$J,358.3,43478,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43478,1,2,0)
 ;;=2^92507
 ;;^UTILITY(U,$J,358.3,43478,1,3,0)
 ;;=3^CAPD Treatment (SLP Only-Speech/Hearing Therapy)
 ;;^UTILITY(U,$J,358.3,43479,0)
 ;;=92508^^159^2118^2^^^^1
 ;;^UTILITY(U,$J,358.3,43479,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43479,1,2,0)
 ;;=2^92508
 ;;^UTILITY(U,$J,358.3,43479,1,3,0)
 ;;=3^CAPD Treatment (SLP Only),Group
 ;;^UTILITY(U,$J,358.3,43480,0)
 ;;=92521^^159^2118^4^^^^1
 ;;^UTILITY(U,$J,358.3,43480,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43480,1,2,0)
 ;;=2^92521
 ;;^UTILITY(U,$J,358.3,43480,1,3,0)
 ;;=3^Eval,Speech Fluency
 ;;^UTILITY(U,$J,358.3,43481,0)
 ;;=92522^^159^2118^6^^^^1
 ;;^UTILITY(U,$J,358.3,43481,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43481,1,2,0)
 ;;=2^92522
 ;;^UTILITY(U,$J,358.3,43481,1,3,0)
 ;;=3^Eval,Speech Sound Production
 ;;^UTILITY(U,$J,358.3,43482,0)
 ;;=92523^^159^2118^5^^^^1
 ;;^UTILITY(U,$J,358.3,43482,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43482,1,2,0)
 ;;=2^92523
 ;;^UTILITY(U,$J,358.3,43482,1,3,0)
 ;;=3^Eval,Speech Snd Prod w/ Lang Comp Eval/Express
 ;;^UTILITY(U,$J,358.3,43483,0)
 ;;=92524^^159^2118^1^^^^1
 ;;^UTILITY(U,$J,358.3,43483,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43483,1,2,0)
 ;;=2^92524
 ;;^UTILITY(U,$J,358.3,43483,1,3,0)
 ;;=3^Behavioral,Qual Analysis Voice/Resonance
 ;;^UTILITY(U,$J,358.3,43484,0)
 ;;=92526^^159^2118^13^^^^1
 ;;^UTILITY(U,$J,358.3,43484,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43484,1,2,0)
 ;;=2^92526
 ;;^UTILITY(U,$J,358.3,43484,1,3,0)
 ;;=3^Swallowing Treatment
 ;;^UTILITY(U,$J,358.3,43485,0)
 ;;=92597^^159^2118^7^^^^1
 ;;^UTILITY(U,$J,358.3,43485,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43485,1,2,0)
 ;;=2^92597
 ;;^UTILITY(U,$J,358.3,43485,1,3,0)
 ;;=3^Eval,Use/Fit,Voice Prosth Device
 ;;^UTILITY(U,$J,358.3,43486,0)
 ;;=92516^^159^2118^8^^^^1
 ;;^UTILITY(U,$J,358.3,43486,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43486,1,2,0)
 ;;=2^92516
 ;;^UTILITY(U,$J,358.3,43486,1,3,0)
 ;;=3^Facial Nerve Function Test
 ;;^UTILITY(U,$J,358.3,43487,0)
 ;;=92571^^159^2118^9^^^^1
 ;;^UTILITY(U,$J,358.3,43487,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43487,1,2,0)
 ;;=2^92571
 ;;^UTILITY(U,$J,358.3,43487,1,3,0)
 ;;=3^Filtered Speech Test
 ;;^UTILITY(U,$J,358.3,43488,0)
 ;;=92555^^159^2118^10^^^^1
 ;;^UTILITY(U,$J,358.3,43488,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,43488,1,2,0)
 ;;=2^92555
 ;;^UTILITY(U,$J,358.3,43488,1,3,0)
 ;;=3^Speech Audiomet Threshold
 ;;^UTILITY(U,$J,358.3,43489,0)
 ;;=92556^^159^2118^11^^^^1
 ;;^UTILITY(U,$J,358.3,43489,1,0)
 ;;=^358.31IA^3^2