Routine: IBDEI3C7

IBDEI3C7 ; ; 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,81,2,0)

 ;;=^358.52^1^1

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

 ;;=NATIONAL COMMUNITY INTEGRATED HEALTHCARE (CIH)^^^0^0

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

 ;;=Patient name^98^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^98^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^98^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^104

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

 ;;=^358.52^1^1

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

 ;;=NATIONAL CRITICAL CARE^^^0^0

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

 ;;=Patient name^105^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^105^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^105^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)

 ;;=HEADER^109

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

 ;;=^358.52^1^1

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

 ;;=NATIONAL DERMATOLOGY EF ^^^0^0

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

 ;;=Patient name^110^1

 ;;^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^110^2

 ;;^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^110^3

 ;;^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)

 ;;=Patient name^114^1

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

 ;;=^358.52^1^1

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

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

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

 ;;=SSN^114^2

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

 ;;=^358.52^1^1

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

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

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

 ;;=Age^114^3

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

 ;;=^358.52^2^2

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

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

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

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

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

 ;;=HEADER^115

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

 ;;=^358.52^1^1

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

 ;;=NATIONAL DIALYSIS^^B^0^0

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

 ;;=HEADER^120

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

 ;;=^358.52^1^1

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

 ;;=NATIONAL EMERGENCY DEPARTMENT^^^0^0

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

 ;;=Patient name^121^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^121^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^121^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^123

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI3C7   3767     printed  Feb 19, 2025@00:12:21                                                                                                                                                                                                    Page 2

IBDEI3C7  ; ; 04-FEB-2020

 +1       ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020

 +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,81,2,0)

 +2       ;;=^358.52^1^1

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

 +4       ;;=NATIONAL COMMUNITY INTEGRATED HEALTHCARE (CIH)^^^0^0

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

 +6       ;;=Patient name^98^1

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

 +8       ;;=^358.52^1^1

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

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

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

 +12      ;;=SSN^98^2

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

 +14      ;;=^358.52^1^1

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

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

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

 +18      ;;=Age^98^3

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

 +20      ;;=^358.52^2^2

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

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

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

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

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

 +26      ;;=HEADER^104

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

 +28      ;;=^358.52^1^1

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

 +30      ;;=NATIONAL CRITICAL CARE^^^0^0

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

 +32      ;;=Patient name^105^1

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

 +34      ;;=^358.52^1^1

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

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

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

 +38      ;;=SSN^105^2

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

 +40      ;;=^358.52^1^1

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

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

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

 +44      ;;=Age^105^3

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

 +46      ;;=^358.52^2^2

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

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

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

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

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

 +52      ;;=HEADER^109

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

 +54      ;;=^358.52^1^1

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

 +56      ;;=NATIONAL DERMATOLOGY EF ^^^0^0

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

 +58      ;;=Patient name^110^1

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

 +60      ;;=^358.52^1^1

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

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

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

 +64      ;;=SSN^110^2

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

 +66      ;;=^358.52^1^1

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

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

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

 +70      ;;=Age^110^3

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

 +72      ;;=^358.52^2^2

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

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

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

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

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

 +78      ;;=Patient name^114^1

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

 +80      ;;=^358.52^1^1

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

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

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

 +84      ;;=SSN^114^2

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

 +86      ;;=^358.52^1^1

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

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

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

 +90      ;;=Age^114^3

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

 +92      ;;=^358.52^2^2

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

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

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

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

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

 +98      ;;=HEADER^115

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

 +100     ;;=^358.52^1^1

 +101     ;;^UTILITY(U,$J,358.5,96,2,1,0)

 +102     ;;=NATIONAL DIALYSIS^^B^0^0

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

 +104     ;;=HEADER^120

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

 +106     ;;=^358.52^1^1

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

 +108     ;;=NATIONAL EMERGENCY DEPARTMENT^^^0^0

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

 +110     ;;=Patient name^121^1

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

 +112     ;;=^358.52^1^1

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

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

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

 +116     ;;=SSN^121^2

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

 +118     ;;=^358.52^1^1

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

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

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

 +122     ;;=Age^121^3

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

 +124     ;;=^358.52^2^2

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

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

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

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

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

 +130     ;;=HEADER^123

IBDEI3C7.m