HLOPRS1 ;IRMFO-ALB/CJM -RTNs for parsing messages (continued);03/24/2004 14:43 ;09/13/2006
Source file <HLOPRS1.m>
| Package | Total | Caller Graph | 
|---|---|---|
| Health Level Seven | 4 | HLOCLNT2 HLOPRS HLOPRS2 HLPRS | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PARSE(FIELD,REP,COMP,SUBCOMP,ESCAPE,SEG,TO) | ; | |
| NEXTCHAR(SEG) | ; | |
| GETCODE(SEG,VALUE,FIELD,COMP,REP) | ; | |
| DESCAPE(VALUE,FIELD,COMP,SUBCOMP,REP,ESCAPE) | ; | 
| Name | Field # of Occurrence | 
|---|---|
| $$GET^HLOPRS | GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16, GETCODE+17, GETCODE+18 | 
| Name | Line Occurrences | 
|---|---|
| $$DESCAPE | PARSE+31, PARSE+34, PARSE+37, PARSE+40 | 
| $$NEXTCHAR | PARSE+27 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| CHAR | PARSE+14~, PARSE+27*, PARSE+28, PARSE+30, PARSE+33, PARSE+36, PARSE+39, PARSE+42, DESCAPE+4~, DESCAPE+9* , DESCAPE+10, DESCAPE+11, DESCAPE+12, DESCAPE+13, DESCAPE+14, DESCAPE+15 | 
| >> COM | GETCODE+17 | 
| COMP | PARSE~, PARSE+18, PARSE+31, PARSE+34, PARSE+36, PARSE+37, PARSE+40, DESCAPE~, DESCAPE+12, GETCODE~ , GETCODE+5, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16, GETCODE+18 | 
| COUNTS | PARSE+14~ | 
| COUNTS("COMP" | PARSE+23*, PARSE+29, PARSE+31, PARSE+32*, PARSE+34, PARSE+35*, PARSE+37, PARSE+38*, PARSE+40 | 
| COUNTS("FIELD" | PARSE+21*, PARSE+29, PARSE+31, PARSE+32*, PARSE+34, PARSE+37, PARSE+40 | 
| COUNTS("REP" | PARSE+22*, PARSE+29, PARSE+31, PARSE+32*, PARSE+34, PARSE+35*, PARSE+37, PARSE+40 | 
| COUNTS("SUBCOMP" | PARSE+24*, PARSE+29, PARSE+31, PARSE+32*, PARSE+34, PARSE+35*, PARSE+37, PARSE+38*, PARSE+40, PARSE+41* | 
| ESCAPE | PARSE~, PARSE+31, PARSE+34, PARSE+37, PARSE+40, DESCAPE~, DESCAPE+3, DESCAPE+10, DESCAPE+15 | 
| FIELD | PARSE~, PARSE+16, PARSE+30, PARSE+31, PARSE+34, PARSE+37, PARSE+40, PARSE+44, DESCAPE~, DESCAPE+11 , GETCODE~, GETCODE+4, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16, GETCODE+17 , GETCODE+18 | 
| I | DESCAPE+4~, DESCAPE+8* | 
| LEN | DESCAPE+4~, DESCAPE+7*, DESCAPE+8 | 
| NEWSTRNG | DESCAPE+4~, DESCAPE+5*, DESCAPE+11*, DESCAPE+12*, DESCAPE+13*, DESCAPE+14*, DESCAPE+15*, DESCAPE+16*, DESCAPE+17 | 
| >> RE | GETCODE+15 | 
| REP | PARSE~, PARSE+17, PARSE+31, PARSE+33, PARSE+34, PARSE+37, PARSE+40, DESCAPE~, DESCAPE+14, GETCODE~ , GETCODE+9*, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+16, GETCODE+18 | 
| RET | NEXTCHAR+4~, NEXTCHAR+6*, NEXTCHAR+7 | 
| SEG | PARSE~, PARSE+20, PARSE+27, NEXTCHAR~, GETCODE~, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14 , GETCODE+15, GETCODE+16, GETCODE+17, GETCODE+18 | 
| SEG( | NEXTCHAR+6, NEXTCHAR+8, NEXTCHAR+9 | 
| SEG("CHAR" | PARSE+26*, NEXTCHAR+5*, NEXTCHAR+6, NEXTCHAR+9* | 
| SEG("LINE" | PARSE+26*, NEXTCHAR+3, NEXTCHAR+6, NEXTCHAR+8*, NEXTCHAR+9 | 
| SEG(0 | PARSE+26 | 
| SET | DESCAPE+4~, DESCAPE+6*, DESCAPE+10 | 
| SUB | GETCODE+3~, GETCODE+6*, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16, GETCODE+18 | 
| SUBCOMP | PARSE~, PARSE+19, PARSE+31, PARSE+34, PARSE+37, PARSE+39, PARSE+40, DESCAPE~, DESCAPE+13 | 
| SUBLEN | DESCAPE+4~, DESCAPE+5*, DESCAPE+8*, DESCAPE+11*, DESCAPE+12*, DESCAPE+13*, DESCAPE+14*, DESCAPE+15*, DESCAPE+16* | 
| SUBSTRNG | DESCAPE+4~, DESCAPE+5*, DESCAPE+8*, DESCAPE+9, DESCAPE+10, DESCAPE+11*, DESCAPE+12*, DESCAPE+13*, DESCAPE+14*, DESCAPE+15* , DESCAPE+16*, DESCAPE+17 | 
| TO | PARSE~, PARSE+15! | 
| TO( | PARSE+29*, PARSE+31*, PARSE+34*, PARSE+37*, PARSE+40* | 
| TO("FIELD SEP | ARATOR" , PARSE+44* | 
| TO("SEGMENT T | YPE" , PARSE+43*, PARSE+44 | 
| TO(1 | PARSE+43 | 
| VALUE | PARSE+14~, PARSE+25*, PARSE+29, PARSE+31*, PARSE+34*, PARSE+37*, PARSE+40*, PARSE+42*, DESCAPE~, DESCAPE+3 , DESCAPE+7, DESCAPE+8, GETCODE~ | 
| VALUE("ALTERN | ATE ID" , GETCODE+13*, ATE SYSTEM VERSION" , GETCODE+17*, ATE SYSTEM" , GETCODE+15*, ATE TEXT" , GETCODE+14* | 
| VALUE("ID" | GETCODE+10* | 
| VALUE("ORIGIN | AL TEXT" , GETCODE+18* | 
| VALUE("SYSTEM | VERSION" , GETCODE+16* | 
| VALUE("SYSTEM" | GETCODE+12* | 
| VALUE("TEXT" | GETCODE+11* | 
| VAR | GETCODE+3~, GETCODE+6*, GETCODE+8*, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16 , GETCODE+17, GETCODE+18 |