LRERT ;DALOI/JDB - STS TEAM UTILITIES ;06/10/09 14:44
Source file <LRERT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLDERTX(LRFILE,LRFIEN,LRDELIM,LRERT,LRTYPE,LRFLAGS) | ;
; Constructs a string or array used for the ERT data extract ; FileMan safe ; Called by NOTIFY^LRSCTX1 ; Inputs ; LRFILE: File # ; LRFIEN: Entry's IEN ; LRDELIM: Delimiter to use <dflt=|> ; LRERT:<byref> See Outputs ; LRTYPE: Return the string or the array elements ; : 1=String 2=Array <dflt=2> ; : Return data can be big so need to limit in order ; : to watch symbol table use. ; LRFLAGS: Controls behavior of the API ; : S=Populate SCT text with text from Lexicon ; Outputs ; The ERT extract string. ; The ERT array: ERT(1)=id ERT(2)=Entry name, etc.. ; ERT extract format (from ^LRSRVR6) ; Station #-File #-IEN|Entry Name|SNOMED I|VUID|SNOMED CT|SNOMED CT TERM|Mapping Exception|Related Specimen|Related Specimen ID|Extract Ver|Term Status| |
|
| TNUM(FILE,IEN,NOW,EXCTYP) | ;
; Construct transaction number ; Inputs ; FILE: File # ; IEN: IEN of entry ; NOW: Date/Time of process <dflt=Now> ; EXCTYP: ERT Exception Type (1=load, 2=ref lab, 3=local edit) ; Returns Transaction number string |
|
| LOGIT(TEXT,IN,TMPNM) | ;
; FileMan safe ; Adds data to the ^XTMP gobal. ; Inputs ; TEXT:<byref> Save symtbl space (dont manipulate) ; IN: <byref> ; IN("TNUM") - Transaction Number <req> ; IN("TDT") - Transaction date/time <opt> ; IN("FILE") targ file <req> ; IN("FIEN") ;targ file IEN <req> ; IN("SCT") ;SCT code <opt> ; IN("R6247") ;#62.49 IEN <opt> ; IN("STSEXC") ;STS exception type <req> ; IN("HDIERR") ;STS error flag <opt> 0 or 1 ; IN("PREV","SCT") ; IN("PREV","TEXT") ; TMPNM:<opt> XTMP subscript <dflt=LRSCTX-STS> ; Outputs ; Record # or "0^err #^err msg" |
|
| OK2LOG(TEXT,IN,TMPNM) | ;
; FileMan safe ; Checks if this change needs to be logged. ; Inputs ; TEXT:<byref> Not manipulated (minimize symtbl use) ; IN:<byref> ; IN("FILE") <req> ; IN("SCT") <opt> ; IN("PREV","SCT") <opt> ; Outputs ; 1=OK to log or 0 with error code^error msg ; If "0^2^SCT changed" then this should still generate an alert |
