©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
LRCAPR1 ;DALOI/PAC/FHS/JBM - WKLD REP GENERATOR-MAIN ;10/15/92 11:15
Source file <LRCAPR1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ||
| LOC | ;
|
|
| C | ||
| B | ||
| I | ||
| EXIT | ;
|
|
| LRINST | ;
|
|
| L | ;
|
|
| ASK | ;
|
|
| TRIAL | ; entry point for work load lookup
|
|
| S | ||
| EN | ;
|
|
| INST | ||
| GO | ;
|
|
| QUE | ;
|
|
| LEDIDIV | ;Select LEDI Institution sites
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | INST+15 |
| ^%ZISC | QUE+7 |
| ^%ZTLOAD | QUE+7 |
| ^DIC | LRINST+10, INST+6 |
| WAIT^DICD | INST+16 |
| YN^DICN | TRIAL+5, A+1 |
| ^DIR | LRINST+7, TRIAL+8, LOC+3, INST+4, INST+14, ASK+7 |
| ACCN^LRCAPR1A | TRIAL+2 |
| CAP^LRCAPR1A | A+4 |
| COLL^LRCAPR1A | C |
| CONTROL^LRCAPR1A | INST+11 |
| DATE^LRCAPR1A | TRIAL+3 |
| INSTR^LRCAPR1A | I |
| IOPAT^LRCAPR1A | INST+10 |
| LOC^LRCAPR1A | LOC+4 |
| REPTYP^LRCAPR1A | INST+12 |
| SPEC^LRCAPR1A | B, S |
| STAT^LRCAPR1A | L+1 |
| TEST^LRCAPR1A | A+5 |
| ^LRCAPR2 | INST+17 |
| CLEAN^LRCAPR4 | EXIT+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | LRINST+2, LRINST+10 |
| ^TMP("LR" | EN+1! |
| ^XMB(1 - [#4.3] | LRINST+1 |
| Name | Line Occurrences |
|---|---|
| @( | TRIAL+8 |
| A | TRIAL+5, C |
| ASK | A+2 |
| EN | TRIAL+1 |
| EXIT | TRIAL+1, TRIAL+2, TRIAL+3, TRIAL+5, TRIAL+8, B, C, S, A+1, A+2 , A+4, A+5, I, L+1, LOC+1, INST, INST+10, INST+11, INST+12, INST+14 , INST+15 |
| I | A+2 |
| L | A+3, A+4 |
| LOC | INST+7 |
| LRINST | TRIAL+1 |
| QUE | INST+15 |
| TRIAL | GO+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | LRINST+10, INST+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | TRIAL+3*, TRIAL+5, A+1*, A+2, L+1 |
| %DT | EN+1! |
| >> %ZIS | INST+15* |
| DIC | EN+1!, LRINST+9*, A+2!, INST+1~, INST+5* |
| DIC("A" | LRINST+9*, INST+5*, INST+6* |
| DIC(0 | LRINST+9*, INST+5* |
| DIR | EN+2!, LRINST+3!, TRIAL+1!, A+2!, LOC+2~, INST+1~, INST+13!, INST+14! |
| DIR("?" | LRINST+5*, TRIAL+7*, ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6* |
| DIR("A" | LRINST+4*, LOC+2*, INST+3*, INST+13*, ASK+1* |
| DIR("B" | LRINST+6*, LOC+2*, INST+2* |
| DIR(0 | LRINST+3*, TRIAL+6*, LOC+2*, INST+3*, INST+13*, ASK+1* |
| >> DTOUT | LRINST+7, TRIAL+1, TRIAL+8, B, C, S, A+2, A+4, A+5, I , L+1, LOC+1, INST, INST+10, INST+14 |
| >> DUOUT | LRINST+7, TRIAL+1, TRIAL+8, B, C, S, A+2, A+4, A+5, I , L+1, LOC+1, INST, INST+10, INST+14 |
| >> I | INST+6* |
| IO | INST+17 |
| IO("Q" | INST+15! |
| ION | QUE+1 |
| >> LRANS | INST+14* |
| LRCAPS | EN+1!, EN+3*, QUE+4 |
| LRCOL | EN+1!, EN+3*, QUE+3 |
| LRCPSX | EN+1!, EN+3*, QUE+5 |
| LREDT | EXIT+2! |
| >> LREND | EN+3*, INST+11, INST+12, QUE+8*, EXIT+1* |
| >> LRIOPAT | EN+4* |
| LRLDIV | EN+1!, EN+3*, INST+4*, INST+6*, INST+7, INST+9*, QUE+6, EXIT+2! |
| LRLDIV( | INST+6* |
| LRLOC | EN+1!, EN+3*, LOC+3*, INST+2, INST+7, INST+9*, QUE+5 |
| LRSDT | EXIT+2! |
| >> LRSITE | LRINST+2*, QUE+2 |
| >> LRSITNUM | LRINST+1*, LRINST+2 |
| LRSITSEL | EN+2!, LRINST+3*, LRINST+10* |
| LRSITSEL( | LRINST+10* |
| LRSP | EN+1!, EN+3*, QUE+3 |
| >> LRTST | QUE+4 |
| LRTSTS | EN+1!, EN+3* |
| >> POP | INST+15 |
| U | LRINST+1, LRINST+2, LRINST+10, INST+6 |
| >> Y | LRINST+8, LRINST+10, TRIAL+2, TRIAL+3, TRIAL+8, A+3, A+4, LOC+3, INST+4, INST+6 , INST+14 |
| >> ZTDESC | QUE+1* |
| >> ZTIO | QUE+1* |
| >> ZTRTN | QUE+1* |
| >> ZTSAVE("LR*" | QUE+1* |
| >> ZTSAVE("LRCAPS*" | QUE+4* |
| >> ZTSAVE("LRCOL*" | QUE+3* |
| >> ZTSAVE("LRCPSX*" | QUE+5* |
| >> ZTSAVE("LRLDIV" | QUE+6* |
| >> ZTSAVE("LRLOC*" | QUE+5* |
| >> ZTSAVE("LRSITE*" | QUE+2* |
| >> ZTSAVE("LRSP*" | QUE+3* |
| >> ZTSAVE("LRTST*" | QUE+4* |