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 |
