Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.0 KB
|
Rev | Line | |
---|
[613] | 1 | IBCNSMR8 ;ALB/TJK - MRA EXTRACT ;3/8/01 7:51 AM
|
---|
| 2 | ;;2.0;INTEGRATED BILLING;**146**;21-MAR-94
|
---|
| 3 | OPEN ;open .dat file and write data to file
|
---|
| 4 | D OPEN^%ZISH("MRAEXTRACT",PATH,FILENM,"W")
|
---|
| 5 | I POP D EMSG G END
|
---|
| 6 | U IO
|
---|
| 7 | S I=0 F S I=$O(^TMP("IBCNSMR7",$J,"DATA",I)) Q:'I W ^(I),!
|
---|
| 8 | CLOSE ;close .dat file and send completion message to user
|
---|
| 9 | D CLOSE^%ZISH("MRAEXTRACT")
|
---|
| 10 | MSG ;ENTER CODE FOR MESSAGE
|
---|
| 11 | N XMSUB,XMY,XMTEXT,MSG,XMDUZ
|
---|
| 12 | S XMSUB="Completion of MRA Extract"
|
---|
| 13 | S XMY(DUZ)=""
|
---|
| 14 | S XMDUZ="IB PACKAGE"
|
---|
| 15 | S XMTEXT="MSG("
|
---|
| 16 | S MSG(1)="The MRA Extract has been completed and data stored in file:"
|
---|
| 17 | S MSG(2)=" "_FILENM
|
---|
| 18 | S MSG(3)=" "
|
---|
| 19 | S MSG(4)="This file must be sent via FTP to the following address:"
|
---|
| 20 | S MSG(5)=" 152.127.156.131"
|
---|
| 21 | S MSG(6)=" Username: MCCF"
|
---|
| 22 | S MSG(7)=" Password: MCCFEXT"
|
---|
| 23 | D ^XMD
|
---|
| 24 | END Q
|
---|
| 25 | EMSG ;send error message to user if file not opened
|
---|
| 26 | N XMSUB,XMY,XMTEXT,MSG
|
---|
| 27 | S XMSUB="MRA EXTRACT OPEN ERROR"
|
---|
| 28 | S XMY(DUZ)=""
|
---|
| 29 | S XMTEXT="MSG("
|
---|
| 30 | S MSG(1)="The file for the MRA extract could not be opened."
|
---|
| 31 | S MSG(2)="The job will need to be requeued"
|
---|
| 32 | D ^XMD
|
---|
| 33 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.