©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
BPMPRE ; IHS/OIT/NKD - Pre-install for BPM - 6/26/12 ;
Source file <BPMPRE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;
; CLEANUP PACKAGE FILE |
|
| DEL151 | ;
; REMOVE ALL FILE #15.1 ENTRIES EXCEPT FOR THE VA PATIENT FILE #2 |
|
| SETSEC(AUDIT,DD,DEL,LAYGO,RD,WR,SECURITY) | ;
; CREATE VARIABLE FOR FILESEC^DDMOD |
|
| MOD151 | ;
; CORRECT FILE #15.1 FIELDS FOR THE VA PATIENT FILE #2 |
|
| FIXDD | ;
; FIX FILEMAN ACCESS ON BPM FILES |
|
| FIXPKG | ;
; REMOVE INVALID 'AFFECTS RECORD MERGE' ENTRIES FROM PACKAGE FILE |
| Name | Field # of Occurrence |
|---|---|
| FILESEC^DDMOD | FIXDD+6, FIXDD+9, FIXDD+12, FIXDD+15, FIXDD+18 |
| LIST^DIC | DEL151+4 |
| UPDATE^DIE | MOD151+18, MOD151+24 |
| ^DIK | DEL151+9 |
| ENALL^DIK | FIXPKG+13 |
| $$GET1^DIQ | FIXPKG+6, FIXPKG+7 |
| GETS^DIQ | MOD151+20 |
| BMES^XPDUTL | FIXPKG+3, FIXDD+3, DEL151+3, DEL151+8, MOD151+3 |
| MES^XPDUTL | FIXPKG+7 |
| FileNo | Call Tags |
|---|---|
| ^VA(15 - [#15] | FILESEC^DDMOD |
| ^VA(15.1 - [#15.1] | Classic Fileman Calls, FILESEC^DDMOD, GETS^DIQ, LIST^DIC |
| ^VA(15.2 - [#15.2] | FILESEC^DDMOD |
| ^VA(15.3 - [#15.3] | FILESEC^DDMOD |
| ^XDRM - [#15.4] | FILESEC^DDMOD |
| ^DIC(9.4 - [#9.4] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | FIXPKG+5, FIXPKG+7!, FIXPKG+10!, FIXPKG+13 |
| Name | Line Occurrences |
|---|---|
| DEL151 | PRE+6 |
| FIXDD | PRE+4 |
| FIXPKG | PRE+2 |
| MOD151 | PRE+8 |
| SETSEC | FIXDD+5, FIXDD+8, FIXDD+11, FIXDD+14, FIXDD+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AUDIT | SETSEC~, SETSEC+2 |
| BPMCNT | DEL151+2~, DEL151+5*, DEL151+6 |
| BPMOUT | DEL151+2~, MOD151+2~ |
| BPMOUT( | MOD151+22, MOD151+23* |
| BPMOUT("DILIST" | DEL151+5, DEL151+7, DEL151+8, DEL151+9 |
| DA | FIXPKG+2~, DEL151+2~, DEL151+9* |
| DA(1 | FIXPKG+12*, FIXPKG+13* |
| DD | SETSEC~, SETSEC+3 |
| DEL | SETSEC~, SETSEC+4 |
| DIK | FIXPKG+2~, FIXPKG+11~*, DEL151+2~, DEL151+9* |
| DIK(1 | FIXPKG+11* |
| FDA | MOD151+2~ |
| FDA( | MOD151+4*, MOD151+5*, MOD151+6*, MOD151+7*, MOD151+8*, MOD151+9*, MOD151+10*, MOD151+11*, MOD151+12*, MOD151+13* , MOD151+14*, MOD151+15*, MOD151+16*, MOD151+17* |
| I | DEL151+2~, DEL151+6*, DEL151+7, DEL151+8, DEL151+9, MOD151+2~, MOD151+21*, MOD151+22*, MOD151+23 |
| IEN | FIXPKG+2~, FIXPKG+4*, FIXPKG+5*, FIXPKG+6, FIXPKG+7 |
| LAYGO | SETSEC~, SETSEC+5 |
| RD | SETSEC~, SETSEC+6 |
| SECURITY | FIXDD+2~, FIXDD+5!, FIXDD+6, FIXDD+8!, FIXDD+9, FIXDD+11!, FIXDD+12, FIXDD+14!, FIXDD+15, FIXDD+17! , FIXDD+18, SETSEC~ |
| SECURITY("AUDIT" | SETSEC+2* |
| SECURITY("DD" | SETSEC+3* |
| SECURITY("DEL" | SETSEC+4* |
| SECURITY("LAYGO" | SETSEC+5* |
| SECURITY("RD" | SETSEC+6* |
| SECURITY("WR" | SETSEC+7* |
| WR | SETSEC~, SETSEC+7 |