LEXTOKN2 ;ISL/KER - Parse term into words - Special Case ;04/21/2014
Source file <LEXTOKN2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SW(X) | ; Special Case Word Swap
|
|
| SWAP(X,LEX1,LEX2) | ; Swap text LEX1 for LEX2 in X
; ; Input ; ; X Text string ; LEX1 Word to remove in string (replace) ; LEX2 Word to insert in string (with) ; ; Output ; ; X Text string without LEX1 ; |
|
| ORD | ; Arrange in Frequency Order
; ; Input ; ; ^TMP("LEXTKN",$J,#,WORD)="" ; ; Global array containing words parsed from text from ; API PTX^LEXTOKN ; ; "DIABETES MELLITUS KETOACIDOSIS" Parsed as: ; ; ^TMP("LEXTKN",$J,0)=3 ; ^TMP("LEXTKN",$J,1,"DIABETES")= ; ^TMP("LEXTKN",$J,2,"MELLITUS")= ; ^TMP("LEXTKN",$J,3,"KETOACIDOSIS")= ; ; Output ; ; ^TMP("LEXTKN",$J,#,WORD)=FREQ ; ; Global array containing words parsed from text arranged ; in order of the frequency of use, the least used word is ; first and the most frequently used word is last. |
|
| ST | ; Show ^TMP("LEXTKN")
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LEX(757.01 - [#757.01] | ORD+38 |
| ^TMP("LEXTKN" | ORD+36, ORD+37, ORD+39!, ORD+41* |
| Name | Line Occurrences |
|---|---|
| $$SWAP | SW+11, SW+13, SW+18, SW+20, SW+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| LEX1 | SWAP~, SWAP+12*, SWAP+13, SWAP+14, SWAP+15, SWAP+16, SWAP+17, SWAP+21, SWAP+24 |
| LEX2 | SWAP~, SWAP+13*, SWAP+14, SWAP+17, SWAP+21, SWAP+24 |
| LEXA | ORD+36~ |
| LEXA( | ORD+38*, ORD+39, ORD+40 |
| LEXC | SWAP+12~, SWAP+16~*, ORD+36~, ORD+41~* |
| LEXF | ORD+36~, ORD+38~* |
| LEXI | SW+9~, SW+10*, SW+11, SW+12*, SW+13, SW+16~, SW+17*, SW+18, SW+19*, SW+20 , SW+21*, SW+22, ORD+36~*, ORD+37, ORD+39*, ORD+40, ORD+41 |
| LEXLC | SWAP+12~, SWAP+18*, SWAP+21, SWAP+24 |
| LEXLOW | SW+8, SW+15, ST+1~ |
| LEXN | SWAP+19~, SWAP+20~, SWAP+21*, SWAP+23, SWAP+24*, SWAP+26 |
| LEXNC | ST+1~*, ST+2 |
| LEXNN | ST+1~*, ST+2* |
| LEXNOT | SWAP+12~, SWAP+14* |
| LEXO | SWAP+19~, SWAP+20~, SWAP+21*, SWAP+22, SWAP+23, SWAP+24*, SWAP+25, SWAP+26 |
| LEXT | ORD+37~*, ORD+38, ORD+40~*, ORD+41 |
| LEXTC | SWAP+12~, SWAP+19*, SWAP+21 |
| LEXTXT | SW+7~*, SW+9*, SW+11*, SW+13*, SW+14, SW+16*, SW+18*, SW+20*, SW+22*, SW+23 , SWAP+12~*, SWAP+13, SWAP+14, SWAP+15, SWAP+16, SWAP+17*, SWAP+22, SWAP+23*, SWAP+25, SWAP+26* , SWAP+27 |
| X | SW~, SW+7*, SW+8, SW+9*, SW+14*, SW+16*, SW+23*, SW+24, SWAP~, SWAP+12* , SWAP+13, SWAP+14*, SWAP+27*, SWAP+28 |
