MHV1P10.m

MHV1P10 ;KUM - My HealtheVet Install Utility Routine ; [1/15/13 15:01pm]

 ;;1.0;My HealtheVet;**10**;Aug 23, 2005;Build 50

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 ;  Integration Agreements:

 ;        10141 : BMES^XPDUTL

 ;              : MES^XPDUTL

 ;        10018 : UPDATE^DIE

 ;        10103 : $$FMTH^XLFDT

 ;              : $$HTFM^XLFDT

 ;              : $$NOW^XLFDT

 ;

ENV ;

 Q

 ;

PRE ; Pre-init routine

 ; Turn on MHV Application Logging, add a log entry for the start

 ; of the patch install.

 D LOGON

 D LOG^MHVUL2(XPDNM,"PRE-INIT","S","TRACE")

 Q

 ;

POST ; Post-init routine

 N ERR

 D LOG^MHVUL2(XPDNM,"POST-INIT BEGIN","S","TRACE")

 ;

 D QRYSMC

 D QRYTIU

 D RSPTIU

 D PRLSMS

 D PRLSME

 D PRLSMSR

 D PRLSMER

 ;

 D LOG^MHVUL2(XPDNM,"POST-INIT END","S","TRACE")

 D LOGOFF

 D RESET^MHVUL2

 Q

 ;

LOGON ; Turn on MHV application logging

 N UPDATE,SUCCESS

 D BMES^XPDUTL("     Turning on MHV Application Logging")

 S UPDATE("STATE")=1

 S UPDATE("DELETE")=$$HTFM^XLFDT($H+60)

 S UPDATE("LEVEL")="DEBUG"

 D LOGSET^MHVUL1(.SUCCESS,.UPDATE)

 Q

 ;

LOGOFF ; Turn off MHV application logging

 N SUCCESS

 D BMES^XPDUTL("     Turning off MHV Application Logging")

 D LOGOFF^MHVUL1(.SUCCESS)

 Q

 ;

QRYSMC ; Setup for Clinics By Stop Code query

 ; Setup MHV REQUEST TYPE 

 ;

 D BMES^XPDUTL("    Creating Entry in MHV REQUEST TYPE File - SMCLINICS   ")

 N FIELDS,ERR

 S ERR=""

 S FIELDS("REQUEST TYPE")="SMCLINICS"

 S FIELDS("NUMBER")=41

 S FIELDS("BLOCK")=0

 S FIELDS("REALTIME")=1

 S FIELDS("DATATYPE")="SMClinicsByStopCode"

 S FIELDS("EXECUTE")="SPCLIN~MHVXCLN"

 S FIELDS("BUILDER")="SMORG~MHV7B9A"

 S FIELDS("DESCRIPTION",1)="QBP^Q11 query for Clinic information."

 S FIELDS("DESCRIPTION",2)="Specify Clinic name or leave blank for all."

 S FIELDS("DESCRIPTION",3)="Specify Credit Stop Code, not null, 719 is expected."

 S FIELDS("DESCRIPTION",4)="Developed for Secure Messaging."

 D LOG^MHVUL2("UPDATE REQUEST TYPE",.FIELDS,"M","DEBUG")

 D UPDREQ^MHVU2(.FIELDS,1,.ERR)

 I ERR'="" D

 . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 . D BMES^XPDUTL("     *** An Error occurred during installation.")

 . D MES^XPDUTL("     Please log a remedy ticket.")

 . Q

 ;

QRYTIU ; Setup for TIUTITLES Query

 ;

  D BMES^XPDUTL("    Creating Entry in MHV REQUEST TYPE File - TIUTITLES    ")

 N FIELDS,ERR

 S ERR=""

 S FIELDS("REQUEST TYPE")="TIUTITLES"

 S FIELDS("NUMBER")=42

 S FIELDS("BLOCK")=0

 S FIELDS("REALTIME")=1

 S FIELDS("DATATYPE")="TIUTitlesByDocumentClass"

 S FIELDS("EXECUTE")="EXTRACT~MHVXTIU"

 S FIELDS("BUILDER")="MHV7B1C"

 S FIELDS("DESCRIPTION",1)="QBP^Q13 query for TIU Titles information."

 S FIELDS("DESCRIPTION",2)="Specify Document Class Name, SECURE MESSAGING DOCUMENTS is expected."

 S FIELDS("DESCRIPTION",3)="Developed for Secure Messaging."

 D LOG^MHVUL2("UPDATE REQUEST TYPE",.FIELDS,"M","DEBUG")

 D UPDREQ^MHVU2(.FIELDS,1,.ERR)

 I ERR'="" D

 . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 . D BMES^XPDUTL("     *** An Error occurred during installation.")

 . D MES^XPDUTL("     Please log a remedy ticket.")

 . Q

 ;

RSPTIU ; Set up RESPONSE MAP FOR TIUTITLES

 D BMES^XPDUTL("    Creating Entry in MHV RESPONSE MAP - MHVSM QBP-Q13 Subscriber    ")

 N FLDS,ERR

 K FLDS

 S ERR=""

 S FLDS("SUBSCRIBER")="MHVSM QBP-Q13 Subscriber"

 S FLDS("PROTOCOL")="MHVSM RTB-K13 Event Driver"

 S FLDS("BUILDER")="RTBK13~MHV7B1"

 S FLDS("SEGMENT")="RDT"

 D LOG^MHVUL2("UPDATE RESPONSE MAP",.FLDS,"M","DEBUG")

 D UPDMAP^MHVU2(.FLDS,1,.ERR)

 I ERR'="" D

 . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 . D BMES^XPDUTL("     *** An Error occurred during installation.")

 . D MES^XPDUTL("     Please log a remedy ticket.")

 . Q

 Q

 ;

PRLSMS ; Setup for PROTOCOLs

 D BMES^XPDUTL("    Creating Entry in PROTOCOL - MHVSM QBP-Q13 Subscriber    ")

 N NAME,IEN,FIELDS,ERR

 S ERR=""

 S NAME="MHVSM QBP-Q13 Subscriber"

 S IEN=$O(^ORD(101,"B",NAME,0))

 I IEN Q

 I 'IEN S IEN="+1"

 S IEN=IEN_","

 S FIELDS(101,IEN,.01)="MHVSM QBP-Q13 Subscriber"

 S FIELDS(101,IEN,44)="MHVSM QBP-Q13 Subscriber"

 S FIELDS(101,IEN,4)="subscriber"

 S FIELDS(101,IEN,99)=$$FMTH^XLFDT($$NOW^XLFDT())

 S FIELDS(101,IEN,770.4)="K13"

 S FIELDS(101,IEN,770.11)="RTB"

 S FIELDS(101,IEN,773.1)="YES"

 S FIELDS(101,IEN,773.3)="NO"

 S FIELDS(101,IEN,770.2)="MHV VISTA"

 S FIELDS(101,IEN,771)="D QBPQ13^MHV7R6"

 S FIELDS(101,IEN,773.2)="YES"

 ;S FIELDS(101,IEN,770.95)="2.4"

 D UPDATE^DIE("E","FIELDS","","ERR")

 I $D(ERR("DIERR")) D 

 . S ERR=$G(ERR("DIERR",1,"TEXT",1))

 . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 . D BMES^XPDUTL("     *** An Error occurred during installation.")

 . D MES^XPDUTL("     Please log a remedy ticket.")

 . Q

 Q

PRLSME ; Setup for PROTOCOLs

 D BMES^XPDUTL("    Creating Entry in PROTOCOL - MHVSM QBP-Q13 Event Driver    ")

 N NAME,IEN,FIELDS,ERR

 S ERR=""

 S NAME="MHVSM QBP-Q13 Event Driver"

 S IEN=$O(^ORD(101,"B",NAME,0))

 I IEN Q

 I 'IEN S IEN="+1"

 S IEN=IEN_","

 S FIELDS(101,IEN,.01)="MHVSM QBP-Q13 Event Driver"

 S FIELDS(101,IEN,44)="MHVSM QBP-Q13 Event Driver"

 S FIELDS(101,IEN,4)="event driver"

 S FIELDS(101,IEN,99)=$$FMTH^XLFDT($$NOW^XLFDT())

 S FIELDS(101,IEN,770.4)="Q13"

 S FIELDS(101,IEN,770.1)="MHV SM"

 S FIELDS(101,IEN,770.3)="QBP"

 S FIELDS(101,IEN,770.5)="QBP_Q13"

 S FIELDS(101,IEN,770.95)="2.4"

 S FIELDS(101.0775,"+2,"_IEN,.01)="MHVSM QBP-Q13 Subscriber"

 D UPDATE^DIE("E","FIELDS","","ERR")

 I $D(ERR("DIERR")) D 

 . S ERR=$G(ERR("DIERR",1,"TEXT",1))

 . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 . D BMES^XPDUTL("     *** An Error occurred during installation.")

 . D MES^XPDUTL("     Please log a remedy ticket.")

 . Q

 Q

PRLSMSR ; Setup for PROTOCOLs

 D BMES^XPDUTL("    Creating Entry in PROTOCOL - MHVSM RTB-K13 Subscriber    ")

 N NAME,IEN,FIELDS,ERR

 S ERR=""

 S NAME="MHVSM RTB-K13 Subscriber"

 S IEN=$O(^ORD(101,"B",NAME,0))

 I IEN Q

 I 'IEN S IEN="+1"

 S IEN=IEN_","

 S FIELDS(101,IEN,.01)="MHVSM RTB-K13 Subscriber"

 S FIELDS(101,IEN,44)="MHVSM RTB-K13 Subscriber"

 S FIELDS(101,IEN,4)="subscriber"

 S FIELDS(101,IEN,99)=$$FMTH^XLFDT($$NOW^XLFDT())

 S FIELDS(101,IEN,770.4)="K13"

 S FIELDS(101,IEN,770.11)="RTB"

 S FIELDS(101,IEN,773.1)="YES"

 S FIELDS(101,IEN,773.3)="NO"

 S FIELDS(101,IEN,770.2)="MHV SM"

 S FIELDS(101,IEN,770.7)="MHVVA"

 S FIELDS(101,IEN,773.2)="YES"

 D UPDATE^DIE("E","FIELDS","","ERR")

 I $D(ERR("DIERR")) D 

 . S ERR=$G(ERR("DIERR",1,"TEXT",1))

 . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 . D BMES^XPDUTL("     *** An Error occurred during installation.")

 . D MES^XPDUTL("     Please log a remedy ticket.")

 . Q

 Q

PRLSMER ; Setup for PROTOCOLs

 D BMES^XPDUTL("    Creating Entry in PROTOCOL - MHVSM RTB-K13 Event Driver    ")

 N NAME,IEN,FIELDS,ERR

 S ERR=""

 S NAME="MHVSM RTB-K13 Event Driver"

 S IEN=$O(^ORD(101,"B",NAME,0))

 I IEN Q

 I 'IEN S IEN="+1"

 S IEN=IEN_","

 S FIELDS(101,IEN,.01)="MHVSM RTB-K13 Event Driver"

 S FIELDS(101,IEN,44)="MHVSM RTB-K13 Event Driver"

 S FIELDS(101,IEN,4)="event driver"

 S FIELDS(101,IEN,99)=$$FMTH^XLFDT($$NOW^XLFDT())

 S FIELDS(101,IEN,770.4)="K13"

 S FIELDS(101,IEN,770.1)="MHV VISTA"

 S FIELDS(101,IEN,770.3)="RTB"

 S FIELDS(101,IEN,770.5)="RTB_K13"

 S FIELDS(101,IEN,770.8)="AL"

 S FIELDS(101,IEN,770.9)="NE"

 S FIELDS(101,IEN,770.95)="2.4"

 S FIELDS(101.0775,"+2,"_IEN,.01)="MHVSM RTB-K13 Subscriber"

 D UPDATE^DIE("E","FIELDS","","ERR")

 I $D(ERR("DIERR")) D 

 . S ERR=$G(ERR("DIERR",1,"TEXT",1))

 . D LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 . D BMES^XPDUTL("     *** An Error occurred during installation.")

 . D MES^XPDUTL("     Please log a remedy ticket.")

 . Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MHV1P10   7748     printed  Mar 13, 2025@21:20:04                                                                                                                                                                                                     Page 2

MHV1P10   ;KUM - My HealtheVet Install Utility Routine ; [1/15/13 15:01pm]

 +1       ;;1.0;My HealtheVet;**10**;Aug 23, 2005;Build 50

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4       ;  Integration Agreements:

 +5       ;        10141 : BMES^XPDUTL

 +6       ;              : MES^XPDUTL

 +7       ;        10018 : UPDATE^DIE

 +8       ;        10103 : $$FMTH^XLFDT

 +9       ;              : $$HTFM^XLFDT

 +10      ;              : $$NOW^XLFDT

 +11      ;

ENV       ;

 +1        QUIT 

 +2       ;

PRE       ; Pre-init routine

 +1       ; Turn on MHV Application Logging, add a log entry for the start

 +2       ; of the patch install.

 +3        DO LOGON

 +4        DO LOG^MHVUL2(XPDNM,"PRE-INIT","S","TRACE")

 +5        QUIT 

 +6       ;

POST      ; Post-init routine

 +1        NEW ERR

 +2        DO LOG^MHVUL2(XPDNM,"POST-INIT BEGIN","S","TRACE")

 +3       ;

 +4        DO QRYSMC

 +5        DO QRYTIU

 +6        DO RSPTIU

 +7        DO PRLSMS

 +8        DO PRLSME

 +9        DO PRLSMSR

 +10       DO PRLSMER

 +11      ;

 +12       DO LOG^MHVUL2(XPDNM,"POST-INIT END","S","TRACE")

 +13       DO LOGOFF

 +14       DO RESET^MHVUL2

 +15       QUIT 

 +16      ;

LOGON     ; Turn on MHV application logging

 +1        NEW UPDATE,SUCCESS

 +2        DO BMES^XPDUTL("     Turning on MHV Application Logging")

 +3        SET UPDATE("STATE")=1

 +4        SET UPDATE("DELETE")=$$HTFM^XLFDT($HOROLOG+60)

 +5        SET UPDATE("LEVEL")="DEBUG"

 +6        DO LOGSET^MHVUL1(.SUCCESS,.UPDATE)

 +7        QUIT 

 +8       ;

LOGOFF    ; Turn off MHV application logging

 +1        NEW SUCCESS

 +2        DO BMES^XPDUTL("     Turning off MHV Application Logging")

 +3        DO LOGOFF^MHVUL1(.SUCCESS)

 +4        QUIT 

 +5       ;

QRYSMC    ; Setup for Clinics By Stop Code query

 +1       ; Setup MHV REQUEST TYPE 

 +2       ;

 +3        DO BMES^XPDUTL("    Creating Entry in MHV REQUEST TYPE File - SMCLINICS   ")

 +4        NEW FIELDS,ERR

 +5        SET ERR=""

 +6        SET FIELDS("REQUEST TYPE")="SMCLINICS"

 +7        SET FIELDS("NUMBER")=41

 +8        SET FIELDS("BLOCK")=0

 +9        SET FIELDS("REALTIME")=1

 +10       SET FIELDS("DATATYPE")="SMClinicsByStopCode"

 +11       SET FIELDS("EXECUTE")="SPCLIN~MHVXCLN"

 +12       SET FIELDS("BUILDER")="SMORG~MHV7B9A"

 +13       SET FIELDS("DESCRIPTION",1)="QBP^Q11 query for Clinic information."

 +14       SET FIELDS("DESCRIPTION",2)="Specify Clinic name or leave blank for all."

 +15       SET FIELDS("DESCRIPTION",3)="Specify Credit Stop Code, not null, 719 is expected."

 +16       SET FIELDS("DESCRIPTION",4)="Developed for Secure Messaging."

 +17       DO LOG^MHVUL2("UPDATE REQUEST TYPE",.FIELDS,"M","DEBUG")

 +18       DO UPDREQ^MHVU2(.FIELDS,1,.ERR)

 +19       IF ERR'=""

               Begin DoDot:1

 +20               DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 +21               DO BMES^XPDUTL("     *** An Error occurred during installation.")

 +22               DO MES^XPDUTL("     Please log a remedy ticket.")

 +23               QUIT 

               End DoDot:1

 +24      ;

QRYTIU    ; Setup for TIUTITLES Query

 +1       ;

 +2        DO BMES^XPDUTL("    Creating Entry in MHV REQUEST TYPE File - TIUTITLES    ")

 +3        NEW FIELDS,ERR

 +4        SET ERR=""

 +5        SET FIELDS("REQUEST TYPE")="TIUTITLES"

 +6        SET FIELDS("NUMBER")=42

 +7        SET FIELDS("BLOCK")=0

 +8        SET FIELDS("REALTIME")=1

 +9        SET FIELDS("DATATYPE")="TIUTitlesByDocumentClass"

 +10       SET FIELDS("EXECUTE")="EXTRACT~MHVXTIU"

 +11       SET FIELDS("BUILDER")="MHV7B1C"

 +12       SET FIELDS("DESCRIPTION",1)="QBP^Q13 query for TIU Titles information."

 +13       SET FIELDS("DESCRIPTION",2)="Specify Document Class Name, SECURE MESSAGING DOCUMENTS is expected."

 +14       SET FIELDS("DESCRIPTION",3)="Developed for Secure Messaging."

 +15       DO LOG^MHVUL2("UPDATE REQUEST TYPE",.FIELDS,"M","DEBUG")

 +16       DO UPDREQ^MHVU2(.FIELDS,1,.ERR)

 +17       IF ERR'=""

               Begin DoDot:1

 +18               DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 +19               DO BMES^XPDUTL("     *** An Error occurred during installation.")

 +20               DO MES^XPDUTL("     Please log a remedy ticket.")

 +21               QUIT 

               End DoDot:1

 +22      ;

RSPTIU    ; Set up RESPONSE MAP FOR TIUTITLES

 +1        DO BMES^XPDUTL("    Creating Entry in MHV RESPONSE MAP - MHVSM QBP-Q13 Subscriber    ")

 +2        NEW FLDS,ERR

 +3        KILL FLDS

 +4        SET ERR=""

 +5        SET FLDS("SUBSCRIBER")="MHVSM QBP-Q13 Subscriber"

 +6        SET FLDS("PROTOCOL")="MHVSM RTB-K13 Event Driver"

 +7        SET FLDS("BUILDER")="RTBK13~MHV7B1"

 +8        SET FLDS("SEGMENT")="RDT"

 +9        DO LOG^MHVUL2("UPDATE RESPONSE MAP",.FLDS,"M","DEBUG")

 +10       DO UPDMAP^MHVU2(.FLDS,1,.ERR)

 +11       IF ERR'=""

               Begin DoDot:1

 +12               DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 +13               DO BMES^XPDUTL("     *** An Error occurred during installation.")

 +14               DO MES^XPDUTL("     Please log a remedy ticket.")

 +15               QUIT 

               End DoDot:1

 +16       QUIT 

 +17      ;

PRLSMS    ; Setup for PROTOCOLs

 +1        DO BMES^XPDUTL("    Creating Entry in PROTOCOL - MHVSM QBP-Q13 Subscriber    ")

 +2        NEW NAME,IEN,FIELDS,ERR

 +3        SET ERR=""

 +4        SET NAME="MHVSM QBP-Q13 Subscriber"

 +5        SET IEN=$ORDER(^ORD(101,"B",NAME,0))

 +6        IF IEN

               QUIT 

 +7        IF 'IEN

               SET IEN="+1"

 +8        SET IEN=IEN_","

 +9        SET FIELDS(101,IEN,.01)="MHVSM QBP-Q13 Subscriber"

 +10       SET FIELDS(101,IEN,44)="MHVSM QBP-Q13 Subscriber"

 +11       SET FIELDS(101,IEN,4)="subscriber"

 +12       SET FIELDS(101,IEN,99)=$$FMTH^XLFDT($$NOW^XLFDT())

 +13       SET FIELDS(101,IEN,770.4)="K13"

 +14       SET FIELDS(101,IEN,770.11)="RTB"

 +15       SET FIELDS(101,IEN,773.1)="YES"

 +16       SET FIELDS(101,IEN,773.3)="NO"

 +17       SET FIELDS(101,IEN,770.2)="MHV VISTA"

 +18       SET FIELDS(101,IEN,771)="D QBPQ13^MHV7R6"

 +19       SET FIELDS(101,IEN,773.2)="YES"

 +20      ;S FIELDS(101,IEN,770.95)="2.4"

 +21       DO UPDATE^DIE("E","FIELDS","","ERR")

 +22       IF $DATA(ERR("DIERR"))

               Begin DoDot:1

 +23               SET ERR=$GET(ERR("DIERR",1,"TEXT",1))

 +24               DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 +25               DO BMES^XPDUTL("     *** An Error occurred during installation.")

 +26               DO MES^XPDUTL("     Please log a remedy ticket.")

 +27               QUIT 

               End DoDot:1

 +28       QUIT 

PRLSME    ; Setup for PROTOCOLs

 +1        DO BMES^XPDUTL("    Creating Entry in PROTOCOL - MHVSM QBP-Q13 Event Driver    ")

 +2        NEW NAME,IEN,FIELDS,ERR

 +3        SET ERR=""

 +4        SET NAME="MHVSM QBP-Q13 Event Driver"

 +5        SET IEN=$ORDER(^ORD(101,"B",NAME,0))

 +6        IF IEN

               QUIT 

 +7        IF 'IEN

               SET IEN="+1"

 +8        SET IEN=IEN_","

 +9        SET FIELDS(101,IEN,.01)="MHVSM QBP-Q13 Event Driver"

 +10       SET FIELDS(101,IEN,44)="MHVSM QBP-Q13 Event Driver"

 +11       SET FIELDS(101,IEN,4)="event driver"

 +12       SET FIELDS(101,IEN,99)=$$FMTH^XLFDT($$NOW^XLFDT())

 +13       SET FIELDS(101,IEN,770.4)="Q13"

 +14       SET FIELDS(101,IEN,770.1)="MHV SM"

 +15       SET FIELDS(101,IEN,770.3)="QBP"

 +16       SET FIELDS(101,IEN,770.5)="QBP_Q13"

 +17       SET FIELDS(101,IEN,770.95)="2.4"

 +18       SET FIELDS(101.0775,"+2,"_IEN,.01)="MHVSM QBP-Q13 Subscriber"

 +19       DO UPDATE^DIE("E","FIELDS","","ERR")

 +20       IF $DATA(ERR("DIERR"))

               Begin DoDot:1

 +21               SET ERR=$GET(ERR("DIERR",1,"TEXT",1))

 +22               DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 +23               DO BMES^XPDUTL("     *** An Error occurred during installation.")

 +24               DO MES^XPDUTL("     Please log a remedy ticket.")

 +25               QUIT 

               End DoDot:1

 +26       QUIT 

PRLSMSR   ; Setup for PROTOCOLs

 +1        DO BMES^XPDUTL("    Creating Entry in PROTOCOL - MHVSM RTB-K13 Subscriber    ")

 +2        NEW NAME,IEN,FIELDS,ERR

 +3        SET ERR=""

 +4        SET NAME="MHVSM RTB-K13 Subscriber"

 +5        SET IEN=$ORDER(^ORD(101,"B",NAME,0))

 +6        IF IEN

               QUIT 

 +7        IF 'IEN

               SET IEN="+1"

 +8        SET IEN=IEN_","

 +9        SET FIELDS(101,IEN,.01)="MHVSM RTB-K13 Subscriber"

 +10       SET FIELDS(101,IEN,44)="MHVSM RTB-K13 Subscriber"

 +11       SET FIELDS(101,IEN,4)="subscriber"

 +12       SET FIELDS(101,IEN,99)=$$FMTH^XLFDT($$NOW^XLFDT())

 +13       SET FIELDS(101,IEN,770.4)="K13"

 +14       SET FIELDS(101,IEN,770.11)="RTB"

 +15       SET FIELDS(101,IEN,773.1)="YES"

 +16       SET FIELDS(101,IEN,773.3)="NO"

 +17       SET FIELDS(101,IEN,770.2)="MHV SM"

 +18       SET FIELDS(101,IEN,770.7)="MHVVA"

 +19       SET FIELDS(101,IEN,773.2)="YES"

 +20       DO UPDATE^DIE("E","FIELDS","","ERR")

 +21       IF $DATA(ERR("DIERR"))

               Begin DoDot:1

 +22               SET ERR=$GET(ERR("DIERR",1,"TEXT",1))

 +23               DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 +24               DO BMES^XPDUTL("     *** An Error occurred during installation.")

 +25               DO MES^XPDUTL("     Please log a remedy ticket.")

 +26               QUIT 

               End DoDot:1

 +27       QUIT 

PRLSMER   ; Setup for PROTOCOLs

 +1        DO BMES^XPDUTL("    Creating Entry in PROTOCOL - MHVSM RTB-K13 Event Driver    ")

 +2        NEW NAME,IEN,FIELDS,ERR

 +3        SET ERR=""

 +4        SET NAME="MHVSM RTB-K13 Event Driver"

 +5        SET IEN=$ORDER(^ORD(101,"B",NAME,0))

 +6        IF IEN

               QUIT 

 +7        IF 'IEN

               SET IEN="+1"

 +8        SET IEN=IEN_","

 +9        SET FIELDS(101,IEN,.01)="MHVSM RTB-K13 Event Driver"

 +10       SET FIELDS(101,IEN,44)="MHVSM RTB-K13 Event Driver"

 +11       SET FIELDS(101,IEN,4)="event driver"

 +12       SET FIELDS(101,IEN,99)=$$FMTH^XLFDT($$NOW^XLFDT())

 +13       SET FIELDS(101,IEN,770.4)="K13"

 +14       SET FIELDS(101,IEN,770.1)="MHV VISTA"

 +15       SET FIELDS(101,IEN,770.3)="RTB"

 +16       SET FIELDS(101,IEN,770.5)="RTB_K13"

 +17       SET FIELDS(101,IEN,770.8)="AL"

 +18       SET FIELDS(101,IEN,770.9)="NE"

 +19       SET FIELDS(101,IEN,770.95)="2.4"

 +20       SET FIELDS(101.0775,"+2,"_IEN,.01)="MHVSM RTB-K13 Subscriber"

 +21       DO UPDATE^DIE("E","FIELDS","","ERR")

 +22       IF $DATA(ERR("DIERR"))

               Begin DoDot:1

 +23               SET ERR=$GET(ERR("DIERR",1,"TEXT",1))

 +24               DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")

 +25               DO BMES^XPDUTL("     *** An Error occurred during installation.")

 +26               DO MES^XPDUTL("     Please log a remedy ticket.")

 +27               QUIT 

               End DoDot:1

 +28       QUIT