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 |