LRRPLUA ;DALOI/JMC - Lab Report Performing Lab Utility ;10/28/11 16:33
Source file <LRRPLUA.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 |
---|---|---|
SETPL(LRREF,LR4) | ; Set performing lab reference into workbench
; Call with LRREF = performing lab reference ; LR4 = performing lab IEN in file #4 |
|
ROLLUPPL(LRDFN,LRSS,LRIDT) | ; Roll up performing labs and store in file #63
; Call with LRDFN = File #63 internal entry number ; LRSS = File #63 subscript ; LRIDT = inverse date/time of entry in file #63 |
|
MERGE | ; Check and merge entries where appropriate.
|
|
CHCHK | ; Find "on file" performing lab for a "CH" test result.
|
|
MIAPCHK | ; Find performing lab for a MI or AP subscript reference
|
|
CHKNODE | ; Check if "on file" node or parent exists and delete "incoming" if it matches "on file" lab
|
|
TEST | ; Entry point to test/debug
|
|
TEST2 | ; Entry point test printing performing lab for an accession
|
|
NOASK | ; Set reference to performing lab in file #63 If ASK PERFORMING LAB =NO
; Update if already set otherwise create a new record. |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LR - [#63] | ROLLUPPL+15, ROLLUPPL+17, MERGE+14, MERGE+15, MERGE+16, CHKNODE+3, CHKNODE+4, NOASK+13 |
^LRO(68 - [#68] | TEST+8, TEST+9, TEST2+8, TEST2+9 |
^TMP("LRPL" | SETPL+4*, SETPL+5*, ROLLUPPL+13, ROLLUPPL+14, ROLLUPPL+19!, MERGE+8, MERGE+9, MERGE+23!, MERGE+25*, MERGE+30! , MERGE+32*, MERGE+36, MERGE+37, CHKNODE+5!, CHKNODE+9, CHKNODE+10! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DUZ(2 | NOASK+7 |
I | MERGE+2~, MIAPCHK+10* |
LR4 | SETPL~, SETPL+4, SETPL+5 |
LRAA | TEST+2~, TEST+4, TEST+7, TEST+8, TEST+9, TEST2+2~, TEST2+4, TEST2+7, TEST2+8, TEST2+9 |
LRACC | TEST+2~, TEST+3*, TEST2+2~, TEST2+3* |
LRAD | TEST+2~, TEST+8, TEST+9, TEST2+2~, TEST2+8, TEST2+9 |
LRAN | TEST+2~, TEST+8, TEST+9, TEST2+2~, TEST2+8, TEST2+9 |
LRDFN | ROLLUPPL~, ROLLUPPL+15, ROLLUPPL+16, ROLLUPPL+17, MERGE+14, MERGE+15, MERGE+16, MERGE+24, MERGE+31, CHKNODE+3 , CHKNODE+4, TEST+2~, TEST+8*, TEST+12, TEST2+2~, TEST2+8*, TEST2+13, NOASK+9, NOASK+13, NOASK+14 , NOASK+17 |
LRDPL | NOASK+3~, NOASK+6*, NOASK+7*, NOASK+8 |
LRFLAG | NOASK+3~, NOASK+4*, NOASK+5* |
LRI | CHKNODE+2~, CHKNODE+3*, CHKNODE+4 |
LRIDT | ROLLUPPL~, MERGE+14, MERGE+24, MERGE+31, TEST+2~, TEST+9*, TEST+10*, TEST+12, TEST2+2~, TEST2+9* , TEST2+10*, TEST2+13, NOASK+9 |
LRJ | MERGE+2~, MIAPCHK+5*, MIAPCHK+6 |
LRK | MERGE+2~, MIAPCHK+6*, MIAPCHK+7, MIAPCHK+8 |
LRONELAB | MERGE+2~ |
LRONELAB("INCOMING" | MERGE+5*, MERGE+9*, MERGE+22, MERGE+25, MERGE+29, MERGE+32 |
LRONELAB("ON | FILE" , MERGE+4*, MERGE+18*, MERGE+22, MERGE+29 |
LRPL | TEST2+2~, TEST2+12!, TEST2+13, TEST2+14!, TEST2+16 |
LRPL( | TEST2+15* |
LRPL(0 | TEST2+14 |
LRPL(1 | TEST2+14* |
LRPLAB | ROLLUPPL+5~, ROLLUPPL+14*, ROLLUPPL+16, ROLLUPPL+17, MERGE+37*, CHKNODE+5, CHKNODE+10, NOASK+3~, NOASK+8*, NOASK+14 , NOASK+17 |
LRREF | SETPL~, SETPL+4, SETPL+5, ROLLUPPL+5~, ROLLUPPL+12*, ROLLUPPL+13*, ROLLUPPL+14, ROLLUPPL+15, ROLLUPPL+16, ROLLUPPL+17 , MERGE+2~, MERGE+24*, MERGE+25, MERGE+31*, MERGE+32, MERGE+35*, MERGE+36*, MERGE+37, CHCHK+2, MIAPCHK+2 , MIAPCHK+3, CHKNODE+5, CHKNODE+8, CHKNODE+10, NOASK+3~, NOASK+9*, NOASK+13, NOASK+14, NOASK+17 |
LRSECT | NOASK+3~, NOASK+4*, NOASK+9 |
LRSS | ROLLUPPL~, MERGE+14, MERGE+24, MERGE+31, MERGE+38, MERGE+39, MIAPCHK+10, TEST+2~, TEST+8*, TEST+9 , TEST+11, TEST+12, TEST2+2~, TEST2+8*, TEST2+9, TEST2+11, TEST2+13, NOASK+5, NOASK+9 |
LRX | ROLLUPPL+5~, ROLLUPPL+15*, ROLLUPPL+16, ROLLUPPL+17, MERGE+2~, MERGE+8*, MERGE+9, MERGE+13*, MERGE+14*, MERGE+15 , MERGE+16, MIAPCHK+10 |
LRY | MERGE+2~, MERGE+13*, MERGE+14, MERGE+15*, MERGE+16*, MERGE+18, MIAPCHK+2, MIAPCHK+3, MIAPCHK+6, MIAPCHK+7 , MIAPCHK+10, CHKNODE+3*, CHKNODE+4*, CHKNODE+5, CHKNODE+9*, CHKNODE+10 |
LRZ | MERGE+2~, CHCHK+2*, MIAPCHK+2*, MIAPCHK+3*, MIAPCHK+5, MIAPCHK+7*, MIAPCHK+8*, MIAPCHK+10*, CHKNODE+3, CHKNODE+8 , CHKNODE+9 |