YSGAFHL7 ;ALB/SCK-HL7 MENTAL HEALTH ROUTINES ;8/10/98
Source file <YSGAFHL7.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 |
|---|---|---|
| EN(DFN,EVNTYP,EVNTDT,OBXINFO,EVNTINFO) | ; Main entry point Mental Health ADT message builder
|
|
| CLRVAR | ; Common point for clearing variables used
|
|
| BLDMSG(DFN,EVNTYP,EVNTDT,OBXINFO,EVNTINFO,XMITARRY) | ;
|
|
| SNDMSG(EVNTYP,EVNTINFO,XMITARRY) | ; Send ADT HL7 message
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | EN+22 |
| Name | Line Occurrences |
|---|---|
| $$BLDMSG | EN+45 |
| $$SNDMSG | EN+47 |
| CLRVAR | EN+49 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRY4HL7 | SNDMSG+2~, SNDMSG+8*, SNDMSG+20, SNDMSG+23, SNDMSG+24, SNDMSG+32 |
| DFN | EN~, EN+21*, EN+22, EN+40, EN+45, BLDMSG~, BLDMSG+28 |
| EVNTDT | EN~, EN+25*, EN+26*, EN+42, EN+45, BLDMSG~, BLDMSG+18 |
| EVNTINFO | EN~, EN+28*, EN+29*, EN+40, EN+41, EN+42, EN+45, EN+47, CLRVAR+1, BLDMSG~ , BLDMSG+10, BLDMSG+11, BLDMSG+12, BLDMSG+20, SNDMSG~, SNDMSG+11, SNDMSG+14, SNDMSG+15, SNDMSG+28 |
| EVNTYP | EN~, EN+23*, EN+24*, EN+33, EN+41, EN+45, EN+47, BLDMSG~, BLDMSG+18, BLDMSG+19 , SNDMSG~ |
| GLOREF | EN+31~, EN+36*, EN+37, EN+45, CLRVAR+1 |
| HL | BLDMSG+2~, BLDMSG+5!, BLDMSG+12, SNDMSG+2~, SNDMSG+7!, SNDMSG+15 |
| HL("" | BLDMSG+13, SNDMSG+16 |
| HL("FS" | BLDMSG+18, BLDMSG+19, BLDMSG+20 |
| HL("Q" | BLDMSG+18, BLDMSG+20 |
| HLECH | BLDMSG+2~ |
| HLEID | BLDMSG+2~ |
| HLFS | BLDMSG+2~ |
| HLP | SNDMSG+2~, SNDMSG+28 |
| HLQ | BLDMSG+2~ |
| HLRESLT | SNDMSG+2~, SNDMSG+28, SNDMSG+29*, SNDMSG+34 |
| KILLARRY | SNDMSG+2~, SNDMSG+19*, SNDMSG+25*, SNDMSG+32 |
| LASTLINE | BLDMSG+3~, BLDMSG+22*, BLDMSG+23, BLDMSG+29*, BLDMSG+30, BLDMSG+49*, BLDMSG+50, BLDMSG+52 |
| LINESADD | BLDMSG+3~, BLDMSG+29*, BLDMSG+49*, BLDMSG+52 |
| OBX1 | BLDMSG+33~, BLDMSG+47*, BLDMSG+48 |
| OBXINFO | EN~, EN+27, EN+45, BLDMSG~, BLDMSG+37, BLDMSG+38, BLDMSG+40, BLDMSG+41, BLDMSG+44, BLDMSG+45 , BLDMSG+47 |
| RETURN | EN+31~, EN+45*, EN+46, EN+47*, EN+50 |
| VAFEVN | BLDMSG+16~, BLDMSG+18*, BLDMSG+19*, BLDMSG+20*, BLDMSG+23 |
| VAFOBX | BLDMSG+33~, BLDMSG+48*, BLDMSG+50 |
| VAFOBX("" | BLDMSG+49 |
| VAFPID | BLDMSG+26~, BLDMSG+28*, BLDMSG+30 |
| VAFPID("" | BLDMSG+29 |
| VAFSTR | BLDMSG+3~, BLDMSG+16~, BLDMSG+17*, BLDMSG+18, BLDMSG+27*, BLDMSG+28, BLDMSG+34*, BLDMSG+48 |
| XMITARRY | BLDMSG~, BLDMSG+6*, BLDMSG+7*, BLDMSG+23, BLDMSG+30, BLDMSG+50, SNDMSG~, SNDMSG+3*, SNDMSG+4*, SNDMSG+5 , SNDMSG+20, SNDMSG+22, SNDMSG+24 |
| YSOK | EN+31~ |
