©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
DDSLIB ;SFISC/MKO-LIBRARY FUNCTIONS ;01:37 PM 6 Sep 1994
Source file <DDSLIB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QT(X) | ;Return X quoted
|
|
| UQT(X) | ;Return quoted string X unquoted
|
|
| GETFLD(FD,BK,PG,DDS,DDSPG,DDSBK,DDSFLG) | ;Return "DDO,bk#,pg#"
|
|
| AFTQ(E,I) | ;Return character position after quoted string
|
|
| PIECE(E,C,N1,N2) | ;Return the N1th to N2th C-piece of E
|
|
| FIELD(DDP,FLD) | ;Get field number
|
|
| FIND(E,C,S) | ;Find in expression E, starting from pos S, the char pos
|
|
| BK | ;Get internal block number
|
|
| RPAR(E,S) | ;Find in expression E, from char pos S (the position
|
|
| FD | ;Get internal field number
|
|
| PG | ;Get internal page number
|
|
| UPCASE(X) | ;
|
| Name | Field # of Occurrence |
|---|---|
| BLD^DIALOG | FIELD+2, FIELD+7, FIELD+9, PG+1, PG+7, PG+11, BK+4, BK+8, BK+15, BK+19 , FD+1, FD+14, FD+16 |
| Name | Line Occurrences |
|---|---|
| $$AFTQ | FIND+8, FIELD+3 |
| $$FIND | PIECE+6, PIECE+8, RPAR+6 |
| $$UPCASE | PG+5, FD+7 |
| $$UQT | FIELD+3, GETFLD+7, GETFLD+8, GETFLD+9 |
| @( | GETFLD+11 |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | BK+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| B | GETFLD+5~, GETFLD+10*, GETFLD+12, BK+3*, BK+5*, BK+7*, BK+8, BK+9*, BK+11, BK+18 , BK+19, FD+1, FD+3, FD+7, FD+8, FD+10, FD+13, FD+16 |
| BK | GETFLD~, GETFLD+6, GETFLD+8*, GETFLD+11, PG+9, PG+10*, PG+11, BK+1, BK+3, BK+5 , BK+7, BK+8, BK+13 |
| C | FIND~, FIND+6, PIECE~, PIECE+6, PIECE+8 |
| DDP | FIELD~, FIELD+4, FIELD+6, FIELD+9 |
| DDS | GETFLD~, PG+1, PG+3, PG+5, PG+7, PG+10, BK+3, BK+9, BK+11, BK+14 |
| DDSBK | GETFLD~, GETFLD+10 |
| DDSFLG | GETFLD~, FD+16 |
| DDSPG | GETFLD~, GETFLD+10 |
| >> DIERR | FIELD+5, GETFLD+11, PG+9, BK+2, BK+6, BK+17, FD+5, FD+16 |
| E | FIND~, FIND+6, FIND+8, PIECE~, PIECE+6, PIECE+7, PIECE+8, PIECE+9, PIECE+10, RPAR~ , RPAR+6, AFTQ~, AFTQ+3, AFTQ+4 |
| F | PIECE+3~, PIECE+8*, PIECE+9, PIECE+10, FIELD+1~, FIELD+4*, FIELD+6*, FIELD+7, FIELD+9, FIELD+10 , GETFLD+5~, GETFLD+12, FD+3*, FD+4*, FD+8*, FD+10, FD+16 |
| FD | GETFLD~, GETFLD+6, GETFLD+7*, BK+17, BK+18*, BK+19, FD+2, FD+3, FD+4, FD+7* , FD+8, FD+12 |
| FLD | FIELD~, FIELD+2, FIELD+3*, FIELD+4, FIELD+5, FIELD+6, FIELD+7 |
| I | FIND+3~, FIND+6*, FIND+7, FIND+8, FIND+9, PIECE+3~, PIECE+6*, PIECE+8*, RPAR+3~, RPAR+4* , RPAR+6, RPAR+7*, RPAR+8*, RPAR+9, AFTQ~, AFTQ+2*, AFTQ+3*, AFTQ+4*, AFTQ+5 |
| J | FIND+3~, FIND+6*, FIND+8, PIECE+3~ |
| L | RPAR+3~, RPAR+6*, RPAR+7 |
| N | GETFLD+5~, PG+2*, PG+3, PG+4*, PG+7, PG+11, BK+1*, BK+2, BK+5*, BK+13 , FD+2*, FD+3, FD+4*, FD+12 |
| N1 | PIECE~, PIECE+4*, PIECE+5, PIECE+6, PIECE+7, PIECE+8 |
| N2 | PIECE~, PIECE+5*, PIECE+8 |
| P | FIND+3~, FIND+5, FIND+7*, FIND+9*, FIND+10, RPAR+3~, RPAR+4*, RPAR+5, RPAR+7*, RPAR+8* , FIELD+1~, FIELD+7, FIELD+9, GETFLD+5~, GETFLD+10*, GETFLD+12, PG+3*, PG+4*, PG+5*, PG+7 , PG+10, BK+3, BK+9, BK+11, BK+14, FD+11~, FD+14 |
| P("FILE" | FIELD+4* |
| P(1 | FIELD+7*, FIELD+9*, FD+12* |
| P(2 | FD+13* |
| P1 | BK+12~, BK+15 |
| P1(1 | BK+13* |
| P1(2 | BK+14* |
| PG | GETFLD~, GETFLD+6, GETFLD+9*, GETFLD+11, PG+2, PG+3, PG+4, PG+5, PG+7, PG+11 |
| R | RPAR+3~, RPAR+6*, RPAR+7, RPAR+8 |
| S | FIND~, FIND+4*, FIND+6, FIND+8*, PIECE+3~, PIECE+6*, PIECE+7, PIECE+8, PIECE+9, PIECE+10 , RPAR~, RPAR+4 |
| U | BK+14, BK+19, FD+13, FD+16 |
| X | QT~, QT+1, QT+2*, QT+3, UQT~, UQT+1, UQT+2, FD+6~, FD+7*, FD+8 , UPCASE~, UPCASE+2 |
| X( | QT+2* |
| X("" | QT+2, UQT+3 |