©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
DIKCP2 ;SFISC/MKO-PRINT INDEX(ES) ;9:39 AM 5 Aug 1998
Source file <DIKCP2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WRLN(TXT,TAB,PAGE,KWN) | ;Write a line of text
|
|
| ADDSTR(X,TXT) | ;Add string X to the TXT array
|
|
| LFILE | ;Format list of indexes and print; Come here from LFILE^DIKCP
|
|
| ADDXR(XR,TXT,FLAG) | ;Add field list and xref name to TXT array
|
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | ADDXR+20 |
| ^DD("IX" - [#.11] | LFILE+4, LFILE+6, LFILE+9, LFILE+10, ADDXR+2, ADDXR+16, ADDXR+17, ADDXR+18 |
| Name | Line Occurrences |
|---|---|
| ADDSTR | ADDXR+21, ADDXR+25 |
| ADDXR | LFILE+6, LFILE+14 |
| WRLN | LFILE+18, LFILE+19 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | LFILE+10, ADDXR+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CRV | ADDXR+1~, ADDXR+16*, ADDXR+17, ADDXR+18 |
| DTIME | WRLN+9 |
| FIL | LFILE+4, LFILE+6, LFILE+9, ADDXR+1~, ADDXR+18*, ADDXR+19, ADDXR+20 |
| FLAG | LFILE+6, LFILE+14, ADDXR~, ADDXR+3 |
| FLD | LFILE+4, LFILE+9, ADDXR+1~, ADDXR+18*, ADDXR+19, ADDXR+20 |
| FLDNAM | ADDXR+1~, ADDXR+20*, ADDXR+21 |
| FND | ADDXR+1~, ADDXR+21, ADDXR+22* |
| IOF | WRLN+10 |
| IOSL | WRLN+6 |
| IOST | WRLN+8 |
| KWN | WRLN~, WRLN+6 |
| >> LAB | LFILE+18, LFILE+19 |
| >> LM | LFILE+18, LFILE+19 |
| LN | LFILE+1~, LFILE+19* |
| NAM | LFILE+1~, LFILE+4*, LFILE+6, LFILE+10*, LFILE+11*, LFILE+12, LFILE+13*, LFILE+14, ADDXR+1~, ADDXR+6* , ADDXR+9, ADDXR+23 |
| NO | LFILE+1~, LFILE+11* |
| PAGE | LFILE+18, LFILE+19, WRLN~ |
| PAGE( | LFILE+18, LFILE+19, WRLN+3*, WRLN+6, WRLN+8, WRLN+9* |
| PAGE("B" | WRLN+6 |
| PAGE("H" | WRLN+6, WRLN+7, WRLN+10 |
| RTYP | ADDXR+1~, ADDXR+10*, ADDXR+11, ADDXR+12 |
| STR | ADDXR+1~, ADDXR+9*, ADDXR+12*, ADDXR+13*, ADDXR+23*, ADDXR+25 |
| TAB | WRLN~, WRLN+13 |
| TXT | LFILE+1~, LFILE+2*, LFILE+6, LFILE+14, LFILE+17, ADDXR~, ADDXR+5, ADDXR+21, ADDXR+25, ADDSTR~ , ADDSTR+1*, ADDSTR+2, WRLN~, WRLN+13 |
| TXT( | LFILE+19, ADDXR+5*, ADDSTR+1*, ADDSTR+2* |
| TXT(0 | LFILE+2*, LFILE+15, LFILE+18 |
| >> TYP | ADDXR+8 |
| U | LFILE+10, LFILE+18, LFILE+19, ADDXR+3, ADDXR+6, ADDXR+10, ADDXR+13, ADDXR+17, ADDXR+18, ADDXR+20 , WRLN+3, WRLN+6, WRLN+8, WRLN+9 |
| >> WID | LFILE+17 |
| X | ADDSTR~, ADDSTR+1, ADDSTR+2, WRLN+2~, WRLN+9* |
| XR | LFILE+1~, LFILE+5*, LFILE+6*, LFILE+8*, LFILE+9*, LFILE+10, LFILE+12, LFILE+14*, ADDXR~, ADDXR+2 , ADDXR+9, ADDXR+16, ADDXR+17, ADDXR+18 |
| XR0 | ADDXR+1~, ADDXR+2*, ADDXR+3, ADDXR+6, ADDXR+10, ADDXR+13 |
| XRL | LFILE+1~ |
| XRL( | LFILE+12*, LFILE+13, LFILE+14 |