IBDEI0FT ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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^160^156
;;^UTILITY(U,$J,358.5,1,0)
;;=HEADER^2
;;^UTILITY(U,$J,358.5,1,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,1,2,1,0)
;;=NATIONAL ALLERGY CLINIC^^^0^0
;;^UTILITY(U,$J,358.5,2,0)
;;=Patient name^3^3
;;^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^3^4
;;^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^3^5
;;^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^7
;;^UTILITY(U,$J,358.5,5,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,5,2,1,0)
;;=NATIONAL RECREATION THERAPY - GROUPS^^^0^0
;;^UTILITY(U,$J,358.5,6,0)
;;=Patient name^8^3
;;^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^8^4
;;^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^8^5
;;^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 RECREATION THERAPY - INDIVIDUAL^^^0^0
;;^UTILITY(U,$J,358.5,10,0)
;;=Patient name^11^3
;;^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^4
;;^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^5
;;^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^3
;;^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^4
;;^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^5
;;^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^19
;;^UTILITY(U,$J,358.5,17,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,17,2,1,0)
;;=NATIONAL ADULT DAY HEALTH CARE VISIT-NURSE^^^0^0
;;^UTILITY(U,$J,358.5,18,0)
;;=Patient name^20^3
;;^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^20^4
;;^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^20^5
;;^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 AUDIOLOGY^^^0^0
;;^UTILITY(U,$J,358.5,22,0)
;;=Patient name^25^3
;;^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^4
;;^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^5
;;^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 CARDIOLOGY^^^0^0
;;^UTILITY(U,$J,358.5,26,0)
;;=Patient name^30^3
;;^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^4
;;^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^5
;;^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^34
;;^UTILITY(U,$J,358.5,29,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,29,2,1,0)
;;=NATIONAL COMMUNITY INTEGRATED HEALTHCARE (CIH)^^^0^0
;;^UTILITY(U,$J,358.5,30,0)
;;=Patient name^35^3
;;^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^35^4
;;^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^35^5
;;^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^41
;;^UTILITY(U,$J,358.5,33,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,33,2,1,0)
;;=NATIONAL DERMATOLOGY EF ^^^0^0
;;^UTILITY(U,$J,358.5,34,0)
;;=Patient name^42^3
;;^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^42^4
;;^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^42^5
;;^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)
;;=Patient name^46^3
;;^UTILITY(U,$J,358.5,37,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,37,2,1,0)
;;=Name:^^^1^1^1^7^30^1
;;^UTILITY(U,$J,358.5,38,0)
;;=SSN^46^4
;;^UTILITY(U,$J,358.5,38,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,38,2,1,0)
;;=SSN:^^^39^1^1^44^15^1
;;^UTILITY(U,$J,358.5,39,0)
;;=Age^46^5
;;^UTILITY(U,$J,358.5,39,2,0)
;;=^358.52^2^2
;;^UTILITY(U,$J,358.5,39,2,1,0)
;;=DOB:^^^60^1^1^65^12^1
;;^UTILITY(U,$J,358.5,39,2,2,0)
;;=Age:^^^78^1^1^83^3^2
;;^UTILITY(U,$J,358.5,40,0)
;;=HEADER^47
;;^UTILITY(U,$J,358.5,40,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,40,2,1,0)
;;=NATIONAL DIABETIC^^B^0^0
;;^UTILITY(U,$J,358.5,41,0)
;;=HEADER^51
;;^UTILITY(U,$J,358.5,41,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,41,2,1,0)
;;=NATIONAL ENDOCRINOLOGY^^^0^0
;;^UTILITY(U,$J,358.5,42,0)
;;=Patient name^52^3
;;^UTILITY(U,$J,358.5,42,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,42,2,1,0)
;;=Name:^^^1^1^1^7^30^1
;;^UTILITY(U,$J,358.5,43,0)
;;=SSN^52^4
;;^UTILITY(U,$J,358.5,43,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,43,2,1,0)
;;=SSN:^^^39^1^1^44^15^1
;;^UTILITY(U,$J,358.5,44,0)
;;=Age^52^5
;;^UTILITY(U,$J,358.5,44,2,0)
;;=^358.52^2^2
;;^UTILITY(U,$J,358.5,44,2,1,0)
;;=DOB:^^^60^1^1^65^12^1
;;^UTILITY(U,$J,358.5,44,2,2,0)
;;=Age:^^^78^1^1^83^3^2
;;^UTILITY(U,$J,358.5,45,0)
;;=HEADER^55
;;^UTILITY(U,$J,358.5,45,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,45,2,1,0)
;;=NATIONAL EYE^^^0^0
;;^UTILITY(U,$J,358.5,46,0)
;;=Patient name^56^3
;;^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^56^4
;;^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^56^5
;;^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^61
;;^UTILITY(U,$J,358.5,49,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,49,2,1,0)
;;=NATIONAL GI/HEPATOLOGY^^^0^0
;;^UTILITY(U,$J,358.5,50,0)
;;=Patient name^62^3
;;^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^62^4
;;^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^62^5
;;^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,57,0)
;;=HEADER^70
;;^UTILITY(U,$J,358.5,57,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,57,2,1,0)
;;=NATIONAL HBPC CLINICIAN^^^0^0
;;^UTILITY(U,$J,358.5,58,0)
;;=Patient name^71^3
;;^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^71^4
;;^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^71^5
;;^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)
;;=Patient name^75^3
;;^UTILITY(U,$J,358.5,61,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,61,2,1,0)
;;=Name:^^^1^1^1^7^30^1
;;^UTILITY(U,$J,358.5,62,0)
;;=SSN^75^4
;;^UTILITY(U,$J,358.5,62,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,62,2,1,0)
;;=SSN:^^^39^1^1^44^15^1
;;^UTILITY(U,$J,358.5,63,0)
;;=Age^75^5
;;^UTILITY(U,$J,358.5,63,2,0)
;;=^358.52^2^2
;;^UTILITY(U,$J,358.5,63,2,1,0)
;;=DOB:^^^60^1^1^65^12^1
;;^UTILITY(U,$J,358.5,63,2,2,0)
;;=Age:^^^78^1^1^83^3^2
;;^UTILITY(U,$J,358.5,64,0)
;;=HEADER^77
;;^UTILITY(U,$J,358.5,64,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,64,2,1,0)
;;=NATIONAL HBPC NURSING^^^0^0
;;^UTILITY(U,$J,358.5,65,0)
;;=HEADER^80
;;^UTILITY(U,$J,358.5,65,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,65,2,1,0)
;;=NATIONAL HBPC - REHAB THERAPY^^^0^0
;;^UTILITY(U,$J,358.5,66,0)
;;=Patient name^81^3
;;^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^81^4
;;^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^81^5
;;^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)
;;=HEADER^84
;;^UTILITY(U,$J,358.5,69,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,69,2,1,0)
;;=NATIONAL HOMELESS PROGRAM^^^0^0
;;^UTILITY(U,$J,358.5,70,0)
;;=Patient name^85^3
;;^UTILITY(U,$J,358.5,70,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,70,2,1,0)
;;=Name:^^^1^1^1^7^30^1
;;^UTILITY(U,$J,358.5,71,0)
;;=SSN^85^4
;;^UTILITY(U,$J,358.5,71,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,71,2,1,0)
;;=SSN:^^^39^1^1^44^15^1
;;^UTILITY(U,$J,358.5,72,0)
;;=Age^85^5
;;^UTILITY(U,$J,358.5,72,2,0)
;;=^358.52^2^2
;;^UTILITY(U,$J,358.5,72,2,1,0)
;;=DOB:^^^60^1^1^65^12^1
;;^UTILITY(U,$J,358.5,72,2,2,0)
;;=Age:^^^78^1^1^83^3^2
;;^UTILITY(U,$J,358.5,73,0)
;;=HEADER^88
;;^UTILITY(U,$J,358.5,73,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,73,2,1,0)
;;=NATIONAL HT - CLINICIAN^^^0^0
;;^UTILITY(U,$J,358.5,74,0)
;;=Patient name^89^3
;;^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^89^4
;;^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^89^5
;;^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^93
;;^UTILITY(U,$J,358.5,77,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,77,2,1,0)
;;=NATIONAL HT - NURSING^^^0^0
;;^UTILITY(U,$J,358.5,78,0)
;;=Patient name^94^3
;;^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^94^4
;;^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^94^5
;;^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^99
;;^UTILITY(U,$J,358.5,81,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,81,2,1,0)
;;=NATIONAL INPATIENT^^^0^0
;;^UTILITY(U,$J,358.5,82,0)
;;=Patient name^100^3
;;^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^100^4
;;^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^100^5
;;^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^103
;;^UTILITY(U,$J,358.5,85,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,85,2,1,0)
;;=NATIONAL MEDICAL FOSTER HOME^^^0^0
;;^UTILITY(U,$J,358.5,86,0)
;;=Patient name^104^3
;;^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^104^4
;;^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^104^5
;;^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)
;;=HEADER^108
;;^UTILITY(U,$J,358.5,89,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,89,2,1,0)
;;=NATIONAL MEDICINE^^^0^0
;;^UTILITY(U,$J,358.5,90,0)
;;=Patient name^109^3
;;^UTILITY(U,$J,358.5,90,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,90,2,1,0)
;;=Name:^^^1^1^1^7^30^1
;;^UTILITY(U,$J,358.5,91,0)
;;=SSN^109^4
;;^UTILITY(U,$J,358.5,91,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,91,2,1,0)
;;=SSN:^^^39^1^1^44^15^1
;;^UTILITY(U,$J,358.5,92,0)
;;=Age^109^5
;;^UTILITY(U,$J,358.5,92,2,0)
;;=^358.52^2^2
;;^UTILITY(U,$J,358.5,92,2,1,0)
;;=DOB:^^^60^1^1^65^12^1
;;^UTILITY(U,$J,358.5,92,2,2,0)
;;=Age:^^^78^1^1^83^3^2
;;^UTILITY(U,$J,358.5,93,0)
;;=HEADER^112
;;^UTILITY(U,$J,358.5,93,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,93,2,1,0)
;;=NATIONAL NURSING CLINIC ^^^0^0
;;^UTILITY(U,$J,358.5,94,0)
;;=Patient name^113^3
;;^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^113^4
;;^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^113^5
;;^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^119
;;^UTILITY(U,$J,358.5,97,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,97,2,1,0)
;;=NATIONAL INPATIENT REHAB PHYSIATRY^^^0^0
;;^UTILITY(U,$J,358.5,98,0)
;;=Patient name^120^3
;;^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^120^4
;;^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^120^5
;;^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^123
;;^UTILITY(U,$J,358.5,101,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,101,2,1,0)
;;=NATIONAL REHAB PHYSIATRY^^^0^0
;;^UTILITY(U,$J,358.5,102,0)
;;=Patient name^124^3
;;^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^124^4
;;^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^124^5
;;^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^127
;;^UTILITY(U,$J,358.5,105,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,105,2,1,0)
;;=NATIONAL PRIMARY CARE^^^0^0
;;^UTILITY(U,$J,358.5,106,0)
;;=Patient name^128^3
;;^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^128^4
;;^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^128^5
;;^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^134
;;^UTILITY(U,$J,358.5,109,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,109,2,1,0)
;;=NATIONAL PULMONARY^^^0^0
;;^UTILITY(U,$J,358.5,110,0)
;;=Patient name^135^3
;;^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^135^4
;;^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^135^5
;;^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
;;^UTILITY(U,$J,358.5,112,2,2,0)
;;=Age:^^^78^1^1^83^3^2
;;^UTILITY(U,$J,358.5,113,0)
;;=HEADER^138
;;^UTILITY(U,$J,358.5,113,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,113,2,1,0)
;;=NATIONAL PT/OT/KT^^^0^0
;;^UTILITY(U,$J,358.5,114,0)
;;=Patient name^139^3
;;^UTILITY(U,$J,358.5,114,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,114,2,1,0)
;;=Name:^^^1^1^1^7^30^1
;;^UTILITY(U,$J,358.5,115,0)
;;=SSN^139^4
;;^UTILITY(U,$J,358.5,115,2,0)
;;=^358.52^1^1
;;^UTILITY(U,$J,358.5,115,2,1,0)
;;=SSN:^^^39^1^1^44^15^1
;;^UTILITY(U,$J,358.5,116,0)
;;=Age^139^5
;;^UTILITY(U,$J,358.5,116,2,0)
;;=^358.52^2^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0FT 19759 printed Sep 23, 2025@19:23:50 Page 2
IBDEI0FT ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
+2 if 'DIFQR(358.5)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.5)
+2 ;;=^IBE(358.5,
+3 ;;^UTILITY(U,$J,358.5,0)
+4 ;;=IMP/EXP DATA FIELD^358.5I^160^156
+5 ;;^UTILITY(U,$J,358.5,1,0)
+6 ;;=HEADER^2
+7 ;;^UTILITY(U,$J,358.5,1,2,0)
+8 ;;=^358.52^1^1
+9 ;;^UTILITY(U,$J,358.5,1,2,1,0)
+10 ;;=NATIONAL ALLERGY CLINIC^^^0^0
+11 ;;^UTILITY(U,$J,358.5,2,0)
+12 ;;=Patient name^3^3
+13 ;;^UTILITY(U,$J,358.5,2,2,0)
+14 ;;=^358.52^1^1
+15 ;;^UTILITY(U,$J,358.5,2,2,1,0)
+16 ;;=Name:^^^1^1^1^7^30^1
+17 ;;^UTILITY(U,$J,358.5,3,0)
+18 ;;=SSN^3^4
+19 ;;^UTILITY(U,$J,358.5,3,2,0)
+20 ;;=^358.52^1^1
+21 ;;^UTILITY(U,$J,358.5,3,2,1,0)
+22 ;;=SSN:^^^39^1^1^44^15^1
+23 ;;^UTILITY(U,$J,358.5,4,0)
+24 ;;=Age^3^5
+25 ;;^UTILITY(U,$J,358.5,4,2,0)
+26 ;;=^358.52^2^2
+27 ;;^UTILITY(U,$J,358.5,4,2,1,0)
+28 ;;=DOB:^^^60^1^1^65^12^1
+29 ;;^UTILITY(U,$J,358.5,4,2,2,0)
+30 ;;=Age:^^^78^1^1^83^3^2
+31 ;;^UTILITY(U,$J,358.5,5,0)
+32 ;;=HEADER^7
+33 ;;^UTILITY(U,$J,358.5,5,2,0)
+34 ;;=^358.52^1^1
+35 ;;^UTILITY(U,$J,358.5,5,2,1,0)
+36 ;;=NATIONAL RECREATION THERAPY - GROUPS^^^0^0
+37 ;;^UTILITY(U,$J,358.5,6,0)
+38 ;;=Patient name^8^3
+39 ;;^UTILITY(U,$J,358.5,6,2,0)
+40 ;;=^358.52^1^1
+41 ;;^UTILITY(U,$J,358.5,6,2,1,0)
+42 ;;=Name:^^^1^1^1^7^30^1
+43 ;;^UTILITY(U,$J,358.5,7,0)
+44 ;;=SSN^8^4
+45 ;;^UTILITY(U,$J,358.5,7,2,0)
+46 ;;=^358.52^1^1
+47 ;;^UTILITY(U,$J,358.5,7,2,1,0)
+48 ;;=SSN:^^^39^1^1^44^15^1
+49 ;;^UTILITY(U,$J,358.5,8,0)
+50 ;;=Age^8^5
+51 ;;^UTILITY(U,$J,358.5,8,2,0)
+52 ;;=^358.52^2^2
+53 ;;^UTILITY(U,$J,358.5,8,2,1,0)
+54 ;;=DOB:^^^60^1^1^65^12^1
+55 ;;^UTILITY(U,$J,358.5,8,2,2,0)
+56 ;;=Age:^^^78^1^1^83^3^2
+57 ;;^UTILITY(U,$J,358.5,9,0)
+58 ;;=HEADER^10
+59 ;;^UTILITY(U,$J,358.5,9,2,0)
+60 ;;=^358.52^1^1
+61 ;;^UTILITY(U,$J,358.5,9,2,1,0)
+62 ;;=NATIONAL RECREATION THERAPY - INDIVIDUAL^^^0^0
+63 ;;^UTILITY(U,$J,358.5,10,0)
+64 ;;=Patient name^11^3
+65 ;;^UTILITY(U,$J,358.5,10,2,0)
+66 ;;=^358.52^1^1
+67 ;;^UTILITY(U,$J,358.5,10,2,1,0)
+68 ;;=Name:^^^1^1^1^7^30^1
+69 ;;^UTILITY(U,$J,358.5,11,0)
+70 ;;=SSN^11^4
+71 ;;^UTILITY(U,$J,358.5,11,2,0)
+72 ;;=^358.52^1^1
+73 ;;^UTILITY(U,$J,358.5,11,2,1,0)
+74 ;;=SSN:^^^39^1^1^44^15^1
+75 ;;^UTILITY(U,$J,358.5,12,0)
+76 ;;=Age^11^5
+77 ;;^UTILITY(U,$J,358.5,12,2,0)
+78 ;;=^358.52^2^2
+79 ;;^UTILITY(U,$J,358.5,12,2,1,0)
+80 ;;=DOB:^^^60^1^1^65^12^1
+81 ;;^UTILITY(U,$J,358.5,12,2,2,0)
+82 ;;=Age:^^^78^1^1^83^3^2
+83 ;;^UTILITY(U,$J,358.5,13,0)
+84 ;;=HEADER^16
+85 ;;^UTILITY(U,$J,358.5,13,2,0)
+86 ;;=^358.52^1^1
+87 ;;^UTILITY(U,$J,358.5,13,2,1,0)
+88 ;;=NATIONAL ONCOLOGY/CHEMOTHERAPY INFUSION^^^0^0
+89 ;;^UTILITY(U,$J,358.5,14,0)
+90 ;;=Patient name^17^3
+91 ;;^UTILITY(U,$J,358.5,14,2,0)
+92 ;;=^358.52^1^1
+93 ;;^UTILITY(U,$J,358.5,14,2,1,0)
+94 ;;=Name:^^^1^1^1^7^30^1
+95 ;;^UTILITY(U,$J,358.5,15,0)
+96 ;;=SSN^17^4
+97 ;;^UTILITY(U,$J,358.5,15,2,0)
+98 ;;=^358.52^1^1
+99 ;;^UTILITY(U,$J,358.5,15,2,1,0)
+100 ;;=SSN:^^^39^1^1^44^15^1
+101 ;;^UTILITY(U,$J,358.5,16,0)
+102 ;;=Age^17^5
+103 ;;^UTILITY(U,$J,358.5,16,2,0)
+104 ;;=^358.52^2^2
+105 ;;^UTILITY(U,$J,358.5,16,2,1,0)
+106 ;;=DOB:^^^60^1^1^65^12^1
+107 ;;^UTILITY(U,$J,358.5,16,2,2,0)
+108 ;;=Age:^^^78^1^1^83^3^2
+109 ;;^UTILITY(U,$J,358.5,17,0)
+110 ;;=HEADER^19
+111 ;;^UTILITY(U,$J,358.5,17,2,0)
+112 ;;=^358.52^1^1
+113 ;;^UTILITY(U,$J,358.5,17,2,1,0)
+114 ;;=NATIONAL ADULT DAY HEALTH CARE VISIT-NURSE^^^0^0
+115 ;;^UTILITY(U,$J,358.5,18,0)
+116 ;;=Patient name^20^3
+117 ;;^UTILITY(U,$J,358.5,18,2,0)
+118 ;;=^358.52^1^1
+119 ;;^UTILITY(U,$J,358.5,18,2,1,0)
+120 ;;=Name:^^^1^1^1^7^30^1
+121 ;;^UTILITY(U,$J,358.5,19,0)
+122 ;;=SSN^20^4
+123 ;;^UTILITY(U,$J,358.5,19,2,0)
+124 ;;=^358.52^1^1
+125 ;;^UTILITY(U,$J,358.5,19,2,1,0)
+126 ;;=SSN:^^^39^1^1^44^15^1
+127 ;;^UTILITY(U,$J,358.5,20,0)
+128 ;;=Age^20^5
+129 ;;^UTILITY(U,$J,358.5,20,2,0)
+130 ;;=^358.52^2^2
+131 ;;^UTILITY(U,$J,358.5,20,2,1,0)
+132 ;;=DOB:^^^60^1^1^65^12^1
+133 ;;^UTILITY(U,$J,358.5,20,2,2,0)
+134 ;;=Age:^^^78^1^1^83^3^2
+135 ;;^UTILITY(U,$J,358.5,21,0)
+136 ;;=HEADER^24
+137 ;;^UTILITY(U,$J,358.5,21,2,0)
+138 ;;=^358.52^1^1
+139 ;;^UTILITY(U,$J,358.5,21,2,1,0)
+140 ;;=NATIONAL AUDIOLOGY^^^0^0
+141 ;;^UTILITY(U,$J,358.5,22,0)
+142 ;;=Patient name^25^3
+143 ;;^UTILITY(U,$J,358.5,22,2,0)
+144 ;;=^358.52^1^1
+145 ;;^UTILITY(U,$J,358.5,22,2,1,0)
+146 ;;=Name:^^^1^1^1^7^30^1
+147 ;;^UTILITY(U,$J,358.5,23,0)
+148 ;;=SSN^25^4
+149 ;;^UTILITY(U,$J,358.5,23,2,0)
+150 ;;=^358.52^1^1
+151 ;;^UTILITY(U,$J,358.5,23,2,1,0)
+152 ;;=SSN:^^^39^1^1^44^15^1
+153 ;;^UTILITY(U,$J,358.5,24,0)
+154 ;;=Age^25^5
+155 ;;^UTILITY(U,$J,358.5,24,2,0)
+156 ;;=^358.52^2^2
+157 ;;^UTILITY(U,$J,358.5,24,2,1,0)
+158 ;;=DOB:^^^60^1^1^65^12^1
+159 ;;^UTILITY(U,$J,358.5,24,2,2,0)
+160 ;;=Age:^^^78^1^1^83^3^2
+161 ;;^UTILITY(U,$J,358.5,25,0)
+162 ;;=HEADER^29
+163 ;;^UTILITY(U,$J,358.5,25,2,0)
+164 ;;=^358.52^1^1
+165 ;;^UTILITY(U,$J,358.5,25,2,1,0)
+166 ;;=NATIONAL CARDIOLOGY^^^0^0
+167 ;;^UTILITY(U,$J,358.5,26,0)
+168 ;;=Patient name^30^3
+169 ;;^UTILITY(U,$J,358.5,26,2,0)
+170 ;;=^358.52^1^1
+171 ;;^UTILITY(U,$J,358.5,26,2,1,0)
+172 ;;=Name:^^^1^1^1^7^30^1
+173 ;;^UTILITY(U,$J,358.5,27,0)
+174 ;;=SSN^30^4
+175 ;;^UTILITY(U,$J,358.5,27,2,0)
+176 ;;=^358.52^1^1
+177 ;;^UTILITY(U,$J,358.5,27,2,1,0)
+178 ;;=SSN:^^^39^1^1^44^15^1
+179 ;;^UTILITY(U,$J,358.5,28,0)
+180 ;;=Age^30^5
+181 ;;^UTILITY(U,$J,358.5,28,2,0)
+182 ;;=^358.52^2^2
+183 ;;^UTILITY(U,$J,358.5,28,2,1,0)
+184 ;;=DOB:^^^60^1^1^65^12^1
+185 ;;^UTILITY(U,$J,358.5,28,2,2,0)
+186 ;;=Age:^^^78^1^1^83^3^2
+187 ;;^UTILITY(U,$J,358.5,29,0)
+188 ;;=HEADER^34
+189 ;;^UTILITY(U,$J,358.5,29,2,0)
+190 ;;=^358.52^1^1
+191 ;;^UTILITY(U,$J,358.5,29,2,1,0)
+192 ;;=NATIONAL COMMUNITY INTEGRATED HEALTHCARE (CIH)^^^0^0
+193 ;;^UTILITY(U,$J,358.5,30,0)
+194 ;;=Patient name^35^3
+195 ;;^UTILITY(U,$J,358.5,30,2,0)
+196 ;;=^358.52^1^1
+197 ;;^UTILITY(U,$J,358.5,30,2,1,0)
+198 ;;=Name:^^^1^1^1^7^30^1
+199 ;;^UTILITY(U,$J,358.5,31,0)
+200 ;;=SSN^35^4
+201 ;;^UTILITY(U,$J,358.5,31,2,0)
+202 ;;=^358.52^1^1
+203 ;;^UTILITY(U,$J,358.5,31,2,1,0)
+204 ;;=SSN:^^^39^1^1^44^15^1
+205 ;;^UTILITY(U,$J,358.5,32,0)
+206 ;;=Age^35^5
+207 ;;^UTILITY(U,$J,358.5,32,2,0)
+208 ;;=^358.52^2^2
+209 ;;^UTILITY(U,$J,358.5,32,2,1,0)
+210 ;;=DOB:^^^60^1^1^65^12^1
+211 ;;^UTILITY(U,$J,358.5,32,2,2,0)
+212 ;;=Age:^^^78^1^1^83^3^2
+213 ;;^UTILITY(U,$J,358.5,33,0)
+214 ;;=HEADER^41
+215 ;;^UTILITY(U,$J,358.5,33,2,0)
+216 ;;=^358.52^1^1
+217 ;;^UTILITY(U,$J,358.5,33,2,1,0)
+218 ;;=NATIONAL DERMATOLOGY EF ^^^0^0
+219 ;;^UTILITY(U,$J,358.5,34,0)
+220 ;;=Patient name^42^3
+221 ;;^UTILITY(U,$J,358.5,34,2,0)
+222 ;;=^358.52^1^1
+223 ;;^UTILITY(U,$J,358.5,34,2,1,0)
+224 ;;=Name:^^^1^1^1^7^30^1
+225 ;;^UTILITY(U,$J,358.5,35,0)
+226 ;;=SSN^42^4
+227 ;;^UTILITY(U,$J,358.5,35,2,0)
+228 ;;=^358.52^1^1
+229 ;;^UTILITY(U,$J,358.5,35,2,1,0)
+230 ;;=SSN:^^^39^1^1^44^15^1
+231 ;;^UTILITY(U,$J,358.5,36,0)
+232 ;;=Age^42^5
+233 ;;^UTILITY(U,$J,358.5,36,2,0)
+234 ;;=^358.52^2^2
+235 ;;^UTILITY(U,$J,358.5,36,2,1,0)
+236 ;;=DOB:^^^60^1^1^65^12^1
+237 ;;^UTILITY(U,$J,358.5,36,2,2,0)
+238 ;;=Age:^^^78^1^1^83^3^2
+239 ;;^UTILITY(U,$J,358.5,37,0)
+240 ;;=Patient name^46^3
+241 ;;^UTILITY(U,$J,358.5,37,2,0)
+242 ;;=^358.52^1^1
+243 ;;^UTILITY(U,$J,358.5,37,2,1,0)
+244 ;;=Name:^^^1^1^1^7^30^1
+245 ;;^UTILITY(U,$J,358.5,38,0)
+246 ;;=SSN^46^4
+247 ;;^UTILITY(U,$J,358.5,38,2,0)
+248 ;;=^358.52^1^1
+249 ;;^UTILITY(U,$J,358.5,38,2,1,0)
+250 ;;=SSN:^^^39^1^1^44^15^1
+251 ;;^UTILITY(U,$J,358.5,39,0)
+252 ;;=Age^46^5
+253 ;;^UTILITY(U,$J,358.5,39,2,0)
+254 ;;=^358.52^2^2
+255 ;;^UTILITY(U,$J,358.5,39,2,1,0)
+256 ;;=DOB:^^^60^1^1^65^12^1
+257 ;;^UTILITY(U,$J,358.5,39,2,2,0)
+258 ;;=Age:^^^78^1^1^83^3^2
+259 ;;^UTILITY(U,$J,358.5,40,0)
+260 ;;=HEADER^47
+261 ;;^UTILITY(U,$J,358.5,40,2,0)
+262 ;;=^358.52^1^1
+263 ;;^UTILITY(U,$J,358.5,40,2,1,0)
+264 ;;=NATIONAL DIABETIC^^B^0^0
+265 ;;^UTILITY(U,$J,358.5,41,0)
+266 ;;=HEADER^51
+267 ;;^UTILITY(U,$J,358.5,41,2,0)
+268 ;;=^358.52^1^1
+269 ;;^UTILITY(U,$J,358.5,41,2,1,0)
+270 ;;=NATIONAL ENDOCRINOLOGY^^^0^0
+271 ;;^UTILITY(U,$J,358.5,42,0)
+272 ;;=Patient name^52^3
+273 ;;^UTILITY(U,$J,358.5,42,2,0)
+274 ;;=^358.52^1^1
+275 ;;^UTILITY(U,$J,358.5,42,2,1,0)
+276 ;;=Name:^^^1^1^1^7^30^1
+277 ;;^UTILITY(U,$J,358.5,43,0)
+278 ;;=SSN^52^4
+279 ;;^UTILITY(U,$J,358.5,43,2,0)
+280 ;;=^358.52^1^1
+281 ;;^UTILITY(U,$J,358.5,43,2,1,0)
+282 ;;=SSN:^^^39^1^1^44^15^1
+283 ;;^UTILITY(U,$J,358.5,44,0)
+284 ;;=Age^52^5
+285 ;;^UTILITY(U,$J,358.5,44,2,0)
+286 ;;=^358.52^2^2
+287 ;;^UTILITY(U,$J,358.5,44,2,1,0)
+288 ;;=DOB:^^^60^1^1^65^12^1
+289 ;;^UTILITY(U,$J,358.5,44,2,2,0)
+290 ;;=Age:^^^78^1^1^83^3^2
+291 ;;^UTILITY(U,$J,358.5,45,0)
+292 ;;=HEADER^55
+293 ;;^UTILITY(U,$J,358.5,45,2,0)
+294 ;;=^358.52^1^1
+295 ;;^UTILITY(U,$J,358.5,45,2,1,0)
+296 ;;=NATIONAL EYE^^^0^0
+297 ;;^UTILITY(U,$J,358.5,46,0)
+298 ;;=Patient name^56^3
+299 ;;^UTILITY(U,$J,358.5,46,2,0)
+300 ;;=^358.52^1^1
+301 ;;^UTILITY(U,$J,358.5,46,2,1,0)
+302 ;;=Name:^^^1^1^1^7^30^1
+303 ;;^UTILITY(U,$J,358.5,47,0)
+304 ;;=SSN^56^4
+305 ;;^UTILITY(U,$J,358.5,47,2,0)
+306 ;;=^358.52^1^1
+307 ;;^UTILITY(U,$J,358.5,47,2,1,0)
+308 ;;=SSN:^^^39^1^1^44^15^1
+309 ;;^UTILITY(U,$J,358.5,48,0)
+310 ;;=Age^56^5
+311 ;;^UTILITY(U,$J,358.5,48,2,0)
+312 ;;=^358.52^2^2
+313 ;;^UTILITY(U,$J,358.5,48,2,1,0)
+314 ;;=DOB:^^^60^1^1^65^12^1
+315 ;;^UTILITY(U,$J,358.5,48,2,2,0)
+316 ;;=Age:^^^78^1^1^83^3^2
+317 ;;^UTILITY(U,$J,358.5,49,0)
+318 ;;=HEADER^61
+319 ;;^UTILITY(U,$J,358.5,49,2,0)
+320 ;;=^358.52^1^1
+321 ;;^UTILITY(U,$J,358.5,49,2,1,0)
+322 ;;=NATIONAL GI/HEPATOLOGY^^^0^0
+323 ;;^UTILITY(U,$J,358.5,50,0)
+324 ;;=Patient name^62^3
+325 ;;^UTILITY(U,$J,358.5,50,2,0)
+326 ;;=^358.52^1^1
+327 ;;^UTILITY(U,$J,358.5,50,2,1,0)
+328 ;;=Name:^^^1^1^1^7^30^1
+329 ;;^UTILITY(U,$J,358.5,51,0)
+330 ;;=SSN^62^4
+331 ;;^UTILITY(U,$J,358.5,51,2,0)
+332 ;;=^358.52^1^1
+333 ;;^UTILITY(U,$J,358.5,51,2,1,0)
+334 ;;=SSN:^^^39^1^1^44^15^1
+335 ;;^UTILITY(U,$J,358.5,52,0)
+336 ;;=Age^62^5
+337 ;;^UTILITY(U,$J,358.5,52,2,0)
+338 ;;=^358.52^2^2
+339 ;;^UTILITY(U,$J,358.5,52,2,1,0)
+340 ;;=DOB:^^^60^1^1^65^12^1
+341 ;;^UTILITY(U,$J,358.5,52,2,2,0)
+342 ;;=Age:^^^78^1^1^83^3^2
+343 ;;^UTILITY(U,$J,358.5,57,0)
+344 ;;=HEADER^70
+345 ;;^UTILITY(U,$J,358.5,57,2,0)
+346 ;;=^358.52^1^1
+347 ;;^UTILITY(U,$J,358.5,57,2,1,0)
+348 ;;=NATIONAL HBPC CLINICIAN^^^0^0
+349 ;;^UTILITY(U,$J,358.5,58,0)
+350 ;;=Patient name^71^3
+351 ;;^UTILITY(U,$J,358.5,58,2,0)
+352 ;;=^358.52^1^1
+353 ;;^UTILITY(U,$J,358.5,58,2,1,0)
+354 ;;=Name:^^^1^1^1^7^30^1
+355 ;;^UTILITY(U,$J,358.5,59,0)
+356 ;;=SSN^71^4
+357 ;;^UTILITY(U,$J,358.5,59,2,0)
+358 ;;=^358.52^1^1
+359 ;;^UTILITY(U,$J,358.5,59,2,1,0)
+360 ;;=SSN:^^^39^1^1^44^15^1
+361 ;;^UTILITY(U,$J,358.5,60,0)
+362 ;;=Age^71^5
+363 ;;^UTILITY(U,$J,358.5,60,2,0)
+364 ;;=^358.52^2^2
+365 ;;^UTILITY(U,$J,358.5,60,2,1,0)
+366 ;;=DOB:^^^60^1^1^65^12^1
+367 ;;^UTILITY(U,$J,358.5,60,2,2,0)
+368 ;;=Age:^^^78^1^1^83^3^2
+369 ;;^UTILITY(U,$J,358.5,61,0)
+370 ;;=Patient name^75^3
+371 ;;^UTILITY(U,$J,358.5,61,2,0)
+372 ;;=^358.52^1^1
+373 ;;^UTILITY(U,$J,358.5,61,2,1,0)
+374 ;;=Name:^^^1^1^1^7^30^1
+375 ;;^UTILITY(U,$J,358.5,62,0)
+376 ;;=SSN^75^4
+377 ;;^UTILITY(U,$J,358.5,62,2,0)
+378 ;;=^358.52^1^1
+379 ;;^UTILITY(U,$J,358.5,62,2,1,0)
+380 ;;=SSN:^^^39^1^1^44^15^1
+381 ;;^UTILITY(U,$J,358.5,63,0)
+382 ;;=Age^75^5
+383 ;;^UTILITY(U,$J,358.5,63,2,0)
+384 ;;=^358.52^2^2
+385 ;;^UTILITY(U,$J,358.5,63,2,1,0)
+386 ;;=DOB:^^^60^1^1^65^12^1
+387 ;;^UTILITY(U,$J,358.5,63,2,2,0)
+388 ;;=Age:^^^78^1^1^83^3^2
+389 ;;^UTILITY(U,$J,358.5,64,0)
+390 ;;=HEADER^77
+391 ;;^UTILITY(U,$J,358.5,64,2,0)
+392 ;;=^358.52^1^1
+393 ;;^UTILITY(U,$J,358.5,64,2,1,0)
+394 ;;=NATIONAL HBPC NURSING^^^0^0
+395 ;;^UTILITY(U,$J,358.5,65,0)
+396 ;;=HEADER^80
+397 ;;^UTILITY(U,$J,358.5,65,2,0)
+398 ;;=^358.52^1^1
+399 ;;^UTILITY(U,$J,358.5,65,2,1,0)
+400 ;;=NATIONAL HBPC - REHAB THERAPY^^^0^0
+401 ;;^UTILITY(U,$J,358.5,66,0)
+402 ;;=Patient name^81^3
+403 ;;^UTILITY(U,$J,358.5,66,2,0)
+404 ;;=^358.52^1^1
+405 ;;^UTILITY(U,$J,358.5,66,2,1,0)
+406 ;;=Name:^^^1^1^1^7^30^1
+407 ;;^UTILITY(U,$J,358.5,67,0)
+408 ;;=SSN^81^4
+409 ;;^UTILITY(U,$J,358.5,67,2,0)
+410 ;;=^358.52^1^1
+411 ;;^UTILITY(U,$J,358.5,67,2,1,0)
+412 ;;=SSN:^^^39^1^1^44^15^1
+413 ;;^UTILITY(U,$J,358.5,68,0)
+414 ;;=Age^81^5
+415 ;;^UTILITY(U,$J,358.5,68,2,0)
+416 ;;=^358.52^2^2
+417 ;;^UTILITY(U,$J,358.5,68,2,1,0)
+418 ;;=DOB:^^^60^1^1^65^12^1
+419 ;;^UTILITY(U,$J,358.5,68,2,2,0)
+420 ;;=Age:^^^78^1^1^83^3^2
+421 ;;^UTILITY(U,$J,358.5,69,0)
+422 ;;=HEADER^84
+423 ;;^UTILITY(U,$J,358.5,69,2,0)
+424 ;;=^358.52^1^1
+425 ;;^UTILITY(U,$J,358.5,69,2,1,0)
+426 ;;=NATIONAL HOMELESS PROGRAM^^^0^0
+427 ;;^UTILITY(U,$J,358.5,70,0)
+428 ;;=Patient name^85^3
+429 ;;^UTILITY(U,$J,358.5,70,2,0)
+430 ;;=^358.52^1^1
+431 ;;^UTILITY(U,$J,358.5,70,2,1,0)
+432 ;;=Name:^^^1^1^1^7^30^1
+433 ;;^UTILITY(U,$J,358.5,71,0)
+434 ;;=SSN^85^4
+435 ;;^UTILITY(U,$J,358.5,71,2,0)
+436 ;;=^358.52^1^1
+437 ;;^UTILITY(U,$J,358.5,71,2,1,0)
+438 ;;=SSN:^^^39^1^1^44^15^1
+439 ;;^UTILITY(U,$J,358.5,72,0)
+440 ;;=Age^85^5
+441 ;;^UTILITY(U,$J,358.5,72,2,0)
+442 ;;=^358.52^2^2
+443 ;;^UTILITY(U,$J,358.5,72,2,1,0)
+444 ;;=DOB:^^^60^1^1^65^12^1
+445 ;;^UTILITY(U,$J,358.5,72,2,2,0)
+446 ;;=Age:^^^78^1^1^83^3^2
+447 ;;^UTILITY(U,$J,358.5,73,0)
+448 ;;=HEADER^88
+449 ;;^UTILITY(U,$J,358.5,73,2,0)
+450 ;;=^358.52^1^1
+451 ;;^UTILITY(U,$J,358.5,73,2,1,0)
+452 ;;=NATIONAL HT - CLINICIAN^^^0^0
+453 ;;^UTILITY(U,$J,358.5,74,0)
+454 ;;=Patient name^89^3
+455 ;;^UTILITY(U,$J,358.5,74,2,0)
+456 ;;=^358.52^1^1
+457 ;;^UTILITY(U,$J,358.5,74,2,1,0)
+458 ;;=Name:^^^1^1^1^7^30^1
+459 ;;^UTILITY(U,$J,358.5,75,0)
+460 ;;=SSN^89^4
+461 ;;^UTILITY(U,$J,358.5,75,2,0)
+462 ;;=^358.52^1^1
+463 ;;^UTILITY(U,$J,358.5,75,2,1,0)
+464 ;;=SSN:^^^39^1^1^44^15^1
+465 ;;^UTILITY(U,$J,358.5,76,0)
+466 ;;=Age^89^5
+467 ;;^UTILITY(U,$J,358.5,76,2,0)
+468 ;;=^358.52^2^2
+469 ;;^UTILITY(U,$J,358.5,76,2,1,0)
+470 ;;=DOB:^^^60^1^1^65^12^1
+471 ;;^UTILITY(U,$J,358.5,76,2,2,0)
+472 ;;=Age:^^^78^1^1^83^3^2
+473 ;;^UTILITY(U,$J,358.5,77,0)
+474 ;;=HEADER^93
+475 ;;^UTILITY(U,$J,358.5,77,2,0)
+476 ;;=^358.52^1^1
+477 ;;^UTILITY(U,$J,358.5,77,2,1,0)
+478 ;;=NATIONAL HT - NURSING^^^0^0
+479 ;;^UTILITY(U,$J,358.5,78,0)
+480 ;;=Patient name^94^3
+481 ;;^UTILITY(U,$J,358.5,78,2,0)
+482 ;;=^358.52^1^1
+483 ;;^UTILITY(U,$J,358.5,78,2,1,0)
+484 ;;=Name:^^^1^1^1^7^30^1
+485 ;;^UTILITY(U,$J,358.5,79,0)
+486 ;;=SSN^94^4
+487 ;;^UTILITY(U,$J,358.5,79,2,0)
+488 ;;=^358.52^1^1
+489 ;;^UTILITY(U,$J,358.5,79,2,1,0)
+490 ;;=SSN:^^^39^1^1^44^15^1
+491 ;;^UTILITY(U,$J,358.5,80,0)
+492 ;;=Age^94^5
+493 ;;^UTILITY(U,$J,358.5,80,2,0)
+494 ;;=^358.52^2^2
+495 ;;^UTILITY(U,$J,358.5,80,2,1,0)
+496 ;;=DOB:^^^60^1^1^65^12^1
+497 ;;^UTILITY(U,$J,358.5,80,2,2,0)
+498 ;;=Age:^^^78^1^1^83^3^2
+499 ;;^UTILITY(U,$J,358.5,81,0)
+500 ;;=HEADER^99
+501 ;;^UTILITY(U,$J,358.5,81,2,0)
+502 ;;=^358.52^1^1
+503 ;;^UTILITY(U,$J,358.5,81,2,1,0)
+504 ;;=NATIONAL INPATIENT^^^0^0
+505 ;;^UTILITY(U,$J,358.5,82,0)
+506 ;;=Patient name^100^3
+507 ;;^UTILITY(U,$J,358.5,82,2,0)
+508 ;;=^358.52^1^1
+509 ;;^UTILITY(U,$J,358.5,82,2,1,0)
+510 ;;=Name:^^^1^1^1^7^30^1
+511 ;;^UTILITY(U,$J,358.5,83,0)
+512 ;;=SSN^100^4
+513 ;;^UTILITY(U,$J,358.5,83,2,0)
+514 ;;=^358.52^1^1
+515 ;;^UTILITY(U,$J,358.5,83,2,1,0)
+516 ;;=SSN:^^^39^1^1^44^15^1
+517 ;;^UTILITY(U,$J,358.5,84,0)
+518 ;;=Age^100^5
+519 ;;^UTILITY(U,$J,358.5,84,2,0)
+520 ;;=^358.52^2^2
+521 ;;^UTILITY(U,$J,358.5,84,2,1,0)
+522 ;;=DOB:^^^60^1^1^65^12^1
+523 ;;^UTILITY(U,$J,358.5,84,2,2,0)
+524 ;;=Age:^^^78^1^1^83^3^2
+525 ;;^UTILITY(U,$J,358.5,85,0)
+526 ;;=HEADER^103
+527 ;;^UTILITY(U,$J,358.5,85,2,0)
+528 ;;=^358.52^1^1
+529 ;;^UTILITY(U,$J,358.5,85,2,1,0)
+530 ;;=NATIONAL MEDICAL FOSTER HOME^^^0^0
+531 ;;^UTILITY(U,$J,358.5,86,0)
+532 ;;=Patient name^104^3
+533 ;;^UTILITY(U,$J,358.5,86,2,0)
+534 ;;=^358.52^1^1
+535 ;;^UTILITY(U,$J,358.5,86,2,1,0)
+536 ;;=Name:^^^1^1^1^7^30^1
+537 ;;^UTILITY(U,$J,358.5,87,0)
+538 ;;=SSN^104^4
+539 ;;^UTILITY(U,$J,358.5,87,2,0)
+540 ;;=^358.52^1^1
+541 ;;^UTILITY(U,$J,358.5,87,2,1,0)
+542 ;;=SSN:^^^39^1^1^44^15^1
+543 ;;^UTILITY(U,$J,358.5,88,0)
+544 ;;=Age^104^5
+545 ;;^UTILITY(U,$J,358.5,88,2,0)
+546 ;;=^358.52^2^2
+547 ;;^UTILITY(U,$J,358.5,88,2,1,0)
+548 ;;=DOB:^^^60^1^1^65^12^1
+549 ;;^UTILITY(U,$J,358.5,88,2,2,0)
+550 ;;=Age:^^^78^1^1^83^3^2
+551 ;;^UTILITY(U,$J,358.5,89,0)
+552 ;;=HEADER^108
+553 ;;^UTILITY(U,$J,358.5,89,2,0)
+554 ;;=^358.52^1^1
+555 ;;^UTILITY(U,$J,358.5,89,2,1,0)
+556 ;;=NATIONAL MEDICINE^^^0^0
+557 ;;^UTILITY(U,$J,358.5,90,0)
+558 ;;=Patient name^109^3
+559 ;;^UTILITY(U,$J,358.5,90,2,0)
+560 ;;=^358.52^1^1
+561 ;;^UTILITY(U,$J,358.5,90,2,1,0)
+562 ;;=Name:^^^1^1^1^7^30^1
+563 ;;^UTILITY(U,$J,358.5,91,0)
+564 ;;=SSN^109^4
+565 ;;^UTILITY(U,$J,358.5,91,2,0)
+566 ;;=^358.52^1^1
+567 ;;^UTILITY(U,$J,358.5,91,2,1,0)
+568 ;;=SSN:^^^39^1^1^44^15^1
+569 ;;^UTILITY(U,$J,358.5,92,0)
+570 ;;=Age^109^5
+571 ;;^UTILITY(U,$J,358.5,92,2,0)
+572 ;;=^358.52^2^2
+573 ;;^UTILITY(U,$J,358.5,92,2,1,0)
+574 ;;=DOB:^^^60^1^1^65^12^1
+575 ;;^UTILITY(U,$J,358.5,92,2,2,0)
+576 ;;=Age:^^^78^1^1^83^3^2
+577 ;;^UTILITY(U,$J,358.5,93,0)
+578 ;;=HEADER^112
+579 ;;^UTILITY(U,$J,358.5,93,2,0)
+580 ;;=^358.52^1^1
+581 ;;^UTILITY(U,$J,358.5,93,2,1,0)
+582 ;;=NATIONAL NURSING CLINIC ^^^0^0
+583 ;;^UTILITY(U,$J,358.5,94,0)
+584 ;;=Patient name^113^3
+585 ;;^UTILITY(U,$J,358.5,94,2,0)
+586 ;;=^358.52^1^1
+587 ;;^UTILITY(U,$J,358.5,94,2,1,0)
+588 ;;=Name:^^^1^1^1^7^30^1
+589 ;;^UTILITY(U,$J,358.5,95,0)
+590 ;;=SSN^113^4
+591 ;;^UTILITY(U,$J,358.5,95,2,0)
+592 ;;=^358.52^1^1
+593 ;;^UTILITY(U,$J,358.5,95,2,1,0)
+594 ;;=SSN:^^^39^1^1^44^15^1
+595 ;;^UTILITY(U,$J,358.5,96,0)
+596 ;;=Age^113^5
+597 ;;^UTILITY(U,$J,358.5,96,2,0)
+598 ;;=^358.52^2^2
+599 ;;^UTILITY(U,$J,358.5,96,2,1,0)
+600 ;;=DOB:^^^60^1^1^65^12^1
+601 ;;^UTILITY(U,$J,358.5,96,2,2,0)
+602 ;;=Age:^^^78^1^1^83^3^2
+603 ;;^UTILITY(U,$J,358.5,97,0)
+604 ;;=HEADER^119
+605 ;;^UTILITY(U,$J,358.5,97,2,0)
+606 ;;=^358.52^1^1
+607 ;;^UTILITY(U,$J,358.5,97,2,1,0)
+608 ;;=NATIONAL INPATIENT REHAB PHYSIATRY^^^0^0
+609 ;;^UTILITY(U,$J,358.5,98,0)
+610 ;;=Patient name^120^3
+611 ;;^UTILITY(U,$J,358.5,98,2,0)
+612 ;;=^358.52^1^1
+613 ;;^UTILITY(U,$J,358.5,98,2,1,0)
+614 ;;=Name:^^^1^1^1^7^30^1
+615 ;;^UTILITY(U,$J,358.5,99,0)
+616 ;;=SSN^120^4
+617 ;;^UTILITY(U,$J,358.5,99,2,0)
+618 ;;=^358.52^1^1
+619 ;;^UTILITY(U,$J,358.5,99,2,1,0)
+620 ;;=SSN:^^^39^1^1^44^15^1
+621 ;;^UTILITY(U,$J,358.5,100,0)
+622 ;;=Age^120^5
+623 ;;^UTILITY(U,$J,358.5,100,2,0)
+624 ;;=^358.52^2^2
+625 ;;^UTILITY(U,$J,358.5,100,2,1,0)
+626 ;;=DOB:^^^60^1^1^65^12^1
+627 ;;^UTILITY(U,$J,358.5,100,2,2,0)
+628 ;;=Age:^^^78^1^1^83^3^2
+629 ;;^UTILITY(U,$J,358.5,101,0)
+630 ;;=HEADER^123
+631 ;;^UTILITY(U,$J,358.5,101,2,0)
+632 ;;=^358.52^1^1
+633 ;;^UTILITY(U,$J,358.5,101,2,1,0)
+634 ;;=NATIONAL REHAB PHYSIATRY^^^0^0
+635 ;;^UTILITY(U,$J,358.5,102,0)
+636 ;;=Patient name^124^3
+637 ;;^UTILITY(U,$J,358.5,102,2,0)
+638 ;;=^358.52^1^1
+639 ;;^UTILITY(U,$J,358.5,102,2,1,0)
+640 ;;=Name:^^^1^1^1^7^30^1
+641 ;;^UTILITY(U,$J,358.5,103,0)
+642 ;;=SSN^124^4
+643 ;;^UTILITY(U,$J,358.5,103,2,0)
+644 ;;=^358.52^1^1
+645 ;;^UTILITY(U,$J,358.5,103,2,1,0)
+646 ;;=SSN:^^^39^1^1^44^15^1
+647 ;;^UTILITY(U,$J,358.5,104,0)
+648 ;;=Age^124^5
+649 ;;^UTILITY(U,$J,358.5,104,2,0)
+650 ;;=^358.52^2^2
+651 ;;^UTILITY(U,$J,358.5,104,2,1,0)
+652 ;;=DOB:^^^60^1^1^65^12^1
+653 ;;^UTILITY(U,$J,358.5,104,2,2,0)
+654 ;;=Age:^^^78^1^1^83^3^2
+655 ;;^UTILITY(U,$J,358.5,105,0)
+656 ;;=HEADER^127
+657 ;;^UTILITY(U,$J,358.5,105,2,0)
+658 ;;=^358.52^1^1
+659 ;;^UTILITY(U,$J,358.5,105,2,1,0)
+660 ;;=NATIONAL PRIMARY CARE^^^0^0
+661 ;;^UTILITY(U,$J,358.5,106,0)
+662 ;;=Patient name^128^3
+663 ;;^UTILITY(U,$J,358.5,106,2,0)
+664 ;;=^358.52^1^1
+665 ;;^UTILITY(U,$J,358.5,106,2,1,0)
+666 ;;=Name:^^^1^1^1^7^30^1
+667 ;;^UTILITY(U,$J,358.5,107,0)
+668 ;;=SSN^128^4
+669 ;;^UTILITY(U,$J,358.5,107,2,0)
+670 ;;=^358.52^1^1
+671 ;;^UTILITY(U,$J,358.5,107,2,1,0)
+672 ;;=SSN:^^^39^1^1^44^15^1
+673 ;;^UTILITY(U,$J,358.5,108,0)
+674 ;;=Age^128^5
+675 ;;^UTILITY(U,$J,358.5,108,2,0)
+676 ;;=^358.52^2^2
+677 ;;^UTILITY(U,$J,358.5,108,2,1,0)
+678 ;;=DOB:^^^60^1^1^65^12^1
+679 ;;^UTILITY(U,$J,358.5,108,2,2,0)
+680 ;;=Age:^^^78^1^1^83^3^2
+681 ;;^UTILITY(U,$J,358.5,109,0)
+682 ;;=HEADER^134
+683 ;;^UTILITY(U,$J,358.5,109,2,0)
+684 ;;=^358.52^1^1
+685 ;;^UTILITY(U,$J,358.5,109,2,1,0)
+686 ;;=NATIONAL PULMONARY^^^0^0
+687 ;;^UTILITY(U,$J,358.5,110,0)
+688 ;;=Patient name^135^3
+689 ;;^UTILITY(U,$J,358.5,110,2,0)
+690 ;;=^358.52^1^1
+691 ;;^UTILITY(U,$J,358.5,110,2,1,0)
+692 ;;=Name:^^^1^1^1^7^30^1
+693 ;;^UTILITY(U,$J,358.5,111,0)
+694 ;;=SSN^135^4
+695 ;;^UTILITY(U,$J,358.5,111,2,0)
+696 ;;=^358.52^1^1
+697 ;;^UTILITY(U,$J,358.5,111,2,1,0)
+698 ;;=SSN:^^^39^1^1^44^15^1
+699 ;;^UTILITY(U,$J,358.5,112,0)
+700 ;;=Age^135^5
+701 ;;^UTILITY(U,$J,358.5,112,2,0)
+702 ;;=^358.52^2^2
+703 ;;^UTILITY(U,$J,358.5,112,2,1,0)
+704 ;;=DOB:^^^60^1^1^65^12^1
+705 ;;^UTILITY(U,$J,358.5,112,2,2,0)
+706 ;;=Age:^^^78^1^1^83^3^2
+707 ;;^UTILITY(U,$J,358.5,113,0)
+708 ;;=HEADER^138
+709 ;;^UTILITY(U,$J,358.5,113,2,0)
+710 ;;=^358.52^1^1
+711 ;;^UTILITY(U,$J,358.5,113,2,1,0)
+712 ;;=NATIONAL PT/OT/KT^^^0^0
+713 ;;^UTILITY(U,$J,358.5,114,0)
+714 ;;=Patient name^139^3
+715 ;;^UTILITY(U,$J,358.5,114,2,0)
+716 ;;=^358.52^1^1
+717 ;;^UTILITY(U,$J,358.5,114,2,1,0)
+718 ;;=Name:^^^1^1^1^7^30^1
+719 ;;^UTILITY(U,$J,358.5,115,0)
+720 ;;=SSN^139^4
+721 ;;^UTILITY(U,$J,358.5,115,2,0)
+722 ;;=^358.52^1^1
+723 ;;^UTILITY(U,$J,358.5,115,2,1,0)
+724 ;;=SSN:^^^39^1^1^44^15^1
+725 ;;^UTILITY(U,$J,358.5,116,0)
+726 ;;=Age^139^5
+727 ;;^UTILITY(U,$J,358.5,116,2,0)
+728 ;;=^358.52^2^2
