©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
LAIL508 ;SLC/RWF,BUF/DCN - IL 508 ROUTINE ;7/20/90 09:21 ;
Source file <LAIL508.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ||
| LIN | ||
| QC | ;QC TESTING HERE; S BAD=1 IF DONT STORE
|
|
| NUM | ||
| TRAP | ||
| IN | ||
| OUT | ||
| LA1 | ||
| LA2 | ||
| LA3 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TRAP" | LA1+2 |
| ^LA( | LA1+1, IN, IN+1*, OUT, QUIT! |
| ^LA("LOCK" | QUIT! |
| ^LA("Q" | OUT+1 |
| ^LAB(62.4 - [#62.4] | LA1 |
| ^LAH( | LA3+1* |
| ^UTILITY("LA" | QUIT! |
| ^UTILITY($J | QUIT! |
| Name | Line Occurrences |
|---|---|
| @( | TRAP |
| IN | LIN, IN |
| LA2 | LA3, LA3+2 |
| LA3 | LIN+2 |
| LIN | LIN+1, LIN+4 |
| NUM | LIN+1, LIN+3 |
| QUIT | LIN |
| Name | Field # of Occurrence |
|---|---|
| ^( | IN, IN+1 |
| ^("O" | OUT* |
| ^("Q" | OUT+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> A | LA2*, QC+1 |
| >> CNT | IN*, IN+1, OUT* |
| >> CUP | LIN+1* |
| >> I | LIN+3*, LA3+1* |
| >> ID | LIN+1* |
| >> IDE | LIN+1* |
| >> II | LIN+3* |
| >> IN | LIN+1, LIN+2, LIN+3, QC+1, IN+1* |
| >> ISQN | LA3, LA3+1 |
| >> JJ | NUM* |
| >> LAGEN | LA3 |
| >> LANM | LA1*, LA1+2, TRAP |
| LATOP | LA1+2! |
| >> LWL | LA3+1 |
| >> OUT | OUT |
| >> Q | OUT+1* |
| >> T | TRAP* |
| >> TC | LIN+1* |
| >> TC( | LIN+3 |
| >> TD | LIN+3* |
| >> TOUT | LA2*, LIN, IN*, IN+1* |
| >> TRAY | LIN+1* |
| >> TSK | LA1*, LA1+1, LA1+2, IN, IN+1, OUT, OUT+1, QUIT, TRAP |
| TV | LA2! |
| TV( | LA3+1 |
| >> V | LIN+1*, LIN+3*, NUM, NUM+1* |
| >> X | LA1+2*, NUM*, NUM+1 |
| Y | LA2! |
| Y( | QC+1* |
| ZTSK | QUIT! |
| Name | Field # of Occurrence |
|---|---|
| $T( | LA1 |