©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
BDGP1003 ;IHS/ITSC/LJF - PRE & POST INSTALL, ENVIRON CHECK FOR PATCH 1003
Source file <BDGP1003.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;EP;
|
|
| CDEF | ; mark awaiting transcription entries under Admin grouping
|
|
| FORM | ; update line 4 in ADT FORM - IHS format
|
|
| CKENV | ; environment check code
|
|
| KILLID | ; remove VA identifier from file 45.7
|
|
| OLDPATCH | ;;
|
|
| PATCH(X) | ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
|
|
| STUFF | ; stuff new "Print A Sheet at Admission" parameter to 1
; and reset days to delinquency if greater than 30 |
|
| DSFIX | ; find and fix any old day surgery entries without zero nodes
|
|
| CLEAN | ; clean out ADT ITEM file before restoring data
|
|
| BULL | ; send bulletins to appropriate users
|
|
| POST | ;EP; post install code
|
|
| PATCHES | ; mark package file entry with old PIMS patch #s required by CSV
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^BDGCD - [#9009016.4] | Classic Fileman Calls |
| ^BDGPAR - [#9009020.1] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ADGDS - [#9009012] | DSFIX+3, DSFIX+4* |
| ^ADGDS("B" | DSFIX+4* |
| ^BDGCD("B" | CDEF+5 |
| ^BDGFRM(1 | FORM+4, FORM+6, FORM+8 |
| ^BDGITM - [#9009016.9] | CLEAN+2! |
| ^BDGITM("B" | CLEAN+3! |
| ^BDGITM(0 | CLEAN+4* |
| ^BDGPAR - [#9009020.1] | STUFF+4 |
| ^DD(45.7 | KILLID+2! |
| ^DD(9.49 | PATCHES+11 |
| ^DIC(9.4 - [#9.4] | PATCH+4, PATCH+5, PATCH+7, PATCH+8, PATCHES+4, PATCHES+5, PATCHES+8 |
| ^XUSEC("DGZSYS" | BULL+4 |
| ^XUSEC("SDZAC" | BULL+8 |
| Name | Line Occurrences |
|---|---|
| $$PATCH | CKENV+6 |
| BULL | POST+1 |
| CDEF | POST+1 |
| DSFIX | POST+1 |
| FORM | POST+1 |
| KILLID | POST+1 |
| PATCHES | POST+1 |
| STUFF | POST+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BDGI | CDEF+2~, CDEF+4*, CDEF+5 |
| COUNT | PATCHES+2~, PATCHES+6* |
| DA | STUFF+3~, STUFF+4*, STUFF+5, STUFF+7, CDEF+2~, CDEF+5*, FORM+2~, FORM+4*, FORM+5, FORM+6* , FORM+7, FORM+8*, FORM+9, PATCHES+2~ |
| DA(1 | FORM+3*, PATCHES+10* |
| DA(2 | FORM+3*, PATCHES+10* |
| DIC | PATCHES+2~, PATCHES+9* |
| DIC("DR" | PATCHES+12* |
| DIC("P" | PATCHES+11* |
| DIC(0 | PATCHES+10* |
| DIE | STUFF+3~, STUFF+6*, STUFF+8*, CDEF+2~, CDEF+3*, FORM+2~, FORM+3* |
| DR | STUFF+3~, STUFF+6*, STUFF+8*, CDEF+2~, CDEF+3*, FORM+2~, FORM+5*, FORM+7*, FORM+9* |
| DT | PATCHES+12 |
| DUZ | PATCHES+12 |
| DUZ(2 | DSFIX+5 |
| I | PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8 |
| IEN | DSFIX+2~*, DSFIX+3*, DSFIX+4, DSFIX+5 |
| J | PATCH+3~, PATCH+5*, PATCH+7, PATCH+8 |
| >> NMSP | PATCHES+3*, PATCHES+4, PATCHES+7 |
| NUM | PATCH+3~, PATCH+8*, PATCH+9 |
| PATCH | CKENV+5*, CKENV+6, CKENV+7, PATCHES+2~, PATCHES+6*, PATCHES+8, PATCHES+12 |
| PKG | PATCHES+2~, PATCHES+4*, PATCHES+5, PATCHES+8, PATCHES+9, PATCHES+10 |
| U | CLEAN+4, PATCHES+11 |
| USER | BULL+2~, BULL+4*, BULL+8* |
| VER | PATCHES+2~, PATCHES+5*, PATCHES+8, PATCHES+9, PATCHES+10 |
| X | PATCH~, PATCH+2, PATCH+4, PATCH+5*, PATCH+7, PATCH+8, PATCH+9, CLEAN+1~, CLEAN+2*, PATCHES+2~ , PATCHES+12* |
| XMB | BULL+2~, BULL+3*, BULL+7* |
| XMDT | BULL+2~, BULL+3*, BULL+7* |
| XMY | BULL+2~, BULL+8! |
| XMY( | BULL+4*, BULL+8* |
| >> XPDDIQ("XPZ1" | CKENV+2* |
| >> XPDQUIT | CKENV+7* |
| >> XPPDIQ("XPZ2" | CKENV+2* |
| Y | PATCHES+2~ |
| Name | Field # of Occurrence |
|---|---|
| $T(OLDPATCH+COUNT | PATCHES+6, PATCHES+7 |