Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BARPT18

BARPT18.m

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