Routine: IBDEI0FU

IBDEI0FU ; ; 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,116,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,116,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,117,0)

 ;;=HEADER^143

 ;;^UTILITY(U,$J,358.5,117,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,117,2,1,0)

 ;;=NATIONAL RESPIRATORY THERAPY - PFT/SLEEP/OXYGEN^^^0^0

 ;;^UTILITY(U,$J,358.5,118,0)

 ;;=Patient name^144^3

 ;;^UTILITY(U,$J,358.5,118,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,118,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,119,0)

 ;;=SSN^144^4

 ;;^UTILITY(U,$J,358.5,119,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,119,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,120,0)

 ;;=Age^144^5

 ;;^UTILITY(U,$J,358.5,120,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,120,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,120,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,121,0)

 ;;=HEADER^147

 ;;^UTILITY(U,$J,358.5,121,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,121,2,1,0)

 ;;=NATIONAL SPINAL CORD INJURY^^^0^0

 ;;^UTILITY(U,$J,358.5,122,0)

 ;;=Patient name^148^3

 ;;^UTILITY(U,$J,358.5,122,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,122,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,123,0)

 ;;=SSN^148^4

 ;;^UTILITY(U,$J,358.5,123,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,123,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,124,0)

 ;;=Age^148^5

 ;;^UTILITY(U,$J,358.5,124,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,124,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,124,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,125,0)

 ;;=HEADER^153

 ;;^UTILITY(U,$J,358.5,125,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,125,2,1,0)

 ;;=NATIONAL SPEECH^^^0^0

 ;;^UTILITY(U,$J,358.5,126,0)

 ;;=Patient name^154^3

 ;;^UTILITY(U,$J,358.5,126,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,126,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,127,0)

 ;;=SSN^154^4

 ;;^UTILITY(U,$J,358.5,127,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,127,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,128,0)

 ;;=Age^154^5

 ;;^UTILITY(U,$J,358.5,128,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,128,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,128,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,129,0)

 ;;=HEADER^157

 ;;^UTILITY(U,$J,358.5,129,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,129,2,1,0)

 ;;=NATIONAL TBI^^^0^0

 ;;^UTILITY(U,$J,358.5,130,0)

 ;;=Patient name^158^3

 ;;^UTILITY(U,$J,358.5,130,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,130,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,131,0)

 ;;=SSN^158^4

 ;;^UTILITY(U,$J,358.5,131,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,131,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,132,0)

 ;;=Age^158^5

 ;;^UTILITY(U,$J,358.5,132,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,132,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,132,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,133,0)

 ;;=HEADER^162

 ;;^UTILITY(U,$J,358.5,133,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,133,2,1,0)

 ;;=NATIONAL TELEDERM^^^0^0

 ;;^UTILITY(U,$J,358.5,134,0)

 ;;=Patient name^163^3

 ;;^UTILITY(U,$J,358.5,134,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,134,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,135,0)

 ;;=SSN^163^4

 ;;^UTILITY(U,$J,358.5,135,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,135,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,136,0)

 ;;=Age^163^5

 ;;^UTILITY(U,$J,358.5,136,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,136,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,136,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,137,0)

 ;;=HEADER^166

 ;;^UTILITY(U,$J,358.5,137,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,137,2,1,0)

 ;;=NATIONAL TELEHEALTH - PATIENT SITE^^^0^0

 ;;^UTILITY(U,$J,358.5,138,0)

 ;;=Patient name^167^3

 ;;^UTILITY(U,$J,358.5,138,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,138,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,139,0)

 ;;=SSN^167^4

 ;;^UTILITY(U,$J,358.5,139,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,139,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,140,0)

 ;;=Age^167^5

 ;;^UTILITY(U,$J,358.5,140,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,140,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,140,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,141,0)

 ;;=HEADER^172

 ;;^UTILITY(U,$J,358.5,141,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,141,2,1,0)

 ;;=NATIONAL TRANSPLANT^^^0^0

 ;;^UTILITY(U,$J,358.5,142,0)

 ;;=Patient name^173^3

 ;;^UTILITY(U,$J,358.5,142,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,142,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,143,0)

 ;;=SSN^173^4

 ;;^UTILITY(U,$J,358.5,143,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,143,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,144,0)

 ;;=Age^173^5

 ;;^UTILITY(U,$J,358.5,144,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,144,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,144,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,145,0)

 ;;=HEADER^175

 ;;^UTILITY(U,$J,358.5,145,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,145,2,1,0)

 ;;=NATIONAL URGENT CARE^^^0^0

 ;;^UTILITY(U,$J,358.5,146,0)

 ;;=Patient name^176^3

 ;;^UTILITY(U,$J,358.5,146,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,146,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,147,0)

 ;;=SSN^176^4

 ;;^UTILITY(U,$J,358.5,147,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,147,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,148,0)

 ;;=Age^176^5

 ;;^UTILITY(U,$J,358.5,148,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,148,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,148,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,149,0)

 ;;=HEADER^180

 ;;^UTILITY(U,$J,358.5,149,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,149,2,1,0)

 ;;=NATIONAL GATEWAY TO HEALTHY LIVING^^^0^0

 ;;^UTILITY(U,$J,358.5,150,0)

 ;;=Patient name^181^3

 ;;^UTILITY(U,$J,358.5,150,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,150,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,151,0)

 ;;=SSN^181^4

 ;;^UTILITY(U,$J,358.5,151,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,151,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,152,0)

 ;;=Age^181^5

 ;;^UTILITY(U,$J,358.5,152,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,152,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,152,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,153,0)

 ;;=HEADER^184

 ;;^UTILITY(U,$J,358.5,153,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,153,2,1,0)

 ;;=NATIONAL COVID-19 SUPPLEMENTAL FORM^^B^0^0

 ;;^UTILITY(U,$J,358.5,154,0)

 ;;=Patient name^185^3

 ;;^UTILITY(U,$J,358.5,154,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,154,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,155,0)

 ;;=SSN^185^4

 ;;^UTILITY(U,$J,358.5,155,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,155,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,156,0)

 ;;=Age^185^5

 ;;^UTILITY(U,$J,358.5,156,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,156,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,156,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

 ;;^UTILITY(U,$J,358.5,157,0)

 ;;=HEADER^187

 ;;^UTILITY(U,$J,358.5,157,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,157,2,1,0)

 ;;=NATIONAL TELEPHONE COVID-19 SUPPLEMENTAL FORM^^^0^0

 ;;^UTILITY(U,$J,358.5,158,0)

 ;;=Patient name^188^3

 ;;^UTILITY(U,$J,358.5,158,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,158,2,1,0)

 ;;=Name:^^^1^1^1^7^30^1

 ;;^UTILITY(U,$J,358.5,159,0)

 ;;=SSN^188^4

 ;;^UTILITY(U,$J,358.5,159,2,0)

 ;;=^358.52^1^1

 ;;^UTILITY(U,$J,358.5,159,2,1,0)

 ;;=SSN:^^^39^1^1^44^15^1

 ;;^UTILITY(U,$J,358.5,160,0)

 ;;=Age^188^5

 ;;^UTILITY(U,$J,358.5,160,2,0)

 ;;=^358.52^2^2

 ;;^UTILITY(U,$J,358.5,160,2,1,0)

 ;;=DOB:^^^60^1^1^65^12^1

 ;;^UTILITY(U,$J,358.5,160,2,2,0)

 ;;=Age:^^^78^1^1^83^3^2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0FU   8242     printed  Feb 18, 2025@23:14:14                                                                                                                                                                                                    Page 2

IBDEI0FU  ; ; 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,116,2,1,0)

 +2       ;;=DOB:^^^60^1^1^65^12^1

 +3       ;;^UTILITY(U,$J,358.5,116,2,2,0)

 +4       ;;=Age:^^^78^1^1^83^3^2

 +5       ;;^UTILITY(U,$J,358.5,117,0)

 +6       ;;=HEADER^143

 +7       ;;^UTILITY(U,$J,358.5,117,2,0)

 +8       ;;=^358.52^1^1

 +9       ;;^UTILITY(U,$J,358.5,117,2,1,0)

 +10      ;;=NATIONAL RESPIRATORY THERAPY - PFT/SLEEP/OXYGEN^^^0^0

 +11      ;;^UTILITY(U,$J,358.5,118,0)

 +12      ;;=Patient name^144^3

 +13      ;;^UTILITY(U,$J,358.5,118,2,0)

 +14      ;;=^358.52^1^1

 +15      ;;^UTILITY(U,$J,358.5,118,2,1,0)

 +16      ;;=Name:^^^1^1^1^7^30^1

 +17      ;;^UTILITY(U,$J,358.5,119,0)

 +18      ;;=SSN^144^4

 +19      ;;^UTILITY(U,$J,358.5,119,2,0)

 +20      ;;=^358.52^1^1

 +21      ;;^UTILITY(U,$J,358.5,119,2,1,0)

 +22      ;;=SSN:^^^39^1^1^44^15^1

 +23      ;;^UTILITY(U,$J,358.5,120,0)

 +24      ;;=Age^144^5

 +25      ;;^UTILITY(U,$J,358.5,120,2,0)

 +26      ;;=^358.52^2^2

 +27      ;;^UTILITY(U,$J,358.5,120,2,1,0)

 +28      ;;=DOB:^^^60^1^1^65^12^1

 +29      ;;^UTILITY(U,$J,358.5,120,2,2,0)

 +30      ;;=Age:^^^78^1^1^83^3^2

 +31      ;;^UTILITY(U,$J,358.5,121,0)

 +32      ;;=HEADER^147

 +33      ;;^UTILITY(U,$J,358.5,121,2,0)

 +34      ;;=^358.52^1^1

 +35      ;;^UTILITY(U,$J,358.5,121,2,1,0)

 +36      ;;=NATIONAL SPINAL CORD INJURY^^^0^0

 +37      ;;^UTILITY(U,$J,358.5,122,0)

 +38      ;;=Patient name^148^3

 +39      ;;^UTILITY(U,$J,358.5,122,2,0)

 +40      ;;=^358.52^1^1

 +41      ;;^UTILITY(U,$J,358.5,122,2,1,0)

 +42      ;;=Name:^^^1^1^1^7^30^1

 +43      ;;^UTILITY(U,$J,358.5,123,0)

 +44      ;;=SSN^148^4

 +45      ;;^UTILITY(U,$J,358.5,123,2,0)

 +46      ;;=^358.52^1^1

 +47      ;;^UTILITY(U,$J,358.5,123,2,1,0)

 +48      ;;=SSN:^^^39^1^1^44^15^1

 +49      ;;^UTILITY(U,$J,358.5,124,0)

 +50      ;;=Age^148^5

 +51      ;;^UTILITY(U,$J,358.5,124,2,0)

 +52      ;;=^358.52^2^2

 +53      ;;^UTILITY(U,$J,358.5,124,2,1,0)

 +54      ;;=DOB:^^^60^1^1^65^12^1

 +55      ;;^UTILITY(U,$J,358.5,124,2,2,0)

 +56      ;;=Age:^^^78^1^1^83^3^2

 +57      ;;^UTILITY(U,$J,358.5,125,0)

 +58      ;;=HEADER^153

 +59      ;;^UTILITY(U,$J,358.5,125,2,0)

 +60      ;;=^358.52^1^1

 +61      ;;^UTILITY(U,$J,358.5,125,2,1,0)

 +62      ;;=NATIONAL SPEECH^^^0^0

 +63      ;;^UTILITY(U,$J,358.5,126,0)

 +64      ;;=Patient name^154^3

 +65      ;;^UTILITY(U,$J,358.5,126,2,0)

 +66      ;;=^358.52^1^1

 +67      ;;^UTILITY(U,$J,358.5,126,2,1,0)

 +68      ;;=Name:^^^1^1^1^7^30^1

 +69      ;;^UTILITY(U,$J,358.5,127,0)

 +70      ;;=SSN^154^4

 +71      ;;^UTILITY(U,$J,358.5,127,2,0)

 +72      ;;=^358.52^1^1

 +73      ;;^UTILITY(U,$J,358.5,127,2,1,0)

 +74      ;;=SSN:^^^39^1^1^44^15^1

 +75      ;;^UTILITY(U,$J,358.5,128,0)

 +76      ;;=Age^154^5

 +77      ;;^UTILITY(U,$J,358.5,128,2,0)

 +78      ;;=^358.52^2^2

 +79      ;;^UTILITY(U,$J,358.5,128,2,1,0)

 +80      ;;=DOB:^^^60^1^1^65^12^1

 +81      ;;^UTILITY(U,$J,358.5,128,2,2,0)

 +82      ;;=Age:^^^78^1^1^83^3^2

 +83      ;;^UTILITY(U,$J,358.5,129,0)

 +84      ;;=HEADER^157

 +85      ;;^UTILITY(U,$J,358.5,129,2,0)

 +86      ;;=^358.52^1^1

 +87      ;;^UTILITY(U,$J,358.5,129,2,1,0)

 +88      ;;=NATIONAL TBI^^^0^0

 +89      ;;^UTILITY(U,$J,358.5,130,0)

 +90      ;;=Patient name^158^3

 +91      ;;^UTILITY(U,$J,358.5,130,2,0)

 +92      ;;=^358.52^1^1

 +93      ;;^UTILITY(U,$J,358.5,130,2,1,0)

 +94      ;;=Name:^^^1^1^1^7^30^1

 +95      ;;^UTILITY(U,$J,358.5,131,0)

 +96      ;;=SSN^158^4

 +97      ;;^UTILITY(U,$J,358.5,131,2,0)

 +98      ;;=^358.52^1^1

 +99      ;;^UTILITY(U,$J,358.5,131,2,1,0)

 +100     ;;=SSN:^^^39^1^1^44^15^1

 +101     ;;^UTILITY(U,$J,358.5,132,0)

 +102     ;;=Age^158^5

 +103     ;;^UTILITY(U,$J,358.5,132,2,0)

 +104     ;;=^358.52^2^2

 +105     ;;^UTILITY(U,$J,358.5,132,2,1,0)

 +106     ;;=DOB:^^^60^1^1^65^12^1

 +107     ;;^UTILITY(U,$J,358.5,132,2,2,0)

 +108     ;;=Age:^^^78^1^1^83^3^2

 +109     ;;^UTILITY(U,$J,358.5,133,0)

 +110     ;;=HEADER^162

 +111     ;;^UTILITY(U,$J,358.5,133,2,0)

 +112     ;;=^358.52^1^1

 +113     ;;^UTILITY(U,$J,358.5,133,2,1,0)

 +114     ;;=NATIONAL TELEDERM^^^0^0

 +115     ;;^UTILITY(U,$J,358.5,134,0)

 +116     ;;=Patient name^163^3

 +117     ;;^UTILITY(U,$J,358.5,134,2,0)

 +118     ;;=^358.52^1^1

 +119     ;;^UTILITY(U,$J,358.5,134,2,1,0)

 +120     ;;=Name:^^^1^1^1^7^30^1

 +121     ;;^UTILITY(U,$J,358.5,135,0)

 +122     ;;=SSN^163^4

 +123     ;;^UTILITY(U,$J,358.5,135,2,0)

 +124     ;;=^358.52^1^1

 +125     ;;^UTILITY(U,$J,358.5,135,2,1,0)

 +126     ;;=SSN:^^^39^1^1^44^15^1

 +127     ;;^UTILITY(U,$J,358.5,136,0)

 +128     ;;=Age^163^5

 +129     ;;^UTILITY(U,$J,358.5,136,2,0)

 +130     ;;=^358.52^2^2

 +131     ;;^UTILITY(U,$J,358.5,136,2,1,0)

 +132     ;;=DOB:^^^60^1^1^65^12^1

 +133     ;;^UTILITY(U,$J,358.5,136,2,2,0)

 +134     ;;=Age:^^^78^1^1^83^3^2

 +135     ;;^UTILITY(U,$J,358.5,137,0)

 +136     ;;=HEADER^166

 +137     ;;^UTILITY(U,$J,358.5,137,2,0)

 +138     ;;=^358.52^1^1

 +139     ;;^UTILITY(U,$J,358.5,137,2,1,0)

 +140     ;;=NATIONAL TELEHEALTH - PATIENT SITE^^^0^0

 +141     ;;^UTILITY(U,$J,358.5,138,0)

 +142     ;;=Patient name^167^3

 +143     ;;^UTILITY(U,$J,358.5,138,2,0)

 +144     ;;=^358.52^1^1

 +145     ;;^UTILITY(U,$J,358.5,138,2,1,0)

 +146     ;;=Name:^^^1^1^1^7^30^1

 +147     ;;^UTILITY(U,$J,358.5,139,0)

 +148     ;;=SSN^167^4

 +149     ;;^UTILITY(U,$J,358.5,139,2,0)

 +150     ;;=^358.52^1^1

 +151     ;;^UTILITY(U,$J,358.5,139,2,1,0)

 +152     ;;=SSN:^^^39^1^1^44^15^1

 +153     ;;^UTILITY(U,$J,358.5,140,0)

 +154     ;;=Age^167^5

 +155     ;;^UTILITY(U,$J,358.5,140,2,0)

 +156     ;;=^358.52^2^2

 +157     ;;^UTILITY(U,$J,358.5,140,2,1,0)

 +158     ;;=DOB:^^^60^1^1^65^12^1

 +159     ;;^UTILITY(U,$J,358.5,140,2,2,0)

 +160     ;;=Age:^^^78^1^1^83^3^2

 +161     ;;^UTILITY(U,$J,358.5,141,0)

 +162     ;;=HEADER^172

 +163     ;;^UTILITY(U,$J,358.5,141,2,0)

 +164     ;;=^358.52^1^1

 +165     ;;^UTILITY(U,$J,358.5,141,2,1,0)

 +166     ;;=NATIONAL TRANSPLANT^^^0^0

 +167     ;;^UTILITY(U,$J,358.5,142,0)

 +168     ;;=Patient name^173^3

 +169     ;;^UTILITY(U,$J,358.5,142,2,0)

 +170     ;;=^358.52^1^1

 +171     ;;^UTILITY(U,$J,358.5,142,2,1,0)

 +172     ;;=Name:^^^1^1^1^7^30^1

 +173     ;;^UTILITY(U,$J,358.5,143,0)

 +174     ;;=SSN^173^4

 +175     ;;^UTILITY(U,$J,358.5,143,2,0)

 +176     ;;=^358.52^1^1

 +177     ;;^UTILITY(U,$J,358.5,143,2,1,0)

 +178     ;;=SSN:^^^39^1^1^44^15^1

 +179     ;;^UTILITY(U,$J,358.5,144,0)

 +180     ;;=Age^173^5

 +181     ;;^UTILITY(U,$J,358.5,144,2,0)

 +182     ;;=^358.52^2^2

 +183     ;;^UTILITY(U,$J,358.5,144,2,1,0)

 +184     ;;=DOB:^^^60^1^1^65^12^1

 +185     ;;^UTILITY(U,$J,358.5,144,2,2,0)

 +186     ;;=Age:^^^78^1^1^83^3^2

 +187     ;;^UTILITY(U,$J,358.5,145,0)

 +188     ;;=HEADER^175

 +189     ;;^UTILITY(U,$J,358.5,145,2,0)

 +190     ;;=^358.52^1^1

 +191     ;;^UTILITY(U,$J,358.5,145,2,1,0)

 +192     ;;=NATIONAL URGENT CARE^^^0^0

 +193     ;;^UTILITY(U,$J,358.5,146,0)

 +194     ;;=Patient name^176^3

 +195     ;;^UTILITY(U,$J,358.5,146,2,0)

 +196     ;;=^358.52^1^1

 +197     ;;^UTILITY(U,$J,358.5,146,2,1,0)

 +198     ;;=Name:^^^1^1^1^7^30^1

 +199     ;;^UTILITY(U,$J,358.5,147,0)

 +200     ;;=SSN^176^4

 +201     ;;^UTILITY(U,$J,358.5,147,2,0)

 +202     ;;=^358.52^1^1

 +203     ;;^UTILITY(U,$J,358.5,147,2,1,0)

 +204     ;;=SSN:^^^39^1^1^44^15^1

 +205     ;;^UTILITY(U,$J,358.5,148,0)

 +206     ;;=Age^176^5

 +207     ;;^UTILITY(U,$J,358.5,148,2,0)

 +208     ;;=^358.52^2^2

 +209     ;;^UTILITY(U,$J,358.5,148,2,1,0)

 +210     ;;=DOB:^^^60^1^1^65^12^1

 +211     ;;^UTILITY(U,$J,358.5,148,2,2,0)

 +212     ;;=Age:^^^78^1^1^83^3^2

 +213     ;;^UTILITY(U,$J,358.5,149,0)

 +214     ;;=HEADER^180

 +215     ;;^UTILITY(U,$J,358.5,149,2,0)

 +216     ;;=^358.52^1^1

 +217     ;;^UTILITY(U,$J,358.5,149,2,1,0)

 +218     ;;=NATIONAL GATEWAY TO HEALTHY LIVING^^^0^0

 +219     ;;^UTILITY(U,$J,358.5,150,0)

 +220     ;;=Patient name^181^3

 +221     ;;^UTILITY(U,$J,358.5,150,2,0)

 +222     ;;=^358.52^1^1

 +223     ;;^UTILITY(U,$J,358.5,150,2,1,0)

 +224     ;;=Name:^^^1^1^1^7^30^1

 +225     ;;^UTILITY(U,$J,358.5,151,0)

 +226     ;;=SSN^181^4

 +227     ;;^UTILITY(U,$J,358.5,151,2,0)

 +228     ;;=^358.52^1^1

 +229     ;;^UTILITY(U,$J,358.5,151,2,1,0)

 +230     ;;=SSN:^^^39^1^1^44^15^1

 +231     ;;^UTILITY(U,$J,358.5,152,0)

 +232     ;;=Age^181^5

 +233     ;;^UTILITY(U,$J,358.5,152,2,0)

 +234     ;;=^358.52^2^2

 +235     ;;^UTILITY(U,$J,358.5,152,2,1,0)

 +236     ;;=DOB:^^^60^1^1^65^12^1

 +237     ;;^UTILITY(U,$J,358.5,152,2,2,0)

 +238     ;;=Age:^^^78^1^1^83^3^2

 +239     ;;^UTILITY(U,$J,358.5,153,0)

 +240     ;;=HEADER^184

 +241     ;;^UTILITY(U,$J,358.5,153,2,0)

 +242     ;;=^358.52^1^1

 +243     ;;^UTILITY(U,$J,358.5,153,2,1,0)

 +244     ;;=NATIONAL COVID-19 SUPPLEMENTAL FORM^^B^0^0

 +245     ;;^UTILITY(U,$J,358.5,154,0)

 +246     ;;=Patient name^185^3

 +247     ;;^UTILITY(U,$J,358.5,154,2,0)

 +248     ;;=^358.52^1^1

 +249     ;;^UTILITY(U,$J,358.5,154,2,1,0)

 +250     ;;=Name:^^^1^1^1^7^30^1

 +251     ;;^UTILITY(U,$J,358.5,155,0)

 +252     ;;=SSN^185^4

 +253     ;;^UTILITY(U,$J,358.5,155,2,0)

 +254     ;;=^358.52^1^1

 +255     ;;^UTILITY(U,$J,358.5,155,2,1,0)

 +256     ;;=SSN:^^^39^1^1^44^15^1

 +257     ;;^UTILITY(U,$J,358.5,156,0)

 +258     ;;=Age^185^5

 +259     ;;^UTILITY(U,$J,358.5,156,2,0)

 +260     ;;=^358.52^2^2

 +261     ;;^UTILITY(U,$J,358.5,156,2,1,0)

 +262     ;;=DOB:^^^60^1^1^65^12^1

 +263     ;;^UTILITY(U,$J,358.5,156,2,2,0)

 +264     ;;=Age:^^^78^1^1^83^3^2

 +265     ;;^UTILITY(U,$J,358.5,157,0)

 +266     ;;=HEADER^187

 +267     ;;^UTILITY(U,$J,358.5,157,2,0)

 +268     ;;=^358.52^1^1

 +269     ;;^UTILITY(U,$J,358.5,157,2,1,0)

 +270     ;;=NATIONAL TELEPHONE COVID-19 SUPPLEMENTAL FORM^^^0^0

 +271     ;;^UTILITY(U,$J,358.5,158,0)

 +272     ;;=Patient name^188^3

 +273     ;;^UTILITY(U,$J,358.5,158,2,0)

 +274     ;;=^358.52^1^1

 +275     ;;^UTILITY(U,$J,358.5,158,2,1,0)

 +276     ;;=Name:^^^1^1^1^7^30^1

 +277     ;;^UTILITY(U,$J,358.5,159,0)

 +278     ;;=SSN^188^4

 +279     ;;^UTILITY(U,$J,358.5,159,2,0)

 +280     ;;=^358.52^1^1

 +281     ;;^UTILITY(U,$J,358.5,159,2,1,0)

 +282     ;;=SSN:^^^39^1^1^44^15^1

 +283     ;;^UTILITY(U,$J,358.5,160,0)

 +284     ;;=Age^188^5

 +285     ;;^UTILITY(U,$J,358.5,160,2,0)

 +286     ;;=^358.52^2^2

 +287     ;;^UTILITY(U,$J,358.5,160,2,1,0)

 +288     ;;=DOB:^^^60^1^1^65^12^1

 +289     ;;^UTILITY(U,$J,358.5,160,2,2,0)

 +290     ;;=Age:^^^78^1^1^83^3^2

IBDEI0FU.m