Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MPIFNAMC

MPIFNAMC.m

Go to the documentation of this file.
  1. MPIFNAMC ;OAKLAND OIFO/MKO-NAME COMPONENTS UPDATE FLAG ;21 Nov 2018 12:28 PM
  1. ;;1.0;MASTER PATIENT INDEX VISTA;**69**;;Build 1
  1. ;**69,Story 841921 (mko): New routine for the Name Components Update Flag
  1. Q
  1. ;
  1. UPDFLAG(RETURN,FLAG,VALUE) ;Remote Procedure MPIF UPDATE NAME COMP FLAG
  1. ;Update the flag for entry THREE in File #984.8
  1. ; FLAG : "G" - "GET" mode, the flag should be returned, not updated
  1. ; Otherwise, flag is updated with the value passed
  1. ; VALUE : If FLAG'["G", VALUE is what the flag should be set to, 0 or 1.
  1. N DIERR,DIHELP,DIMSG,FDA,VAL,IEN,MSG,X,Y
  1. K RETURN
  1. ;
  1. I $G(FLAG)["G" S RETURN="1^"_$$GETFLAG Q
  1. ;
  1. S VAL=+$G(VALUE)'=0
  1. S FDA(984.8,"?+1,",.01)="THREE"
  1. S FDA(984.8,"?+1,",3)=VAL
  1. S IEN(1)=3
  1. D UPDATE^DIE("E","FDA","IEN","MSG")
  1. I $G(DIERR) S RETURN="-1^"_$$BLDERR("MSG") Q
  1. S RETURN="1^Successfully "_$S($G(IEN(1,0))="+":"added entry THREE and ",1:"")_"updated flag to "_VAL_" in File #984.8"
  1. Q
  1. ;
  1. GETFLAG() ;Get the value of the flag
  1. Q $P($G(^MPIF(984.8,3,0)),"^",4)
  1. ;
  1. DELTHREE(RETURN) ;Delete entry THREE in File #984.8
  1. N DA,DIK,X,Y
  1. I $D(^MPIF(984.8,3,0))[0 S RETURN="-1^Entry 3 doesn't exist." Q
  1. S DIK="^MPIF(984.8,",DA=3 D ^DIK
  1. S RETURN="1^Entry 3 deleted."
  1. Q
  1. ;
  1. BLDERR(MSGROOT) ;Build an error from the error message array
  1. N ERRARR,ERRMSG,I
  1. D MSG^DIALOG("AE",.ERRARR,"","",MSGROOT)
  1. S ERRMSG="",I=0 F S I=$O(ERRARR(I)) Q:'I S ERRMSG=ERRMSG_$S(ERRMSG]"":" ",1:"")_$G(ERRARR(I))
  1. Q ERRMSG