BARPT18 ; IHS/SD/LSL - Post init for V1.8 ;
;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005
;
Q
; ********************************************************************
;
EN ; EP - Driver
D PRVPATCH ; Check to see if previous patches installed
D POST18 ; Post init for V1.8
D MAIL ; Send MailMan message
Q
; ********************************************************************
;
PRVPATCH ;
; Check previous patch post inits
N BARP1,BARP2,BARP3,BARP4,BARP5
S BARP5=$$INSTALLD("BAR*1.7*5")
S BARP4=$$INSTALLD("BAR*1.7*4")
S BARP3=$$INSTALLD("BAR*1.7*3")
S BARP2=$$INSTALLD("BAR*1.7*2")
S BARP1=$$INSTALLD("BAR*1.7*1")
I BARP5 Q ; all previous patches installed
I 'BARP5 D EN^BARPT175 Q ; patch 5 (or 4,3,2,1) not installed
I 'BARP4 D EN^BARPT174 Q ; Patch 4 (or 3,2,1) not installed
I 'BARP3 D EN^BARPT173 Q ; Patch 3 ( or 2,1) not installed
I 'BARP2 D EN^BARPT172 Q ; Patch 2 (or 1) not installed
I 'BARP1 D EN^BARPT171 Q ; Patch 1 not installed
Q
; ********************************************************************
;
INSTALLD(BAR) ;
; Determine if version and patch of said application has been installed
; where BAR is the name of the INSTALL (BAR*1.7*1)
; 1st look up package
N DIC,X,Y
S X=$P(BAR,"*")
S DIC="^DIC(9.4,"
S DIC(0)="FM"
S D="C"
D IX^DIC
I Y<1 Q 0
; 2nd look up version
S DIC=DIC_+Y_",22,"
S X=$P(BAR,"*",2)
D ^DIC
I Y<1 Q 0
; 3rd look up patch
S DIC=DIC_+Y_",""PAH"","
S X=$P(BAR,"*",3)
D ^DIC
Q $S(Y<1:0,1:1)
; ********************************************************************
;
POST18 ;
; Perform 1.8 post inits
D START^BAR18DSP ; Convert Debt Collection files
D ZISH ; Create entries in ZISH SEND PARAMETERS
Q
; ********************************************************************
;
ZISH ;
; Create entries in ZISH SEND PARAMETERS for EISS and Debt Collection
W !,"Creating entries in ZISH SEND PARAMETERS FILE for EISS..."
S BARD=";;"
S BARCNT=0
F D ZISH2 Q:BARVALUE="END"
Q
; ********************************************************************
;
ZISH2 ;
S BARCNT=BARCNT+1
S BARVALUE=$P($T(@1+BARCNT),BARD,2,8)
Q:BARVALUE="END"
K DIC,X,Y,DA,DR,DIE
S DIC="^%ZIB(9888888.93,"
S DIC(0)="ZL"
S DLAYGO=9888888
S X=$P(BARVALUE,BARD,1)
K DD,DO
D ^DIC
I '+Y Q
I $P(Y,U,3)'=1 Q
S DIE=DIC
S DA=+Y
S DR=".02///^S X=$P(BARVALUE,BARD,2)" ; Target system id
S:$P(BARVALUE,BARD,3)]"" DR=DR_";.03///^S X=$P(BARVALUE,BARD,3)" ; Username
S:$P(BARVALUE,BARD,4)]"" DR=DR_";.04///^S X=$P(BARVALUE,BARD,4)" ; Password
S DR=DR_";.06///^S X=$P(BARVALUE,BARD,5)" ; Arguments
S DR=DR_";.07///^S X=$P(BARVALUE,BARD,6)" ; Forground/Background
S DR=DR_";.08///^S X=$P(BARVALUE,BARD,7)" ; Send command
D ^DIE
Q
; ********************************************************************
;
1 ;
;;BAR EISS PSR F;;127.0.0.1;;bardata;;1bardat/;;-i;;F;;sendto
;;BAR EISS PSR B;;127.0.0.1;;bardata;;1bardat/;;-i;;B;;sendto
;;BAR EISS ASM F;;127.0.0.1;;bardata;;1bardat/;;-i;;F;;sendto
;;BAR EISS ASM B;;127.0.0.1;;bardata;;1bardat/;;-i;;B;;sendto
;;BAR DCM F;;asdstgw.hqw.DOMAIN.NAME;;;;;;-i;;F;;sendto
;;BAR DCM B;;asdstgw.hqw.DOMAIN.NAME;;;;;;-i;;B;;sendto
;;END
; ********************************************************************
;
MAIL ;
; Send a mail message to all holders of the BARZMENU key that v1.8
; 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.8 (Beta T2)"
S XMDUZ="Accounts Receivable Software Engineer"
D MAILIST ; Get list of recipients
Q
; ********************************************************************
;
MAILIST ;
; Find users who hold the BARZMENU key
;S XMY("DOE,JOHN")=""
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(@2+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
; ********************************************************************
;
2 ;;
;;Accounts Receivable V1.8 has been installed on your computer.
;;You have received this message because you hold the BARZMENU menu option
;;key that allows access to the Accounts Receivable Master Menu.
;;
;;Accounts Receivable 1.8 contains:
;;1. All previous version and patch functionality.
;;2. Enhancement of two existing reports:
;; 1. Aged Open Items Report (AOI)
;; Report may now be executed for payers or patients
;; 2. Small Balance List (SBL)
;; This report is no longer dependent on the Bill File Error Scan (BES)
;;3. New Reports
;; 1. Cancelled Bills Report (CXL)
;; Found under Manager Reports, this report shows bills in AR that were
;; cancelled in 3P.
;; 2. Inpatient Primary Diagnosis Report (IPDR)
;; Found under Financial Reports, this report displays AR data (bill
;; count, covered days, amount billed, amount paid, copay/deductibe,
;; other adjustments) by Primary Diagnosis Code.
;; 3. Large Balance List (LBL)
;; Found under Account Management Reports, this report displays bills
;; with an open balance greater than the specified dollar amount.
;; 4. Payment Summary Report by Collection Batch (PRP)
;; Found under Financial Reports, this report displays a payment
;; summary for AR bills found in Collection Batches spanning a specified
;; date range
;;4. New posting option called Auto Post Beneficies (BEN)
;; After selecting AR Account (must be a beneficiary account), this
;; option will automatically post all bills tied to the specified
;; account to the Adjustment Category named WRITE OFF (3); Type named
;; INDIAN BENEFICIARY (136).
;;5. EISS enhancements
;; 1. Once an EISS file is successfully sent to the central location, it is
;; deleted from the site's local directory.
;; 2. New Manager option called Manually Resend EISS File (EISS)
;; Allows user to resend any EISS file that may not have reached it's
;; destination.
;;6. New Debt Collection Module (DCM)
;; 1. Debt Collection Process (DCP)
;; Manually create files to send to Debt Collection Agency by specifying
;; certain parameters
;; 2. Debt Collection Site Parameters (SPM)
;; Site parameters that need defined prior to Debt Collection Process,
;; such as minimum balance allowed on bill before sending to a
;; collection agency.
;; 3. Restricted Payers Maintenance (RPM)
;; Specify payers of which to send to collections
;; 4. View Debt Collection Parameters (DCI)
;; 5. Debt Collection Reports (REP)
;; 1. Debt Collection Log Report (LOG)
;; List of bills sent in specified transmission
;; 2. Debt Collection Payment Report (DCPR)
;; Same as Log Report only contains payment information as well
;; 3. Bill Inquiry (BIR)
;; List all transmissions for specified bill
;; 6. Debt Collection Auto Process (taskable option)
;; If tasked via TaskMan, creates and sends files to debt collection
;; on a pre-specified recurring basis following parameters defined in
;; Debt Collection Site Parameters.
;;7. Resolution of ERA check finding error.
;; If currently experiencing this issue the A/R EDI CHECKS file
;; needs to be cleaned. For assistance please contact the Help
;; Desk.
;;END
BARPT18 ; IHS/SD/LSL - Post init for V1.8 ;
+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.8
DO POST18
+3 ; Send MailMan message
DO MAIL
+4 QUIT
+5 ; ********************************************************************
+6 ;
PRVPATCH ;
+1 ; Check previous patch post inits
+2 NEW BARP1,BARP2,BARP3,BARP4,BARP5
+3 SET BARP5=$$INSTALLD("BAR*1.7*5")
+4 SET BARP4=$$INSTALLD("BAR*1.7*4")
+5 SET BARP3=$$INSTALLD("BAR*1.7*3")
+6 SET BARP2=$$INSTALLD("BAR*1.7*2")
+7 SET BARP1=$$INSTALLD("BAR*1.7*1")
+8 ; all previous patches installed
IF BARP5
QUIT
+9 ; patch 5 (or 4,3,2,1) not installed
IF 'BARP5
DO EN^BARPT175
QUIT
+10 ; Patch 4 (or 3,2,1) not installed
IF 'BARP4
DO EN^BARPT174
QUIT
+11 ; Patch 3 ( or 2,1) not installed
IF 'BARP3
DO EN^BARPT173
QUIT
+12 ; Patch 2 (or 1) not installed
IF 'BARP2
DO EN^BARPT172
QUIT
+13 ; Patch 1 not installed
IF 'BARP1
DO EN^BARPT171
QUIT
+14 QUIT
+15 ; ********************************************************************
+16 ;
INSTALLD(BAR) ;
+1 ; Determine if version and patch of said application has been installed
+2 ; where BAR is the name of the INSTALL (BAR*1.7*1)
+3 ; 1st look up package
+4 NEW DIC,X,Y
+5 SET X=$PIECE(BAR,"*")
+6 SET DIC="^DIC(9.4,"
+7 SET DIC(0)="FM"
+8 SET D="C"
+9 DO IX^DIC
+10 IF Y<1
QUIT 0
+11 ; 2nd look up version
+12 SET DIC=DIC_+Y_",22,"
+13 SET X=$PIECE(BAR,"*",2)
+14 DO ^DIC
+15 IF Y<1
QUIT 0
+16 ; 3rd look up patch
+17 SET DIC=DIC_+Y_",""PAH"","
+18 SET X=$PIECE(BAR,"*",3)
+19 DO ^DIC
+20 QUIT $SELECT(Y<1:0,1:1)
+21 ; ********************************************************************
+22 ;
POST18 ;
+1 ; Perform 1.8 post inits
+2 ; Convert Debt Collection files
DO START^BAR18DSP
+3 ; Create entries in ZISH SEND PARAMETERS
DO ZISH
+4 QUIT
+5 ; ********************************************************************
+6 ;
ZISH ;
+1 ; Create entries in ZISH SEND PARAMETERS for EISS and Debt Collection
+2 WRITE !,"Creating entries in ZISH SEND PARAMETERS FILE for EISS..."
+3 SET BARD=";;"
+4 SET BARCNT=0
+5 FOR
DO ZISH2
IF BARVALUE="END"
QUIT
+6 QUIT
+7 ; ********************************************************************
+8 ;
ZISH2 ;
+1 SET BARCNT=BARCNT+1
+2 SET BARVALUE=$PIECE($TEXT(@1+BARCNT),BARD,2,8)
+3 IF BARVALUE="END"
QUIT
+4 KILL DIC,X,Y,DA,DR,DIE
+5 SET DIC="^%ZIB(9888888.93,"
+6 SET DIC(0)="ZL"
+7 SET DLAYGO=9888888
+8 SET X=$PIECE(BARVALUE,BARD,1)
+9 KILL DD,DO
+10 DO ^DIC
+11 IF '+Y
QUIT
+12 IF $PIECE(Y,U,3)'=1
QUIT
+13 SET DIE=DIC
+14 SET DA=+Y
+15 ; Target system id
SET DR=".02///^S X=$P(BARVALUE,BARD,2)"
+16 ; Username
IF $PIECE(BARVALUE,BARD,3)]""
SET DR=DR_";.03///^S X=$P(BARVALUE,BARD,3)"
+17 ; Password
IF $PIECE(BARVALUE,BARD,4)]""
SET DR=DR_";.04///^S X=$P(BARVALUE,BARD,4)"
+18 ; Arguments
SET DR=DR_";.06///^S X=$P(BARVALUE,BARD,5)"
+19 ; Forground/Background
SET DR=DR_";.07///^S X=$P(BARVALUE,BARD,6)"
+20 ; Send command
SET DR=DR_";.08///^S X=$P(BARVALUE,BARD,7)"
+21 DO ^DIE
+22 QUIT
+23 ; ********************************************************************
+24 ;
1 ;
+1 ;;BAR EISS PSR F;;127.0.0.1;;bardata;;1bardat/;;-i;;F;;sendto
+2 ;;BAR EISS PSR B;;127.0.0.1;;bardata;;1bardat/;;-i;;B;;sendto
+3 ;;BAR EISS ASM F;;127.0.0.1;;bardata;;1bardat/;;-i;;F;;sendto
+4 ;;BAR EISS ASM B;;127.0.0.1;;bardata;;1bardat/;;-i;;B;;sendto
+5 ;;BAR DCM F;;asdstgw.hqw.DOMAIN.NAME;;;;;;-i;;F;;sendto
+6 ;;BAR DCM B;;asdstgw.hqw.DOMAIN.NAME;;;;;;-i;;B;;sendto
+7 ;;END
+8 ; ********************************************************************
+9 ;
MAIL ;
+1 ; Send a mail message to all holders of the BARZMENU key that v1.8
+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.8 (Beta T2)"
+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("DOE,JOHN")=""
+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(@2+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 ;
2 ;;
+1 ;;Accounts Receivable V1.8 has been installed on your computer.
+2 ;;You have received this message because you hold the BARZMENU menu option
+3 ;;key that allows access to the Accounts Receivable Master Menu.
+4 ;;
+5 ;;Accounts Receivable 1.8 contains:
+6 ;;1. All previous version and patch functionality.
+7 ;;2. Enhancement of two existing reports:
+8 ;; 1. Aged Open Items Report (AOI)
+9 ;; Report may now be executed for payers or patients
+10 ;; 2. Small Balance List (SBL)
+11 ;; This report is no longer dependent on the Bill File Error Scan (BES)
+12 ;;3. New Reports
+13 ;; 1. Cancelled Bills Report (CXL)
+14 ;; Found under Manager Reports, this report shows bills in AR that were
+15 ;; cancelled in 3P.
+16 ;; 2. Inpatient Primary Diagnosis Report (IPDR)
+17 ;; Found under Financial Reports, this report displays AR data (bill
+18 ;; count, covered days, amount billed, amount paid, copay/deductibe,
+19 ;; other adjustments) by Primary Diagnosis Code.
+20 ;; 3. Large Balance List (LBL)
+21 ;; Found under Account Management Reports, this report displays bills
+22 ;; with an open balance greater than the specified dollar amount.
+23 ;; 4. Payment Summary Report by Collection Batch (PRP)
+24 ;; Found under Financial Reports, this report displays a payment
+25 ;; summary for AR bills found in Collection Batches spanning a specified
+26 ;; date range
+27 ;;4. New posting option called Auto Post Beneficies (BEN)
+28 ;; After selecting AR Account (must be a beneficiary account), this
+29 ;; option will automatically post all bills tied to the specified
+30 ;; account to the Adjustment Category named WRITE OFF (3); Type named
+31 ;; INDIAN BENEFICIARY (136).
+32 ;;5. EISS enhancements
+33 ;; 1. Once an EISS file is successfully sent to the central location, it is
+34 ;; deleted from the site's local directory.
+35 ;; 2. New Manager option called Manually Resend EISS File (EISS)
+36 ;; Allows user to resend any EISS file that may not have reached it's
+37 ;; destination.
+38 ;;6. New Debt Collection Module (DCM)
+39 ;; 1. Debt Collection Process (DCP)
+40 ;; Manually create files to send to Debt Collection Agency by specifying
+41 ;; certain parameters
+42 ;; 2. Debt Collection Site Parameters (SPM)
+43 ;; Site parameters that need defined prior to Debt Collection Process,
+44 ;; such as minimum balance allowed on bill before sending to a
+45 ;; collection agency.
+46 ;; 3. Restricted Payers Maintenance (RPM)
+47 ;; Specify payers of which to send to collections
+48 ;; 4. View Debt Collection Parameters (DCI)
+49 ;; 5. Debt Collection Reports (REP)
+50 ;; 1. Debt Collection Log Report (LOG)
+51 ;; List of bills sent in specified transmission
+52 ;; 2. Debt Collection Payment Report (DCPR)
+53 ;; Same as Log Report only contains payment information as well
+54 ;; 3. Bill Inquiry (BIR)
+55 ;; List all transmissions for specified bill
+56 ;; 6. Debt Collection Auto Process (taskable option)
+57 ;; If tasked via TaskMan, creates and sends files to debt collection
+58 ;; on a pre-specified recurring basis following parameters defined in
+59 ;; Debt Collection Site Parameters.
+60 ;;7. Resolution of ERA check finding error.
+61 ;; If currently experiencing this issue the A/R EDI CHECKS file
+62 ;; needs to be cleaned. For assistance please contact the Help
+63 ;; Desk.
+64 ;;END
