©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
XTLKKWL ; IHS/OHPRD/ACC,ALB/JLU,SFISC/JC - LOOKUP DRIVER PROGRAM FOR "AND"ING INVERTED SEARCH ;07/22/93 15:46 [ 04/02/2003 8:47 AM ]
Source file <XTLKKWL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKSHRT | ||
| VERIFY | ;
|
|
| INIT | ;I XTLKGBL'["^",XTLKGBL'?1N.N,XTLKGBL'?1N.N1"."1N.N S XTLKGBL=$O(^DIC("B",XTLKGBL,"")) ;IHS/ANMC/FDB-9/5/96-ORIGINAL LINE-COMMENTED OUT
|
|
| NOTSHRT | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | INIT+7 |
| ^DIC("B" | INIT+5 |
| ^TMP("XTLKHITS" | CHKSHRT+4!* |
| ^XT(8984.2 - [#8984.2] | CHKSHRT |
| Name | Line Occurrences |
|---|---|
| NOTSHRT | CHKSHRT, CHKSHRT+1, CHKSHRT+3 |
| VERIFY | CHKSHRT+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CHKSHRT |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DIC("S" | CHKSHRT+2 |
| >> DIC(0 | XTLKKWL+9 |
| U | CHKSHRT |
| >> XTLKASK | XTLKKWL+9* |
| >> XTLKGBL | XTLKKWL+8*, INIT+2*, INIT+5*, INIT+7*, INIT+8, INIT+9, INIT+11 |
| >> XTLKI | CHKSHRT* |
| >> XTLKKSCH("GBL" | XTLKKWL+8 |
| >> XTLKKSCH("INDEX" | INIT+8 |
| >> XTLKL | XTLKKWL+8*, CHKSHRT* |
| >> XTLKREF | INIT+8*, INIT+10, INIT+12 |
| >> XTLKREF1 | INIT+9*, CHKSHRT, CHKSHRT+2 |
| >> XTLKREF2 | INIT+10* |
| >> XTLKREF3 | INIT+11* |
| >> XTLKREF4 | INIT+12* |
| >> XTLKSAY | XTLKKWL+10* |
| >> XTLKX | XTLKKWL+6, XTLKKWL+8 |
| >> XTLKXSAV | XTLKKWL+6* |
| Y | XTLKKWL+7!, CHKSHRT*, CHKSHRT+1, CHKSHRT+2*, CHKSHRT+3, CHKSHRT+4 |