Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC
Print Page as PDF
Routine: XUMVIENU

Package: Kernel

Routine: XUMVIENU


Information

XUMVIENU ;MVI/CKN,MKO - Master Veteran Index Enrich New Person ; 1/26/21 3:10pm

Source Information

Source file <XUMVIENU.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$NA(^XTMP(NODE,"DEBUG"))_" set to 1.",!
  • Line Location: DBON+5
Function Call: WRITE
  • Prompt: !,$NA(^XTMP(NODE,"DEBUG"))_" killed.",!
  • Line Location: DBOFF+5
Function Call: WRITE
  • Prompt: !,$NA(^XTMP($$NODE))_" killed.",!
  • Line Location: PURGE+4

Used in RPC

RPC Name Call Tags
XUS MVI ENRICH NEW PERSON UPDATE
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC