MHV1P40 ;ALB/BAA - MHV*1*40 POST INIT: PHARMACY FIELDS UPDATE;
;;1.0;My HealtheVet;**40**;Aug 23, 2005;Build 26
;;Per VHA Directive 2004-038, this routine should not be modified.
;
Q
;
POST ; New pharmacy fields POST-INSTALL
;
D LOG^MHVUL2("MHV1P40","POST-INIT BEGIN","S","TRACE")
;
D RTYP ; Add new MHV REQUEST TYPE (#2275.3)
;
D LOG^MHVUL2("MHV1P40","POST-INIT end","S","TRACE")
Q
;
;
RTYP ; Add New MHV REQUEST TYPE (#2275.3)
N FLDS,ERR,NEW
;
D LOG^MHVUL2("MHV1P40","Add new MHV REQUEST TYPE start","S","TRACE")
;
I $D(^MHV(2275.3,"B","MEDICATIONS")) D Q
. D LOG^MHVUL2("MHV1P40","MHV REQUEST TYPE EXISTS - NOT ADDED","S","TRACE")
;
S DUZ=.5
S DT=$$DT^XLFDT
S FLDS("REQUEST TYPE")="MEDICATIONS"
S FLDS("NUMBER")=50
S FLDS("BLOCK")=0
S FLDS("REALTIME")=1
S FLDS("EXECUTE")="EXTRACT~MHVXRXM"
S FLDS("BUILDER")="MHV7B1R"
S FLDS("DATATYPE")="Medications"
S FLDS("DESCRIPTION",1)="QBP^Q13 query for Medications"
S FLDS("DESCRIPTION",2)="Grabs Medications from multiple sources"
S NEW=1 ;set to 1 for new entry or 0 to update an entry
D UPDREQ^MHVU2(.FLDS,NEW,.ERR)
I ERR'="" D LOG^MHVUL2("MHV1P40","MHV ERROR : "_ERR,"S","TRACE")
;
D LOG^MHVUL2("MHV1P40","Add new MHV REQUEST TYPE end","S","TRACE")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMHV1P40 1281 printed Nov 22, 2024@17:25:35 Page 2
MHV1P40 ;ALB/BAA - MHV*1*40 POST INIT: PHARMACY FIELDS UPDATE;
+1 ;;1.0;My HealtheVet;**40**;Aug 23, 2005;Build 26
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
POST ; New pharmacy fields POST-INSTALL
+1 ;
+2 DO LOG^MHVUL2("MHV1P40","POST-INIT BEGIN","S","TRACE")
+3 ;
+4 ; Add new MHV REQUEST TYPE (#2275.3)
DO RTYP
+5 ;
+6 DO LOG^MHVUL2("MHV1P40","POST-INIT end","S","TRACE")
+7 QUIT
+8 ;
+9 ;
RTYP ; Add New MHV REQUEST TYPE (#2275.3)
+1 NEW FLDS,ERR,NEW
+2 ;
+3 DO LOG^MHVUL2("MHV1P40","Add new MHV REQUEST TYPE start","S","TRACE")
+4 ;
+5 IF $DATA(^MHV(2275.3,"B","MEDICATIONS"))
Begin DoDot:1
+6 DO LOG^MHVUL2("MHV1P40","MHV REQUEST TYPE EXISTS - NOT ADDED","S","TRACE")
End DoDot:1
QUIT
+7 ;
+8 SET DUZ=.5
+9 SET DT=$$DT^XLFDT
+10 SET FLDS("REQUEST TYPE")="MEDICATIONS"
+11 SET FLDS("NUMBER")=50
+12 SET FLDS("BLOCK")=0
+13 SET FLDS("REALTIME")=1
+14 SET FLDS("EXECUTE")="EXTRACT~MHVXRXM"
+15 SET FLDS("BUILDER")="MHV7B1R"
+16 SET FLDS("DATATYPE")="Medications"
+17 SET FLDS("DESCRIPTION",1)="QBP^Q13 query for Medications"
+18 SET FLDS("DESCRIPTION",2)="Grabs Medications from multiple sources"
+19 ;set to 1 for new entry or 0 to update an entry
SET NEW=1
+20 DO UPDREQ^MHVU2(.FLDS,NEW,.ERR)
+21 IF ERR'=""
DO LOG^MHVUL2("MHV1P40","MHV ERROR : "_ERR,"S","TRACE")
+22 ;
+23 DO LOG^MHVUL2("MHV1P40","Add new MHV REQUEST TYPE end","S","TRACE")
+24 QUIT
