LRLNCTOP ;DALOI/RH-LEDI HL7 CODES ;11-OCT-1998
Source file <LRLNCTOP.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 |
---|---|---|
EN | ;
|
|
WHICH | ;
|
|
QUE | ;
|
|
START | ;BEGINS PRINTING THE REPORT
|
|
ALPHA | ;PRINTS THE ALPHABETIC LISTING OF SPECIMEN THAT HAVE A LEDI HL7 CODE IN THE TOPOGRAPHY FILE
|
|
EN2 | ;PRINTS THE SPECIMEN THAT DO NOT HAVE A LEDI HL7 CODE
|
|
INI | ;INITIALIZE VARIABLES
|
|
HDR | ;PRINT HEADING
|
|
HDR1 | ;PRINT HEADING FOR SPECIMENS WITH A LEDI HL7 CODE
|
|
HDR2 | ;PRINT HEADING FOR TESTS WITHOUT A LEDI HL7 CODE
|
|
EXIT | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^LAB(64.061 - [#64.061] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LAB(60 - [#60] | EN2+6, EN2+7 |
^LAB(61 - [#61] | ALPHA+6, ALPHA+8, EN2+8 |
^LAB(64.061 - [#64.061] | ALPHA+10, ALPHA+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | WHICH+7!* |
DIR | WHICH+3!, WHICH+4!, EXIT+3! |
DIR("?" | WHICH+3* |
DIR(0 | WHICH+4* |
DIRUT | WHICH+6, EXIT+3! |
DTIME | HDR+1 |
DUOUT | EXIT+3! |
IO | WHICH+9 |
IO("Q" | WHICH+8, QUE+5! |
IOF | EN+1, INI+1, HDR1+1, HDR2+1 |
IOM | EN+2, EN+3, EN+4, HDR1+2, HDR1+4, HDR1+5, HDR2+2, HDR2+4 |
ION | QUE+4 |
IOSL | ALPHA+7, EN2+10 |
IOST | INI+1, HDR+1 |
LRANS | WHICH+5*, START+1, START+2, EXIT+2! |
LRDT | HDR+3*, HDR1+2, HDR2+2, EXIT+2! |
LREND | ALPHA+3, ALPHA+4, ALPHA+7, EN2+3, EN2+4, EN2+7, EN2+10, INI+1*, HDR+1*, EXIT+2! |
LRI | EN2+5*, EN2+6, EN2+7, EXIT+2! |
LRIEN | ALPHA+5*, ALPHA+6, ALPHA+8, ALPHA+9, ALPHA+10*, ALPHA+11, EN2+7*, EN2+8, EXIT+2! |
LRN | HDR+1*, EXIT+4! |
>> LRNODE | EN2+2*, EN2+3*, EN2+4, EN2+5 |
LRPAGE | INI+1*, HDR+1, HDR+2*, HDR1+2, HDR2+2, EXIT+2! |
LRTEST | EN2+12, EN2+14*, INI+1*, EXIT+2! |
>> LRTOP | ALPHA+2*, ALPHA+3*, ALPHA+4, ALPHA+5 |
LRX | EN2+6*, EN2+12, EN2+14, EXIT+2! |
LRY | ALPHA+6*, ALPHA+9, ALPHA+10, ALPHA+11, EN2+8*, EN2+9, EN2+13, EXIT+2! |
POP | WHICH+7, EXIT+4! |
U | ALPHA+8, ALPHA+9, ALPHA+10, ALPHA+11, EN2+6, EN2+8, EN2+9, EN2+12, EN2+13, EN2+14 |
Y | WHICH+5, EXIT+4! |
ZTDESC | QUE+1*, EXIT+3! |
ZTIO | EXIT+3! |
ZTQUEUED | EXIT+1, EXIT+4! |
ZTREQ | EXIT+1*, EXIT+4! |
ZTRTN | QUE+1*, EXIT+3! |
ZTSAVE | EXIT+3! |
ZTSAVE("LRANS" | QUE+2* |
ZTSK | QUE+4, EXIT+4! |