VAFCDODA ;BIR/CML-Accept Date of Death Updates Utilities ;6/23/16
;;5.3;Registration;**926**;Aug 13, 1993;Build 6
;
; Routine created for DG*5.3*926 Story #340909 (cml)
;
CHK() ; API to return value of PROCESS MVI DOD UPDATE? field (#1401) in MAS Parameters file (#43)
; Return 1 if value is set to "YES" (1); otherwise return 0
N RES S RES=1
I $P($G(^DG(43,1,"MVI")),"^")'=1 S RES=0
Q RES
;
EN(RET,TYPE,SET) ; API called from RPC [] to update or display the PROCESS MVI DOD UPDATE? (#1401) field in MAS Parameters (#43)
;TYPE: the type of action:
; If TYPE="S", this is a remote call from the MPI to toggle the value to set the PROCESS MVI DOD UPDATE? (#1401)
; field in MAS Parameters (#43) at a specific site.
; If TYPE="D", this is a remote call from the MPI to return the current setting of the PROCESS MVI DOD UPDATE? (#1401)
; field in MAS Parameters (#43) at a specific site.
;SET: If TYPE="S", SET is the value PROCESS MVI DOD UPDATE? is to be set to. (1:YES, 0:NO)
;
N SITE,SITENAM,SITENUM
S SITE=$$SITE^VASITE,SITENAM=$P(SITE,"^",2),SITENUM=$P(SITE,"^",3)
;
I TYPE'="S"&(TYPE'="D") S RET(1)="-1:Station #"_SITENUM_" - Invalid TYPE sent for PROCESS MVI DOD UPDATE? field request." Q
I TYPE="S" I SET'=1&(SET'=0) S RET(1)="-1:Station #"_SITENUM_" - Invalid update parameter sent for PROCESS MVI DOD UPDATE? field" Q
I TYPE="S" I SET=1!(SET=0) D SET Q
I TYPE="D" D DISP Q
;
DISP ; Return display of PROCESS MVI DOD UPDATE? field (#1401) in MAS Parameters file (#43) set to "YES" (1); otherwise return 0
N IEN
S IEN=$O(^DG(43,0))
Q:IEN<1
S RET(1)="1:Station #"_SITENUM_" - PROCESS MVI DOD UPDATE? set to 'YES'"
I $P($G(^DG(43,IEN,"MVI")),"^")'=1 S RET(1)="1:Station #"_SITENUM_" - PROCESS MVI DOD UPDATE? set to 'NO' or null"
Q
;
SET ; Update PROCESS MVI DOD UPDATE? field (#1401) in MAS Parameters file (#43)
;
N IEN,VAL,DIE,DA,DR
S IEN=$O(^DG(43,0))
Q:IEN<1
S DIE="^DG(43,",DA=IEN,DR="1401////^S X=SET"
D ^DIE
S VAL=$P($G(^DG(43,IEN,"MVI")),"^")
I VAL=1 S RET(1)="1:Station #"_SITENUM_" - PROCESS MVI DOD UPDATE? set to 'YES'"
I VAL=0!(VAL="") S RET(1)="1:Station #"_SITENUM_" - PROCESS MVI DOD UPDATE? set to 'NO' or null"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAFCDODA 2225 printed Nov 22, 2024@18:11:36 Page 2
VAFCDODA ;BIR/CML-Accept Date of Death Updates Utilities ;6/23/16
+1 ;;5.3;Registration;**926**;Aug 13, 1993;Build 6
+2 ;
+3 ; Routine created for DG*5.3*926 Story #340909 (cml)
+4 ;
CHK() ; API to return value of PROCESS MVI DOD UPDATE? field (#1401) in MAS Parameters file (#43)
+1 ; Return 1 if value is set to "YES" (1); otherwise return 0
+2 NEW RES
SET RES=1
+3 IF $PIECE($GET(^DG(43,1,"MVI")),"^")'=1
SET RES=0
+4 QUIT RES
+5 ;
EN(RET,TYPE,SET) ; API called from RPC [] to update or display the PROCESS MVI DOD UPDATE? (#1401) field in MAS Parameters (#43)
+1 ;TYPE: the type of action:
+2 ; If TYPE="S", this is a remote call from the MPI to toggle the value to set the PROCESS MVI DOD UPDATE? (#1401)
+3 ; field in MAS Parameters (#43) at a specific site.
+4 ; If TYPE="D", this is a remote call from the MPI to return the current setting of the PROCESS MVI DOD UPDATE? (#1401)
+5 ; field in MAS Parameters (#43) at a specific site.
+6 ;SET: If TYPE="S", SET is the value PROCESS MVI DOD UPDATE? is to be set to. (1:YES, 0:NO)
+7 ;
+8 NEW SITE,SITENAM,SITENUM
+9 SET SITE=$$SITE^VASITE
SET SITENAM=$PIECE(SITE,"^",2)
SET SITENUM=$PIECE(SITE,"^",3)
+10 ;
+11 IF TYPE'="S"&(TYPE'="D")
SET RET(1)="-1:Station #"_SITENUM_" - Invalid TYPE sent for PROCESS MVI DOD UPDATE? field request."
QUIT
+12 IF TYPE="S"
IF SET'=1&(SET'=0)
SET RET(1)="-1:Station #"_SITENUM_" - Invalid update parameter sent for PROCESS MVI DOD UPDATE? field"
QUIT
+13 IF TYPE="S"
IF SET=1!(SET=0)
DO SET
QUIT
+14 IF TYPE="D"
DO DISP
QUIT
+15 ;
DISP ; Return display of PROCESS MVI DOD UPDATE? field (#1401) in MAS Parameters file (#43) set to "YES" (1); otherwise return 0
+1 NEW IEN
+2 SET IEN=$ORDER(^DG(43,0))
+3 if IEN<1
QUIT
+4 SET RET(1)="1:Station #"_SITENUM_" - PROCESS MVI DOD UPDATE? set to 'YES'"
+5 IF $PIECE($GET(^DG(43,IEN,"MVI")),"^")'=1
SET RET(1)="1:Station #"_SITENUM_" - PROCESS MVI DOD UPDATE? set to 'NO' or null"
+6 QUIT
+7 ;
SET ; Update PROCESS MVI DOD UPDATE? field (#1401) in MAS Parameters file (#43)
+1 ;
+2 NEW IEN,VAL,DIE,DA,DR
+3 SET IEN=$ORDER(^DG(43,0))
+4 if IEN<1
QUIT
+5 SET DIE="^DG(43,"
SET DA=IEN
SET DR="1401////^S X=SET"
+6 DO ^DIE
+7 SET VAL=$PIECE($GET(^DG(43,IEN,"MVI")),"^")
+8 IF VAL=1
SET RET(1)="1:Station #"_SITENUM_" - PROCESS MVI DOD UPDATE? set to 'YES'"
+9 IF VAL=0!(VAL="")
SET RET(1)="1:Station #"_SITENUM_" - PROCESS MVI DOD UPDATE? set to 'NO' or null"
+10 QUIT
