LRUCSR ;DALOI/JMC - Code System Reference Utility ;11/24/09 15:21
Source file <LRUCSR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETREF(LRDFN,LRREF,LRDATA,LRACTION) | ; Set reference to code system in file #63
; Call with LRDFN = File #63 IEN ; LRREF = value of #.01 field in format LRDFN,LRSS,LRIDT,0 or other ending reference ; e.g. "123,SP,6919594.8946,0" ; e.g. "123,SP,6919594.8946,1;5" - 5th piece of 1 node ; if reference to other file then use format LRDFN,file #,other ending reference. ; e.g. "123,69,LRODT,LRSN,0" ; e.g. "123,68,LRAA,LRAD,LRAN,0" ; LRDATA = array with data to store i.e LRDATA(field #)=value ; LRACTION = 1-update if exists otherwise add ; 2-always add |
|
| UEE | ; Update existing entry
|
|
| CNE | ; Create new entry
|
|
| DEE(LRIENS) | ; Delete existing entry
; Call with LRIENS = File #63 code system reference IENS |
|
| GETDATA(LRDATA,LRIENS) | ; Retrieve information for a specific entry
; Call with LRDATA = array to return data, pass by reference ; LRRIENS = File #63 code system reference IENS |
|
| GETALL(LRDATA,LRDFN,LRREF,LRROLE) | ; Retrieve information for all entries related to a specific reference/role
; Call with LRDATA = array to return data, pass by reference ; LRDFN = File #63 IEN ; LRREF = value of #.01 field in format LRDFN,LRSS,LRIDT,0 or other ending reference ; e.g. "123,SP,6919594.8946,0" ; if reference to other file then use format LRDFN,file #,other ending reference. ; e.g. "123,69,LRODT,LRSN,0" ; e.g. "123,68,LRAA,LRAD,LRAN,0" ; LRROLE = code system role |
