| 1 | IBCNSMR6 ;ALB/TJK - MRA EXTRACT ; 02-SEPT-97
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**146**;21-MAR-94
|
|---|
| 3 | ; -Queue task to create MRA Extract file
|
|---|
| 4 | N IBABEG,IBAEND,DIR,SITE,EXDATE,FILENM,PATH,DTOUT,DUOUT
|
|---|
| 5 | I '$D(DT) D DT^DICRW
|
|---|
| 6 | W !!,"Build MRA Extract"
|
|---|
| 7 | I '$G(DUZ) D G END
|
|---|
| 8 | .W !!,"Your user number (DUZ) must be defined before proceeding!"
|
|---|
| 9 | W !!
|
|---|
| 10 | W !,"This program extracts data from the AR and IB packages and"
|
|---|
| 11 | W !,"sends it to the VA CFO office for analysis. A background job"
|
|---|
| 12 | W !,"called 'IB-Compile MRA statistics' will be queued to run at a time"
|
|---|
| 13 | W !,"you choose. A file will be created with the extracted info"
|
|---|
| 14 | W !,"will have to be FTPed to a designated IP address. The file will"
|
|---|
| 15 | W !,"have a format: MRA_SITE #_MMDDYYYY.DAT."
|
|---|
| 16 | W !!,"This extract must be run on the Legacy sites as well as "
|
|---|
| 17 | W !,"the Primary site if you are an integrated database facility."
|
|---|
| 18 | W !!
|
|---|
| 19 | ; - specify the default file directory
|
|---|
| 20 | DIR S DIR(0)="FO"
|
|---|
| 21 | S DIR("A")="Volume/Directory (or return to accept the default directory)"
|
|---|
| 22 | S DIR("?")="Enter using format VA3$:[ANONYMOUS.PUB]"
|
|---|
| 23 | W !
|
|---|
| 24 | D ^DIR
|
|---|
| 25 | K DIR
|
|---|
| 26 | G END:$D(DUOUT)!($D(DTOUT))
|
|---|
| 27 | K PATH
|
|---|
| 28 | I Y]"" S PATH=Y
|
|---|
| 29 | I '$D(PATH) S PATH=$$PWD^%ZISH I PATH="" W !,*7,"Unable to determine default directory. Please enter one." G DIR
|
|---|
| 30 | ;
|
|---|
| 31 | ; - be sure file can be opened
|
|---|
| 32 | S SITE=$P($$SITE^VASITE,"^",3)
|
|---|
| 33 | S EXDATE=$E(DT,4,5)_$E(DT,6,7)_($E(DT,1,3)+1700)
|
|---|
| 34 | S FILENM="MRA"_SITE_EXDATE_".DAT"
|
|---|
| 35 | D OPEN^%ZISH("MRAEXTRACT",PATH,FILENM,"W")
|
|---|
| 36 | I POP W !,*7,"Unable to create file in specified volume/directory" G DIR
|
|---|
| 37 | D CLOSE^%ZISH("MRAEXTRACT")
|
|---|
| 38 | I '$O(^IBE(350.9,1,99,0)) W !!,"You must enter the list of Insurance Companies to be included in this extract first",!! D BLD1^IBCNSMRE
|
|---|
| 39 | I '$O(^IBE(350.9,1,99,0)) G END
|
|---|
| 40 | W ! S DIR(0)="DA",DIR("A")="Enter Start Date for MRA Extract: ",DIR("B")="Jan. 1,1995",DIR("?")="Enter the earliest date for which Means test charges will be extracted"
|
|---|
| 41 | D ^DIR G END:'Y S IBABEG=Y
|
|---|
| 42 | W ! S DIR(0)="DA",DIR("A")="Enter End Date for MRA Extract: ",DIR("B")="Dec. 31, 1996",DIR("?")="Enter the latest date for which Means test charges will be extracted"
|
|---|
| 43 | D ^DIR G END:'Y S IBAEND=Y
|
|---|
| 44 | ;
|
|---|
| 45 | QUE ; -- que compilation to run
|
|---|
| 46 | W !!,"This will automatically be tasked to run. Upon completion of the extract A mail message will be sent to you.",!
|
|---|
| 47 | S ZTIO="",IO("Q")=1
|
|---|
| 48 | S ZTDESC="IB-Compile MRA statistics",ZTRTN="DQ^IBCNSMR7",(ZTSAVE("DUZ"),ZTSAVE("IBABEG"),ZTSAVE("IBAEND"),ZTSAVE("FILENM"),ZTSAVE("SITE"),ZTSAVE("PATH"))=""
|
|---|
| 49 | D ^%ZTLOAD
|
|---|
| 50 | W $S($G(ZTSK):"Job queued ("_ZTSK_")",1:"Task not queued!")
|
|---|
| 51 | K ZTSK,ZTIO,ZTDESC,ZTRTN,ZTSAVE,IO("Q")
|
|---|
| 52 | ;
|
|---|
| 53 | END ; -- end of program
|
|---|
| 54 | K C,I,J,POP,X,Y,ZTSK,ZTSAVE,ZTDESC,ZTRTN,IBPRNT,IBSNDRPT,IBQUIT
|
|---|
| 55 | D ^%ZISC
|
|---|
| 56 | Q
|
|---|
| 57 | ;
|
|---|
| 58 | POSTINIT ;Purges old data in 350.9, node 99
|
|---|
| 59 | ;Resets '0' node of subfile
|
|---|
| 60 | K ^IBE(350.9,1,99)
|
|---|
| 61 | S ^IBE(350.9,1,99,0)="^350.999PA"
|
|---|
| 62 | Q
|
|---|
