ALPBGEN ;SFVAMC/JC - Build HL7 PMU messages ;03/11/2004 15:54
Source file <ALPBGEN.m>
Package | Total | Call Graph |
---|---|---|
Health Level Seven | 3 | $$M10^HLFNC INIT^HLFNC2 GENERATE^HLMA |
Barcode Medication Administration | 2 | $$ISBCMA^ALPBGEN2 GET^ALPBPARM |
Kernel | 2 | ($$FMTHL7,$$NOW)^XLFDT SETUP^XQALERT |
Toolkit | 1 | $$GET^XPAR |
VA Fileman | 1 | IX^DIC |
Package | Total | Caller Graph |
---|---|---|
Barcode Medication Administration | 1 | PSB BCBU PMU MESSAGE BUILDER |
Name | Comments | DBIA/ICR reference |
---|---|---|
ESC(ST,PR) | ;Translate reserved characters to escape sequences in Access/Verify
|
|
SERR | ;SEND ERRORS
|
|
EVN | ;EVN segment
|
|
HL7(XUIEN,XUFLG,XUSR) | ;GENERATE MESSAGE - For Subscriber to XUSER DATA REQUEST (BCBU PMU MESSAGE BUILDER)
|
|
SEND | ||
GSTF | ;Generate Staff Detail Segment
|
|
UNESC(ST,PR) | ;Unescape string from message
|
|
GSTNM | ;Staff Name
|
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+20*, ESC+21*, ESC+22*, ESC+23*, ESC+24*, ESC+25*, ESC+26, ESC+27! |
Name | Line Occurrences |
---|---|
$$ESC | GSTF+8 |
SERR | SEND+20 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ALERR | HL7+13~, SEND+20*, SERR+3 |
ALPBDIV | HL7+13~, SEND*, SEND+2 |
>> ALPBDIV1 | SEND+5*, SEND+7 |
ALPBEVN | HL7+13~, HL7+14*, HL7+16, SEND+19 |
ALPBRCV | HL7+13~, HL7+15*, SEND+9, SEND+16 |
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+11*, ESC+23, UNESC+11*, UNESC+29 |
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+10*, ESC+11, ESC+12 , ESC+13, ESC+14, UNESC+10*, UNESC+11, UNESC+12, UNESC+13, UNESC+14 |
ECS | HL7+13~, HL7+28*, ESC+17*, ESC+23, UNESC+17*, UNESC+28, UNESC+29 |
EEC | HL7+13~, HL7+26*, ESC+15*, ESC+21, UNESC+15*, UNESC+20, UNESC+21 |
EFS | HL7+13~, HL7+27*, ESC+16*, ESC+22, UNESC+16*, UNESC+24, UNESC+25 |
ERS | HL7+13~, HL7+29*, ESC+18*, ESC+24, UNESC+18*, UNESC+32, UNESC+33 |
ESC | HL7+13~, HL7+24*, HL7+26, HL7+27, HL7+28, HL7+29, HL7+30, ESC+13*, ESC+15, ESC+16 , ESC+17, ESC+18, ESC+19, ESC+21, UNESC+13*, UNESC+15, UNESC+16, UNESC+17, UNESC+18, UNESC+19 , UNESC+21 |
ESS | HL7+13~, HL7+30*, ESC+19*, ESC+25, UNESC+19*, UNESC+36, UNESC+37 |
FS | HL7+13~, HL7+20*, EVN+2, GSTF+2, GSTF+8, GSTNM+7, GSTNM+9, GSTNM+11, ESC+9*, ESC+22 , UNESC+9*, UNESC+25 |
HL | HL7+16!, HL7+17, ESC+5, ESC+6, UNESC+5, UNESC+6 |
HL("ECH" | HL7+21, ESC+8*, ESC+10, UNESC+8*, UNESC+10 |
HL("FS" | HL7+20, ESC+7*, ESC+9, UNESC+7*, UNESC+9 |
HL("MID" | SERR+3 |
HLA | HL7+13~, GSTNM+15 |
HLA("HLS" | EVN+2*, GSTNM+13* |
HLL | SEND!, SEND+16, SEND+18 |
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+20*, ESC+21, ESC+22, ESC+23, ESC+24, ESC+25, ESC+26* , UNESC+20!*, UNESC+21*, UNESC+24!*, UNESC+25*, UNESC+28!*, UNESC+29*, UNESC+32!*, UNESC+33*, UNESC+36!*, UNESC+37* , UNESC+39! |
J | ESC+20*, ESC+21, ESC+22, ESC+23, ESC+24, ESC+25, UNESC+20!, UNESC+24!, UNESC+28!, UNESC+32! , UNESC+36!, UNESC+39! |
K | UNESC+20!, UNESC+24!, UNESC+28!, UNESC+32!, UNESC+36!, UNESC+39! |
K( | UNESC+20*, UNESC+21*, UNESC+24*, UNESC+25*, UNESC+28*, UNESC+29*, UNESC+32*, UNESC+33*, UNESC+36*, UNESC+37* |
L | UNESC+20!, UNESC+21*, UNESC+22, UNESC+24!, UNESC+25*, UNESC+26, UNESC+28!, UNESC+29*, UNESC+30, UNESC+32! , UNESC+33*, UNESC+34, UNESC+36!, UNESC+37*, UNESC+38, UNESC+39! |
MT | HL7+13~, HL7+19*, EVN+2 |
MYRESULT | SEND+17!, SEND+18*, SEND+19, SEND+20 |
N | HL7+13~, HL7+18*, EVN+1*, EVN+2, GSTNM+13* |
PR | ESC~, ESC+5*, UNESC~, UNESC+5* |
RS | HL7+13~, HL7+23*, GSTF+8, ESC+12*, ESC+24, UNESC+12*, UNESC+33 |
SN | GSTNM+1~*, GSTNM+4*, GSTNM+6*, GSTNM+7 |
SS | HL7+13~, HL7+25*, ESC+14*, ESC+25, UNESC+14*, UNESC+37 |
ST | ESC~, ESC+4, ESC+20, ESC+26*, ESC+28, UNESC~, UNESC+4, UNESC+20*, UNESC+22*, UNESC+24* , UNESC+26*, UNESC+28*, UNESC+30*, UNESC+32*, UNESC+34*, UNESC+36*, UNESC+38*, UNESC+40 |
STF | GSTF+1~*, GSTF+2*, GSTF+8*, GSTNM+7*, GSTNM+9*, GSTNM+11*, GSTNM+13 |
U | SEND+20 |
X | SEND+1!, SEND+2*, SEND+6!, UNESC+20!*, UNESC+24!*, UNESC+28!*, UNESC+32!*, UNESC+36!*, UNESC+39! |
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" | GSTNM+9 |
XUSR("DIV" | SEND, SEND+16 |
XUSR("HL7NAME" | GSTNM+2, GSTNM+3*, GSTNM+4, GSTNM+5 |
XUSR("NAME" | GSTNM+5, GSTNM+6 |
XUSR("SSN" | GSTF+7 |
XUSR("TERMINA | TION DATE" , 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~ |