BARPT173 ; IHS/SD/LSL - Post init for V1.7 Patch 3 ;
;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
;
Q
; *********************************************************************
;
EN ; EP - Driver
D PRVPATCH ; Check to see if previous patches installed
D PATCH3 ; Post init for V1.7 Patch 3
D MAILPAT ; Send Patch install MailMan message
H 5
D MAILDUP ; Send dup bill message to manager
Q
; *********************************************************************
;
PRVPATCH ;
; Check previous patch post inits
N BARP1,BARP2
S BARP2=$$INSTALLD^BAREV17("BAR*1.7*2")
S BARP1=$$INSTALLD^BAREV17("BAR*1.7*1")
I BARP2 Q ; All previous patches installed
I BARP1 D PATCH2 Q ; Only missing patch 2
D PATCH1,PATCH2 ; Perform Patch 1 AND 2 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 !!,"You are missing A/R V1.7 Patch 2...performing POST INITS of that patch"
S BARDUZ=DUZ(2)
D CURBAL
D PATACC
D EISS
S DUZ(2)=BARDUZ
W !!,"A/R V1.7 Patch 2 POST INIT complete"
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
; ********************************************************************
;
PATCH3 ;
; Post init for V1.7 Patch 3
W !!,"Now performing A/R V1.7 Patch 3 post inits..."
D FINDUP
Q
; ********************************************************************
;
FINDUP ;
; Find possible AR Bill Multiples (duplicates)
K ^BARTMP("DUP")
S BARDUZ=DUZ(2)
S DUZ(2)=0
F S DUZ(2)=$O(^BARBL(DUZ(2))) Q:'+DUZ(2) D
. S BARBL=""
. F S BARBL=$O(^BARBL(DUZ(2),"B",BARBL)) Q:BARBL="" D
. . S (BARIEN,BARCNT)=0
. . F S BARIEN=$O(^BARBL(DUZ(2),"B",BARBL,BARIEN)) Q:'+BARIEN D
. . . S BARCNT=BARCNT+1
. . I BARCNT>1 S ^BARTMP("DUP",DUZ(2),BARBL)=BARCNT
S DUZ(2)=BARDUZ
Q
; ********************************************************************
;
MAILPAT ;
; 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 3"
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 ;
; Determine body of e-mail
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)=BARTXT
Q
; *********************************************************************
;
MAILMSG ;
S XMTEXT="BARMSG("
S %H=$H
D YX^%DTC
N DIFROM
D ^XMD
Q
; *********************************************************************
;
MAILDUP ;
; Send a mail message to all holders of the BARZMGR key listing
; possible duplicates on their system
;
W !!,"Sending MailMan message to AR Managers..."
D MAILSETM
D MAILTXTM
D MAILMSGM
W " DONE"
Q
; *********************************************************************
;
MAILSETM ;
; Set Mailman Variables
K XMY
S XMSUB="Possible AR Bill Duplicates"
S XMDUZ="Accounts Receivable Software Engineer"
D MAILISTM ; Get list of recipients
Q
; *********************************************************************
;
MAILISTM ;
; Find users who hold the BARZ MANAGER key
;S XMY("STAR,GLEN R")=""
S J=0
F S J=$O(^XUSEC("BARZ MANAGER",J)) Q:'+J D
. S BARNAME=$P($G(^VA(200,J,0)),U)
. S XMY(BARNAME)=""
Q
; *********************************************************************
;
MAILTXTM ;
; Determine body of e-mail
K ^BARTMP("173MSG")
S K=0
F D Q:BARTXT="END"
. S K=K+1
. S BARTXT=$P($T(@2+K),";;",2)
. I BARTXT="END" Q
. S ^BARTMP("173MSG",K)=BARTXT
;
; Now get the duplicated bills
;
I '$D(^BARTMP("DUP")) D Q
. S ^BARTMP("173MSG",K+1)="***** NO DUPLICATE BILLS FOUND ****"
;
S $P(BARDASH,"-",51)=""
S $P(BAREQUAL,"=",51)=""
S BARCNT=0
S BARTOT=0
S BARPAR=0
F S BARPAR=$O(^BARTMP("DUP",BARPAR)) Q:'+BARPAR D
. S (BARFCNT,BARFBT)=0
. S K=K+1
. S ^BARTMP("173MSG",K)="Parent Facility: "_$$GET1^DIQ(4,BARPAR,.01)
. S K=K+1
. S ^BARTMP("173MSG",K)=" "
. S BARBL=""
. F S BARBL=$O(^BARTMP("DUP",BARPAR,BARBL)) Q:BARBL="" D
. . S BARFCNT=BARFCNT+1
. . S BARCNT=BARCNT+1
. . S BARBIL=$E(BARBL,1,20)
. . F I=$L(BARBIL):1:25 S BARBIL=BARBIL_" "
. . S BARIEN=0
. . F S BARIEN=$O(^BARBL(BARPAR,"B",BARBL,BARIEN)) Q:'+BARIEN D
. . . S BARIENO="'"_BARIEN
. . . F I=$L(BARIENO):1:10 S BARIENO=BARIENO_" "
. . . S BARPIEN=$P($G(^BARBL(BARPAR,BARIEN,1)),U)
. . . S:BARPIEN]"" BARPAT=$E($$GET1^DIQ(9000001,BARPIEN,.01),1,20)
. . . S:BARPIEN="" BARPAT=""
. . . F I=$L(BARPAT):1:25 S BARPAT=BARPAT_" "
. . . S BARBAMT=$P($G(^BARBL(BARPAR,BARIEN,0)),U,13)
. . . S BARBAMTO=$J($FN(BARBAMT,",",2),15)
. . . S K=K+1
. . . S ^BARTMP("173MSG",K)=BARIENO_BARBIL_BARPAT_BARBAMTO
. . S BARFBT=BARBAMT+BARFBT ; Facility bill total
. . S BARTOT=BARBAMT+BARTOT
. S K=K+1
. S ^BARTMP("173MSG",K)=$J(BARDASH,79)
. S K=K+1
. S ^BARTMP("173MSG",K)=$J("Unique bill count: ",58)_$J(BARFCNT,4)_$J($FN(BARFBT,",",2),16)
. S K=K+1
. S ^BARTMP("173MSG",K)=" "
S ^BARTMP("173MSG",K)=$J(BAREQUAL,79)
S K=K+1
S ^BARTMP("173MSG",K)=$J("Total unique bill count: ",58)_$J(BARCNT,4)_$J($FN(BARTOT,",",2),16)
Q
; *********************************************************************
;
MAILMSGM ;
S XMTEXT="^BARTMP(""173MSG"","
S %H=$H
D YX^%DTC
N DIFROM
D ^XMD
Q
; *********************************************************************
;
1 ;;
;;Accounts Receivable V1.7 Patch 3 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 3 is inclusive of patches 1 and 2. It
;;also contains a fix stopping duplicate bill creation in AR when the
;;bill is printed or reprinted in 3P.
;;
;;END
;
2 ;;
;;As a part of the installation of Accounts Receivable V1.7 Patch 3, the system
;;looked for possible duplicates on your system. You have received this
;;message because you hold the BARZ MANAGER key that allows access to the
;;Accounts Receivable Manager options. The following is a list of possible
;;duplicates that were found. Please review these bills and write off the
;;first occurrence of the bill if you find it is truly a duplicate.
;;
;; IEN Bill Patient Billed Amount
;;
;;END
BARPT173 ; IHS/SD/LSL - Post init for V1.7 Patch 3 ;
+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 3
DO PATCH3
+3 ; Send Patch install MailMan message
DO MAILPAT
+4 HANG 5
+5 ; Send dup bill message to manager
DO MAILDUP
+6 QUIT
+7 ; *********************************************************************
+8 ;
PRVPATCH ;
+1 ; Check previous patch post inits
+2 NEW BARP1,BARP2
+3 SET BARP2=$$INSTALLD^BAREV17("BAR*1.7*2")
+4 SET BARP1=$$INSTALLD^BAREV17("BAR*1.7*1")
+5 ; All previous patches installed
IF BARP2
QUIT
+6 ; Only missing patch 2
IF BARP1
DO PATCH2
QUIT
+7 ; Perform Patch 1 AND 2 post inits.
DO PATCH1
DO PATCH2
+8 QUIT
+9 ; ********************************************************************
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 !!,"You are missing A/R V1.7 Patch 2...performing POST INITS of that patch"
+3 SET BARDUZ=DUZ(2)
+4 DO CURBAL
+5 DO PATACC
+6 DO EISS
+7 SET DUZ(2)=BARDUZ
+8 WRITE !!,"A/R V1.7 Patch 2 POST INIT complete"
+9 QUIT
+10 ; ********************************************************************
+11 ;
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 ;
PATCH3 ;
+1 ; Post init for V1.7 Patch 3
+2 WRITE !!,"Now performing A/R V1.7 Patch 3 post inits..."
+3 DO FINDUP
+4 QUIT
+5 ; ********************************************************************
+6 ;
FINDUP ;
+1 ; Find possible AR Bill Multiples (duplicates)
+2 KILL ^BARTMP("DUP")
+3 SET BARDUZ=DUZ(2)
+4 SET DUZ(2)=0
+5 FOR
SET DUZ(2)=$ORDER(^BARBL(DUZ(2)))
IF '+DUZ(2)
QUIT
Begin DoDot:1
+6 SET BARBL=""
+7 FOR
SET BARBL=$ORDER(^BARBL(DUZ(2),"B",BARBL))
IF BARBL=""
QUIT
Begin DoDot:2
+8 SET (BARIEN,BARCNT)=0
+9 FOR
SET BARIEN=$ORDER(^BARBL(DUZ(2),"B",BARBL,BARIEN))
IF '+BARIEN
QUIT
Begin DoDot:3
+10 SET BARCNT=BARCNT+1
End DoDot:3
+11 IF BARCNT>1
SET ^BARTMP("DUP",DUZ(2),BARBL)=BARCNT
End DoDot:2
End DoDot:1
+12 SET DUZ(2)=BARDUZ
+13 QUIT
+14 ; ********************************************************************
+15 ;
MAILPAT ;
+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 3"
+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 ; Determine body of e-mail
+2 SET K=0
+3 FOR
Begin DoDot:1
+4 SET K=K+1
+5 SET BARTXT=$PIECE($TEXT(@1+K),";;",2)
+6 IF BARTXT="END"
QUIT
+7 SET BARMSG(K)=BARTXT
End DoDot:1
IF BARTXT="END"
QUIT
+8 QUIT
+9 ; *********************************************************************
+10 ;
MAILMSG ;
+1 SET XMTEXT="BARMSG("
+2 SET %H=$HOROLOG
+3 DO YX^%DTC
+4 NEW DIFROM
+5 DO ^XMD
+6 QUIT
+7 ; *********************************************************************
+8 ;
MAILDUP ;
+1 ; Send a mail message to all holders of the BARZMGR key listing
+2 ; possible duplicates on their system
+3 ;
+4 WRITE !!,"Sending MailMan message to AR Managers..."
+5 DO MAILSETM
+6 DO MAILTXTM
+7 DO MAILMSGM
+8 WRITE " DONE"
+9 QUIT
+10 ; *********************************************************************
+11 ;
MAILSETM ;
+1 ; Set Mailman Variables
+2 KILL XMY
+3 SET XMSUB="Possible AR Bill Duplicates"
+4 SET XMDUZ="Accounts Receivable Software Engineer"
+5 ; Get list of recipients
DO MAILISTM
+6 QUIT
+7 ; *********************************************************************
+8 ;
MAILISTM ;
+1 ; Find users who hold the BARZ MANAGER key
+2 ;S XMY("STAR,GLEN R")=""
+3 SET J=0
+4 FOR
SET J=$ORDER(^XUSEC("BARZ MANAGER",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 ;
MAILTXTM ;
+1 ; Determine body of e-mail
+2 KILL ^BARTMP("173MSG")
+3 SET K=0
+4 FOR
Begin DoDot:1
+5 SET K=K+1
+6 SET BARTXT=$PIECE($TEXT(@2+K),";;",2)
+7 IF BARTXT="END"
QUIT
+8 SET ^BARTMP("173MSG",K)=BARTXT
End DoDot:1
IF BARTXT="END"
QUIT
+9 ;
+10 ; Now get the duplicated bills
+11 ;
+12 IF '$DATA(^BARTMP("DUP"))
Begin DoDot:1
+13 SET ^BARTMP("173MSG",K+1)="***** NO DUPLICATE BILLS FOUND ****"
End DoDot:1
QUIT
+14 ;
+15 SET $PIECE(BARDASH,"-",51)=""
+16 SET $PIECE(BAREQUAL,"=",51)=""
+17 SET BARCNT=0
+18 SET BARTOT=0
+19 SET BARPAR=0
+20 FOR
SET BARPAR=$ORDER(^BARTMP("DUP",BARPAR))
IF '+BARPAR
QUIT
Begin DoDot:1
+21 SET (BARFCNT,BARFBT)=0
+22 SET K=K+1
+23 SET ^BARTMP("173MSG",K)="Parent Facility: "_$$GET1^DIQ(4,BARPAR,.01)
+24 SET K=K+1
+25 SET ^BARTMP("173MSG",K)=" "
+26 SET BARBL=""
+27 FOR
SET BARBL=$ORDER(^BARTMP("DUP",BARPAR,BARBL))
IF BARBL=""
QUIT
Begin DoDot:2
+28 SET BARFCNT=BARFCNT+1
+29 SET BARCNT=BARCNT+1
+30 SET BARBIL=$EXTRACT(BARBL,1,20)
+31 FOR I=$LENGTH(BARBIL):1:25
SET BARBIL=BARBIL_" "
+32 SET BARIEN=0
+33 FOR
SET BARIEN=$ORDER(^BARBL(BARPAR,"B",BARBL,BARIEN))
IF '+BARIEN
QUIT
Begin DoDot:3
+34 SET BARIENO="'"_BARIEN
+35 FOR I=$LENGTH(BARIENO):1:10
SET BARIENO=BARIENO_" "
+36 SET BARPIEN=$PIECE($GET(^BARBL(BARPAR,BARIEN,1)),U)
+37 IF BARPIEN]""
SET BARPAT=$EXTRACT($$GET1^DIQ(9000001,BARPIEN,.01),1,20)
+38 IF BARPIEN=""
SET BARPAT=""
+39 FOR I=$LENGTH(BARPAT):1:25
SET BARPAT=BARPAT_" "
+40 SET BARBAMT=$PIECE($GET(^BARBL(BARPAR,BARIEN,0)),U,13)
+41 SET BARBAMTO=$JUSTIFY($FNUMBER(BARBAMT,",",2),15)
+42 SET K=K+1
+43 SET ^BARTMP("173MSG",K)=BARIENO_BARBIL_BARPAT_BARBAMTO
End DoDot:3
+44 ; Facility bill total
SET BARFBT=BARBAMT+BARFBT
+45 SET BARTOT=BARBAMT+BARTOT
End DoDot:2
+46 SET K=K+1
+47 SET ^BARTMP("173MSG",K)=$JUSTIFY(BARDASH,79)
+48 SET K=K+1
+49 SET ^BARTMP("173MSG",K)=$JUSTIFY("Unique bill count: ",58)_$JUSTIFY(BARFCNT,4)_$JUSTIFY($FNUMBER(BARFBT,",",2),16)
+50 SET K=K+1
+51 SET ^BARTMP("173MSG",K)=" "
End DoDot:1
+52 SET ^BARTMP("173MSG",K)=$JUSTIFY(BAREQUAL,79)
+53 SET K=K+1
+54 SET ^BARTMP("173MSG",K)=$JUSTIFY("Total unique bill count: ",58)_$JUSTIFY(BARCNT,4)_$JUSTIFY($FNUMBER(BARTOT,",",2),16)
+55 QUIT
+56 ; *********************************************************************
+57 ;
MAILMSGM ;
+1 SET XMTEXT="^BARTMP(""173MSG"","
+2 SET %H=$HOROLOG
+3 DO YX^%DTC
+4 NEW DIFROM
+5 DO ^XMD
+6 QUIT
+7 ; *********************************************************************
+8 ;
1 ;;
+1 ;;Accounts Receivable V1.7 Patch 3 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 3 is inclusive of patches 1 and 2. It
+6 ;;also contains a fix stopping duplicate bill creation in AR when the
+7 ;;bill is printed or reprinted in 3P.
+8 ;;
+9 ;;END
+10 ;
2 ;;
+1 ;;As a part of the installation of Accounts Receivable V1.7 Patch 3, the system
+2 ;;looked for possible duplicates on your system. You have received this
+3 ;;message because you hold the BARZ MANAGER key that allows access to the
+4 ;;Accounts Receivable Manager options. The following is a list of possible
+5 ;;duplicates that were found. Please review these bills and write off the
+6 ;;first occurrence of the bill if you find it is truly a duplicate.
+7 ;;
+8 ;; IEN Bill Patient Billed Amount
+9 ;;
+10 ;;END