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 ---[H[J[2J[HIBCNSMR8 1096 printed Nov 22, 2024@17:27:48 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
