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

IBDEI0BJ.m

Go to the documentation of this file.
IBDEI0BJ ; ; 01-AUG-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
 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)
 ;;=^IBE(358.5,
 ;;^UTILITY(U,$J,358.5,0)
 ;;=IMP/EXP DATA FIELD^358.5I^148^144
 ;;^UTILITY(U,$J,358.5,1,0)
 ;;=HEADER^1
 ;;^UTILITY(U,$J,358.5,1,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,1,2,1,0)
 ;;=NATIONAL EPILEPSY CENTER OF EXCELLENCE - TELEPHONE^^B^0^0
 ;;^UTILITY(U,$J,358.5,2,0)
 ;;=Patient name^2^1
 ;;^UTILITY(U,$J,358.5,2,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,2,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,3,0)
 ;;=SSN^2^2
 ;;^UTILITY(U,$J,358.5,3,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,3,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,4,0)
 ;;=Age^2^3
 ;;^UTILITY(U,$J,358.5,4,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,4,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,4,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,5,0)
 ;;=HEADER^5
 ;;^UTILITY(U,$J,358.5,5,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,5,2,1,0)
 ;;=NATIONAL PREVENTIVE HEALTH^^^0^0
 ;;^UTILITY(U,$J,358.5,6,0)
 ;;=Patient name^6^1
 ;;^UTILITY(U,$J,358.5,6,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,6,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,7,0)
 ;;=SSN^6^2
 ;;^UTILITY(U,$J,358.5,7,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,7,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,8,0)
 ;;=Age^6^3
 ;;^UTILITY(U,$J,358.5,8,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,8,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,8,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,9,0)
 ;;=HEADER^10
 ;;^UTILITY(U,$J,358.5,9,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,9,2,1,0)
 ;;=NATIONAL SLEEP MEDICINE^^^0^0
 ;;^UTILITY(U,$J,358.5,10,0)
 ;;=Patient name^11^1
 ;;^UTILITY(U,$J,358.5,10,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,10,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,11,0)
 ;;=SSN^11^2
 ;;^UTILITY(U,$J,358.5,11,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,11,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,12,0)
 ;;=Age^11^3
 ;;^UTILITY(U,$J,358.5,12,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,12,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,12,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,13,0)
 ;;=HEADER^16
 ;;^UTILITY(U,$J,358.5,13,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,13,2,1,0)
 ;;=NATIONAL ONCOLOGY/CHEMOTHERAPY INFUSION^^^0^0
 ;;^UTILITY(U,$J,358.5,14,0)
 ;;=Patient name^17^1
 ;;^UTILITY(U,$J,358.5,14,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,14,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,15,0)
 ;;=SSN^17^2
 ;;^UTILITY(U,$J,358.5,15,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,15,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,16,0)
 ;;=Age^17^3
 ;;^UTILITY(U,$J,358.5,16,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,16,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,16,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,17,0)
 ;;=HEADER^20
 ;;^UTILITY(U,$J,358.5,17,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,17,2,1,0)
 ;;=NATIONAL NEUROLOGY^^^0^0
 ;;^UTILITY(U,$J,358.5,18,0)
 ;;=Patient name^21^1
 ;;^UTILITY(U,$J,358.5,18,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,18,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,19,0)
 ;;=SSN^21^2
 ;;^UTILITY(U,$J,358.5,19,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,19,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,20,0)
 ;;=Age^21^3
 ;;^UTILITY(U,$J,358.5,20,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,20,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,20,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,21,0)
 ;;=HEADER^24
 ;;^UTILITY(U,$J,358.5,21,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,21,2,1,0)
 ;;=NATIONAL ADULT DAY HEALTH CARE VISIT-NURSE^^^0^0
 ;;^UTILITY(U,$J,358.5,22,0)
 ;;=Patient name^25^1
 ;;^UTILITY(U,$J,358.5,22,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,22,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,23,0)
 ;;=SSN^25^2
 ;;^UTILITY(U,$J,358.5,23,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,23,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,24,0)
 ;;=Age^25^3
 ;;^UTILITY(U,$J,358.5,24,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,24,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,24,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,25,0)
 ;;=HEADER^29
 ;;^UTILITY(U,$J,358.5,25,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,25,2,1,0)
 ;;=NATIONAL BLIND REHAB^^^0^0
 ;;^UTILITY(U,$J,358.5,26,0)
 ;;=Patient name^30^1
 ;;^UTILITY(U,$J,358.5,26,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,26,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,27,0)
 ;;=SSN^30^2
 ;;^UTILITY(U,$J,358.5,27,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,27,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,28,0)
 ;;=Age^30^3
 ;;^UTILITY(U,$J,358.5,28,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,28,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,28,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,29,0)
 ;;=HEADER^33
 ;;^UTILITY(U,$J,358.5,29,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,29,2,1,0)
 ;;=NATIONAL CARDIOLOGY^^^0^0
 ;;^UTILITY(U,$J,358.5,30,0)
 ;;=Patient name^34^1
 ;;^UTILITY(U,$J,358.5,30,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,30,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,31,0)
 ;;=SSN^34^2
 ;;^UTILITY(U,$J,358.5,31,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,31,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,32,0)
 ;;=Age^34^3
 ;;^UTILITY(U,$J,358.5,32,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,32,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,32,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,33,0)
 ;;=HEADER^39
 ;;^UTILITY(U,$J,358.5,33,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,33,2,1,0)
 ;;=NATIONAL CHIROPRACTIC^^^0^0
 ;;^UTILITY(U,$J,358.5,34,0)
 ;;=Patient name^40^1
 ;;^UTILITY(U,$J,358.5,34,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,34,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,35,0)
 ;;=SSN^40^2
 ;;^UTILITY(U,$J,358.5,35,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,35,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,36,0)
 ;;=Age^40^3
 ;;^UTILITY(U,$J,358.5,36,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,36,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,36,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,37,0)
 ;;=HEADER^43
 ;;^UTILITY(U,$J,358.5,37,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,37,2,1,0)
 ;;=NATIONAL CLINICAL PHARMACIST^^^0^0
 ;;^UTILITY(U,$J,358.5,38,0)
 ;;=Patient name^44^1
 ;;^UTILITY(U,$J,358.5,38,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,38,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,39,0)
 ;;=SSN^44^2
 ;;^UTILITY(U,$J,358.5,39,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,39,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,40,0)
 ;;=Age^44^3
 ;;^UTILITY(U,$J,358.5,40,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,40,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,40,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,41,0)
 ;;=Patient name^48^1
 ;;^UTILITY(U,$J,358.5,41,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,41,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,42,0)
 ;;=SSN^48^2
 ;;^UTILITY(U,$J,358.5,42,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,42,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,43,0)
 ;;=Age^48^3
 ;;^UTILITY(U,$J,358.5,43,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,43,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,43,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,44,0)
 ;;=HEADER^49
 ;;^UTILITY(U,$J,358.5,44,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,44,2,1,0)
 ;;=NATIONAL DIABETIC^^B^0^0
 ;;^UTILITY(U,$J,358.5,45,0)
 ;;=HEADER^54
 ;;^UTILITY(U,$J,358.5,45,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,45,2,1,0)
 ;;=NATIONAL EMERGENCY DEPARTMENT^^^0^0
 ;;^UTILITY(U,$J,358.5,46,0)
 ;;=Patient name^55^1
 ;;^UTILITY(U,$J,358.5,46,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,46,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,47,0)
 ;;=SSN^55^2
 ;;^UTILITY(U,$J,358.5,47,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,47,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,48,0)
 ;;=Age^55^3
 ;;^UTILITY(U,$J,358.5,48,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,48,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,48,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,49,0)
 ;;=HEADER^58
 ;;^UTILITY(U,$J,358.5,49,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,49,2,1,0)
 ;;=NATIONAL ENDOCRINOLOGY^^^0^0
 ;;^UTILITY(U,$J,358.5,50,0)
 ;;=Patient name^59^1
 ;;^UTILITY(U,$J,358.5,50,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,50,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,51,0)
 ;;=SSN^59^2
 ;;^UTILITY(U,$J,358.5,51,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,51,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,52,0)
 ;;=Age^59^3
 ;;^UTILITY(U,$J,358.5,52,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,52,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,52,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,53,0)
 ;;=HEADER^62
 ;;^UTILITY(U,$J,358.5,53,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,53,2,1,0)
 ;;=NATIONAL EYE TECHNICIAN^^^0^0
 ;;^UTILITY(U,$J,358.5,54,0)
 ;;=Patient name^63^1
 ;;^UTILITY(U,$J,358.5,54,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,54,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,55,0)
 ;;=SSN^63^2
 ;;^UTILITY(U,$J,358.5,55,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,55,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,56,0)
 ;;=Age^63^3
 ;;^UTILITY(U,$J,358.5,56,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,56,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,56,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,57,0)
 ;;=HEADER^66
 ;;^UTILITY(U,$J,358.5,57,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,57,2,1,0)
 ;;=NATIONAL EYE^^^0^0
 ;;^UTILITY(U,$J,358.5,58,0)
 ;;=Patient name^67^1
 ;;^UTILITY(U,$J,358.5,58,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,58,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,59,0)
 ;;=SSN^67^2
 ;;^UTILITY(U,$J,358.5,59,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,59,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,60,0)
 ;;=Age^67^3
 ;;^UTILITY(U,$J,358.5,60,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,60,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,60,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,61,0)
 ;;=HEADER^72
 ;;^UTILITY(U,$J,358.5,61,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,61,2,1,0)
 ;;=NATIONAL GI/HEPATOLOGY^^^0^0
 ;;^UTILITY(U,$J,358.5,62,0)
 ;;=Patient name^73^1
 ;;^UTILITY(U,$J,358.5,62,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,62,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,63,0)
 ;;=SSN^73^2
 ;;^UTILITY(U,$J,358.5,63,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,63,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,64,0)
 ;;=Age^73^3
 ;;^UTILITY(U,$J,358.5,64,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,64,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,64,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,65,0)
 ;;=HEADER^76
 ;;^UTILITY(U,$J,358.5,65,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,65,2,1,0)
 ;;=NATIONAL HBPC CLINICIAN^^^0^0
 ;;^UTILITY(U,$J,358.5,66,0)
 ;;=Patient name^77^1
 ;;^UTILITY(U,$J,358.5,66,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,66,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,67,0)
 ;;=SSN^77^2
 ;;^UTILITY(U,$J,358.5,67,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,67,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,68,0)
 ;;=Age^77^3
 ;;^UTILITY(U,$J,358.5,68,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,68,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,68,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,69,0)
 ;;=Patient name^81^1
 ;;^UTILITY(U,$J,358.5,69,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,69,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,70,0)
 ;;=SSN^81^2
 ;;^UTILITY(U,$J,358.5,70,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,70,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,71,0)
 ;;=Age^81^3
 ;;^UTILITY(U,$J,358.5,71,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,71,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,71,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,72,0)
 ;;=HEADER^83
 ;;^UTILITY(U,$J,358.5,72,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,72,2,1,0)
 ;;=NATIONAL HBPC NURSING^^^0^0
 ;;^UTILITY(U,$J,358.5,73,0)
 ;;=HEADER^86
 ;;^UTILITY(U,$J,358.5,73,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,73,2,1,0)
 ;;=NATIONAL HBPC - REHAB THERAPY^^^0^0
 ;;^UTILITY(U,$J,358.5,74,0)
 ;;=Patient name^87^1
 ;;^UTILITY(U,$J,358.5,74,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,74,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,75,0)
 ;;=SSN^87^2
 ;;^UTILITY(U,$J,358.5,75,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,75,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,76,0)
 ;;=Age^87^3
 ;;^UTILITY(U,$J,358.5,76,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,76,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,76,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,77,0)
 ;;=HEADER^90
 ;;^UTILITY(U,$J,358.5,77,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,77,2,1,0)
 ;;=NATIONAL INPATIENT^^^0^0
 ;;^UTILITY(U,$J,358.5,78,0)
 ;;=Patient name^91^1
 ;;^UTILITY(U,$J,358.5,78,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,78,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,79,0)
 ;;=SSN^91^2
 ;;^UTILITY(U,$J,358.5,79,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,79,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,80,0)
 ;;=Age^91^3
 ;;^UTILITY(U,$J,358.5,80,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,80,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,80,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,81,0)
 ;;=HEADER^95
 ;;^UTILITY(U,$J,358.5,81,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,81,2,1,0)
 ;;=NATIONAL MEDICINE^^^0^0
 ;;^UTILITY(U,$J,358.5,82,0)
 ;;=Patient name^96^1
 ;;^UTILITY(U,$J,358.5,82,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,82,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,83,0)
 ;;=SSN^96^2
 ;;^UTILITY(U,$J,358.5,83,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,83,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,84,0)
 ;;=Age^96^3
 ;;^UTILITY(U,$J,358.5,84,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,84,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,84,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,85,0)
 ;;=HEADER^99
 ;;^UTILITY(U,$J,358.5,85,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,85,2,1,0)
 ;;=NATIONAL NURSING CLINIC ^^^0^0
 ;;^UTILITY(U,$J,358.5,86,0)
 ;;=Patient name^100^1
 ;;^UTILITY(U,$J,358.5,86,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,86,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,87,0)
 ;;=SSN^100^2
 ;;^UTILITY(U,$J,358.5,87,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,87,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,88,0)
 ;;=Age^100^3
 ;;^UTILITY(U,$J,358.5,88,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,88,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,88,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,89,0)
 ;;=Patient name^105^1
 ;;^UTILITY(U,$J,358.5,89,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,89,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,90,0)
 ;;=SSN^105^2
 ;;^UTILITY(U,$J,358.5,90,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,90,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,91,0)
 ;;=Age^105^3
 ;;^UTILITY(U,$J,358.5,91,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,91,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,91,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,92,0)
 ;;=HEADER^106
 ;;^UTILITY(U,$J,358.5,92,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,92,2,1,0)
 ;;=NATIONAL GYNECOLOGY/OBSTETRICS^^^0^0
 ;;^UTILITY(U,$J,358.5,93,0)
 ;;=HEADER^111
 ;;^UTILITY(U,$J,358.5,93,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,93,2,1,0)
 ;;=NATIONAL INPATIENT REHAB PHYSIATRY^^^0^0
 ;;^UTILITY(U,$J,358.5,94,0)
 ;;=Patient name^112^1
 ;;^UTILITY(U,$J,358.5,94,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,94,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,95,0)
 ;;=SSN^112^2
 ;;^UTILITY(U,$J,358.5,95,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,95,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,96,0)
 ;;=Age^112^3
 ;;^UTILITY(U,$J,358.5,96,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,96,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,96,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,97,0)
 ;;=HEADER^115
 ;;^UTILITY(U,$J,358.5,97,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,97,2,1,0)
 ;;=NATIONAL REHAB PHYSIATRY^^^0^0
 ;;^UTILITY(U,$J,358.5,98,0)
 ;;=Patient name^116^1
 ;;^UTILITY(U,$J,358.5,98,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,98,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,99,0)
 ;;=SSN^116^2
 ;;^UTILITY(U,$J,358.5,99,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,99,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,100,0)
 ;;=Age^116^3
 ;;^UTILITY(U,$J,358.5,100,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,100,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,100,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,101,0)
 ;;=HEADER^119
 ;;^UTILITY(U,$J,358.5,101,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,101,2,1,0)
 ;;=NATIONAL PRIMARY CARE^^^0^0
 ;;^UTILITY(U,$J,358.5,102,0)
 ;;=Patient name^120^1
 ;;^UTILITY(U,$J,358.5,102,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,102,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,103,0)
 ;;=SSN^120^2
 ;;^UTILITY(U,$J,358.5,103,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,103,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,104,0)
 ;;=Age^120^3
 ;;^UTILITY(U,$J,358.5,104,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,104,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,104,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,105,0)
 ;;=HEADER^126
 ;;^UTILITY(U,$J,358.5,105,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,105,2,1,0)
 ;;=NATIONAL PULMONARY^^^0^0
 ;;^UTILITY(U,$J,358.5,106,0)
 ;;=Patient name^127^1
 ;;^UTILITY(U,$J,358.5,106,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,106,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,107,0)
 ;;=SSN^127^2
 ;;^UTILITY(U,$J,358.5,107,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,107,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,108,0)
 ;;=Age^127^3
 ;;^UTILITY(U,$J,358.5,108,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,108,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1
 ;;^UTILITY(U,$J,358.5,108,2,2,0)
 ;;=Age:^^^78^1^1^83^3^2
 ;;^UTILITY(U,$J,358.5,109,0)
 ;;=HEADER^129
 ;;^UTILITY(U,$J,358.5,109,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,109,2,1,0)
 ;;=NATIONAL SPINAL CORD INJURY^^^0^0
 ;;^UTILITY(U,$J,358.5,110,0)
 ;;=Patient name^130^1
 ;;^UTILITY(U,$J,358.5,110,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,110,2,1,0)
 ;;=Name:^^^1^1^1^7^30^1
 ;;^UTILITY(U,$J,358.5,111,0)
 ;;=SSN^130^2
 ;;^UTILITY(U,$J,358.5,111,2,0)
 ;;=^358.52^1^1
 ;;^UTILITY(U,$J,358.5,111,2,1,0)
 ;;=SSN:^^^39^1^1^44^15^1
 ;;^UTILITY(U,$J,358.5,112,0)
 ;;=Age^130^3
 ;;^UTILITY(U,$J,358.5,112,2,0)
 ;;=^358.52^2^2
 ;;^UTILITY(U,$J,358.5,112,2,1,0)
 ;;=DOB:^^^60^1^1^65^12^1