©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
BDGP17PS ;ihs/cmi/maw - PIMS Patch 1017 env checker
Source file <BDGP17PS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IMES | ;
|
|
| RCMP | ;-- recompile the SDAMXOE template
|
|
| SORRY(X) | ;
|
|
| ENV | ;-- environment check
|
|
| INSTALLD(BDGSTAL) | ;EP - Determine if patch BDGSTAL was installed, where
; BDGSTAL is the name of the INSTALL. E.g "AG*6.0*11". |
|
| POST | ;post init entry point
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(9.4 - [#9.4] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIE("B" | RCMP+2 |
| Name | Line Occurrences |
|---|---|
| $$INSTALLD | ENV+1, ENV+2, ENV+3 |
| IMES | INSTALLD+7, INSTALLD+10, INSTALLD+14 |
| RCMP | POST+1 |
| SORRY | ENV+1, ENV+2, ENV+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BDGSTAL | INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1 |
| BDGY | INSTALLD+3~, INSTALLD+13*, INSTALLD+15 |
| >> D | INSTALLD+5* |
| DIC | INSTALLD+3~, INSTALLD+5*, INSTALLD+8*, INSTALLD+11* |
| DIC(0 | INSTALLD+5* |
| DIFQ | SORRY+1! |
| IOM | IMES+1, SORRY+4 |
| TIEN | RCMP+1~, RCMP+2*, RCMP+3, RCMP+4 |
| X | INSTALLD+3~, INSTALLD+4*, INSTALLD+8*, INSTALLD+11*, SORRY~, SORRY+2, SORRY+3 |
| >> XPDQUIT | SORRY+2*, SORRY+3* |
| Y | INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1 |