VBECPOST ;HIOFO;BNT VBECS 1.0 Post Install Routine ; 01/28/05 11:17
Source file <VBECPOST.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
; Add 'OTHER' TOPOGRAPHY FIELD if it doesn't exist. |
|
TOPOG() | ; Make sure the 'OTHER' TOPOGRAPHY FIELD file 61 entry exists.
|
|
COLSAMP() | ; Add the VBECS NO SPECIMEN REQUIRED entry to file 62
|
|
LABTSTS | ; Add the VBECS Lab Tests to file 60
; Input: VBSAMP = IEN of the VBECS - NO SPECIMEN REQUIRED ; Collection Sample file #62 entry. |
|
DIR(LABTST) | ; Ask user for Collection Sample for Lab Test
|
|
XPAR | ;Main entry point
|
|
ACNAREA(VBECARY) | ; Return Lab Blood Bank Accession Areas
|
|
BLDINV | ; Add Generic VBECS Blood Inventory for Lab Workload Reporting
|
|
BLDDONOR | ; Add Generic VBECS BLOOD DONOR for Lab Workload Reporting
|
|
DEL | ; Delete entries for testing
|
|
LST | ;;NAME^TYPE^HIGHEST URGENCY ALLOWED^PRINT NAME^SUBSCRIPT^COLLECTION SAMPLE^UNIQUE COLLECTION SAMPLE
|
|
PARMS | ; Build VBECS PARAMETERS
|
|
BI | ;;UNIT ID^SOURCE^INVOICE#^COMPONENT^DATE/TIME RECEIVED^EXP DATE/TIME^ABO GROUP^RH TYPE^DIVISION^DISP DATE
|
FileNo | Call Tags |
---|---|
^DIC(4 - [#4] | GETS^DIQ |
^LAB(60 - [#60] | Classic Fileman Calls, FIND^DIC |
^LAB(61 - [#61] | Classic Fileman Calls, FIND^DIC |
^LAB(62 - [#62] | Classic Fileman Calls, FIND^DIC |
^LRD(65 - [#65] | Classic Fileman Calls, FIND1^DIC |