©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
INHUT9 ;JPD ; 6 May 98 12:49;HL7 MESSAGE PARSER UTILITY
Source file <INHUT9.m>
| Package | Total | Caller Graph |
|---|---|---|
| IHS Generic Interface System | 3 | INHU1 INTSUT INTSUT1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ROULNCNT(ROU) | ;Count lines in routine
|
|
| ARRAY(INIG1,INIG2,IOM,INDL,INDENT) | ;Parse array of data
; Input: ; INIG1 - array of Data ; IOM - Width ; INDL - Delimeter(s) ; INDENT - Chars to indent for overflow of line ; Output: ; INIG2 - Array of data broken down by delimeters and IOM length |
|
| LINE(INIG1,INIG2,IOM,INDL,INDENT,INFST,IND,INDCT) | ;
; Input: ; INIG1 - Single line of data ; INIG2 - Array with old and new data ; IOM - Width ; INDL - Delimeter(s) ; INDENT - Chars to indent for overflow of line ; Output: ; INIG1 - Orig data with front part removed up to delimeter or IOM ; INIG2 - Array of data broken down by delimeters and IOM length |
|
| PARSE(INIG1,IOM,INIG2,INDENT,INDL,INK) | ;Set INIG array
|
|
| ONE(IND,INOUT,INIOM,INDNT,INSEP,INDL,INK) | ;Get 1 set of nodes and
; separate by INSEP ; Input : ; IND - Global or local node. ie ^INTHU(ien,3,0) or TEMP(1) ; INIOM - Margin Width ; INDNT - Indent by this number after 1st line ; INSEP - Separate on this value. ie |CR| ; INDL - delimit using these values ; INK - 1 Kill Output node upon entry 0 don't kill output node ; Output : ; INOUT - Global or local |
|
| PARSEDCT(INIG1,INIG2,IOM,INDENT,INDL,INK) | ;Parse Global Array
; This will return a value in the indirection value of what is ; passed in in INIG2 from the indirection of whatever value is ; passed in from INIG1 in a delimted format of IOM long lines |
|
| SETTMP(INTMP,INX,IND,INDCT) | ;set array
; Input - INTMP - next set of words< or = to IOM ; IND - Spaces to indent ; INDCT - 1 store in indirection of output ; 0 - store in array ; Output INX - temporary to go in INIG1 |
| Name | Field # of Occurrence |
|---|---|
| $$ROUTEST^%ZTF | ROULNCNT+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INRHSITE(1 | ONE+15 |
| Name | Line Occurrences |
|---|---|
| ARRAY | PARSE+14 |
| LINE | PARSE+15, PARSEDCT+19, PARSEDCT+22, ARRAY+13, ARRAY+16 |
| PARSEDCT | ONE+19, ONE+25 |
| SETTMP | PARSE+16, PARSEDCT+24, ARRAY+17, LINE+24, LINE+28 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ONE+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COUNT | ONE+12~, ONE+14*, ONE+21*, ONE+24, ONE+27* |
| I | ONE+12~, ONE+16*, ROULNCNT+3~, ROULNCNT+5*, ROULNCNT+6, ROULNCNT+7 |
| INCNT | SETTMP+6~, SETTMP+10*, SETTMP+11, SETTMP+12 |
| IND | ONE~, ONE+13*, ONE+14, ONE+16, ONE+17, ONE+18*, ONE+19, ONE+20, PARSE+16, PARSEDCT+14~ , PARSEDCT+16*, PARSEDCT+19, PARSEDCT+22, PARSEDCT+24, ARRAY+9~, ARRAY+10*, ARRAY+13, ARRAY+16, ARRAY+17, LINE~ , LINE+11*, LINE+24, LINE+28, LINE+30*, SETTMP~, SETTMP+7*, SETTMP+8, SETTMP+11 |
| INDCT | LINE~, LINE+11*, LINE+24, LINE+28, SETTMP~, SETTMP+7*, SETTMP+8 |
| INDENT | PARSE~, PARSE+11*, PARSE+14, PARSE+15, PARSEDCT~, PARSEDCT+15*, PARSEDCT+19, PARSEDCT+22, ARRAY~, ARRAY+13 , ARRAY+16, LINE~, LINE+30 |
| INDL | ONE~, ONE+14*, ONE+19, ONE+25, PARSE~, PARSE+11*, PARSE+14, PARSE+15, PARSEDCT~, PARSEDCT+15* , PARSEDCT+19, PARSEDCT+22, ARRAY~, ARRAY+13, ARRAY+16, LINE~, LINE+17, LINE+20, LINE+21 |
| INDNT | ONE~, ONE+13*, ONE+19, ONE+25 |
| INFST | PARSEDCT+14~, PARSEDCT+16*, PARSEDCT+19, PARSEDCT+22, ARRAY+9~, ARRAY+10*, ARRAY+13, ARRAY+16, LINE~, LINE+11* , LINE+30* |
| INIG1 | PARSE~, PARSE+14, PARSE+15, PARSE+16, PARSEDCT~, PARSEDCT+18, PARSEDCT+20, PARSEDCT+21, ARRAY~, ARRAY+11 , ARRAY+12, LINE~, LINE+13, LINE+15, LINE+25*, LINE+29* |
| INIG1( | ARRAY+14, ARRAY+15 |
| INIG2 | PARSE~, PARSE+11*, PARSE+13!, PARSE+14, PARSE+15, PARSE+16, PARSEDCT~, PARSEDCT+15*, PARSEDCT+17, PARSEDCT+19 , PARSEDCT+22, PARSEDCT+24, ARRAY~, ARRAY+13, ARRAY+16, ARRAY+17, LINE~, LINE+24, LINE+28 |
| INIOM | ONE~, ONE+13*, ONE+19, ONE+25 |
| INK | ONE~, ONE+14*, ONE+19, ONE+25, PARSE~, PARSE+12*, PARSE+13, PARSEDCT~, PARSEDCT+16*, PARSEDCT+17 |
| INOUT | ONE~, ONE+19, ONE+25, ONE+26* |
| INP | ONE+12~, ONE+14*, ONE+16 |
| INP1 | ONE+12~, ONE+16*, ONE+17*, ONE+18 |
| INSEP | ONE~, ONE+13*, ONE+19, ONE+22, ONE+23 |
| INSMIN | ONE+12~, ONE+15*, ONE+26 |
| INTEMPY | ONE+26~*! |
| INTMP | LINE+10~, LINE+15*, LINE+21, LINE+24, LINE+25, LINE+28, SETTMP~, SETTMP+8, SETTMP+11 |
| INX | PARSEDCT+14~, PARSEDCT+16*, PARSEDCT+18*, PARSEDCT+19, PARSEDCT+21*, PARSEDCT+22, PARSEDCT+24, ARRAY+9~, ARRAY+10*, ARRAY+12* , ARRAY+13, ARRAY+15*, ARRAY+16, ARRAY+17, SETTMP~, SETTMP+8*, SETTMP+10, SETTMP+11, SETTMP+12 |
| INX( | SETTMP+8* |
| IOM | PARSE~, PARSE+11*, PARSE+14, PARSE+15, PARSEDCT~, PARSEDCT+15*, PARSEDCT+19, PARSEDCT+22, ARRAY~, ARRAY+13 , ARRAY+16, LINE~, LINE+13, LINE+15, LINE+30* |
| J | PARSEDCT+14~, PARSEDCT+20*, PARSEDCT+21, ARRAY+9~, ARRAY+14*, ARRAY+15, LINE+10~, LINE+20*, LINE+21 |
| OPOS | LINE+10~, LINE+15*, LINE+21*, LINE+23, LINE+26, LINE+28, LINE+29 |
| POS | LINE+10~, LINE+18*, LINE+21* |
| ROU | ROULNCNT~, ROULNCNT+4, ROULNCNT+5, ROULNCNT+6 |
| TEMP | ONE+12~, ONE+20*, ONE+21, ONE+22, ONE+23*, ONE+24 |
| U | ONE+15 |
| X | ROULNCNT+3~, ROULNCNT+5 |
| Y | ONE+12~, ONE+27! |
| Y( | ONE+21*, ONE+24* |