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