MHV1P40.m

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 ---MHV1P40   1281     printed  Apr 09, 2024@21:17:46                                                                                                                                                                                                     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