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 |
