Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BADESND

BADESND.m

Go to the documentation of this file.
  1. BADESND ;IHS/MSC/MGH - Dentrix HL7 interface (cont) ;30-Jun-2009 12:49;PLS
  1. ;;1.0;DENTAL/EDR INTERFACE;;Oct 13, 2009
  1. Q
  1. RESEND ;EP Resend one HL7 message
  1. N MSGIEN,DIC,DT,NEWIEN,ERROR,Y
  1. S DIC=778,DIC(0)="AEQ",DIC("A")="Select Message Number: ",DT=$$DT^XLFDT D ^DIC I +Y>0 D
  1. .S MSGIEN=+Y
  1. .S NEWIEN=$$RESEND^HLOAPI3(MSGIEN,.ERROR)
  1. .I '$D(ERROR) W !,"Message Resent, New Number: "_NEWIEN H 2
  1. .I $D(ERROR) W !,ERROR H 2
  1. Q
  1. REPROC ;EP Reprocess one message
  1. N MSGIEN,DIC,DT,NEWIEN,ERROR,Y
  1. S DIC=778,DIC(0)="AEQ",DIC("A")="Select Message Number: ",DT=$$DT^XLFDT D ^DIC I +Y>0 D
  1. .S MSGIEN=+Y
  1. .S NEWIEN=$$REPROC^HLOAPI3(MSGIEN,.ERROR)
  1. .I NEWIEN=1 W !,"Message Reprocessed successfully" H 2
  1. .I NEWIEN=0 W !,ERROR H 2
  1. Q
  1. SNDACK ;
  1. N MIEN,HLMSTATE,HLST,Y,MSA,MSGIEN,MSGBDY,APPARMS,X,DIC,DT,Y,ACK,ERR,ARY
  1. S DIC=778,DIC(0)="AEQ",DIC("A")="Select Message Number: ",DT=$$DT^XLFDT D ^DIC I +Y>0 D
  1. .S MIEN=+Y
  1. .;S MIEN=$P($G(^HLB(MSGIEN,0)),U,2)
  1. .;S MIEN=MSGIEN_"^"_MSGBDY
  1. .S APPARMS("QUEUE")="DENT ERX"
  1. .S APPARMS("ACK CODE")="AA"
  1. .S X=$$STARTMSG^HLOPRS(.HLMSTATE,MIEN)
  1. .I X=0 W !,"Unable to setup application" H 2 Q
  1. .I '$$ACK^HLOAPI2(.HLMSTATE,.APPARMS,.ACK,.ERR) W !,ERR H 2 Q
  1. .D SET^BADEHL1(.ARY,"MSA",0)
  1. .D SET^BADEHL1(.ARY,APPARMS("ACK CODE"),1)
  1. .S MSA=$$ADDSEG^HLOAPI(.HLST,.ARY)
  1. .I '$$SENDACK^HLOAPI2(.ACK,.ERR) W !,ERR H 2
  1. .E W !,"Message sent"
  1. Q