IBCNSMR8.m

IBCNSMR8 ;ALB/TJK - MRA EXTRACT ;3/8/01  7:51 AM

 ;;2.0;INTEGRATED BILLING;**146**;21-MAR-94

OPEN ;open .dat file and write data to file

 D OPEN^%ZISH("MRAEXTRACT",PATH,FILENM,"W")

 I POP D EMSG G END

 U IO

 S I=0 F  S I=$O(^TMP("IBCNSMR7",$J,"DATA",I)) Q:'I  W ^(I),!

CLOSE ;close .dat file and send completion message to user

 D CLOSE^%ZISH("MRAEXTRACT")

MSG ;ENTER CODE FOR MESSAGE

 N XMSUB,XMY,XMTEXT,MSG,XMDUZ

 S XMSUB="Completion of MRA Extract"

 S XMY(DUZ)=""

 S XMDUZ="IB PACKAGE"

 S XMTEXT="MSG("

 S MSG(1)="The MRA Extract has been completed and data stored in file:"

 S MSG(2)="               "_FILENM

 S MSG(3)=" "

 S MSG(4)="This file must be sent via FTP to the following address:"

 S MSG(5)="  152.127.156.131"

 S MSG(6)="  Username:  MCCF"

 S MSG(7)="  Password:  MCCFEXT"

 D ^XMD

END Q

EMSG ;send error message to user if file not opened

 N XMSUB,XMY,XMTEXT,MSG

 S XMSUB="MRA EXTRACT OPEN ERROR"

 S XMY(DUZ)=""

 S XMTEXT="MSG("

 S MSG(1)="The file for the MRA extract could not be opened."

 S MSG(2)="The job will need to be requeued"

 D ^XMD

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCNSMR8   1096     printed  Apr 09, 2024@21:31:46                                                                                                                                                                                                    Page 2

IBCNSMR8  ;ALB/TJK - MRA EXTRACT ;3/8/01  7:51 AM

 +1       ;;2.0;INTEGRATED BILLING;**146**;21-MAR-94

OPEN      ;open .dat file and write data to file

 +1        DO OPEN^%ZISH("MRAEXTRACT",PATH,FILENM,"W")

 +2        IF POP

               DO EMSG

               GOTO END

 +3        USE IO

 +4        SET I=0

           FOR 

               SET I=$ORDER(^TMP("IBCNSMR7",$JOB,"DATA",I))

               if 'I

                   QUIT 

               WRITE ^(I),!

CLOSE     ;close .dat file and send completion message to user

 +1        DO CLOSE^%ZISH("MRAEXTRACT")

MSG       ;ENTER CODE FOR MESSAGE

 +1        NEW XMSUB,XMY,XMTEXT,MSG,XMDUZ

 +2        SET XMSUB="Completion of MRA Extract"

 +3        SET XMY(DUZ)=""

 +4        SET XMDUZ="IB PACKAGE"

 +5        SET XMTEXT="MSG("

 +6        SET MSG(1)="The MRA Extract has been completed and data stored in file:"

 +7        SET MSG(2)="               "_FILENM

 +8        SET MSG(3)=" "

 +9        SET MSG(4)="This file must be sent via FTP to the following address:"

 +10       SET MSG(5)="  152.127.156.131"

 +11       SET MSG(6)="  Username:  MCCF"

 +12       SET MSG(7)="  Password:  MCCFEXT"

 +13       DO ^XMD

END        QUIT 

EMSG      ;send error message to user if file not opened

 +1        NEW XMSUB,XMY,XMTEXT,MSG

 +2        SET XMSUB="MRA EXTRACT OPEN ERROR"

 +3        SET XMY(DUZ)=""

 +4        SET XMTEXT="MSG("

 +5        SET MSG(1)="The file for the MRA extract could not be opened."

 +6        SET MSG(2)="The job will need to be requeued"

 +7        DO ^XMD

 +8        QUIT