source: WorldVistAEHR/trunk/r/MY_HEALTHEVET-MHV/MHVU2.m@ 1093

MHVU2   ;WAS/GPM - UTILITIES  ; 7/25/05 3:48pm [1/7/08 10:58pm]

        ;;1.0;My HealtheVet;**2**;Aug 23, 2005;Build 22

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

        ;

        Q

        ;

TOGGLE(EXTRACT,VAL,ERR) ; Enable or disable the EXTRACT passed by setting the

        ; value of the BLOCKED field (.03) in MHV REQUEST TYPE file (2275.3)

        ; to NO or YES respectively.

        ;

        ;  Input: EXTRACT - String name of the extract

        ;                   Example: "CHEMISTRY"

        ;             VAL - "ENABLE" or "DISABLE"

        ;

        ;  Output:   ERR - Error Text

        ;

        N IEN,IENS,FDA

        K ERR

        S ERR=""

        I EXTRACT="" S ERR="EXTRACT PARAMETER NULL" Q 0

        S VAL=$S(VAL="ENABLE":0,VAL="DISABLE":1,1:"")

        I VAL="" S ERR="VALUE PARAMETER INVALID"_VAL Q 0

        ;

        S IEN=$$FIND1^DIC(2275.3,"","KX",EXTRACT,"B","","ERR")

        I 'IEN D  Q 0

        . I '$G(ERR("DIERR")) S ERR("DIERR",1,"TEXT",1)="NOT FOUND"

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

        . Q

        ;

        K ERR

        S ERR=""

        S IENS=IEN_","

        S FDA(2275.3,IENS,.03)=VAL

        D UPDATE^DIE("","FDA","","ERR")

        I $G(ERR("DIERR")) S ERR=$G(ERR("DIERR",1))_"^"_$G(ERR("DIERR",1,"TEXT",1)) Q 0

        ;

        Q 1

        ;

UPDMAP(FIELDS,NEW,ERR)  ; Update entries in the MHV RESPONSE MAP file (2275.4)

        ;

        ;  Input: FIELDS - Array of Field Values

        ;              FIELDS("SUBSCRIBER") - Name of subscriber protocol

        ;              FIELDS("PROTOCOL") - Name of event driver protocol

        ;              FIELDS("BUILDER") - Name of response builder routine

        ;              FIELDS("SEGMENT") - Name of boundary segment

        ;            NEW - 0 to edit, 1 to create new entry

        ;

        ;  Output:   ERR - Error Text

        ;

        N IEN,NAME,PROTOCOL,BUILDER,SEGMENT,FDA

        K ERR

        S ERR=""

        S NAME=$G(FIELDS("SUBSCRIBER"))

        S PROTOCOL=$G(FIELDS("PROTOCOL"))

        S BUILDER=$G(FIELDS("BUILDER"))

        S SEGMENT=$G(FIELDS("SEGMENT"))

        I NAME="" S ERR="Missing Subscriber Protocol" Q 0

        I PROTOCOL="" S ERR="Missing Response Protocol" Q 0

        I BUILDER="" S ERR="Missing Builder Routine" Q 0

        I SEGMENT="" S ERR="Missing Boundary Segment" Q 0

        ;

        ; Check if entry exists, use it if it does

        S IEN=$O(^MHV(2275.4,"B",NAME,0))

        I NEW,'IEN S IEN="+1"

        I 'NEW,'IEN S ERR="Subscriber Not Defined" Q 0

        S IEN=IEN_","

        ;

        S FDA(2275.4,IEN,.01)=NAME

        S FDA(2275.4,IEN,.02)=PROTOCOL

        S FDA(2275.4,IEN,.03)=BUILDER

        S FDA(2275.4,IEN,.04)=SEGMENT

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

        I $D(ERR("DIERR")) S ERR=$G(ERR("DIERR",1,"TEXT",1)) Q 0

        Q 1

        ;

UPDREQ(FIELDS,NEW,ERR)  ; Update entries in the MHV REQUEST TYPE file (2275.3)

        ;

        ;  Input: FIELDS - Array of Field Values

        ;              FIELDS("REQUEST TYPE") - Request Type

        ;              FIELDS("NUMBER") - Internal Request Number

        ;              FIELDS("BLOCK") - 0,1 Disable Request

        ;              FIELDS("REALTIME") - Enable Synchronous Response

        ;              FIELDS("EXECUTE") - Name of execute\extract routine

        ;              FIELDS("BUILDER") - Name of response builder routine

        ;              FIELDS("DATATYPE") - External Name for Request Type

        ;              FIELDS("DESCRIPTION") - WP formatted array

        ;            NEW - 0 to edit, 1 to create new entry

        ;

        ;  Output:   ERR - Error Text

        ;

        N IEN,NAME,NUMBER,BLOCK,REALTIME,EXECUTE,BUILDER,DATATYPE,DESC,FDA

        K ERR

        S ERR=""

        S NAME=$G(FIELDS("REQUEST TYPE"))

        S NUMBER=$G(FIELDS("NUMBER"))

        S BLOCK=$G(FIELDS("BLOCK"))

        S REALTIME=$G(FIELDS("REALTIME"))

        S EXECUTE=$G(FIELDS("EXECUTE"))

        S BUILDER=$G(FIELDS("BUILDER"))

        S DATATYPE=$G(FIELDS("DATATYPE"))

        M DESC=FIELDS("DESCRIPTION")

        I NAME="" S ERR="Missing Request Type" Q 0

        I NEW D  Q:ERR'="" 0

        . S IEN="+1"

        . I NUMBER="" S ERR="Missing Type Number" Q

        . I BLOCK="" S ERR="Missing Blocked Setting" Q

        . I REALTIME="" S ERR="Missing RealTime Setting" Q

        . I EXECUTE="" S ERR="Missing Execute Routine" Q

        . I BUILDER="" S ERR="Missing Builder Routine" Q

        . I DATATYPE="" S ERR="Missing Data Type" Q

        . I '$D(DESC) S ERR="Missing Description" Q

        . Q

        ;

        I 'NEW D  Q:ERR'="" 0

        . S IEN=$O(^MHV(2275.3,"B",NAME,0))

        . I 'IEN S ERR="Message Type Not Defined" Q

        . I DATATYPE'="",$D(^MHV(2275.3,IEN,1,"B",DATATYPE)) S DATATYPE=""

        . Q

        S IEN=IEN_","

        ;

        S FDA(2275.3,IEN,.01)=NAME

        S:NUMBER'="" FDA(2275.3,IEN,.02)=NUMBER

        S:BLOCK'="" FDA(2275.3,IEN,.03)=BLOCK

        S:REALTIME'="" FDA(2275.3,IEN,.04)=REALTIME

        S:EXECUTE'="" FDA(2275.3,IEN,.05)=EXECUTE

        S:BUILDER'="" FDA(2275.3,IEN,.06)=BUILDER

        S:DATATYPE'="" FDA(2275.31,"+2,"_IEN,.01)=DATATYPE

        S:$D(DESC) FDA(2275.3,IEN,2)="DESC"

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

        I $D(ERR("DIERR")) S ERR=$G(ERR("DIERR",1,"TEXT",1)) Q 0

        Q 1

        ;