©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
BTIUP2 ; IHS/ITSC/LJF - POST INSTALL FOR PATCH 1002
Source file <BTIUP2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;EP; beginning of pre install code
|
|
| DOCDEF | ; clean up any dangling pointers in Document Definition file
|
|
| ENV | ;EP environment check
|
|
| OBJECT | ;;
|
|
| OBJFIX | ; fix definition of objects previously sent
|
|
| PATCH(X) | ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
|
|
| OBJCHK | ; clean up object description file .01 pointers
|
|
| CLEAN | ; clean out BTIU OBJECT DESCRIPTION file before restoring data
|
|
| POST | ;EP; beginning of post install code
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^TIU(8925.1 - [#8925.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BTIUOD( | CLEAN+2!, OBJCHK+3 |
| ^BTIUOD("B" | CLEAN+3! |
| ^BTIUOD(0 | CLEAN+4* |
| ^DIC(9.4 - [#9.4] | PATCH+4, PATCH+5, PATCH+7, PATCH+8 |
| ^TIU(8925.1 - [#8925.1] | OBJCHK+8, DOCDEF+2, DOCDEF+3, DOCDEF+5, DOCDEF+6, DOCDEF+7, DOCDEF+8, DOCDEF+9, DOCDEF+12!, DOCDEF+13! , DOCDEF+14!, DOCDEF+15!, OBJFIX+3, OBJFIX+4* |
| Name | Line Occurrences |
|---|---|
| $$PATCH | ENV+4 |
| DOCDEF | POST+1 |
| OBJCHK | POST+1 |
| OBJFIX | POST+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | OBJCHK+1~, OBJCHK+10* |
| DIE | OBJCHK+1~, OBJCHK+2* |
| DOC | DOCDEF+1~, DOCDEF+2*, DOCDEF+3, DOCDEF+5, DOCDEF+6, DOCDEF+8, DOCDEF+9, DOCDEF+12, DOCDEF+13, DOCDEF+14 , DOCDEF+15 |
| DR | OBJCHK+1~, OBJCHK+10* |
| I | PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8, OBJFIX+1~, OBJFIX+2* |
| IEN | OBJCHK+1~, OBJCHK+3*, OBJCHK+4, OBJCHK+5, OBJCHK+10, OBJFIX+1~, OBJFIX+3*, OBJFIX+4 |
| ITEM | DOCDEF+1~, DOCDEF+4*, DOCDEF+5*, DOCDEF+6, DOCDEF+8, DOCDEF+9, DOCDEF+12, DOCDEF+13, DOCDEF+14, DOCDEF+15 |
| J | PATCH+3~, PATCH+5*, PATCH+7, PATCH+8 |
| NAME | OBJFIX+1~, OBJFIX+2*, OBJFIX+3 |
| NUM | PATCH+3~, PATCH+8*, PATCH+9 |
| >> PATCH | ENV+3*, ENV+4, ENV+5 |
| PNAME | OBJCHK+1~, OBJCHK+4*, OBJCHK+6 |
| PTR | OBJCHK+1~, OBJCHK+8*, OBJCHK+9, OBJCHK+10, DOCDEF+1~, DOCDEF+6*, DOCDEF+7, DOCDEF+12 |
| SEQ | DOCDEF+1~, DOCDEF+8*, DOCDEF+13 |
| SNAME | OBJCHK+1~, OBJCHK+5*, OBJCHK+6, OBJCHK+8 |
| TEXT | DOCDEF+1~, DOCDEF+9*, DOCDEF+14 |
| U | CLEAN+4, DOCDEF+6, DOCDEF+8, DOCDEF+9 |
| X | PATCH~, PATCH+2, PATCH+4, PATCH+5*, PATCH+7, PATCH+8, PATCH+9, CLEAN+1~, CLEAN+2* |
| >> XPDDIQ("XPZ1" | ENV+1* |
| >> XPDDIQ("XPZ2" | ENV+1* |
| >> XPDQUIT | ENV+5* |
| Name | Field # of Occurrence |
|---|---|
| $T(OBJECT+I | OBJFIX+2, OBJFIX+4 |