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
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | BLDINV+3, DEL+18 |
| FIND^DIC | TOPOG+2, COLSAMP+3, LABTSTS+9, DEL+2, DEL+10, DEL+25 |
| ^DIE | LABTSTS+34, DEL+7, DEL+15, DEL+21, DEL+30 |
| UPDATE^DIE | TOPOG+8, COLSAMP+16, LABTSTS+27, BLDINV+17 |
| GETS^DIQ | ACNAREA+6 |
| ^DIR | DIR+4 |
| $$CHGADPRT^VBECRPCC | XPAR+12 |
| $$CONTEXT^VBECRPCC | XPAR+6 |
| $$NOW^XLFDT | BLDINV+10, BLDINV+16 |
| BMES^XPDUTL | TOPOG+1, COLSAMP+1, LABTSTS+3, XPAR+2, BLDINV+1 |
| MES^XPDUTL | TOPOG+4, TOPOG+10, TOPOG+11, COLSAMP+5, COLSAMP+18, COLSAMP+22, LABTSTS+11, LABTSTS+12, LABTSTS+29, LABTSTS+31 , LABTSTS+40, XPAR+5, XPAR+7, XPAR+8, XPAR+11, XPAR+13, XPAR+14, BLDINV+4, BLDINV+5, BLDINV+19 , BLDINV+20, DEL+4, DEL+12, DEL+20, DEL+27 |
| $$ENCRYP^XUSRB1 | XPAR+6 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | LABTSTS+30, LABTSTS+32, LABTSTS+38*, LABTSTS+39* |
| ^LAB(62 - [#62] | COLSAMP+20*, COLSAMP+21*, LABTSTS+23 |
| ^LAB(62.05 - [#62.05] | LABTSTS+17 |
| ^LRO(68 - [#68] | ACNAREA+3, ACNAREA+4, ACNAREA+5, ACNAREA+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | COLSAMP+2~, COLSAMP+6*, COLSAMP+11, LABTSTS+4~, LABTSTS+7*, LABTSTS+23, LABTSTS+26, LABTSTS+36*, LABTSTS+38, ACNAREA+1~ , ACNAREA+2*, ACNAREA+8* |
| DA | LABTSTS+32*, DEL+1~, DEL+7*, DEL+8!, DEL+15*, DEL+16!, DEL+21*, DEL+22!, DEL+30* |
| DIDEL | LABTSTS+33*, DEL+1~, DEL+7*, DEL+8!, DEL+15*, DEL+16!, DEL+21*, DEL+22!, DEL+30* |
| DIE | LABTSTS+33*, DEL+1~, DEL+7*, DEL+8!, DEL+15*, DEL+16!, DEL+21*, DEL+22!, DEL+30* |
| >> DIR("A" | DIR+2* |
| >> DIR(0 | DIR+3* |
| >> DIV | ACNAREA+5*, ACNAREA+6, ACNAREA+7, ACNAREA+8 |
| DO | LABTSTS+32!, DEL+24! |
| DR | LABTSTS+33*, DEL+1~, DEL+7*, DEL+8!, DEL+15*, DEL+16!, DEL+21*, DEL+22!, DEL+30* |
| >> I | LABTSTS+36*, LABTSTS+37, LABTSTS+39, DEL+6*, DEL+14*, DEL+29* |
| >> INST | ACNAREA+7*, ACNAREA+8 |
| LABTST | DIR~, DIR+2 |
| OUT | COLSAMP+2~, LABTSTS+4~, LABTSTS+14~ |
| OUT("DIERR" | COLSAMP+17, LABTSTS+28, LABTSTS+35, BLDINV+18 |
| OUT("DILIST" | TOPOG+3, COLSAMP+4, LABTSTS+10, DEL+3, DEL+6, DEL+7, DEL+11, DEL+14, DEL+15, DEL+26 , DEL+29, DEL+30 |
| OUT("ERROR" | TOPOG+9, TOPOG+12 |
| OUT(4 | ACNAREA+7 |
| >> VBCOL | LABTSTS+25*, LABTSTS+26 |
| VBDATA | LABTSTS+8*, LABTSTS+9, LABTSTS+11, LABTSTS+12, LABTSTS+15, LABTSTS+18, LABTSTS+20, LABTSTS+22, LABTSTS+24, LABTSTS+25 , LABTSTS+29, LABTSTS+30, LABTSTS+32, LABTSTS+40, XPAR+3~, XPAR+4*, XPAR+5, XPAR+6, XPAR+7, XPAR+8 , DEL+1~, DEL+24*, DEL+25, DEL+27 |
| VBECARY | COLSAMP+19*, COLSAMP+20, COLSAMP+21, LABTSTS+5, LABTSTS+35, ACNAREA~ |
| VBECARY( | COLSAMP+19, COLSAMP+21, LABTSTS+36, LABTSTS+37, ACNAREA+8* |
| VBECFDA | TOPOG+5~, COLSAMP+2~, LABTSTS+4~, LABTSTS+14~, BLDINV+2~, BLDDONOR+1~ |
| VBECFDA(1 | TOPOG+6*, TOPOG+7*, COLSAMP+7*, COLSAMP+8*, COLSAMP+9*, COLSAMP+10*, COLSAMP+11*, LABTSTS+15*, LABTSTS+16*, LABTSTS+17* , LABTSTS+18*, LABTSTS+19*, LABTSTS+20*, LABTSTS+23*, LABTSTS+26*, BLDINV+6*, BLDINV+7*, BLDINV+8*, BLDINV+9*, BLDINV+10* , BLDINV+11*, BLDINV+12*, BLDINV+13*, BLDINV+15*, BLDINV+16* |
| >> VBECI | COLSAMP+19*, COLSAMP+20, LABTSTS+8*, XPAR+4*, DEL+24* |
| VBECLIEN | LABTSTS+4~, LABTSTS+14~ |
| VBIEN | DEL+1~, DEL+8!, DEL+16!, DEL+18*, DEL+19, DEL+21, DEL+22! |
| VBIENS | COLSAMP+2~, LABTSTS+14~ |
| VBIENS(1 | COLSAMP+19, COLSAMP+20, COLSAMP+21, COLSAMP+23, LABTSTS+35, LABTSTS+38, LABTSTS+39 |
| X | LABTSTS+37*, LABTSTS+38, LABTSTS+39, ACNAREA+2*, ACNAREA+3*, ACNAREA+4, ACNAREA+5, ACNAREA+8, DEL+1~, DEL+5* , DEL+6*, DEL+7, DEL+13*, DEL+14*, DEL+15, DEL+28*, DEL+29*, DEL+30 |
| >> XPDQUES("POSVLIPADDRESS" | XPAR+10, XPAR+12 |
| >> XPDQUES("POSVLPORT" | XPAR+10, XPAR+12 |
| >> Y | DIR+5 |
