BARPT171 ; IHS/SD/LSL - Post init for V1.7 ;
;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
;
Q
; *********************************************************************
;
EN ; EP - Driver
D PATCH1 ; Post init for V1.7 Patch 1
D MAIL ; Send MailMan message
Q
; *********************************************************************
PATCH1 ;
; Delete A/R Period Summary Data File data
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
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 1"
S XMDUZ="Accounts Receivable Software Engineer"
D MAILIST ; Get list of recipients
Q
; *********************************************************************
;
MAILIST ;
; Find users who hold the BARZMENU key
;S XMY("LEHMAN,LINDA")=""
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 1 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 1 contains:
;;1. Enhancements of two reports:
;; 1. Period Summary Report (PSR)
;; This report has been totally rewritten to not use a holding file.
;; Instead, it uses the Transaction file itself. The user may run the
;; report for any date range desired. More detail has also been added
;; to the report allowing better tools for reconciliation. Also, the report
;; may be run using the same parameters (mostly) as the Age Summary Report.
;; 2. Age Summary Report (ASM)
;; This report has been expanded to allow sorting by Discharge Service.
;; Also, bill level detail has been added allowing better tools for
;; reconciliation.
;;2. Resolution of four known errors:
;; 1. Batch Statistical Report
;; Modified to allow 16 characters (instead of 4) in the batch name on
;; the report header.
;; 2. ERA - load new import
;; Allow AHCCCS ERA File to upload into RPMS even if a bill number is not
;; included on the ERA.
;; 3. Upload 3P Bill by Date
;; Modified to not display status of a previous run if the run occurred before
;; AR V1.7 was installed.
;; 4. Post Unallocated
;; Resolved an UNDEF error when posting unallocated
;; 5. Transaction Report
;; Resolved an UNDEF error when the Transaction Report is run
;;END
BARPT171 ; IHS/SD/LSL - Post init for V1.7 ;
+1 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
+2 ;
+3 QUIT
+4 ; *********************************************************************
+5 ;
EN ; EP - Driver
+1 ; Post init for V1.7 Patch 1
DO PATCH1
+2 ; Send MailMan message
DO MAIL
+3 QUIT
+4 ; *********************************************************************
PATCH1 ;
+1 ; Delete A/R Period Summary Data File data
+2 SET DIK="^BARPSR("
+3 SET DA=0
+4 FOR
SET DA=$ORDER(^BARPSR(DA))
IF '+DA
QUIT
DO ^DIK
+5 KILL DA,DIK
+6 ;
+7 ; Delete the A/R Period Summary Data File Data Dictionary
+8 SET DIU="^BARPSR("
+9 SET DIU(0)="DT"
+10 DO EN^DIU2
+11 KILL DIU
+12 QUIT
+13 ; *********************************************************************
+14 ;
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 1"
+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("LEHMAN,LINDA")=""
+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 1 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 1 contains:
+6 ;;1. Enhancements of two reports:
+7 ;; 1. Period Summary Report (PSR)
+8 ;; This report has been totally rewritten to not use a holding file.
+9 ;; Instead, it uses the Transaction file itself. The user may run the
+10 ;; report for any date range desired. More detail has also been added
+11 ;; to the report allowing better tools for reconciliation. Also, the report
+12 ;; may be run using the same parameters (mostly) as the Age Summary Report.
+13 ;; 2. Age Summary Report (ASM)
+14 ;; This report has been expanded to allow sorting by Discharge Service.
+15 ;; Also, bill level detail has been added allowing better tools for
+16 ;; reconciliation.
+17 ;;2. Resolution of four known errors:
+18 ;; 1. Batch Statistical Report
+19 ;; Modified to allow 16 characters (instead of 4) in the batch name on
+20 ;; the report header.
+21 ;; 2. ERA - load new import
+22 ;; Allow AHCCCS ERA File to upload into RPMS even if a bill number is not
+23 ;; included on the ERA.
+24 ;; 3. Upload 3P Bill by Date
+25 ;; Modified to not display status of a previous run if the run occurred before
+26 ;; AR V1.7 was installed.
+27 ;; 4. Post Unallocated
+28 ;; Resolved an UNDEF error when posting unallocated
+29 ;; 5. Transaction Report
+30 ;; Resolved an UNDEF error when the Transaction Report is run
+31 ;;END
