Routine: BARON001

BARON001 ; IHS/SD/LSL - NO DESCRIPTION PROVIDED ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q Q

 ;;^UTILITY(U,$J,"PRO",49,0)

 ;;=BAR LINK ADD^ADD^^A^^^^^^^^BAR LINK

 ;;^UTILITY(U,$J,"PRO",49,4)

 ;;=26^3^^A

 ;;^UTILITY(U,$J,"PRO",49,10,0)

 ;;=^101.01PA^0^0

 ;;^UTILITY(U,$J,"PRO",49,15)

 ;;=D INIT^BARLK0 S VALMBCK="R"

 ;;^UTILITY(U,$J,"PRO",49,20)

 ;;=D ADD^BARLNK

 ;;^UTILITY(U,$J,"PRO",49,99)

 ;;=56693,52018

 ;;^UTILITY(U,$J,"PRO",50,0)

 ;;=BAR LINK QUIT^QUIT^^A^^^^^^^^BAR LINK

 ;;^UTILITY(U,$J,"PRO",50,4)

 ;;=26^3^^Q

 ;;^UTILITY(U,$J,"PRO",50,15)

 ;;=S VALMBCK="Q"

 ;;^UTILITY(U,$J,"PRO",50,20)

 ;;=Q

 ;;^UTILITY(U,$J,"PRO",50,99)

 ;;=56693,52021

 ;;^UTILITY(U,$J,"PRO",51,0)

 ;;=BAR LINK DELETE^DELETE^^A^^^^^^^^BAR LINK

 ;;^UTILITY(U,$J,"PRO",51,4)

 ;;=^^^D

 ;;^UTILITY(U,$J,"PRO",51,15)

 ;;=D INIT^BARLK0 S VALMBCK="R"

 ;;^UTILITY(U,$J,"PRO",51,20)

 ;;=D FULL^VALM1 D DELL^BARLNK,QDELL^BARLNK

 ;;^UTILITY(U,$J,"PRO",51,99)

 ;;=56693,52019

 ;;^UTILITY(U,$J,"PRO",52,0)

 ;;=BAR LINK MENU^WALKER 'ADD' 'DELETE'^^M^^^^^^^^BAR LINK

 ;;^UTILITY(U,$J,"PRO",52,4)

 ;;=26^3

 ;;^UTILITY(U,$J,"PRO",52,10,0)

 ;;=^101.01PA^3^3

 ;;^UTILITY(U,$J,"PRO",52,10,1,0)

 ;;=49^A^10

 ;;^UTILITY(U,$J,"PRO",52,10,1,"^")

 ;;=BAR LINK ADD

 ;;^UTILITY(U,$J,"PRO",52,10,2,0)

 ;;=51^D^20

 ;;^UTILITY(U,$J,"PRO",52,10,2,"^")

 ;;=BAR LINK DELETE

 ;;^UTILITY(U,$J,"PRO",52,10,3,0)

 ;;=50^Q^99

 ;;^UTILITY(U,$J,"PRO",52,10,3,"^")

 ;;=BAR LINK QUIT

 ;;^UTILITY(U,$J,"PRO",52,15)

;;=

 ;;^UTILITY(U,$J,"PRO",52,20)

;;=

 ;;^UTILITY(U,$J,"PRO",52,26)

 ;;=D SHOW^VALM

 ;;^UTILITY(U,$J,"PRO",52,99)

 ;;=56693,52021

BARON001  ; IHS/SD/LSL - NO DESCRIPTION PROVIDED ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

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

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^UTILITY(U,$J,"PRO",49,0)

 +2       ;;=BAR LINK ADD^ADD^^A^^^^^^^^BAR LINK

 +3       ;;^UTILITY(U,$J,"PRO",49,4)

 +4       ;;=26^3^^A

 +5       ;;^UTILITY(U,$J,"PRO",49,10,0)

 +6       ;;=^101.01PA^0^0

 +7       ;;^UTILITY(U,$J,"PRO",49,15)

 +8       ;;=D INIT^BARLK0 S VALMBCK="R"

 +9       ;;^UTILITY(U,$J,"PRO",49,20)

 +10      ;;=D ADD^BARLNK

 +11      ;;^UTILITY(U,$J,"PRO",49,99)

 +12      ;;=56693,52018

 +13      ;;^UTILITY(U,$J,"PRO",50,0)

 +14      ;;=BAR LINK QUIT^QUIT^^A^^^^^^^^BAR LINK

 +15      ;;^UTILITY(U,$J,"PRO",50,4)

 +16      ;;=26^3^^Q

 +17      ;;^UTILITY(U,$J,"PRO",50,15)

 +18      ;;=S VALMBCK="Q"

 +19      ;;^UTILITY(U,$J,"PRO",50,20)

 +20      ;;=Q

 +21      ;;^UTILITY(U,$J,"PRO",50,99)

 +22      ;;=56693,52021

 +23      ;;^UTILITY(U,$J,"PRO",51,0)

 +24      ;;=BAR LINK DELETE^DELETE^^A^^^^^^^^BAR LINK

 +25      ;;^UTILITY(U,$J,"PRO",51,4)

 +26      ;;=^^^D

 +27      ;;^UTILITY(U,$J,"PRO",51,15)

 +28      ;;=D INIT^BARLK0 S VALMBCK="R"

 +29      ;;^UTILITY(U,$J,"PRO",51,20)

 +30      ;;=D FULL^VALM1 D DELL^BARLNK,QDELL^BARLNK

 +31      ;;^UTILITY(U,$J,"PRO",51,99)

 +32      ;;=56693,52019

 +33      ;;^UTILITY(U,$J,"PRO",52,0)

 +34      ;;=BAR LINK MENU^WALKER 'ADD' 'DELETE'^^M^^^^^^^^BAR LINK

 +35      ;;^UTILITY(U,$J,"PRO",52,4)

 +36      ;;=26^3

 +37      ;;^UTILITY(U,$J,"PRO",52,10,0)

 +38      ;;=^101.01PA^3^3

 +39      ;;^UTILITY(U,$J,"PRO",52,10,1,0)

 +40      ;;=49^A^10

 +41      ;;^UTILITY(U,$J,"PRO",52,10,1,"^")

 +42      ;;=BAR LINK ADD

 +43      ;;^UTILITY(U,$J,"PRO",52,10,2,0)

 +44      ;;=51^D^20

 +45      ;;^UTILITY(U,$J,"PRO",52,10,2,"^")

 +46      ;;=BAR LINK DELETE

 +47      ;;^UTILITY(U,$J,"PRO",52,10,3,0)

 +48      ;;=50^Q^99

 +49      ;;^UTILITY(U,$J,"PRO",52,10,3,"^")

 +50      ;;=BAR LINK QUIT

 +51      ;;^UTILITY(U,$J,"PRO",52,15)

 +52      ;;=

 +53      ;;^UTILITY(U,$J,"PRO",52,20)

 +54      ;;=

 +55      ;;^UTILITY(U,$J,"PRO",52,26)

 +56      ;;=D SHOW^VALM

 +57      ;;^UTILITY(U,$J,"PRO",52,99)

 +58      ;;=56693,52021

BARON001.m