source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNSMR8.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1IBCNSMR8 ;ALB/TJK - MRA EXTRACT ;3/8/01 7:51 AM
2 ;;2.0;INTEGRATED BILLING;**146**;21-MAR-94
3OPEN ;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),!
8CLOSE ;close .dat file and send completion message to user
9 D CLOSE^%ZISH("MRAEXTRACT")
10MSG ;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
24END Q
25EMSG ;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.