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~ |