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

TIUP323.m

Go to the documentation of this file.
  1. TIUP323 ;BIZ/WPB - POST ROUTINE TO SET UP THE LINK FOR TIUCCRA; 02/01/2019
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**323**;Feb 1, 2019;Build 33
  1. ;
  1. ;Reference to $$KSP^XUPARAM("INST") Supported by DBIA2541
  1. ;Reference to IA#3550
  1. ;Reference to IA#3335
  1. Q
  1. POST ;
  1. D LINK,SENDAPP,RECAPP
  1. Q
  1. N LIEN,OPSITE,DOMAIN,VAL,TIUERR
  1. I $G(XPDQUES("POST1"))'?.3N1".".3N1".".3N1".".3N W !,"IP Address is in the wrong format!" Q ; check for correct ip format
  1. S VAL="TIUCCRA"
  1. S LIEN=$$FIND1^DIC(870,,"B",.VAL) Q:'LIEN
  1. S FDA(870,LIEN_",",.02)=$$KSP^XUPARAM("INST") ; site station number
  1. S FDA(870,LIEN_",",4.5)=1 ; auto start
  1. S FDA(870,LIEN_",",400.01)=$G(XPDQUES("POST1")) ; ip address
  1. S FDA(870,LIEN_",",400.02)=$G(XPDQUES("POST2")) ; hl7 port
  1. D FILE^DIE(,"FDA","TIUERR") K FDA
  1. D MES^XPDUTL("")
  1. I $D(TIUERR) D Q ; something went wrong
  1. .D MES^XPDUTL("FileMan error when editing the TIUCCRA Link.")
  1. D MES^XPDUTL("TIUCCRA Link has been updated.")
  1. Q
  1. SENDAPP ; update the HL7 Application Parameter file to add Facility Name
  1. N AIEN,VAL,TIUCERR
  1. S VAL="TIU CCRA SEND"
  1. S AIEN=$$FIND1^DIC(771,,"B",.VAL) Q:'AIEN
  1. S FDA(771,AIEN_",",3)=$$KSP^XUPARAM("INST") ; update facility
  1. D FILE^DIE(,"FDA","TIUCERR") K FDA
  1. D MES^XPDUTL("")
  1. I $D(TIUCERR) D Q ; something went wrong
  1. .D MES^XPDUTL("FileMan error when editing the TIU CCRA SEND Application Parameter.")
  1. D MES^XPDUTL("The TIU CCRA SEND Application Parameter has been updated.")
  1. Q
  1. RECAPP ; update the HL7 Application Parameter file to add Facility Name
  1. N AIEN,VAL,TIUERR
  1. S VAL="TIU CCRA RECEIVE"
  1. S AIEN=$$FIND1^DIC(771,,"B",.VAL) Q:'AIEN
  1. S FDA(771,AIEN_",",3)=200 ; update facility
  1. D FILE^DIE(,"FDA","TIUERR") K FDA
  1. D MES^XPDUTL("")
  1. I $D(TIUERR) D Q ; something went wrong
  1. .D MES^XPDUTL("FileMan error when editing the GMRC CCRA RECEIVE Application Parameter.")
  1. D MES^XPDUTL("The TIU CCRA RECEIVE Application Parameter has been updated.")
  1. Q