©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
BDGP1004 ;IHS/ITSC/LJF - PRE & POST INSTALL, ENVIRON CHECK FOR PATCH 1004
Source file <BDGP1004.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;EP;
|
|
| BHLFIX | ; fix sequence for old, no longer supported PYXIS call in ADT event driver
; PYXIS routine changes value of DGPMCA |
|
| CRBFIX | ; adjust the captions fo the E-Code line on distributed A Sheet forms
|
|
| CKENV | ; environment check code
|
|
| ICDATES | ; stuff IC date parameters if not currently filled in
|
|
| TEST(X) | ; return 1 if site is running an iteration version of patch
|
|
| PATCH(X) | ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
|
|
| ABWL | ; run all cross-references for Waiting List so new AB xref is built
|
|
| BULL | ; send bulletins to appropriate users
|
|
| POST | ;EP; post install code
|
|
| UB92 | ; convert Discharge UB92 set of codes to pointer
; only IEN 10 for mental health facility needs to be changed ; no xrefs on either file (405 or V Hosp) |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^BSDWL - [#9009017.1] | Classic Fileman Calls |
| ^BDGPAR - [#9009020.1] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVINP - [#9000010.02] | UB92+10, UB92+11, UB92+12* |
| ^BDGFRM - [#9009016.8] | CRBFIX+8, CRBFIX+9, CRBFIX+16, CRBFIX+17 |
| ^BDGFRM("B" | CRBFIX+6, CRBFIX+14 |
| ^BDGITM("B" | CRBFIX+3 |
| ^BDGX("P1004" | UB92+3, UB92+13* |
| ^DGPM - [#405] | UB92+6, UB92+7, UB92+8* |
| ^DIC(9.4 - [#9.4] | PATCH+4, PATCH+5, PATCH+7, PATCH+8 |
| ^ORD(101 - [#101] | BHLFIX+3, BHLFIX+5, BHLFIX+7 |
| ^XPD(9.6 - [#9.6] | TEST+2, TEST+3 |
| ^XUSEC("DGZADT" | BULL+4 |
| ^XUSEC("DGZPCC" | BULL+9 |
| ^XUSEC("SDZAC" | BULL+15 |
| ^XUSEC("SDZWAIT" | BULL+14 |
| Name | Line Occurrences |
|---|---|
| $$PATCH | CKENV+6 |
| $$TEST | CKENV+10 |
| ABWL | POST+1 |
| BHLFIX | POST+1 |
| BULL | POST+1 |
| CRBFIX | POST+1 |
| ICDATES | POST+1 |
| UB92 | POST+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | BHLFIX+2~, BHLFIX+7*, CRBFIX+1~, CRBFIX+9*, CRBFIX+13!, CRBFIX+17*, ICDATES+2~, ICDATES+3*, ICDATES+4 |
| DA(1 | BHLFIX+8*, CRBFIX+8*, CRBFIX+9, CRBFIX+10, CRBFIX+16*, CRBFIX+17, CRBFIX+18 |
| DA(2 | CRBFIX+6*, CRBFIX+7, CRBFIX+8, CRBFIX+9, CRBFIX+10, CRBFIX+14*, CRBFIX+15, CRBFIX+16, CRBFIX+17, CRBFIX+18 |
| DIE | BHLFIX+2~, BHLFIX+8*, CRBFIX+1~, CRBFIX+10*, CRBFIX+13!, CRBFIX+18*, ICDATES+2~, ICDATES+3* |
| >> DIK | ABWL+4* |
| DR | BHLFIX+2~, BHLFIX+9*, CRBFIX+1~, CRBFIX+11*, CRBFIX+13!, CRBFIX+19*, ICDATES+2~, ICDATES+5* |
| ECODE | CRBFIX+1~, CRBFIX+3*, CRBFIX+9, CRBFIX+17 |
| EVENT | BHLFIX+2~, BHLFIX+5*, BHLFIX+7, BHLFIX+8 |
| >> FIELD | ICDATES+4*, ICDATES+5 |
| I | PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8 |
| IEN | TEST+1~, TEST+2*, TEST+3, UB92+5~, UB92+6*, UB92+7, UB92+8, UB92+10*, UB92+11, UB92+12 |
| ITEM | BHLFIX+2~, BHLFIX+3*, BHLFIX+7 |
| J | PATCH+3~, PATCH+5*, PATCH+7, PATCH+8 |
| NUM | PATCH+3~, PATCH+8*, PATCH+9 |
| PATCH | CKENV+5~*, CKENV+6, CKENV+7, CKENV+10, CKENV+11 |
| U | UB92+7, UB92+8, UB92+11, UB92+12 |
| USER | BULL+2~, BULL+4*, BULL+7!, BULL+9*, BULL+12!, BULL+14*, BULL+15* |
| X | PATCH~, PATCH+2, PATCH+4, PATCH+5*, PATCH+7, PATCH+8, PATCH+9, TEST~, TEST+2 |
| XMB | BULL+2~, BULL+3*, BULL+7!, BULL+8*, BULL+12!, BULL+13* |
| XMDT | BULL+2~, BULL+3*, BULL+7!, BULL+8*, BULL+12!, BULL+13* |
| XMY | BULL+2~, BULL+7!, BULL+12! |
| XMY( | BULL+4*, BULL+9*, BULL+14*, BULL+15* |
| >> XPDDIQ("XPZ1" | CKENV+2* |
| >> XPDQUIT | CKENV+7*, CKENV+12* |
| >> XPPDIQ("XPZ2" | CKENV+2* |