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

IBDEI3DA.m

Go to the documentation of this file.
IBDEI3DA ; ; 05-NOV-2019
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;NOV 05, 2019
 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)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,219,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,220,0)
 ;;=HEADER^256
 ;;^UTILITY(U,$J,358.5,220,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,220,2,1,0)
 ;;=NATIONAL TELERETINAL^^B^0^0
 ;;^UTILITY(U,$J,358.5,221,0)
 ;;=HEADER^259
 ;;^UTILITY(U,$J,358.5,221,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,221,2,1,0)
 ;;=NATIONAL URGENT CARE^^^0^0
 ;;^UTILITY(U,$J,358.5,222,0)
 ;;=Patient name^260^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^260^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^260^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^265
 ;;^UTILITY(U,$J,358.5,225,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,225,2,1,0)
 ;;=NATIONAL UROLOGY EF^^^0^0
 ;;^UTILITY(U,$J,358.5,226,0)
 ;;=Patient name^266^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^266^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^266^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^269
 ;;^UTILITY(U,$J,358.5,229,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,229,2,1,0)
 ;;=NATIONAL VASCULAR LAB^^^0^0
 ;;^UTILITY(U,$J,358.5,230,0)
 ;;=Patient name^270^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^270^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^270^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^274
 ;;^UTILITY(U,$J,358.5,233,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,233,2,1,0)
 ;;=NATIONAL VASCULAR SURGERY^^^0^0
 ;;^UTILITY(U,$J,358.5,234,0)
 ;;=Patient name^275^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^275^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^275^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)
 ;;=Patient name^279^1
 ;;^UTILITY(U,$J,358.5,237,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,237,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,238,0)
 ;;=SSN^279^2
 ;;^UTILITY(U,$J,358.5,238,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,238,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,239,0)
 ;;=Age^279^3