MHV1P6B ;WAS/DLF - My HealtheVet Install Utility Routine ; 9/25/08 4:07pm
;;1.0;My HealtheVet;**6**;Aug 23, 2005;Build 82
;;Per VHA Directive 2004-038, this routine should not be modified.
;
; Integration Agreements:
; 10141 : BMES^XPDUTL
; : MES^XPDUTL
;
;
Q
;
QRYSETUP ;
D USERS,PCPROV,PTCL,PTTM,PTPROV,TEAM,CLINICS,PTREL
Q
USERS ; Set up user query
N FLDS,ERR
S ERR=""
S FLDS("REQUEST TYPE")="USERS"
S FLDS("NUMBER")=26
S FLDS("BLOCK")=1
S FLDS("REALTIME")=1
S FLDS("BUILDER")="STF~MHV7B9A"
S FLDS("DATATYPE")="SMUsers"
S FLDS("EXECUTE")="USERS~MHVXUSR"
S FLDS("DESCRIPTION",1)="QBP^Q13 query for user information."
S FLDS("DESCRIPTION",2)="Specify user by Name or leave blank for all"
S FLDS("DESCRIPTION",3)="users. Developed for Secure Messaging."
D LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
D UPDREQ^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
;
; Enable the Users Query
;
S ERR=""
D LOG^MHVUL2("ENABLE","USERS","S","TRACE")
D TOGGLE^MHVU2("USERS","ENABLE",.ERR)
I ERR'="" D
. D LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
. D BMES^XPDUTL(" *** An Error occurred during installation.")
. D MES^XPDUTL(" Please log a remedy ticket.")
. Q
;
Q
PCPROV ; Set up the PCMM providers query
N FLDS,ERR
S ERR=""
K FLDS
S FLDS("REQUEST TYPE")="PCMM PROVIDERS"
S FLDS("NUMBER")=27
S FLDS("BLOCK")=1
S FLDS("REALTIME")=1
S FLDS("BUILDER")="STF~MHV7B9A"
S FLDS("DATATYPE")="SMPCMMProviders"
S FLDS("EXECUTE")="CMMPRV~MHVXPRV"
S FLDS("DESCRIPTION",1)="QBP^Q13 query for provider information."
S FLDS("DESCRIPTION",2)="Specify provider by Name or leave blank for"
S FLDS("DESCRIPTION",3)="all providers."
S FLDS("DESCRIPTION",4)="Developed for Secure Messaging."
D LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
D UPDREQ^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
;
; Enable the PCMM Providers query
;
S ERR=""
D LOG^MHVUL2("ENABLE","PCMM PROVIDERS","S","TRACE")
D TOGGLE^MHVU2("PCMM PROVIDERS","ENABLE",.ERR)
I ERR'="" D
. D LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
. D BMES^XPDUTL(" *** An Error occurred during installation.")
. D MES^XPDUTL(" Please log a remedy ticket.")
. Q
;
Q
PTCL ; Set up patients for Clinic
N FLDS,ERR
S ERR=""
K FLDS
S FLDS("REQUEST TYPE")="PCMM PATIENTS FOR CLINIC"
S FLDS("NUMBER")=28
S FLDS("BLOCK")=1
S FLDS("REALTIME")=1
S FLDS("BUILDER")="PID~MHV7B9A"
S FLDS("DATATYPE")="SMPCMMPatientsForClinic"
S FLDS("EXECUTE")="PATCL~MHVXPAT"
S FLDS("DESCRIPTION",1)="QBP^Q13 query for user information."
S FLDS("DESCRIPTION",2)="Specify Clinic IEN"
S FLDS("DESCRIPTION",3)="Developed for Secure Messaging."
D LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
D UPDREQ^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
;
; Enable patients for clinic query
;
S ERR=""
D LOG^MHVUL2("ENABLE","PCMM PATIENTS FOR CLINIC","S","TRACE")
D TOGGLE^MHVU2("PCMM PATIENTS FOR CLINIC","ENABLE",.ERR)
I ERR'="" D
. D LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
. D BMES^XPDUTL(" *** An Error occurred during installation.")
. D MES^XPDUTL(" Please log a remedy ticket.")
. Q
Q
PTTM ; Set up Patients for team query
N FLDS,ERR
S ERR=""
K FLDS
S FLDS("REQUEST TYPE")="PCMM PATIENTS FOR TEAM"
S FLDS("NUMBER")=29
S FLDS("BLOCK")=1
S FLDS("REALTIME")=1
S FLDS("BUILDER")="PID~MHV7B9A"
S FLDS("DATATYPE")="SMPCMMPatientsForTeam"
S FLDS("EXECUTE")="PATTM~MHVXPAT"
S FLDS("DESCRIPTION",1)="QBP^Q13 query for user information."
S FLDS("DESCRIPTION",2)="Specify team IEN. Developed for Secure Messaging."
D LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
D UPDREQ^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
;
; Enable Patients for team query
;
S ERR=""
D LOG^MHVUL2("ENABLE","PCMM PATIENTS FOR TEAM","S","TRACE")
D TOGGLE^MHVU2("PCMM PATIENTS FOR TEAM","ENABLE",.ERR)
I ERR'="" D
. D LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
. D BMES^XPDUTL(" *** An Error occurred during installation.")
. D MES^XPDUTL(" Please log a remedy ticket.")
. Q
;
Q
PTPROV ; Set up patients for provider query
N FLDS,ERR
S ERR=""
K FLDS
S FLDS("REQUEST TYPE")="PCMM PATIENTS FOR PROVIDER"
S FLDS("NUMBER")=30
S FLDS("BLOCK")=1
S FLDS("REALTIME")=1
S FLDS("BUILDER")="PID~MHV7B9A"
S FLDS("DATATYPE")="SMPCMMPatientsForProvider"
S FLDS("EXECUTE")="PTPCMP~MHVXPAT"
S FLDS("DESCRIPTION",1)="QBP^Q13 query for user information."
S FLDS("DESCRIPTION",2)="Specify provider IEN"
S FLDS("DESCRIPTION",3)="Developed for Secure Messaging."
D LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
D UPDREQ^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
;
; Enable Patients for Provider Query
;
S ERR=""
D LOG^MHVUL2("ENABLE","PCMM PATIENTS FOR PROVIDER","S","TRACE")
D TOGGLE^MHVU2("PCMM PATIENTS FOR PROVIDER","ENABLE",.ERR)
I ERR'="" D
. D LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
. D BMES^XPDUTL(" *** An Error occurred during installation.")
. D MES^XPDUTL(" Please log a remedy ticket.")
. Q
;
Q
TEAM ; Set up team query
;
N FLDS,ERR
S ERR=""
K FLDS
S FLDS("REQUEST TYPE")="TEAM"
S FLDS("NUMBER")=31
S FLDS("BLOCK")=1
S FLDS("REALTIME")=1
S FLDS("DATATYPE")="SMTeam"
S FLDS("BUILDER")="AIP~MHV7B9A"
S FLDS("EXECUTE")="TEAM~MHVXTM"
S FLDS("DESCRIPTION",1)="QBP^Q13 query for team information."
S FLDS("DESCRIPTION",2)="Specify team name or leave blank for all."
S FLDS("DESCRIPTION",3)="Developed for Secure Messaging."
D LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
D UPDREQ^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
;
; Enable Team query
;
S ERR=""
D LOG^MHVUL2("ENABLE","TEAM","S","TRACE")
D TOGGLE^MHVU2("TEAM","ENABLE",.ERR)
I ERR'="" D
. D LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
. D BMES^XPDUTL(" *** An Error occurred during installation.")
. D MES^XPDUTL(" Please log a remedy ticket.")
. Q
Q
CLINICS ; Set up clinics query
N FLDS,ERR
S ERR=""
K FLDS
S FLDS("REQUEST TYPE")="CLINICS"
S FLDS("NUMBER")=32
S FLDS("BLOCK")=1
S FLDS("REALTIME")=1
S FLDS("BUILDER")="ORG~MHV7B9A"
S FLDS("DATATYPE")="SMClinics"
S FLDS("EXECUTE")="CLIN~MHVXCLN"
S FLDS("DESCRIPTION",1)="QBP^Q13 query for clinic information."
S FLDS("DESCRIPTION",2)="Specify clinic name of leave blank for all."
S FLDS("DESCRIPTION",3)="Developed for Secure Messaging."
D LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
D UPDREQ^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
;
; Enable CLinics Query
;
S ERR=""
D LOG^MHVUL2("ENABLE","CLINICS","S","TRACE")
D TOGGLE^MHVU2("CLINICS","ENABLE",.ERR)
I ERR'="" D
. D LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
. D BMES^XPDUTL(" *** An Error occurred during installation.")
. D MES^XPDUTL(" Please log a remedy ticket.")
. Q
Q
PTREL ; Set up patient relationships query
N FLDS,ERR
S ERR=""
K FLDS
S FLDS("REQUEST TYPE")="PATIENT RELATIONSHIPS"
S FLDS("NUMBER")=33
S FLDS("BLOCK")=1
S FLDS("REALTIME")=1
S FLDS("BUILDER")="PTREL~MHV7B9A"
S FLDS("DATATYPE")="SMPatientRelationships"
S FLDS("EXECUTE")="PTREL~MHVXPAT"
S FLDS("DESCRIPTION",1)="QBP^Q13 query for patient information."
S FLDS("DESCRIPTION",2)="Specify patient IEN. Returns Provider"
S FLDS("DESCRIPTION",3)="Team and Clinic information for a date"
S FLDS("DESCRIPTION",4)="range. Developed for Secure Messaging."
D LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
D UPDREQ^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
;
; Enable Patient Relationships Query
;
S ERR=""
D LOG^MHVUL2("ENABLE","PATIENT RELATIONSHIPS","S","TRACE")
D TOGGLE^MHVU2("PATIENT RELATIONSHIPS","ENABLE",.ERR)
I ERR'="" D
. D LOG^MHVUL2("ENABLE 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 ---[H[J[2J[HMHV1P6B 9340 printed Nov 22, 2024@17:25:38 Page 2
MHV1P6B ;WAS/DLF - My HealtheVet Install Utility Routine ; 9/25/08 4:07pm
+1 ;;1.0;My HealtheVet;**6**;Aug 23, 2005;Build 82
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; Integration Agreements:
+5 ; 10141 : BMES^XPDUTL
+6 ; : MES^XPDUTL
+7 ;
+8 ;
+9 QUIT
+10 ;
QRYSETUP ;
+1 DO USERS
DO PCPROV
DO PTCL
DO PTTM
DO PTPROV
DO TEAM
DO CLINICS
DO PTREL
+2 QUIT
USERS ; Set up user query
+1 NEW FLDS,ERR
+2 SET ERR=""
+3 SET FLDS("REQUEST TYPE")="USERS"
+4 SET FLDS("NUMBER")=26
+5 SET FLDS("BLOCK")=1
+6 SET FLDS("REALTIME")=1
+7 SET FLDS("BUILDER")="STF~MHV7B9A"
+8 SET FLDS("DATATYPE")="SMUsers"
+9 SET FLDS("EXECUTE")="USERS~MHVXUSR"
+10 SET FLDS("DESCRIPTION",1)="QBP^Q13 query for user information."
+11 SET FLDS("DESCRIPTION",2)="Specify user by Name or leave blank for all"
+12 SET FLDS("DESCRIPTION",3)="users. Developed for Secure Messaging."
+13 DO LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
+14 DO UPDREQ^MHVU2(.FLDS,1,.ERR)
+15 IF ERR'=""
Begin DoDot:1
+16 DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
+17 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+18 DO MES^XPDUTL(" Please log a remedy ticket.")
+19 QUIT
End DoDot:1
+20 ;
+21 ; Enable the Users Query
+22 ;
+23 SET ERR=""
+24 DO LOG^MHVUL2("ENABLE","USERS","S","TRACE")
+25 DO TOGGLE^MHVU2("USERS","ENABLE",.ERR)
+26 IF ERR'=""
Begin DoDot:1
+27 DO LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
+28 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+29 DO MES^XPDUTL(" Please log a remedy ticket.")
+30 QUIT
End DoDot:1
+31 ;
+32 QUIT
PCPROV ; Set up the PCMM providers query
+1 NEW FLDS,ERR
+2 SET ERR=""
+3 KILL FLDS
+4 SET FLDS("REQUEST TYPE")="PCMM PROVIDERS"
+5 SET FLDS("NUMBER")=27
+6 SET FLDS("BLOCK")=1
+7 SET FLDS("REALTIME")=1
+8 SET FLDS("BUILDER")="STF~MHV7B9A"
+9 SET FLDS("DATATYPE")="SMPCMMProviders"
+10 SET FLDS("EXECUTE")="CMMPRV~MHVXPRV"
+11 SET FLDS("DESCRIPTION",1)="QBP^Q13 query for provider information."
+12 SET FLDS("DESCRIPTION",2)="Specify provider by Name or leave blank for"
+13 SET FLDS("DESCRIPTION",3)="all providers."
+14 SET FLDS("DESCRIPTION",4)="Developed for Secure Messaging."
+15 DO LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
+16 DO UPDREQ^MHVU2(.FLDS,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 ;
+23 ; Enable the PCMM Providers query
+24 ;
+25 SET ERR=""
+26 DO LOG^MHVUL2("ENABLE","PCMM PROVIDERS","S","TRACE")
+27 DO TOGGLE^MHVU2("PCMM PROVIDERS","ENABLE",.ERR)
+28 IF ERR'=""
Begin DoDot:1
+29 DO LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
+30 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+31 DO MES^XPDUTL(" Please log a remedy ticket.")
+32 QUIT
End DoDot:1
+33 ;
+34 QUIT
PTCL ; Set up patients for Clinic
+1 NEW FLDS,ERR
+2 SET ERR=""
+3 KILL FLDS
+4 SET FLDS("REQUEST TYPE")="PCMM PATIENTS FOR CLINIC"
+5 SET FLDS("NUMBER")=28
+6 SET FLDS("BLOCK")=1
+7 SET FLDS("REALTIME")=1
+8 SET FLDS("BUILDER")="PID~MHV7B9A"
+9 SET FLDS("DATATYPE")="SMPCMMPatientsForClinic"
+10 SET FLDS("EXECUTE")="PATCL~MHVXPAT"
+11 SET FLDS("DESCRIPTION",1)="QBP^Q13 query for user information."
+12 SET FLDS("DESCRIPTION",2)="Specify Clinic IEN"
+13 SET FLDS("DESCRIPTION",3)="Developed for Secure Messaging."
+14 DO LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
+15 DO UPDREQ^MHVU2(.FLDS,1,.ERR)
+16 IF ERR'=""
Begin DoDot:1
+17 DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
+18 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+19 DO MES^XPDUTL(" Please log a remedy ticket.")
+20 QUIT
End DoDot:1
+21 ;
+22 ; Enable patients for clinic query
+23 ;
+24 SET ERR=""
+25 DO LOG^MHVUL2("ENABLE","PCMM PATIENTS FOR CLINIC","S","TRACE")
+26 DO TOGGLE^MHVU2("PCMM PATIENTS FOR CLINIC","ENABLE",.ERR)
+27 IF ERR'=""
Begin DoDot:1
+28 DO LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
+29 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+30 DO MES^XPDUTL(" Please log a remedy ticket.")
+31 QUIT
End DoDot:1
+32 QUIT
PTTM ; Set up Patients for team query
+1 NEW FLDS,ERR
+2 SET ERR=""
+3 KILL FLDS
+4 SET FLDS("REQUEST TYPE")="PCMM PATIENTS FOR TEAM"
+5 SET FLDS("NUMBER")=29
+6 SET FLDS("BLOCK")=1
+7 SET FLDS("REALTIME")=1
+8 SET FLDS("BUILDER")="PID~MHV7B9A"
+9 SET FLDS("DATATYPE")="SMPCMMPatientsForTeam"
+10 SET FLDS("EXECUTE")="PATTM~MHVXPAT"
+11 SET FLDS("DESCRIPTION",1)="QBP^Q13 query for user information."
+12 SET FLDS("DESCRIPTION",2)="Specify team IEN. Developed for Secure Messaging."
+13 DO LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
+14 DO UPDREQ^MHVU2(.FLDS,1,.ERR)
+15 IF ERR'=""
Begin DoDot:1
+16 DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
+17 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+18 DO MES^XPDUTL(" Please log a remedy ticket.")
+19 QUIT
End DoDot:1
+20 ;
+21 ; Enable Patients for team query
+22 ;
+23 SET ERR=""
+24 DO LOG^MHVUL2("ENABLE","PCMM PATIENTS FOR TEAM","S","TRACE")
+25 DO TOGGLE^MHVU2("PCMM PATIENTS FOR TEAM","ENABLE",.ERR)
+26 IF ERR'=""
Begin DoDot:1
+27 DO LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
+28 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+29 DO MES^XPDUTL(" Please log a remedy ticket.")
+30 QUIT
End DoDot:1
+31 ;
+32 QUIT
PTPROV ; Set up patients for provider query
+1 NEW FLDS,ERR
+2 SET ERR=""
+3 KILL FLDS
+4 SET FLDS("REQUEST TYPE")="PCMM PATIENTS FOR PROVIDER"
+5 SET FLDS("NUMBER")=30
+6 SET FLDS("BLOCK")=1
+7 SET FLDS("REALTIME")=1
+8 SET FLDS("BUILDER")="PID~MHV7B9A"
+9 SET FLDS("DATATYPE")="SMPCMMPatientsForProvider"
+10 SET FLDS("EXECUTE")="PTPCMP~MHVXPAT"
+11 SET FLDS("DESCRIPTION",1)="QBP^Q13 query for user information."
+12 SET FLDS("DESCRIPTION",2)="Specify provider IEN"
+13 SET FLDS("DESCRIPTION",3)="Developed for Secure Messaging."
+14 DO LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
+15 DO UPDREQ^MHVU2(.FLDS,1,.ERR)
+16 IF ERR'=""
Begin DoDot:1
+17 DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
+18 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+19 DO MES^XPDUTL(" Please log a remedy ticket.")
+20 QUIT
End DoDot:1
+21 ;
+22 ; Enable Patients for Provider Query
+23 ;
+24 SET ERR=""
+25 DO LOG^MHVUL2("ENABLE","PCMM PATIENTS FOR PROVIDER","S","TRACE")
+26 DO TOGGLE^MHVU2("PCMM PATIENTS FOR PROVIDER","ENABLE",.ERR)
+27 IF ERR'=""
Begin DoDot:1
+28 DO LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
+29 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+30 DO MES^XPDUTL(" Please log a remedy ticket.")
+31 QUIT
End DoDot:1
+32 ;
+33 QUIT
TEAM ; Set up team query
+1 ;
+2 NEW FLDS,ERR
+3 SET ERR=""
+4 KILL FLDS
+5 SET FLDS("REQUEST TYPE")="TEAM"
+6 SET FLDS("NUMBER")=31
+7 SET FLDS("BLOCK")=1
+8 SET FLDS("REALTIME")=1
+9 SET FLDS("DATATYPE")="SMTeam"
+10 SET FLDS("BUILDER")="AIP~MHV7B9A"
+11 SET FLDS("EXECUTE")="TEAM~MHVXTM"
+12 SET FLDS("DESCRIPTION",1)="QBP^Q13 query for team information."
+13 SET FLDS("DESCRIPTION",2)="Specify team name or leave blank for all."
+14 SET FLDS("DESCRIPTION",3)="Developed for Secure Messaging."
+15 DO LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
+16 DO UPDREQ^MHVU2(.FLDS,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 ;
+23 ; Enable Team query
+24 ;
+25 SET ERR=""
+26 DO LOG^MHVUL2("ENABLE","TEAM","S","TRACE")
+27 DO TOGGLE^MHVU2("TEAM","ENABLE",.ERR)
+28 IF ERR'=""
Begin DoDot:1
+29 DO LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
+30 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+31 DO MES^XPDUTL(" Please log a remedy ticket.")
+32 QUIT
End DoDot:1
+33 QUIT
CLINICS ; Set up clinics query
+1 NEW FLDS,ERR
+2 SET ERR=""
+3 KILL FLDS
+4 SET FLDS("REQUEST TYPE")="CLINICS"
+5 SET FLDS("NUMBER")=32
+6 SET FLDS("BLOCK")=1
+7 SET FLDS("REALTIME")=1
+8 SET FLDS("BUILDER")="ORG~MHV7B9A"
+9 SET FLDS("DATATYPE")="SMClinics"
+10 SET FLDS("EXECUTE")="CLIN~MHVXCLN"
+11 SET FLDS("DESCRIPTION",1)="QBP^Q13 query for clinic information."
+12 SET FLDS("DESCRIPTION",2)="Specify clinic name of leave blank for all."
+13 SET FLDS("DESCRIPTION",3)="Developed for Secure Messaging."
+14 DO LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
+15 DO UPDREQ^MHVU2(.FLDS,1,.ERR)
+16 IF ERR'=""
Begin DoDot:1
+17 DO LOG^MHVUL2("UPDATE FAILED",ERR,"S","ERROR")
+18 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+19 DO MES^XPDUTL(" Please log a remedy ticket.")
+20 QUIT
End DoDot:1
+21 ;
+22 ; Enable CLinics Query
+23 ;
+24 SET ERR=""
+25 DO LOG^MHVUL2("ENABLE","CLINICS","S","TRACE")
+26 DO TOGGLE^MHVU2("CLINICS","ENABLE",.ERR)
+27 IF ERR'=""
Begin DoDot:1
+28 DO LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
+29 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+30 DO MES^XPDUTL(" Please log a remedy ticket.")
+31 QUIT
End DoDot:1
+32 QUIT
PTREL ; Set up patient relationships query
+1 NEW FLDS,ERR
+2 SET ERR=""
+3 KILL FLDS
+4 SET FLDS("REQUEST TYPE")="PATIENT RELATIONSHIPS"
+5 SET FLDS("NUMBER")=33
+6 SET FLDS("BLOCK")=1
+7 SET FLDS("REALTIME")=1
+8 SET FLDS("BUILDER")="PTREL~MHV7B9A"
+9 SET FLDS("DATATYPE")="SMPatientRelationships"
+10 SET FLDS("EXECUTE")="PTREL~MHVXPAT"
+11 SET FLDS("DESCRIPTION",1)="QBP^Q13 query for patient information."
+12 SET FLDS("DESCRIPTION",2)="Specify patient IEN. Returns Provider"
+13 SET FLDS("DESCRIPTION",3)="Team and Clinic information for a date"
+14 SET FLDS("DESCRIPTION",4)="range. Developed for Secure Messaging."
+15 DO LOG^MHVUL2("UPDATE REQUEST TYPE",.FLDS,"M","DEBUG")
+16 DO UPDREQ^MHVU2(.FLDS,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 ;
+23 ; Enable Patient Relationships Query
+24 ;
+25 SET ERR=""
+26 DO LOG^MHVUL2("ENABLE","PATIENT RELATIONSHIPS","S","TRACE")
+27 DO TOGGLE^MHVU2("PATIENT RELATIONSHIPS","ENABLE",.ERR)
+28 IF ERR'=""
Begin DoDot:1
+29 DO LOG^MHVUL2("ENABLE FAILED",ERR,"S","ERROR")
+30 DO BMES^XPDUTL(" *** An Error occurred during installation.")
+31 DO MES^XPDUTL(" Please log a remedy ticket.")
+32 QUIT
End DoDot:1
+33 QUIT
