©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DG53244P ;BPFO/JRP - Post init for DG*5.3*244 ; 26 Jan 2002 10:51 PM
Source file <DG53244P.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | ($$FIND1,LIST)^DIC UPDATE^DIE CLEAN^DILF $$GET1^DIQ |
| Kernel | 1 | (BMES,MES)^XPDUTL |
| Registration | 1 | POST^DG53244S |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HL7 | ;BPFO/JRP - Set up scratch HL7 protocol used for delivery of name
; change messages to local COTS systems (mimic ADT-A08 messaging in ; VAFC namespace) |
|
| IGNORE | ;List of National HL7 subscriber protocols to ignore
|
|
| ADDLIST(EVENT,ARRAY,ERROR) | ;Add subscribers to HL7 event protocol
|
|
| BLDCUR(EVENT,ARRAY,EXCEPT) | ;Build list of subscribers to HL7 event protocol
|
|
| BLDIGN(ARRAY) | ;Build list of HL7 subscriber protocols to ignore
|
|
| POST | ;Entry point for post init
|
| Name | Field # of Occurrence |
|---|---|
| POST^DG53244S | POST+1 |
| $$FIND1^DIC | HL7+27, HL7+55, BLDIGN+16 |
| LIST^DIC | BLDCUR+17, BLDCUR+18 |
| UPDATE^DIE | ADDLIST+25 |
| CLEAN^DILF | HL7+29, HL7+57, BLDIGN+21, BLDCUR+19, BLDCUR+37, ADDLIST+28 |
| $$GET1^DIQ | BLDCUR+35 |
| BMES^XPDUTL | HL7+4, HL7+91 |
| MES^XPDUTL | HL7+15, HL7+20, HL7+26, HL7+40, HL7+49, HL7+54, HL7+68, HL7+77, HL7+82, HL7+89 |
| Name | Line Occurrences |
|---|---|
| ADDLIST | HL7+69 |
| BLDCUR | HL7+41 |
| BLDIGN | HL7+21 |
| HL7 | POST+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | BLDIGN~, BLDIGN+10!, BLDCUR~, BLDCUR+14!, ADDLIST~ |
| ARRAY( | BLDIGN+19*, BLDCUR+32, BLDCUR+35*, ADDLIST+20, ADDLIST+26 |
| ERROR | ADDLIST~ |
| ERROR( | ADDLIST+26* |
| EVENT | BLDCUR~, BLDCUR+16, ADDLIST~, ADDLIST+23 |
| EXCEPT | BLDCUR~ |
| EXCEPT( | BLDCUR+30 |
| FDAROOT | ADDLIST+17~, ADDLIST+22! |
| FDAROOT( | ADDLIST+24* |
| IENROOT | ADDLIST+17~, ADDLIST+22! |
| IENS | BLDCUR+13~, BLDCUR+16*, BLDCUR+17, BLDCUR+18, BLDCUR+34*, ADDLIST+17~, ADDLIST+23*, ADDLIST+24 |
| IGNORE | HL7+6~, HL7+21, HL7+41 |
| ITEM | BLDCUR+13~ |
| ITEM("DILIST" | BLDCUR+21, BLDCUR+24 |
| LINE | BLDIGN+9~, BLDIGN+12* |
| LOCAL | HL7+6~, HL7+41, HL7+69 |
| LOCAL(0 | HL7+43 |
| MSGROOT | ADDLIST+17~, ADDLIST+22! |
| MSGROOT("DIERR" | ADDLIST+26 |
| NEWNAME | HL7+6~, HL7+8*, HL7+11, HL7+53, HL7+55, HL7+62 |
| NODE | BLDCUR+13~, BLDCUR+24*, BLDCUR+26, BLDCUR+27 |
| ORIGNAME | HL7+6~, HL7+7*, HL7+10, HL7+25, HL7+27, HL7+34 |
| PTR101 | HL7+6~, HL7+27*, HL7+28, HL7+41, HL7+55*, HL7+56, HL7+69, HL7+78*, HL7+79*, HL7+81 , BLDIGN+9~, BLDIGN+16*, BLDIGN+17, BLDIGN+19, BLDCUR+13~, BLDCUR+27*, BLDCUR+28, BLDCUR+30, BLDCUR+32, BLDCUR+34 , BLDCUR+35, ADDLIST+17~, ADDLIST+19*, ADDLIST+20*, ADDLIST+24, ADDLIST+26 |
| PTRMULT | BLDCUR+13~, BLDCUR+25*, BLDCUR+26*, BLDCUR+27 |
| SUBSCRIB | BLDCUR+13~ |
| SUBSCRIB("DILIST" | BLDCUR+22, BLDCUR+24 |
| TEXT | HL7+6~, HL7+15, HL7+17!, HL7+20, HL7+23!, HL7+26, HL7+30!, HL7+40, HL7+44!, HL7+49 , HL7+51!, HL7+54, HL7+58!, HL7+68, HL7+73!, HL7+77, HL7+80!, HL7+81*, HL7+82, HL7+83! , HL7+89, BLDIGN+9~, BLDIGN+12*, BLDIGN+13*, BLDIGN+14, BLDIGN+16, BLDIGN+19 |
| TEXT(1 | HL7+9*, HL7+18*, HL7+24*, HL7+31*, HL7+45*, HL7+52*, HL7+59*, HL7+74*, HL7+84* |
| TEXT(2 | HL7+10*, HL7+19*, HL7+25*, HL7+32*, HL7+46*, HL7+53*, HL7+60*, HL7+75*, HL7+85* |
| TEXT(3 | HL7+11*, HL7+33*, HL7+47*, HL7+61*, HL7+76*, HL7+86* |
| TEXT(4 | HL7+12*, HL7+34*, HL7+48*, HL7+62*, HL7+87* |
| TEXT(5 | HL7+13*, HL7+35*, HL7+63*, HL7+88* |
| TEXT(6 | HL7+14*, HL7+36*, HL7+64* |
| TEXT(7 | HL7+37*, HL7+65* |
| TEXT(8 | HL7+38*, HL7+66* |
| TEXT(9 | HL7+39*, HL7+67* |
| WHOOPS | HL7+6~, HL7+69 |
| WHOOPS( | HL7+79, HL7+81 |
| WHOOPS(0 | HL7+71 |
| Name | Field # of Occurrence |
|---|---|
| $T(IGNORE+LINE | BLDIGN+12 |