©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
INHUT11 ; DGH ; 11 Nov 1999 16:13 ; X12 and NCPDP utilities
Source file <INHUT11.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Generic Interface System | 2 | $$PIECE^INHU $$CALCLEN^INHUT11 |
| Uncategorized | 1 | $$TB^UTIL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OPIN(X) | ;Transform incoming overpunch value
|
|
| XREF | ;Store SEQ in .17 field and set x-ref.
|
|
| X1DATE() | ;This is check for the X12 date stamp
; This function is obsolete. - ld |
|
| MEDE | ;Sets MEDE header used for NCPDP outgoing messeges
|
|
| CALCLEN(G) | ;Calculate the length of the NCPDP portion of the message
|
|
| CHKNC(LINE,POS,VAL) | ;Identifies an NCPDP segment based on specified values
|
|
| OPOUT(X) | ;Transform outgoing dollar value to overpunch value
|
|
| CHKID(LINE,FLD,VAL) | ;Identifies a segment based on specified values
|
|
| MEDET | ;MEDE trailer code
|
|
| LINE(%L,%D,LCT) | ;Suppress trailing null fields and suppress null segs
; %L = Line array to be stripped (PBR) ; %D = delimiter ; LCT = current number of line |
|
| TOTL(I,%L,%D) | ;Calculate the length of valid fields
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INRHSITE(1 | MEDE+8 |
| ^INTHU - [#4001] | XREF+8* |
| ^INTHU("ASEQ" | XREF+8* |
| ^INTHU("ASEQ1" | XREF+11* |
| ^UTILITY("INH" | MEDET+12, MEDET+13* |
| Name | Line Occurrences |
|---|---|
| $$TOTL | LINE+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %D | LINE~, LINE+6*, LINE+23, LINE+24, LINE+25, TOTL~, TOTL+3 |
| %L | LINE~, LINE+6*, LINE+22, LINE+23, LINE+24, LINE+25*, LINE+27*, TOTL~, TOTL+3 |
| %L( | LINE+8, LINE+13, LINE+14, LINE+15!, LINE+16* |
| >> A( | LINE+24* |
| >> B( | TOTL+3* |
| C | CALCLEN+4~, CALCLEN+7*, CALCLEN+9*, CALCLEN+12* |
| CKOUT | LINE+9~*, LINE+11, LINE+13, LINE+16* |
| CNT | LINE+5~, LINE+23*, LINE+24 |
| CNTL | TOTL+1~, TOTL+2*, TOTL+3*, TOTL+4*, TOTL+5 |
| D | OPOUT+10~, OPOUT+11*, OPOUT+12 |
| >> DELIM | CHKID+10 |
| DT | X1DATE+3, X1DATE+5, X1DATE+7, X1DATE+9 |
| EMPTY | LINE+9~*, LINE+19*, LINE+27 |
| FLD | CHKID~, CHKID+10 |
| G | CALCLEN~, CALCLEN+8, CALCLEN+9, CALCLEN+10, CALCLEN+12 |
| I | CALCLEN+4~, CALCLEN+7*, CALCLEN+8*, CALCLEN+9, CALCLEN+10, CALCLEN+12, LINE+5~, LINE+13*, LINE+14, LINE+15 , LINE+16, LINE+24*, LINE+25, TOTL~, TOTL+3, TOTL+4 |
| ID | CHKID+9~, CHKID+12*, CHKID+13*, CHKID+14 |
| >> INA("INLENGTH" | MEDE+9* |
| >> INA("INSEQ" | MEDE+8*, XREF+7 |
| >> INDEST | XREF+8, XREF+11 |
| INL | MEDET+7~, MEDET+10*, MEDET+13 |
| INSEQ | XREF+7~*, XREF+8, XREF+11 |
| >> INSTD | XREF+9 |
| J | CALCLEN+4~, CALCLEN+12*, LINE+5~, LINE+8*, LINE+11, LINE+19*, LINE+22 |
| K | TOTL+1~, TOTL+3* |
| L | OPIN+9~, OPIN+11*, OPIN+13, OPIN+14, OPOUT+10~, OPOUT+11*, OPOUT+13 |
| LCT | LINE~, LINE+6, LINE+19, LINE+27* |
| LEN | MEDET+7~, MEDET+8*, MEDET+10, CALCLEN+4~, CALCLEN+7*, CALCLEN+9*, CALCLEN+12*, CALCLEN+14*, CALCLEN+16 |
| LINE | CHKNC~, CHKNC+11, CHKNC+18, CHKNC+22, CHKID~, CHKID+10 |
| MATCH | CHKNC+13~, CHKNC+14*, CHKNC+15, CHKNC+17, CHKNC+18* |
| >> MESSID | MEDE+8 |
| N | OPIN+9~, OPIN+11*, OPIN+12, OPIN+13*, LINE+5~, LINE+11*, LINE+13, LINE+14, LINE+15, LINE+16 , LINE+19 |
| OP | OPOUT+10~, OPOUT+12*, OPOUT+13 |
| ORGL | LINE+5~, LINE+25*, LINE+27 |
| POS | CHKNC~, CHKNC+11*, CHKNC+12, CHKNC+18, CHKNC+22 |
| R | OPIN+9~, OPIN+10*, OPIN+12 |
| S | OPIN+9~, OPIN+11*, OPIN+13*, OPIN+14 |
| STOP | LINE+12~, LINE+14*, LINE+15, LINE+16 |
| STR | CHKNC+13~, CHKNC+22*, CHKNC+23, MEDET+7~, MEDET+12*, MEDET+13 |
| TLCT | LINE+5~, LINE+6*, LINE+15*, LINE+19 |
| U | MEDE+8, XREF+8 |
| >> UIF | XREF+6, XREF+8, XREF+11 |
| VAL | CHKNC~, CHKNC+15, CHKNC+17, CHKNC+23, CHKID~ |
| VAL( | CHKID+12, CHKID+13 |
| VAL1 | CHKNC+13~, CHKNC+17*, CHKNC+18 |
| X | OPIN~, OPIN+10*, OPIN+11, OPIN+13*, OPIN+14, OPOUT~, OPOUT+11*, OPOUT+12, OPOUT+13*, OPOUT+14 , CHKID+9~, CHKID+10*, CHKID+11, CHKID+13, X1DATE+3, X1DATE+5, X1DATE+7, X1DATE+9 |
| YRCOMP | X1DATE+2~, X1DATE+3*, X1DATE+5, X1DATE+7 |
| Z | CHKNC+13~, CHKNC+17*, CHKID+9~, CHKID+12*, CHKID+13 |