LRUEPR ;DALOI/JMC - External Package Reference Utility ;10/18/10 16:43
Source file <LRUEPR.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | (FILE,UPDATE)^DIE GETS^DIQ |
| Lab Service | 1 | SETREF^LRUEPR |
| 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 external package 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" ; 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 ; 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 LRRIENS = File #63 external package reference IENS |
|
| GETDATA(LRDATA,LRIENS) | ; Retrieve information for a specific entry
; Call with LRDATA = array to return data, pass by reference ; LRRIENS = File #63 external package reference IENS |
|
| SRCASE(LRDATA,LRSRTN) | ; Retrieve related surgeon/attending for a surgical case
; Call with LRDATA = array to return data, pass by reference ; LRSTRN = ien of case in SURGERY file #130 |
|
| SRCASERR(LRREF,LRCDATA,LRERRMSG) | ; Log/update surgical case ref when error occurs on retrieval.
; Call with LRREF = value of #.01 field in format LRDFN,LRSS,LRIDT,0 or other ending reference ; e.g. "123,SP,6919594.8946,0" |
| FileNo | Call Tags |
|---|---|
| ^SRF - [#130] | GETS^DIQ |
| 63.00013 | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LR - [#63] | SETREF+22, UEE+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| LRACTION | SETREF~, SETREF+18*, SETREF+19*, SETREF+22 |
| LRCDATA | SRCASERR~, SRCASERR+10, SRCASERR+14 |
| LRDATA | SETREF~, GETDATA~, SRCASE~, SRCASERR+7~, SRCASERR+15 |
| LRDATA( | SETREF+15, UEE+7, UEE+8, UEE+9, CNE+6, CNE+7, CNE+8, SRCASERR+12*, SRCASERR+13* |
| LRDATA("ERR" | SRCASE+8*, SRCASE+9* |
| LRDATA(1 | UEE+10, CNE+9, SRCASERR+14* |
| LRDFN | SETREF~, SETREF+22, UEE+6, UEE+7, UEE+8, UEE+9, UEE+10, CNE+6, CNE+7, CNE+8 , CNE+9 |
| LRDIE | UEE+2~, CNE+2~, DEE+3~ |
| LRERR | SRCASE+4~, SRCASE+7 |
| LRERR("DIERR" | SRCASE+8, SRCASE+9 |
| LRERRMSG | SRCASERR~, SRCASERR+10, SRCASERR+14 |
| LRFDA | UEE+2~, CNE+2~, DEE+3~ |
| LRFDA(1 | UEE+7*, UEE+8*, UEE+9*, UEE+10*, CNE+6*, CNE+7*, CNE+8*, CNE+9*, DEE+4* |
| LRIEN | UEE+2~, UEE+6*, UEE+7, UEE+8, UEE+9, UEE+10, CNE+2~ |
| LRIENS | DEE~, DEE+4, GETDATA~, GETDATA+4 |
| LRREF | SETREF~, SETREF+13, SETREF+22, UEE+6, UEE+7, SRCASERR~, SRCASERR+12, SRCASERR+15 |
| LRSRTN | SRCASE~, SRCASE+5, SRCASE+8 |
| LRTYPE | SETREF+11~, SETREF+15*, SETREF+16, SETREF+22, UEE+6 |