IBDEI2PW.m

IBDEI2PW ; ; 04-FEB-2020

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

 Q:'DIFQR(358.3)  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.3,43320,1,4,0)

 ;;=4^L89.324

 ;;^UTILITY(U,$J,358.3,43320,2)

 ;;=^5009403

 ;;^UTILITY(U,$J,358.3,43321,0)

 ;;=L89.510^^158^2105^48

 ;;^UTILITY(U,$J,358.3,43321,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43321,1,3,0)

 ;;=3^Pressure Ulcer Right Ankle,Unstageable

 ;;^UTILITY(U,$J,358.3,43321,1,4,0)

 ;;=4^L89.510

 ;;^UTILITY(U,$J,358.3,43321,2)

 ;;=^5009415

 ;;^UTILITY(U,$J,358.3,43322,0)

 ;;=L89.519^^158^2105^47

 ;;^UTILITY(U,$J,358.3,43322,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43322,1,3,0)

 ;;=3^Pressure Ulcer Right Ankle,Stage Unspec

 ;;^UTILITY(U,$J,358.3,43322,1,4,0)

 ;;=4^L89.519

 ;;^UTILITY(U,$J,358.3,43322,2)

 ;;=^5133673

 ;;^UTILITY(U,$J,358.3,43323,0)

 ;;=L89.511^^158^2105^43

 ;;^UTILITY(U,$J,358.3,43323,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43323,1,3,0)

 ;;=3^Pressure Ulcer Right Ankle,Stage 1

 ;;^UTILITY(U,$J,358.3,43323,1,4,0)

 ;;=4^L89.511

 ;;^UTILITY(U,$J,358.3,43323,2)

 ;;=^5009416

 ;;^UTILITY(U,$J,358.3,43324,0)

 ;;=L89.512^^158^2105^44

 ;;^UTILITY(U,$J,358.3,43324,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43324,1,3,0)

 ;;=3^Pressure Ulcer Right Ankle,Stage 2

 ;;^UTILITY(U,$J,358.3,43324,1,4,0)

 ;;=4^L89.512

 ;;^UTILITY(U,$J,358.3,43324,2)

 ;;=^5009417

 ;;^UTILITY(U,$J,358.3,43325,0)

 ;;=L89.513^^158^2105^45

 ;;^UTILITY(U,$J,358.3,43325,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43325,1,3,0)

 ;;=3^Pressure Ulcer Right Ankle,Stage 3

 ;;^UTILITY(U,$J,358.3,43325,1,4,0)

 ;;=4^L89.513

 ;;^UTILITY(U,$J,358.3,43325,2)

 ;;=^5009418

 ;;^UTILITY(U,$J,358.3,43326,0)

 ;;=L89.514^^158^2105^46

 ;;^UTILITY(U,$J,358.3,43326,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43326,1,3,0)

 ;;=3^Pressure Ulcer Right Ankle,Stage 4

 ;;^UTILITY(U,$J,358.3,43326,1,4,0)

 ;;=4^L89.514

 ;;^UTILITY(U,$J,358.3,43326,2)

 ;;=^5009419

 ;;^UTILITY(U,$J,358.3,43327,0)

 ;;=L89.520^^158^2105^6

 ;;^UTILITY(U,$J,358.3,43327,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43327,1,3,0)

 ;;=3^Pressure Ulcer Left Ankle,Unstageable

 ;;^UTILITY(U,$J,358.3,43327,1,4,0)

 ;;=4^L89.520

 ;;^UTILITY(U,$J,358.3,43327,2)

 ;;=^5009420

 ;;^UTILITY(U,$J,358.3,43328,0)

 ;;=L89.529^^158^2105^5

 ;;^UTILITY(U,$J,358.3,43328,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43328,1,3,0)

 ;;=3^Pressure Ulcer Left Ankle,Stage Unspec

 ;;^UTILITY(U,$J,358.3,43328,1,4,0)

 ;;=4^L89.529

 ;;^UTILITY(U,$J,358.3,43328,2)

 ;;=^5133674

 ;;^UTILITY(U,$J,358.3,43329,0)

 ;;=L89.521^^158^2105^1

 ;;^UTILITY(U,$J,358.3,43329,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43329,1,3,0)

 ;;=3^Pressure Ulcer Left Ankle,Stage 1

 ;;^UTILITY(U,$J,358.3,43329,1,4,0)

 ;;=4^L89.521

 ;;^UTILITY(U,$J,358.3,43329,2)

 ;;=^5009421

 ;;^UTILITY(U,$J,358.3,43330,0)

 ;;=L89.522^^158^2105^2

 ;;^UTILITY(U,$J,358.3,43330,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43330,1,3,0)

 ;;=3^Pressure Ulcer Left Ankle,Stage 2

 ;;^UTILITY(U,$J,358.3,43330,1,4,0)

 ;;=4^L89.522

 ;;^UTILITY(U,$J,358.3,43330,2)

 ;;=^5009422

 ;;^UTILITY(U,$J,358.3,43331,0)

 ;;=L89.523^^158^2105^3

 ;;^UTILITY(U,$J,358.3,43331,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43331,1,3,0)

 ;;=3^Pressure Ulcer Left Ankle,Stage 3

 ;;^UTILITY(U,$J,358.3,43331,1,4,0)

 ;;=4^L89.523

 ;;^UTILITY(U,$J,358.3,43331,2)

 ;;=^5009423

 ;;^UTILITY(U,$J,358.3,43332,0)

 ;;=L89.524^^158^2105^4

 ;;^UTILITY(U,$J,358.3,43332,1,0)

 ;;=^358.31IA^4^2

 ;;^UTILITY(U,$J,358.3,43332,1,3,0)

 ;;=3^Pressure Ulcer Left Ankle,Stage 4

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDEI2PW   3754     printed  Mar 13, 2025@21:38:23                                                                                                                                                                                                    Page 2

IBDEI2PW  ; ; 04-FEB-2020

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

 +2        if 'DIFQR(358.3)

               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.3,43320,1,4,0)

 +2       ;;=4^L89.324

 +3       ;;^UTILITY(U,$J,358.3,43320,2)

 +4       ;;=^5009403

 +5       ;;^UTILITY(U,$J,358.3,43321,0)

 +6       ;;=L89.510^^158^2105^48

 +7       ;;^UTILITY(U,$J,358.3,43321,1,0)

 +8       ;;=^358.31IA^4^2

 +9       ;;^UTILITY(U,$J,358.3,43321,1,3,0)

 +10      ;;=3^Pressure Ulcer Right Ankle,Unstageable

 +11      ;;^UTILITY(U,$J,358.3,43321,1,4,0)

 +12      ;;=4^L89.510

 +13      ;;^UTILITY(U,$J,358.3,43321,2)

 +14      ;;=^5009415

 +15      ;;^UTILITY(U,$J,358.3,43322,0)

 +16      ;;=L89.519^^158^2105^47

 +17      ;;^UTILITY(U,$J,358.3,43322,1,0)

 +18      ;;=^358.31IA^4^2

 +19      ;;^UTILITY(U,$J,358.3,43322,1,3,0)

 +20      ;;=3^Pressure Ulcer Right Ankle,Stage Unspec

 +21      ;;^UTILITY(U,$J,358.3,43322,1,4,0)

 +22      ;;=4^L89.519

 +23      ;;^UTILITY(U,$J,358.3,43322,2)

 +24      ;;=^5133673

 +25      ;;^UTILITY(U,$J,358.3,43323,0)

 +26      ;;=L89.511^^158^2105^43

 +27      ;;^UTILITY(U,$J,358.3,43323,1,0)

 +28      ;;=^358.31IA^4^2

 +29      ;;^UTILITY(U,$J,358.3,43323,1,3,0)

 +30      ;;=3^Pressure Ulcer Right Ankle,Stage 1

 +31      ;;^UTILITY(U,$J,358.3,43323,1,4,0)

 +32      ;;=4^L89.511

 +33      ;;^UTILITY(U,$J,358.3,43323,2)

 +34      ;;=^5009416

 +35      ;;^UTILITY(U,$J,358.3,43324,0)

 +36      ;;=L89.512^^158^2105^44

 +37      ;;^UTILITY(U,$J,358.3,43324,1,0)

 +38      ;;=^358.31IA^4^2

 +39      ;;^UTILITY(U,$J,358.3,43324,1,3,0)

 +40      ;;=3^Pressure Ulcer Right Ankle,Stage 2

 +41      ;;^UTILITY(U,$J,358.3,43324,1,4,0)

 +42      ;;=4^L89.512

 +43      ;;^UTILITY(U,$J,358.3,43324,2)

 +44      ;;=^5009417

 +45      ;;^UTILITY(U,$J,358.3,43325,0)

 +46      ;;=L89.513^^158^2105^45

 +47      ;;^UTILITY(U,$J,358.3,43325,1,0)

 +48      ;;=^358.31IA^4^2

 +49      ;;^UTILITY(U,$J,358.3,43325,1,3,0)

 +50      ;;=3^Pressure Ulcer Right Ankle,Stage 3

 +51      ;;^UTILITY(U,$J,358.3,43325,1,4,0)

 +52      ;;=4^L89.513

 +53      ;;^UTILITY(U,$J,358.3,43325,2)

 +54      ;;=^5009418

 +55      ;;^UTILITY(U,$J,358.3,43326,0)

 +56      ;;=L89.514^^158^2105^46

 +57      ;;^UTILITY(U,$J,358.3,43326,1,0)

 +58      ;;=^358.31IA^4^2

 +59      ;;^UTILITY(U,$J,358.3,43326,1,3,0)

 +60      ;;=3^Pressure Ulcer Right Ankle,Stage 4

 +61      ;;^UTILITY(U,$J,358.3,43326,1,4,0)

 +62      ;;=4^L89.514

 +63      ;;^UTILITY(U,$J,358.3,43326,2)

 +64      ;;=^5009419

 +65      ;;^UTILITY(U,$J,358.3,43327,0)

 +66      ;;=L89.520^^158^2105^6

 +67      ;;^UTILITY(U,$J,358.3,43327,1,0)

 +68      ;;=^358.31IA^4^2

 +69      ;;^UTILITY(U,$J,358.3,43327,1,3,0)

 +70      ;;=3^Pressure Ulcer Left Ankle,Unstageable

 +71      ;;^UTILITY(U,$J,358.3,43327,1,4,0)

 +72      ;;=4^L89.520

 +73      ;;^UTILITY(U,$J,358.3,43327,2)

 +74      ;;=^5009420

 +75      ;;^UTILITY(U,$J,358.3,43328,0)

 +76      ;;=L89.529^^158^2105^5

 +77      ;;^UTILITY(U,$J,358.3,43328,1,0)

 +78      ;;=^358.31IA^4^2

 +79      ;;^UTILITY(U,$J,358.3,43328,1,3,0)

 +80      ;;=3^Pressure Ulcer Left Ankle,Stage Unspec

 +81      ;;^UTILITY(U,$J,358.3,43328,1,4,0)

 +82      ;;=4^L89.529

 +83      ;;^UTILITY(U,$J,358.3,43328,2)

 +84      ;;=^5133674

 +85      ;;^UTILITY(U,$J,358.3,43329,0)

 +86      ;;=L89.521^^158^2105^1

 +87      ;;^UTILITY(U,$J,358.3,43329,1,0)

 +88      ;;=^358.31IA^4^2

 +89      ;;^UTILITY(U,$J,358.3,43329,1,3,0)

 +90      ;;=3^Pressure Ulcer Left Ankle,Stage 1

 +91      ;;^UTILITY(U,$J,358.3,43329,1,4,0)

 +92      ;;=4^L89.521

 +93      ;;^UTILITY(U,$J,358.3,43329,2)

 +94      ;;=^5009421

 +95      ;;^UTILITY(U,$J,358.3,43330,0)

 +96      ;;=L89.522^^158^2105^2

 +97      ;;^UTILITY(U,$J,358.3,43330,1,0)

 +98      ;;=^358.31IA^4^2

 +99      ;;^UTILITY(U,$J,358.3,43330,1,3,0)

 +100     ;;=3^Pressure Ulcer Left Ankle,Stage 2

 +101     ;;^UTILITY(U,$J,358.3,43330,1,4,0)

 +102     ;;=4^L89.522

 +103     ;;^UTILITY(U,$J,358.3,43330,2)

 +104     ;;=^5009422

 +105     ;;^UTILITY(U,$J,358.3,43331,0)

 +106     ;;=L89.523^^158^2105^3

 +107     ;;^UTILITY(U,$J,358.3,43331,1,0)

 +108     ;;=^358.31IA^4^2

 +109     ;;^UTILITY(U,$J,358.3,43331,1,3,0)

 +110     ;;=3^Pressure Ulcer Left Ankle,Stage 3

 +111     ;;^UTILITY(U,$J,358.3,43331,1,4,0)

 +112     ;;=4^L89.523

 +113     ;;^UTILITY(U,$J,358.3,43331,2)

 +114     ;;=^5009423

 +115     ;;^UTILITY(U,$J,358.3,43332,0)

 +116     ;;=L89.524^^158^2105^4

 +117     ;;^UTILITY(U,$J,358.3,43332,1,0)

 +118     ;;=^358.31IA^4^2

 +119     ;;^UTILITY(U,$J,358.3,43332,1,3,0)

 +120     ;;=3^Pressure Ulcer Left Ankle,Stage 4