Routine: BARPT172

BARPT172 ; IHS/SD/LSL - Post init for V1.7 Patch 2 ;

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

 ; *********************************************************************

EN ; EP - Driver

 D PRVPATCH                 ; Check to see if previous patches installed

 D PATCH2                   ; Post init for V1.7 Patch 2

 D MAIL                     ; Send MailMan message

 ; *********************************************************************

PRVPATCH ;

 ; Check previous patch post inits

 N BARP1

 S BARP1=$$INSTALLD^BAREV17("BAR*1.7*1")

 I BARP1 Q                  ; All previous patches installed

 D PATCH1                   ; Perform Patch 1 post inits.

 ; ********************************************************************

PATCH1 ;

 ; Patch 1 post init

 ; Delete A/R Period Summary Data File data

 W !!,"You are missing A/R V1.7 Patch 1...performing POST INITS of that patch"

 S DIK="^BARPSR("

 S DA=0

 F  S DA=$O(^BARPSR(DA)) Q:'+DA  D ^DIK

 K DA,DIK

 ; Delete the A/R Period Summary Data File Data Dictionary

 S DIU="^BARPSR("

 S DIU(0)="DT"

 D EN^DIU2

 K DIU

 W !!,"A/R V1.7 Patch 1 POST INIT complete"

 ; *********************************************************************

PATCH2 ;

 ; Patch 2 post init

 W !!,"Now performing A/R V1.7 Patch 2 post inits..."

 S BARDUZ=DUZ(2)

 D CURBAL

 D PATACC

 D EISS

 S DUZ(2)=BARDUZ

 ; ********************************************************************

CURBAL ;

 ; Rebuild ABAL and APBAL x-refs on field 15 of file 90050.01

 W !!,"Rebuilding ABAL and APBAL x-refs on Current Balance of A/R Bill File..."

 S DUZ(2)=0

 F  S DUZ(2)=$O(^BARBL(DUZ(2))) Q:'+DUZ(2)  D

 . F BARX="ABAL","APBAL" D

 .  . K ^BARBL(DUZ(2),BARX)

 .  . S DIK="^BARBL(DUZ(2),"

 .  . S DIK(1)="15^"_BARX

 . D ENALL^DIK

 W "DONE."

 ; ********************************************************************

PATACC ;

 ; Create PAS x-ref on field 101 of file 90050.02

 W !!,"Creating PAS x-ref on Pat Acct Stmt of A/R Account File..."

 S DUZ(2)=0

 F  S DUZ(2)=$O(^BARAC(DUZ(2))) Q:'+DUZ(2)  D

 . K ^BARAC(DUZ(2),"PAS")

 . S DIK="^BARAC(DUZ(2),"

 . S DIK(1)="101^PAS"

 . D ENALL^DIK

 W "DONE."

 ; ********************************************************************

EISS ;

 ; Populate EISS fields in file 90052.06

 W !!,"Populating EISS System Address, Username, and Password fields"

 W !,"in A/R Site Parameter File..."

 S DUZ(2)=0

 F  S DUZ(2)=$O(^BAR(90052.06,DUZ(2))) Q:'+DUZ(2)  D

 . S DIE="^BAR(90052.06,DUZ(2),"

 . S DA=0

 . F  S DA=$O(^BAR(90052.06,DUZ(2),DA)) Q:'+DA  D

 . . K DR

 . . S DR="201///127.0.0.1"

 . . S DR=DR_";202///bardata"

 . . S DR=DR_";203///1bardat/"

 . . D ^DIE

 K DA,DIE,DR

 W "DONE."

 ; ********************************************************************

MAIL ;

 ; Send a mail message to all holders of the BARZMENU key that a patch

 ; has been installed on the system.

 W !!,"Sending MailMan message to users..."

 D MAILSET

 D MAILTXT

 D MAILMSG

 W "   DONE"

 ; *********************************************************************

MAILSET ;

 ; Set Mailman Variables

 K XMY

 S XMSUB="Accounts Receivable V1.7 Patch 2"

 S XMDUZ="Accounts Receivable Software Engineer"

 D MAILIST        ; Get list of recipients

 ; *********************************************************************

MAILIST ;

 ; Find users who hold the BARZMENU key

 ;S XMY("STAR,GLEN R")=""

 S J=0

 F  S J=$O(^XUSEC("BARZMENU",J)) Q:'J  D

 . S BARNAME=$P($G(^VA(200,J,0)),U)

 . S XMY(BARNAME)=""

 ; *********************************************************************

MAILTXT ;

 S K=0

 F  D  Q:BARTXT="END"

 . S K=K+1

 . S BARTXT=$P($T(@1+K),";;",2)

 . I BARTXT="END" Q

 . S BARMSG(K,0)=BARTXT

 S XMTEXT="BARMSG("

 S %H=$H

 D YX^%DTC

 ; *********************************************************************

MAILMSG ;

 D ^XMD

 K BARMSG

 ; *********************************************************************

1 ;;

 ;;Accounts Receivable V1.7 Patch 2 has been installed on your

 ;;computer.  You have received this message because you hold the BARZMENU

 ;;key that allows access to the Accounts Receivable Master Menu.

;;

 ;;Accounts Receivable V1.7 Patch 2 contains:

;;

 ;;1.  Enhancements of two reports allowing EISS capability:

 ;;    1.  Period Summary Report (PSR)

 ;;    2.  Age Summary Report (ASM)

 ;;        When selecting these reports by Allowance Category, all categories,

 ;;        summary report;  a file of the report data will automatically get

 ;;        created on the EISS directory and sent to the ARMS Server where

 ;;        the intranet can find it for WEB display.

;;

 ;;2.  Resolution of four known errors:

 ;;    1.  Period Summary Report

 ;;        Resolved error caused by missing Billing Entities

 ;;    2.  Transaction Report

 ;;        Removed Collection Batch to Account Post transaction type (115) from

 ;;        the payment column of the report.

 ;;    3.  Post Unallocated Cash

 ;;        Resolved error seen when user is editing a line item during the posting

 ;;        process.

 ;;    4.  FM Search and Print or Sort and Print from AR Manager

 ;;        Improve screen allowing access to specific files.

 ;;END

BARPT172  ; IHS/SD/LSL - Post init for V1.7 Patch 2 ;

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

 +2       ;

 +3        QUIT

 +4       ; *********************************************************************

 +5       ;

EN        ; EP - Driver

 +1       ; Check to see if previous patches installed

           DO PRVPATCH

 +2       ; Post init for V1.7 Patch 2

           DO PATCH2

 +3       ; Send MailMan message

           DO MAIL

 +4        QUIT

 +5       ; *********************************************************************

 +6       ;

PRVPATCH  ;

 +1       ; Check previous patch post inits

 +2        NEW BARP1

 +3        SET BARP1=$$INSTALLD^BAREV17("BAR*1.7*1")

 +4       ; All previous patches installed

           IF BARP1

               QUIT

 +5       ; Perform Patch 1 post inits.

           DO PATCH1

 +6        QUIT

 +7       ; ********************************************************************

PATCH1    ;

 +1       ; Patch 1 post init

 +2       ; Delete A/R Period Summary Data File data

 +3        WRITE !!,"You are missing A/R V1.7 Patch 1...performing POST INITS of that patch"

 +4        SET DIK="^BARPSR("

 +5        SET DA=0

 +6        FOR

               SET DA=$ORDER(^BARPSR(DA))

               IF '+DA

                   QUIT

               DO ^DIK

 +7        KILL DA,DIK

 +8       ;

 +9       ; Delete the A/R Period Summary Data File Data Dictionary

 +10       SET DIU="^BARPSR("

 +11       SET DIU(0)="DT"

 +12       DO EN^DIU2

 +13       KILL DIU

 +14       WRITE !!,"A/R V1.7 Patch 1 POST INIT complete"

 +15       QUIT

 +16      ; *********************************************************************

 +17      ;

PATCH2    ;

 +1       ; Patch 2 post init

 +2        WRITE !!,"Now performing A/R V1.7 Patch 2 post inits..."

 +3        SET BARDUZ=DUZ(2)

 +4        DO CURBAL

 +5        DO PATACC

 +6        DO EISS

 +7        SET DUZ(2)=BARDUZ

 +8        QUIT

 +9       ; ********************************************************************

 +10      ;

CURBAL    ;

 +1       ; Rebuild ABAL and APBAL x-refs on field 15 of file 90050.01

 +2        WRITE !!,"Rebuilding ABAL and APBAL x-refs on Current Balance of A/R Bill File..."

 +3        SET DUZ(2)=0

 +4        FOR

               SET DUZ(2)=$ORDER(^BARBL(DUZ(2)))

               IF '+DUZ(2)

                   QUIT

               Begin DoDot:1

 +5                FOR BARX="ABAL","APBAL"

                       Begin DoDot:2

 +6                        KILL ^BARBL(DUZ(2),BARX)

 +7                        SET DIK="^BARBL(DUZ(2),"

 +8                        SET DIK(1)="15^"_BARX

                       End DoDot:2

 +9                DO ENALL^DIK

               End DoDot:1

 +10       WRITE "DONE."

 +11       QUIT

 +12      ; ********************************************************************

 +13      ;

PATACC    ;

 +1       ; Create PAS x-ref on field 101 of file 90050.02

 +2        WRITE !!,"Creating PAS x-ref on Pat Acct Stmt of A/R Account File..."

 +3        SET DUZ(2)=0

 +4        FOR

               SET DUZ(2)=$ORDER(^BARAC(DUZ(2)))

               IF '+DUZ(2)

                   QUIT

               Begin DoDot:1

 +5                KILL ^BARAC(DUZ(2),"PAS")

 +6                SET DIK="^BARAC(DUZ(2),"

 +7                SET DIK(1)="101^PAS"

 +8                DO ENALL^DIK

               End DoDot:1

 +9        WRITE "DONE."

 +10       QUIT

 +11      ; ********************************************************************

 +12      ;

EISS      ;

 +1       ; Populate EISS fields in file 90052.06

 +2        WRITE !!,"Populating EISS System Address, Username, and Password fields"

 +3        WRITE !,"in A/R Site Parameter File..."

 +4        SET DUZ(2)=0

 +5        FOR

               SET DUZ(2)=$ORDER(^BAR(90052.06,DUZ(2)))

               IF '+DUZ(2)

                   QUIT

               Begin DoDot:1

 +6                SET DIE="^BAR(90052.06,DUZ(2),"

 +7                SET DA=0

 +8                FOR

                       SET DA=$ORDER(^BAR(90052.06,DUZ(2),DA))

                       IF '+DA

                           QUIT

                       Begin DoDot:2

 +9                        KILL DR

 +10                       SET DR="201///127.0.0.1"

 +11                       SET DR=DR_";202///bardata"

 +12                       SET DR=DR_";203///1bardat/"

 +13                       DO ^DIE

                       End DoDot:2

               End DoDot:1

 +14       KILL DA,DIE,DR

 +15       WRITE "DONE."

 +16       QUIT

 +17      ; ********************************************************************

 +18      ;

MAIL      ;

 +1       ; Send a mail message to all holders of the BARZMENU key that a patch

 +2       ; has been installed on the system.

 +3       ;

 +4        WRITE !!,"Sending MailMan message to users..."

 +5        DO MAILSET

 +6        DO MAILTXT

 +7        DO MAILMSG

 +8        WRITE "   DONE"

 +9        QUIT

 +10      ; *********************************************************************

 +11      ;

MAILSET   ;

 +1       ; Set Mailman Variables

 +2        KILL XMY

 +3        SET XMSUB="Accounts Receivable V1.7 Patch 2"

 +4        SET XMDUZ="Accounts Receivable Software Engineer"

 +5       ; Get list of recipients

           DO MAILIST

 +6        QUIT

 +7       ; *********************************************************************

 +8       ;

MAILIST   ;

 +1       ; Find users who hold the BARZMENU key

 +2       ;S XMY("STAR,GLEN R")=""

 +3        SET J=0

 +4        FOR

               SET J=$ORDER(^XUSEC("BARZMENU",J))

               IF 'J

                   QUIT

               Begin DoDot:1

 +5                SET BARNAME=$PIECE($GET(^VA(200,J,0)),U)

 +6                SET XMY(BARNAME)=""

               End DoDot:1

 +7        QUIT

 +8       ; *********************************************************************

 +9       ;

MAILTXT   ;

 +1        SET K=0

 +2        FOR

               Begin DoDot:1

 +3                SET K=K+1

 +4                SET BARTXT=$PIECE($TEXT(@1+K),";;",2)

 +5                IF BARTXT="END"

                       QUIT

 +6                SET BARMSG(K,0)=BARTXT

               End DoDot:1

               IF BARTXT="END"

                   QUIT

 +7        SET XMTEXT="BARMSG("

 +8        SET %H=$HOROLOG

 +9        DO YX^%DTC

 +10       QUIT

 +11      ; *********************************************************************

 +12      ;

MAILMSG   ;

 +1        DO ^XMD

 +2        KILL BARMSG

 +3        QUIT

 +4       ; *********************************************************************

 +5       ;

1         ;;

 +1       ;;Accounts Receivable V1.7 Patch 2 has been installed on your

 +2       ;;computer.  You have received this message because you hold the BARZMENU

 +3       ;;key that allows access to the Accounts Receivable Master Menu.

 +4       ;;

 +5       ;;Accounts Receivable V1.7 Patch 2 contains:

 +6       ;;

 +7       ;;1.  Enhancements of two reports allowing EISS capability:

 +8       ;;    1.  Period Summary Report (PSR)

 +9       ;;    2.  Age Summary Report (ASM)

 +10      ;;        When selecting these reports by Allowance Category, all categories,

 +11      ;;        summary report;  a file of the report data will automatically get

 +12      ;;        created on the EISS directory and sent to the ARMS Server where

 +13      ;;        the intranet can find it for WEB display.

 +14      ;;

 +15      ;;2.  Resolution of four known errors:

 +16      ;;    1.  Period Summary Report

 +17      ;;        Resolved error caused by missing Billing Entities

 +18      ;;    2.  Transaction Report

 +19      ;;        Removed Collection Batch to Account Post transaction type (115) from

 +20      ;;        the payment column of the report.

 +21      ;;    3.  Post Unallocated Cash

 +22      ;;        Resolved error seen when user is editing a line item during the posting

 +23      ;;        process.

 +24      ;;    4.  FM Search and Print or Sort and Print from AR Manager

 +25      ;;        Improve screen allowing access to specific files.

 +26      ;;END

BARPT172.m