BARPT172 ; IHS/SD/LSL - Post init for V1.7 Patch 2 ;
;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
;
Q
; *********************************************************************
;
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
Q
; *********************************************************************
;
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.
Q
; ********************************************************************
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"
Q
; *********************************************************************
;
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
Q
; ********************************************************************
;
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."
Q
; ********************************************************************
;
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."
Q
; ********************************************************************
;
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."
Q
; ********************************************************************
;
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"
Q
; *********************************************************************
;
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
Q
; *********************************************************************
;
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)=""
Q
; *********************************************************************
;
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
Q
; *********************************************************************
;
MAILMSG ;
D ^XMD
K BARMSG
Q
; *********************************************************************
;
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
