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

MHV1P11.m

Go to the documentation of this file. 
  1. MHV1P11 ;KUM - My HealtheVet Install Utility Routine ; [1/15/13 15:01pm]
  1.  ;;1.0;My HealtheVet;**11**;Aug 23, 2005;Build 61
  1.  ;;Per VHA Directive 2004-038, this routine should not be modified.
  1.  ;
  1.  ;  Integration Agreements:
  1.  ;        10141 : BMES^XPDUTL
  1.  ;              : MES^XPDUTL
  1.  ;        10018 : UPDATE^DIE
  1.  ;        10103 : $$FMTH^XLFDT
  1.  ;              : $$HTFM^XLFDT
  1.  ;              : $$NOW^XLFDT
  1.  ;
  1. ENV ;
  1.  Q
  1.  ;
  1. PRE ; Pre-init routine
  1.  ; Turn on MHV Application Logging, add a log entry for the start
  1.  ; of the patch install.
  1.  D LOGON
  1.  D LOG^MHVUL2(XPDNM,"PRE-INIT","S","TRACE")
  1.  S ERR=""
  1.  S MHVC=0
  1.  D LOG^MHVUL2("CHECK","INSTITUTION","S","TRACE")
  1.  D CHKHLOC(.ERR)
  1.  I ERR'="" D
  1.  . D LOG^MHVUL2("CHECK INSTITUTION",ERR,"S","ERROR")
  1.  . D BMES^XPDUTL("     *** An Error occurred during installation.")
  1.  . D MES^XPDUTL("     Please log a remedy ticket to check INSTITUTION and DIVISION in Hospital Location File.")
  1.  . D BMES^XPDUTL("     This install will now abort.  Only attempt to re-install when ")
  1.  . D MES^XPDUTL("     corrective action has been taken.")
  1.  . S XPDABORT=2
  1.  . Q
  1.  D LOG^MHVUL2(XPDNM,"PRE-INIT END","S","TRACE")
  1.  Q
  1.  ;
  1. POST ; Post-init routine
  1.  N ERR
  1.  D LOG^MHVUL2(XPDNM,"POST-INIT BEGIN","S","TRACE")
  1.  ;
  1.  D QRYDSS
  1.  D QRYPROC
  1.  D QRYECLS
  1.  D QRYPPRB
  1.  D QRYDIAG
  1.  D QRYFILE
  1.  D RSPQ13
  1.  D RSPQ11
  1.  D RSPP03
  1.  ;
  1.  D LOG^MHVUL2(XPDNM,"POST-INIT END","S","TRACE")
  1.  D LOGOFF
  1.  D RESET^MHVUL2
  1.  Q
  1.  ;
  1. LOGON ; Turn on MHV application logging
  1.  N UPDATE,SUCCESS
  1.  D BMES^XPDUTL("     Turning on MHV Application Logging")
  1.  S UPDATE("STATE")=1
  1.  S UPDATE("DELETE")=$$HTFM^XLFDT($H+60)
  1.  S UPDATE("LEVEL")="DEBUG"
  1.  D LOGSET^MHVUL1(.SUCCESS,.UPDATE)
  1.  Q
  1.  ;
  1. LOGOFF ; Turn off MHV application logging
  1.  N SUCCESS
  1.  D BMES^XPDUTL("     Turning off MHV Application Logging")
  1.  D LOGOFF^MHVUL1(.SUCCESS)
  1.  Q
  1.  ;
  1. QRYDSS ; Setup for DSS Units query
  1.  ; Setup MHV REQUEST TYPE 
  1.  ;
  1.  D BMES^XPDUTL("    Creating Entry in MHV REQUEST TYPE File - SMDSSUNITS   ")
  1.  N FIELDS,ERR
  1.  S ERR=""
  1.  S FIELDS("REQUEST TYPE")="SMDSSUNITS"
  1.  S FIELDS("NUMBER")=44
  1.  S FIELDS("BLOCK")=0
  1.  S FIELDS("REALTIME")=1
  1.  S FIELDS("DATATYPE")="SMDSSUnitsByProviderAndClinic"
  1.  S FIELDS("EXECUTE")="SPDSS~MHVXWLC"
  1.  S FIELDS("BUILDER")="MHV7B1K"
  1.  S FIELDS("DESCRIPTION",1)="QBP^Q13 query for DSS Units information."
  1.  S FIELDS("DESCRIPTION",2)="Specify Provider DUZ and Associated Clinic."
  1.  S FIELDS("DESCRIPTION",3)="Developed for Secure Messaging."
  1.  D LOG^MHVUL2("UPDATE REQUEST TYPE",.FIELDS,"M","DEBUG")
  1.  D UPDREQ^MHVU2(.FIELDS,1,.ERR)
  1.  I ERR'="" D
  1.  . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
  1.  . D BMES^XPDUTL("     *** An Error occurred during installation.")
  1.  . D MES^XPDUTL("     Please log a remedy ticket.")
  1.  . Q
  1.  ;
  1. QRYPROC ; Setup for ECS Procedures query
  1.  ; Setup MHV REQUEST TYPE 
  1.  ;
  1.  D BMES^XPDUTL("    Creating Entry in MHV REQUEST TYPE File - SMECSPROCS   ")
  1.  N FIELDS,ERR
  1.  S ERR=""
  1.  S FIELDS("REQUEST TYPE")="SMECSPROCS"
  1.  S FIELDS("NUMBER")=45
  1.  S FIELDS("BLOCK")=0
  1.  S FIELDS("REALTIME")=1
  1.  S FIELDS("DATATYPE")="SMECSProcedures"
  1.  S FIELDS("EXECUTE")="SPECS~MHVXWLC"
  1.  S FIELDS("BUILDER")="MHV7B1L"
  1.  S FIELDS("DESCRIPTION",1)="QBP^Q13 query for ECS Procedures information."
  1.  S FIELDS("DESCRIPTION",2)="Specify DSS Unit IEN and Location IEN."
  1.  S FIELDS("DESCRIPTION",3)="Developed for Secure Messaging."
  1.  D LOG^MHVUL2("UPDATE REQUEST TYPE",.FIELDS,"M","DEBUG")
  1.  D UPDREQ^MHVU2(.FIELDS,1,.ERR)
  1.  I ERR'="" D
  1.  . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
  1.  . D BMES^XPDUTL("     *** An Error occurred during installation.")
  1.  . D MES^XPDUTL("     Please log a remedy ticket.")
  1.  . Q
  1.  ;
  1. QRYECLS ; Setup for Patient Eligibility and Classificaiton query
  1.  ; Setup MHV REQUEST TYPE 
  1.  ;
  1.  D BMES^XPDUTL("    Creating Entry in MHV REQUEST TYPE File - SMPATIENTECLASS   ")
  1.  N FIELDS,ERR
  1.  S ERR=""
  1.  S FIELDS("REQUEST TYPE")="SMPATIENTECLASS"
  1.  S FIELDS("NUMBER")=46
  1.  S FIELDS("BLOCK")=0
  1.  S FIELDS("REALTIME")=1
  1.  S FIELDS("DATATYPE")="SMPatientEClass"
  1.  S FIELDS("EXECUTE")="PECLASS~MHVXWLC"
  1.  S FIELDS("BUILDER")="ZEL~MHV7B1M"
  1.  S FIELDS("DESCRIPTION",1)="QBP^Q11 query for Patient Eligibility and Classificaiton."
  1.  S FIELDS("DESCRIPTION",2)="Specify Patient ICN and DSS Unit IEN."
  1.  S FIELDS("DESCRIPTION",3)="Developed for Secure Messaging."
  1.  D LOG^MHVUL2("UPDATE REQUEST TYPE",.FIELDS,"M","DEBUG")
  1.  D UPDREQ^MHVU2(.FIELDS,1,.ERR)
  1.  I ERR'="" D
  1.  . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
  1.  . D BMES^XPDUTL("     *** An Error occurred during installation.")
  1.  . D MES^XPDUTL("     Please log a remedy ticket.")
  1.  . Q
  1.  ;
  1. QRYPPRB ; Setup for Patient Problems query
  1.  ; Setup MHV REQUEST TYPE 
  1.  ;
  1.  D BMES^XPDUTL("    Creating Entry in MHV REQUEST TYPE File - SMPATIENTPROBLEMS   ")
  1.  N FIELDS,ERR
  1.  S ERR=""
  1.  S FIELDS("REQUEST TYPE")="SMPATIENTPROBLEMS"
  1.  S FIELDS("NUMBER")=47
  1.  S FIELDS("BLOCK")=0
  1.  S FIELDS("REALTIME")=1
  1.  S FIELDS("DATATYPE")="SMPatientProblems"
  1.  S FIELDS("EXECUTE")="SMPPRB~MHVXWLC"
  1.  S FIELDS("BUILDER")="DG1~MHV7B1N"
  1.  S FIELDS("DESCRIPTION",1)="QBP^Q11 query for Patient Problems."
  1.  S FIELDS("DESCRIPTION",2)="Specify Patient ICN and DSS Unit IEN."
  1.  S FIELDS("DESCRIPTION",3)="Developed for Secure Messaging."
  1.  D LOG^MHVUL2("UPDATE REQUEST TYPE",.FIELDS,"M","DEBUG")
  1.  D UPDREQ^MHVU2(.FIELDS,1,.ERR)
  1.  I ERR'="" D
  1.  . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
  1.  . D BMES^XPDUTL("     *** An Error occurred during installation.")
  1.  . D MES^XPDUTL("     Please log a remedy ticket.")
  1.  . Q
  1.  ;
  1. QRYDIAG ; Setup for Diagnoses query
  1.  ; Setup MHV REQUEST TYPE 
  1.  ;
  1.  D BMES^XPDUTL("    Creating Entry in MHV REQUEST TYPE File - SMDIAGNOSES  ")
  1.  N FIELDS,ERR
  1.  S ERR=""
  1.  S FIELDS("REQUEST TYPE")="SMDIAGNOSES"
  1.  S FIELDS("NUMBER")=48
  1.  S FIELDS("BLOCK")=0
  1.  S FIELDS("REALTIME")=1
  1.  S FIELDS("DATATYPE")="SMDiagnoses"
  1.  S FIELDS("EXECUTE")="SMDIAG~MHVXWLC"
  1.  S FIELDS("BUILDER")="DG1~MHV7B1O"
  1.  S FIELDS("DESCRIPTION",1)="QBP^Q11 query for Diagnoses information."
  1.  S FIELDS("DESCRIPTION",2)="Specify Search String."
  1.  S FIELDS("DESCRIPTION",3)="Developed for Secure Messaging."
  1.  D LOG^MHVUL2("UPDATE REQUEST TYPE",.FIELDS,"M","DEBUG")
  1.  D UPDREQ^MHVU2(.FIELDS,1,.ERR)
  1.  I ERR'="" D
  1.  . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
  1.  . D BMES^XPDUTL("     *** An Error occurred during installation.")
  1.  . D MES^XPDUTL("     Please log a remedy ticket.")
  1.  . Q
  1.  ; 
  1. QRYFILE ; Setup for Workload Credit Filer
  1.  ; Setup MHV REQUEST TYPE 
  1.  ;
  1.  D BMES^XPDUTL("    Creating Entry in MHV REQUEST TYPE File - SMFILER  ")
  1.  N FIELDS,ERR
  1.  S ERR=""
  1.  S FIELDS("REQUEST TYPE")="SMFILER"
  1.  S FIELDS("NUMBER")=49
  1.  S FIELDS("BLOCK")=0
  1.  S FIELDS("REALTIME")=1
  1.  S FIELDS("DATATYPE")="SMFiler"
  1.  S FIELDS("EXECUTE")="SMFILE~MHVXWLC"
  1.  S FIELDS("BUILDER")="ERR~MHV7B1P"
  1.  S FIELDS("DESCRIPTION",1)="DFT^P03 query for WLC Filer."
  1.  S FIELDS("DESCRIPTION",2)="Specify String with all data required for WLC Filer."
  1.  S FIELDS("DESCRIPTION",3)="Developed for Secure Messaging."
  1.  D LOG^MHVUL2("UPDATE REQUEST TYPE",.FIELDS,"M","DEBUG")
  1.  D UPDREQ^MHVU2(.FIELDS,1,.ERR)
  1.  I ERR'="" D
  1.  . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
  1.  . D BMES^XPDUTL("     *** An Error occurred during installation.")
  1.  . D MES^XPDUTL("     Please log a remedy ticket.")
  1.  . Q
  1.  ;
  1. RSPQ13 ; Set up RESPONSE MAP FOR SMDSSUNITS, SMECSPROCS
  1.  D BMES^XPDUTL("    Creating Entry in MHV RESPONSE MAP - MHVSM QBP-Q13 Subscriber    ")
  1.  N FLDS,ERR
  1.  K FLDS
  1.  S ERR=""
  1.  S FLDS("SUBSCRIBER")="MHVSM QBP-Q13 Subscriber"
  1.  S FLDS("PROTOCOL")="MHVSM RTB-K13 Event Driver"
  1.  S FLDS("BUILDER")="RTBK13~MHV7B1"
  1.  S FLDS("SEGMENT")="RDT"
  1.  D LOG^MHVUL2("UPDATE RESPONSE MAP",.FLDS,"M","DEBUG")
  1.  D UPDMAP^MHVU2(.FLDS,1,.ERR)
  1.  I ERR'="" D
  1.  . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
  1.  . D BMES^XPDUTL("     *** An Error occurred during installation.")
  1.  . D MES^XPDUTL("     Please log a remedy ticket.")
  1.  . Q
  1.  Q
  1.  ;
  1. RSPQ11 ; Set up RESPONSE MAP FOR SMPATIENTECLASS, SMPATIENTPROBLEMS, SMDIAGNOSES
  1.  D BMES^XPDUTL("    Creating Entry in MHV RESPONSE MAP - MHVSM QBP-Q11 Subscriber    ")
  1.  N FLDS,ERR
  1.  K FLDS
  1.  S ERR=""
  1.  S FLDS("SUBSCRIBER")="MHVSM QBP-Q11 Subscriber"
  1.  S FLDS("PROTOCOL")="MHVSM RSP-K11 Event Driver"
  1.  S FLDS("BUILDER")="RSPK11~MHV7B9"
  1.  S FLDS("SEGMENT")="PID"
  1.  D LOG^MHVUL2("UPDATE RESPONSE MAP",.FLDS,"M","DEBUG")
  1.  D UPDMAP^MHVU2(.FLDS,1,.ERR)
  1.  I ERR'="" D
  1.  . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
  1.  . D BMES^XPDUTL("     *** An Error occurred during installation.")
  1.  . D MES^XPDUTL("     Please log a remedy ticket.")
  1.  . Q
  1.  Q
  1.  ;
  1. RSPP03 ; Set up RESPONSE MAP FOR SMFILER
  1.  D BMES^XPDUTL("    Creating Entry in MHV RESPONSE MAP - MHVSM DFT-P03 Subscriber    ")
  1.  N FLDS,ERR
  1.  K FLDS
  1.  S ERR=""
  1.  S FLDS("SUBSCRIBER")="MHVSM DFT-P03 Subscriber"
  1.  S FLDS("PROTOCOL")="MHVSM ACK-P03 Event Driver"
  1.  S FLDS("BUILDER")="ACKP03~MHV7B10"
  1.  S FLDS("SEGMENT")="ERR"
  1.  D LOG^MHVUL2("UPDATE RESPONSE MAP",.FLDS,"M","DEBUG")
  1.  D UPDMAP^MHVU2(.FLDS,1,.ERR)
  1.  I ERR'="" D
  1.  . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
  1.  . D BMES^XPDUTL("     *** An Error occurred during installation.")
  1.  . D MES^XPDUTL("     Please log a remedy ticket.")
  1.  . Q
  1.  Q
  1.  ;
  1. CHKHLOC(ERR) ; Check Institution in Hospital Location File (#44)
  1.  N MHVCSIEN,MHVCLIEN,MHVINST,MHVDIVN
  1.  S MHVCSIEN=$$SCIEN(719)
  1.  I $G(MHVCSIEN)="" S ERR="MHV SECURE MESSAGING Stop Code is not found in STOP CODE File" Q
  1.  S MHVCLIEN=0
  1.  F  S MHVCLIEN=$O(^SC("ACST",MHVCSIEN,MHVCLIEN)) Q:'MHVCLIEN  D
  1.  .S MHVCLNM=$$GET1^DIQ(44,+MHVCLIEN,.01,"I")
  1.  .I ($G(MHVCLNM)'="")&($$UP^XLFSTR($E(MHVCLNM,1,2))'="ZZ")  D
  1.  ..S MHVINST=$$GET1^DIQ(44,+MHVCLIEN,3,"E")
  1.  ..S MHVDIVN=$$GET1^DIQ(44,+MHVCLIEN,3.5,"E")
  1.  ..I ($G(MHVINST)="")!($G(MHVDIVN)="")  D
  1.  ...D CHKLERR(.MHVCLNM)
  1.  ...S ERR="Missing Institution/Division field in Hospital Location File (#44)"
  1.  ...Q
  1.  Q
  1. CHKLERR(MHVCLNM) ; Print messages in case of Institution or Division missing
  1.  D LOG^MHVUL2("INSTITUTION-DIVISION MISSING",$G(MHVCLNM),"S","ERROR")
  1.  I MHVC=0  D
  1.  .D BMES^XPDUTL("     *** Please check the following Secure Messaging Clinics that the")
  1.  .D MES^XPDUTL("     *** Institution field and Division field have valid values")
  1.  S MHVC=MHVC+1
  1.  D MES^XPDUTL("     "_$G(MHVCLNM))
  1.  Q
  1. SCIEN(SCN) ;Get stop code IEN
  1.  N SCIEN
  1.  I SCN="" Q ""
  1.  S SCIEN=$O(^DIC(40.7,"C",SCN,0))
  1.  I $G(SCIEN)="" Q ""
  1.  Q SCIEN
  1.  ;