ALPBGEN ;SFVAMC/JC - Build HL7 PMU messages ;03/11/2004 15:54
Source file <ALPBGEN.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Barcode Medication Administration | 3 | ALPBHL1 ALPBHL1U PSB BCBU PMU MESSAGE BUILDER |
| Kernel | 1 | ^DIC(19 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HL7(XUIEN,XUFLG,XUSR) | ;GENERATE MESSAGE - For Subscriber to XUSER DATA REQUEST (BCBU PMU MESSAGE BUILDER)
|
|
| EVN | ;EVN segment
|
|
| GSTF | ;Generate Staff Detail Segment
|
|
| GSTNM | ;Staff Name
|
|
| SEND | ||
| ESC(ST,PR) | ;Translate reserved characters to escape sequences in Access/Verify
|
|
| UNESC(ST,PR) | ;Unescape string from message
|
|
| SERR | ;SEND ERRORS
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DG(40.8 - [#40.8] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | ESC+21*, ESC+22*, ESC+23*, ESC+24*, ESC+25*, ESC+26*, ESC+27, ESC+28! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALERR | HL7+13~, SEND+17*, SERR+3 |
| ALPBDIV | HL7+13~, SEND*, SEND+2 |
| >> ALPBDIV1 | SEND+5*, SEND+7 |
| ALPBEVN | HL7+13~, HL7+14*, HL7+16, SEND+16 |
| ALPBRCV | HL7+13~, HL7+15*, SEND+9, SEND+13 |
| ALPBSSN | GSTF+1~, GSTF+7*, GSTF+8 |
| ALPHLL | SEND+6!, SEND+7, SEND+8, SEND+11! |
| ALPHLL("LINKS" | SEND+8, SEND+9*, SEND+10 |
| CS | HL7+13~, HL7+22*, GSTF+2, GSTF+8, GSTNM+3, GSTNM+6, ESC+12*, ESC+24, UNESC+12*, UNESC+30 |
| D | SEND+1!, SEND+2*, SEND+6! |
| DIC | SEND+1!, SEND+2*, SEND+6! |
| DIC(0 | SEND+2* |
| EC | HL7+13~, HL7+21*, HL7+22, HL7+23, HL7+24, HL7+25, GSTF+7, ESC+11*, ESC+12, ESC+13 , ESC+14, ESC+15, UNESC+11*, UNESC+12, UNESC+13, UNESC+14, UNESC+15 |
| ECS | HL7+13~, HL7+28*, ESC+18*, ESC+24, UNESC+18*, UNESC+29, UNESC+30 |
| EEC | HL7+13~, HL7+26*, ESC+16*, ESC+22, UNESC+16*, UNESC+21, UNESC+22 |
| EFS | HL7+13~, HL7+27*, ESC+17*, ESC+23, UNESC+17*, UNESC+25, UNESC+26 |
| ERS | HL7+13~, HL7+29*, ESC+19*, ESC+25, UNESC+19*, UNESC+33, UNESC+34 |
| ESC | HL7+13~, HL7+24*, HL7+26, HL7+27, HL7+28, HL7+29, HL7+30, ESC+14*, ESC+16, ESC+17 , ESC+18, ESC+19, ESC+20, ESC+22, UNESC+14*, UNESC+16, UNESC+17, UNESC+18, UNESC+19, UNESC+20 , UNESC+22 |
| ESS | HL7+13~, HL7+30*, ESC+20*, ESC+26, UNESC+20*, UNESC+37, UNESC+38 |
| FS | HL7+13~, HL7+20*, EVN+2, GSTF+2, GSTF+8, GSTNM+7, GSTNM+9, GSTNM+11, ESC+10*, ESC+23 , UNESC+10*, UNESC+26 |
| HL | HL7+16!, HL7+17, ESC+6, ESC+7, UNESC+6, UNESC+7 |
| HL("ECH" | HL7+21, ESC+9*, ESC+11, UNESC+9*, UNESC+11 |
| HL("FS" | HL7+20, ESC+8*, ESC+10, UNESC+8*, UNESC+10 |
| HL("MID" | SERR+3 |
| HLA | HL7+13~, GSTNM+15 |
| HLA("HLS" | EVN+2*, GSTNM+13* |
| HLL | SEND!, SEND+13, SEND+15 |
| HLL("LINKS" | SEND+10* |
| HLMTIENS | HL7+13~, SERR+3 |
| HLNEXT | HL7+13~ |
| HLNODE | HL7+13~ |
| HLQUIT | HL7+13~ |
| I | SEND+8*, SEND+9, SEND+10, ESC+4~, ESC+21*, ESC+22, ESC+23, ESC+24, ESC+25, ESC+26 , ESC+27*, UNESC+4~, UNESC+21!*, UNESC+22*, UNESC+25!*, UNESC+26*, UNESC+29!*, UNESC+30*, UNESC+33!*, UNESC+34* , UNESC+37!*, UNESC+38*, UNESC+40! |
| J | ESC+4~, ESC+21*, ESC+22, ESC+23, ESC+24, ESC+25, ESC+26, UNESC+4~, UNESC+21!, UNESC+25! , UNESC+29!, UNESC+33!, UNESC+37!, UNESC+40! |
| K | UNESC+4~, UNESC+21!, UNESC+25!, UNESC+29!, UNESC+33!, UNESC+37!, UNESC+40! |
| K( | UNESC+21*, UNESC+22*, UNESC+25*, UNESC+26*, UNESC+29*, UNESC+30*, UNESC+33*, UNESC+34*, UNESC+37*, UNESC+38* |
| L | UNESC+4~, UNESC+21!, UNESC+22*, UNESC+23, UNESC+25!, UNESC+26*, UNESC+27, UNESC+29!, UNESC+30*, UNESC+31 , UNESC+33!, UNESC+34*, UNESC+35, UNESC+37!, UNESC+38*, UNESC+39, UNESC+40! |
| MT | HL7+13~, HL7+19*, EVN+2 |
| MYRESULT | SEND+14!, SEND+15*, SEND+16, SEND+17 |
| N | HL7+13~, HL7+18*, EVN+1*, EVN+2, GSTNM+13* |
| PR | ESC~, ESC+6*, UNESC~, UNESC+6* |
| RS | HL7+13~, HL7+23*, GSTF+8, ESC+13*, ESC+25, UNESC+13*, UNESC+34 |
| SN | GSTNM+1~*, GSTNM+4*, GSTNM+6*, GSTNM+7 |
| SS | HL7+13~, HL7+25*, ESC+15*, ESC+26, UNESC+15*, UNESC+38 |
| ST | ESC~, ESC+5, ESC+21, ESC+27*, ESC+29, UNESC~, UNESC+5, UNESC+21*, UNESC+23*, UNESC+25* , UNESC+27*, UNESC+29*, UNESC+31*, UNESC+33*, UNESC+35*, UNESC+37*, UNESC+39*, UNESC+41 |
| STF | GSTF+1~*, GSTF+2*, GSTF+8*, GSTNM+7*, GSTNM+9*, GSTNM+11*, GSTNM+13 |
| U | SEND+17 |
| X | SEND+1!, SEND+2*, SEND+6!, UNESC+4~, UNESC+21!*, UNESC+25!*, UNESC+29!*, UNESC+33!*, UNESC+37!*, UNESC+40! |
| XQA | SERR+1! |
| XQA("G.PSB BC | BU ERRORS" , SERR+2* |
| XQADATA | SERR+1! |
| XQAFLAG | SERR+1! |
| XQAID | SERR+1! |
| XQAMSG | SERR+1!, SERR+3* |
| XQAOPT | SERR+1! |
| XQAROU | SERR+1! |
| XUFLG | HL7~, HL7+14, HL7+15, HL7+19 |
| XUIEN | HL7~, HL7+8, HL7+11, GSTF+2 |
| XUSR | HL7~, HL7+7 |
| XUSR("ACCESS | CODE" , GSTF+8 |
| XUSR("DISUSER" | HL7+11, GSTNM+9 |
| XUSR("DIV" | SEND, SEND+13 |
| XUSR("HL7NAME" | GSTNM+2, GSTNM+3*, GSTNM+4, GSTNM+5 |
| XUSR("NAME" | GSTNM+5, GSTNM+6 |
| XUSR("SSN" | GSTF+7 |
| XUSR("TERMINA | TION DATE" , HL7+11, GSTNM+11 |
| XUSR("VERIFY | CODE" , GSTF+8 |
| Y | SEND+1!, SEND+4, SEND+5, SEND+6! |
| ZTDESC | HL7+13~ |
| ZTIO | HL7+13~ |
| ZTRTN | HL7+13~ |
| ZTSAVE | HL7+13~ |
| ZTSK | HL7+13~ |