LRUCSR ;DALOI/JMC - Code System Reference Utility ;11/24/09 15:21
Source file <LRUCSR.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LR - [#63] | SETREF+31, UEE+6, GETALL+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| LRACTION | SETREF~, SETREF+24*, SETREF+25*, SETREF+31 |
| LRCODEID | SETREF+12~, SETREF+27*, SETREF+28, UEE+6 |
| LRCODESYSTEM | SETREF+12~, SETREF+21*, SETREF+22, SETREF+31, UEE+6 |
| LRDATA | SETREF~, GETDATA~, GETALL~ |
| LRDATA( | SETREF+17, SETREF+21, SETREF+27, UEE+8, UEE+10, UEE+11, UEE+12, UEE+13, UEE+14, UEE+15 , CNE+6, CNE+7, CNE+8, CNE+9, CNE+10, CNE+11, CNE+12 |
| LRDFN | SETREF~, SETREF+31, UEE+6, UEE+8, UEE+10, UEE+11, UEE+12, UEE+13, UEE+14, UEE+15 , CNE+6, CNE+7, CNE+8, CNE+9, CNE+10, CNE+11, CNE+12, GETALL~, GETALL+15, GETALL+16 |
| LRDIE | UEE+2~, CNE+2~, DEE+3~ |
| LRFDA | UEE+2~, CNE+2~, DEE+3~ |
| LRFDA(1 | UEE+8*, UEE+10*, UEE+11*, UEE+12*, UEE+13*, UEE+14*, UEE+15*, CNE+6*, CNE+7*, CNE+8* , CNE+9*, CNE+10*, CNE+11*, CNE+12*, DEE+5* |
| LRIEN | UEE+2~, UEE+6*, UEE+8, UEE+10, UEE+11, UEE+12, UEE+13, UEE+14, UEE+15, CNE+2~ , GETALL+12~, GETALL+14*, GETALL+15*, GETALL+16 |
| LRIENS | DEE~, DEE+5, GETDATA~, GETDATA+6, GETALL+12~, GETALL+16*, GETALL+17 |
| LRREF | SETREF~, SETREF+14, SETREF+31, UEE+6, UEE+8, GETALL~, GETALL+15 |
| LRROLE | SETREF+12~, SETREF+17*, SETREF+18, SETREF+31, UEE+6, GETALL~, GETALL+15 |
