LAXSYM ;MLD/ABBOTT/SLC/RAF - TEMPLATE ROUTINE FOR AUTOMATED DATA ;6/13/96 0900 ;
Source file <LAXSYM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LAPX | ; orig routine name, copied to LAXSYM (for Abbott AxSYM) 5/3/94 /mld
|
|
| LA1 | ; Init vars/arrays
|
|
| LA2 | ; Begin here to parse out data
|
|
| LA3 | ; Now process the packet
|
|
| H | ; Header node TYPE: P=pt, Q=qc
|
|
| P | ; Patient node
|
|
| O | ; Order node.
|
|
| R | ; Results node
|
|
| L | ; Packet termination node
|
|
| C | ; Comments node. type = G if result comment, = I if Exception string
|
|
| Q | ; Set-up Query node
|
|
| M | ; Manufacturer node
|
|
| S | ; Scientific (not used)
|
|
| ACCN() | ; Chk file 68 for Accn'd test (file 60)
|
|
| NUM | ;- not used here - IN+3,4 replaces this (slower) code /mld
|
|
| IN | ||
| QUIT | ||
| TRAP | ; Process errors
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TRAP" | Q+8 |
| ^LA( | R+10*, IN, IN+1*, QUIT, QUIT+1!, QUIT+3, TRAP+2* |
| ^LA("LOCK" | QUIT+1! |
| ^LAB(60 - [#60] | ACCN+4 |
| ^LAB(62.4 - [#62.4] | LA1+1 |
| ^LAH( | LA3+3* |
| ^LRO(68 - [#68] | ACCN+2, ACCN+3 |
| ^TMP("LA" | QUIT+1! |
| ^TMP($J | QUIT+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | LAPX+2~, LA2+2*, LA2+10* |
| ALPHA | LAPX+4~, O+4 |
| AN | O+1~, O+2*, O+4*, O+6, O+11, ACCN+2, ACCN+3 |
| BAD | LAPX+2~, Q+1~, Q+2*, Q+6* |
| CNT | LAPX+3~, LA2+6, IN*, IN+1 |
| CUP | LAPX+2~, LA2+2* |
| D | LAPX+3~, LA2+2*, H+1, P+1, O+2, O+5, O+9, O+10, R+3, R+5 , R+9, C+1, Q+3, IN+4 |
| DATE | LAPX+3~ |
| DEC | R+2~, R+14*, R+15 |
| DFN | LAPX+3~, P+1* |
| FLAG | R+2~, R+3* |
| FR | LAPX+2~, IN+4* |
| HCNT | LAPX+3~, LA2+6*, TRAP+2 |
| HTYPE | LAPX+3~, H+1* |
| I | LAPX+2~, LA3+3*, ACCN+1~*, ACCN+2*, ACCN+3*, ACCN+4*, ACCN+5 |
| ID | LAPX+2~, LA2+2*, LA3+1, O+11*, R+1 |
| IDE | LAPX+2~, LA2+2*, O+11* |
| IN | LAPX+3~, LA2+4, H+1, P+1, O+2, O+5, O+9, O+10, R+3, R+5 , R+9, R+10, C+1, Q+3, Q+6*, IN+1*, IN+4* |
| INST | R+10, Q+1~, Q+2* |
| ISQN | LAPX+5~, LA3+2, LA3+3 |
| J | ACCN+1~*, ACCN+3*, ACCN+4 |
| >> JJ | NUM+1* |
| L | O+1~, O+2*, O+4 |
| LADT | LAPX+5~, Q+2, ACCN+2, ACCN+3 |
| LAGEN | LAPX+3~, LA3+2 |
| LALCT | LAPX+4~ |
| LANM | LAPX+2~, LA1+1*, Q+8 |
| LANOCTL1 | LAPX+2~, IN+4 |
| LATEST | LAPX+3~ |
| LATEST( | R+7, R+14, R+16, R+17, ACCN+2, ACCN+4 |
| LATOP | LA1+2! |
| LAZZ | LAPX+4~ |
| LINK | LAPX+4~ |
| LOG | LAPX+4~ |
| LRAA | Q+1~, Q+2* |
| LRAD | Q+1~, Q+2* |
| LRAN | Q+1~, Q+3* |
| LRDFN | LAPX+4~ |
| LRDT | Q+1~, Q+2* |
| LRFRM | Q+1~, Q+2* |
| LRNAME | Q+1~, Q+2*, Q+6 |
| LROVER | LAPX+4~ |
| LWL | LAPX+4~, LA3+3 |
| METH | LAPX+4~ |
| N | ACCN+1~*, ACCN+3, ACCN+4* |
| NOW | LAPX+4~ |
| OUT | LAPX+3~ |
| PTYPE | O+1~, O+9* |
| RESCOM | LAPX+3~, C+1* |
| RESTYPE | LAPX+3~, C+1* |
| RMK | LAPX+3~, LA2+2*, LA3+4, C+1* |
| SPECID | O+1~, O+2* |
| SSN | Q+1~ |
| >> T | TRAP+1* |
| TC | LAPX+2~ |
| TC( | R+14, R+16, R+17 |
| TNUM | O+1~, O+5*, O+6, R+2~, R+6*, R+7, R+14, R+16, R+17, ACCN+2 , ACCN+4 |
| TOUT | LAPX+2~, LA2+2*, LA2+4, LA2+10, IN*, IN+1* |
| TP | LAPX+2~ |
| TRAY | LAPX+2~, LA2+2* |
| TRES | R+2~, R+9*, R+10, R+11 |
| TSK | LAPX+2~, LAPX+4~, LA1+1*, LA1+2, Q+2, IN, IN+1, QUIT, QUIT+1, QUIT+3 , TRAP+1, TRAP+2 |
| TST | R+2~, R+5*, R+6, R+9 |
| TST60 | LAPX+4~, LA2+2*, O+7*, O+8, R+7, R+14, R+16, R+17 |
| TV | LAPX+2~, LA2+1! |
| TV( | LA3+3 |
| U | P+1, O+2, O+5, R+6, R+9, Q+3 |
| V | R+2~, R+9*, R+12, R+15*, R+17, NUM+1, NUM+2* |
| V1 | LAPX+2~, LA2+4, LA2+5, LA2+6, LA2+7, LA2+10, IN+4* |
| WL | LAPX+4~, Q+2, ACCN+2, ACCN+3 |
| X | LAPX+2~, O+1~, Q+8*, NUM+1*, NUM+2 |
| Y | LAPX+2~, LA2+1! |
| ZTSK | QUIT+2! |
| Name | Field # of Occurrence |
|---|---|
| $T( | LA1+1 |
