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

IBDEI1NY.m

Go to the documentation of this file.
IBDEI1NY ; ; 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,26570,1,3,0)
 ;;=3^HLTH/BEHAV INTERV,GRP,EA ADDL 15 MIN
 ;;^UTILITY(U,$J,358.3,26571,0)
 ;;=96167^^108^1248^20^^^^1
 ;;^UTILITY(U,$J,358.3,26571,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26571,1,2,0)
 ;;=2^96167
 ;;^UTILITY(U,$J,358.3,26571,1,3,0)
 ;;=3^HLTH/BEHAV INTERV,FAM W/ PT,1ST 30 MIN
 ;;^UTILITY(U,$J,358.3,26572,0)
 ;;=96168^^108^1248^21^^^^1
 ;;^UTILITY(U,$J,358.3,26572,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26572,1,2,0)
 ;;=2^96168
 ;;^UTILITY(U,$J,358.3,26572,1,3,0)
 ;;=3^HLTH/BEHAV INTERV,FAM W/ PT,EA ADDL 15 MIN
 ;;^UTILITY(U,$J,358.3,26573,0)
 ;;=96170^^108^1248^22^^^^1
 ;;^UTILITY(U,$J,358.3,26573,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26573,1,2,0)
 ;;=2^96170
 ;;^UTILITY(U,$J,358.3,26573,1,3,0)
 ;;=3^HLTH/BEHAV INTERV,FAM W/O PT,1ST 30 MIN
 ;;^UTILITY(U,$J,358.3,26574,0)
 ;;=96171^^108^1248^23^^^^1
 ;;^UTILITY(U,$J,358.3,26574,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26574,1,2,0)
 ;;=2^96171
 ;;^UTILITY(U,$J,358.3,26574,1,3,0)
 ;;=3^HLTH/BEHAV INTERV,FAM W/O PT,EA ADDL 15 MIN
 ;;^UTILITY(U,$J,358.3,26575,0)
 ;;=97129^^108^1248^60^^^^1
 ;;^UTILITY(U,$J,358.3,26575,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26575,1,2,0)
 ;;=2^97129
 ;;^UTILITY(U,$J,358.3,26575,1,3,0)
 ;;=3^THERAPEUTIC INTVN W/ FOCUS COG FUNC,1ST 15 MIN
 ;;^UTILITY(U,$J,358.3,26576,0)
 ;;=97130^^108^1248^61^^^^1
 ;;^UTILITY(U,$J,358.3,26576,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26576,1,2,0)
 ;;=2^97130
 ;;^UTILITY(U,$J,358.3,26576,1,3,0)
 ;;=3^THERAPEUTIC INTVN W/ FOCUS COG FUNC,EA ADDL 15 MIN
 ;;^UTILITY(U,$J,358.3,26577,0)
 ;;=90791^^108^1249^1^^^^1
 ;;^UTILITY(U,$J,358.3,26577,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26577,1,2,0)
 ;;=2^90791
 ;;^UTILITY(U,$J,358.3,26577,1,3,0)
 ;;=3^PSYCH DIAGNOSTIC EVALUATION
 ;;^UTILITY(U,$J,358.3,26578,0)
 ;;=90792^^108^1249^2^^^^1
 ;;^UTILITY(U,$J,358.3,26578,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26578,1,2,0)
 ;;=2^90792
 ;;^UTILITY(U,$J,358.3,26578,1,3,0)
 ;;=3^PSYCH DIAGNOSTIC EVAL W/ MEDICAL SERVICES
 ;;^UTILITY(U,$J,358.3,26579,0)
 ;;=90847^^108^1250^1^^^^1
 ;;^UTILITY(U,$J,358.3,26579,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26579,1,2,0)
 ;;=2^90847
 ;;^UTILITY(U,$J,358.3,26579,1,3,0)
 ;;=3^FAMILY PSYTX W/ PATIENT
 ;;^UTILITY(U,$J,358.3,26580,0)
 ;;=90849^^108^1250^4^^^^1
 ;;^UTILITY(U,$J,358.3,26580,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26580,1,2,0)
 ;;=2^90849
 ;;^UTILITY(U,$J,358.3,26580,1,3,0)
 ;;=3^MULTIPLE FAMILY GROUP PSYTX
 ;;^UTILITY(U,$J,358.3,26581,0)
 ;;=90853^^108^1250^3^^^^1
 ;;^UTILITY(U,$J,358.3,26581,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26581,1,2,0)
 ;;=2^90853
 ;;^UTILITY(U,$J,358.3,26581,1,3,0)
 ;;=3^GROUP PSYCHOTHERAPY
 ;;^UTILITY(U,$J,358.3,26582,0)
 ;;=90846^^108^1250^2^^^^1
 ;;^UTILITY(U,$J,358.3,26582,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26582,1,2,0)
 ;;=2^90846
 ;;^UTILITY(U,$J,358.3,26582,1,3,0)
 ;;=3^FAMILY PSYTX W/O PATIENT
 ;;^UTILITY(U,$J,358.3,26583,0)
 ;;=90875^^108^1251^3^^^^1
 ;;^UTILITY(U,$J,358.3,26583,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26583,1,2,0)
 ;;=2^90875
 ;;^UTILITY(U,$J,358.3,26583,1,3,0)
 ;;=3^IND PSYCHOSOC TX W/BIOFEEDBACK,30MIN
 ;;^UTILITY(U,$J,358.3,26584,0)
 ;;=90876^^108^1251^4^^^^1
 ;;^UTILITY(U,$J,358.3,26584,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,26584,1,2,0)
 ;;=2^90876
 ;;^UTILITY(U,$J,358.3,26584,1,3,0)
 ;;=3^IND PSYCHOSOC TX W/BIOFEEDBACK,45MIN