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

IBDEI3CE.m

Go to the documentation of this file.
IBDEI3CE ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 Q:'DIFQR(358.5)  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.5,219,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,220,0)
 ;;=Age^263^3
 ;;^UTILITY(U,$J,358.5,220,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,220,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,220,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,221,0)
 ;;=HEADER^266
 ;;^UTILITY(U,$J,358.5,221,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,221,2,1,0)
 ;;=NATIONAL SPINAL CORD INJURY^^^0^0
 ;;^UTILITY(U,$J,358.5,222,0)
 ;;=Patient name^267^1
 ;;^UTILITY(U,$J,358.5,222,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,222,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,223,0)
 ;;=SSN^267^2
 ;;^UTILITY(U,$J,358.5,223,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,223,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,224,0)
 ;;=Age^267^3
 ;;^UTILITY(U,$J,358.5,224,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,224,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,224,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,225,0)
 ;;=HEADER^272
 ;;^UTILITY(U,$J,358.5,225,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,225,2,1,0)
 ;;=NATIONAL SPEECH^^^0^0
 ;;^UTILITY(U,$J,358.5,226,0)
 ;;=Patient name^273^1
 ;;^UTILITY(U,$J,358.5,226,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,226,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,227,0)
 ;;=SSN^273^2
 ;;^UTILITY(U,$J,358.5,227,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,227,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,228,0)
 ;;=Age^273^3
 ;;^UTILITY(U,$J,358.5,228,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,228,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,228,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,229,0)
 ;;=HEADER^275
 ;;^UTILITY(U,$J,358.5,229,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,229,2,1,0)
 ;;=NATIONAL SOCIAL WORK SERVICE (OTHER THAN MH)^^^0^0
 ;;^UTILITY(U,$J,358.5,230,0)
 ;;=Patient name^276^1
 ;;^UTILITY(U,$J,358.5,230,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,230,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,231,0)
 ;;=SSN^276^2
 ;;^UTILITY(U,$J,358.5,231,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,231,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,232,0)
 ;;=Age^276^3
 ;;^UTILITY(U,$J,358.5,232,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,232,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,232,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,233,0)
 ;;=HEADER^280
 ;;^UTILITY(U,$J,358.5,233,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,233,2,1,0)
 ;;=NATIONAL SOCIAL WORK SERVICE - MENTAL HEALTH^^^0^0
 ;;^UTILITY(U,$J,358.5,234,0)
 ;;=Patient name^281^1
 ;;^UTILITY(U,$J,358.5,234,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,234,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,235,0)
 ;;=SSN^281^2
 ;;^UTILITY(U,$J,358.5,235,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,235,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,236,0)
 ;;=Age^281^3
 ;;^UTILITY(U,$J,358.5,236,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,236,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,236,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,237,0)
 ;;=HEADER^284
 ;;^UTILITY(U,$J,358.5,237,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,237,2,1,0)
 ;;=NATIONAL TBI^^^0^0
 ;;^UTILITY(U,$J,358.5,238,0)
 ;;=Patient name^285^1
 ;;^UTILITY(U,$J,358.5,238,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,238,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,239,0)
 ;;=SSN^285^2