MAGDHW0 ;WOIFO/PMK - Capture Consult/Request data ; 28 Mar 2006 9:07 AM
Source file <MAGDHW0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT | ;
; simulate call to INT^HLFNC2 |
|
| FINDSEG(ARRAY,SEGMENT,I,X) | ; find a specific HL7 segment in an array
; input -- ARRAY ---- an HL7 array ; input -- SEGMENT -- three-letter HL7 segment identifier ; input -- I -------- index of the found segment (or null) ; output - I -------- index of the found segment (or null) ; output - X -------- string of fields sans segment identifier ; return - HIT ------ flag indicating segment found |
|
| SAVESEG(I,X) | ; save updated segment
|
|
| ADDSEG(X) | ; add a new segment to the end if the message
|
|
| OUTPUT | ; output the message to ^MAGDHL7
|
| FileNo | Call Tags |
|---|---|
| ^MAGDHL7(2006.5 - [#2006.5] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("SITE" | INIT+10 |
| ^MAGDHL7(2006.5 - [#2006.5] | OUTPUT+4*, OUTPUT+11*, OUTPUT+15*, OUTPUT+19* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | FINDSEG~ |
| ARRAY( | FINDSEG+10, FINDSEG+11 |
| D0 | OUTPUT+1~, OUTPUT+2*, OUTPUT+3, OUTPUT+4, OUTPUT+11, OUTPUT+15, OUTPUT+19 |
| DA | OUTPUT+1~, OUTPUT+3* |
| >> DEL | INIT+13*, FINDSEG+10, FINDSEG+11, SAVESEG+1, OUTPUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+13 |
| DIC | OUTPUT+1~, OUTPUT+2*, OUTPUT+3 |
| DIC(0 | OUTPUT+2* |
| DIE | OUTPUT+1~, OUTPUT+3* |
| DR | OUTPUT+1~, OUTPUT+3* |
| >> FMDATE | OUTPUT+2 |
| >> FMDATETM | OUTPUT+19 |
| HIT | FINDSEG+8~, FINDSEG+9*, FINDSEG+12*, FINDSEG+14 |
| >> HL("CC" | INIT+3* |
| >> HL("ECH" | INIT+4*, INIT+14 |
| >> HL("ETN" | INIT+5* |
| >> HL("FS" | INIT+6*, INIT+13 |
| >> HL("MTN" | INIT+7* |
| >> HL("PID" | INIT+8* |
| >> HL("Q" | INIT+9* |
| >> HL("SAF" | INIT+10* |
| >> HL("SAN" | INIT+11* |
| >> HL("VER" | INIT+12* |
| >> HL7( | SAVESEG+1*, ADDSEG+1* |
| >> HL7("" | ADDSEG+1 |
| I | INIT+2~, INIT+14*, FINDSEG~, FINDSEG+10*, FINDSEG+11, SAVESEG~, SAVESEG+1, OUTPUT+1~, OUTPUT+5*, OUTPUT+6 |
| J | OUTPUT+1~, OUTPUT+5*, OUTPUT+11*, OUTPUT+15*, OUTPUT+19 |
| K | OUTPUT+1~, OUTPUT+7*, OUTPUT+8, OUTPUT+13 |
| SEGMENT | FINDSEG~, FINDSEG+10 |
| U | INIT+15* |
| X | FINDSEG~, FINDSEG+11*, SAVESEG~, SAVESEG+1, ADDSEG~, ADDSEG+1, OUTPUT+1~, OUTPUT+2*, OUTPUT+6*, OUTPUT+7 , OUTPUT+8, OUTPUT+13 |
| Y | OUTPUT+1~, OUTPUT+2, OUTPUT+6*, OUTPUT+9, OUTPUT+11*, OUTPUT+13*, OUTPUT+15 |
| Z | OUTPUT+1~, OUTPUT+8*, OUTPUT+9 |
