XUMVIENU ;MVI/CKN,MKO - Master Veteran Index Enrich New Person ; 1/26/21 3:10pm
Source file <XUMVIENU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
UPDATE(XURET,XUARR,XUFLAG) | ;RPC to enrich New Pperson file entry
|
|
PROC(XURET,XUARR,XUFLAG) | ;Main code for RPC
|
|
CHKINPUT(XUARR,XUFLAG) | ;Check inputs
|
|
SETFDA(IEN,XUARR,FDA) | ;Set FDA from XUARR for filing into File #200
|
|
SUBJDEF(XUARR) | ;Set default Subject Organization and ID
|
|
TERMDATE(FDA,XURES) | ;Remove Termination Date from FDA if it's in the future,
|
|
SECKEYS(XUDUZ,OLDTDATE,XURET,XURSET) | ;Add or remove Security Keys PROVIDER and XUORES
|
|
ADDKEY(XUDUZ,KEYIEN) | ;Add the key
|
|
PERSCLAS(XUDUZ,XUARR,XURET) | ;Update PERSON CLASS multiple
|
|
ISPCACTV(XUDUZ,SUBIEN) | ;Is the Person Class active?
|
|
NEWDEA(XUDUZ,XUARR,XURET) | ;Update DEA NUMBERS File #8991.9
|
|
NPDEA(XUDUZ,XUARR,XURET) | ;Set the single-valued fields in the New Person file for
; DEA#, Detox #, DEA Expiration Date, and the Schedule fields from the first entry in ; the NEW DEA#'s multiple; Also default Auth to Write Med Orders to 1 if not already set, ; WHO is 200PIEV, and there's a DEA# |
|
FIRSTDEA(XUDUZ,XUARR,XURET) | ;File the first valid DEA in the XUARR input array
|
|
FILER(XUMVIFDA,FLAG,XURET) | ;Call the Filer
|
|
UPDATER(XUMVIFDA,FLAG,XURET,XUMVIIEN) | ;Call the Updater
|
|
ADDERR(XURET,MSG) | ;Add error MSG to XURET
|
|
STATEIEN(STATE) | ;Return "`"_IEN if valid abbreviation, VA code, or name
|
|
GETINT(FILE,FLD,VAL) | ;Get the internal form of the data; returns "^" if not valid
|
|
BLDERR(INROOT) | ;Build a string containing error messages returned by FileMan
|
|
MAXLEN(FILE,FLD) | ;Return the maximum length of field FLD in file FILE
|
|
RECORD(PARAM,FLAG,RPCNAME) | ;Record RPC inputs for debugging
|
|
RETURN(SEQ,RETURN) | ;Record the return value
|
|
DBON | ;Set DEBUG on
|
|
DBOFF | ;Set DEBUG off
|
|
ISDEBUG() | ;Return 1 if DEBUG mode flag is set
|
|
PURGE | ;Purge the debugging data stored in ^XTMP
|
|
SETXTMP0(NODE,DESC,LIFE) | ;Set 0 node of ^XTMP(node)
|
|
NODE() | ;Return ^XTMP Debug subscript
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
RPC Name | Call Tags |
---|---|
XUS MVI ENRICH NEW PERSON | UPDATE |