©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
XU8P440 ;ISF/RWF - Post-INIT for XU*8*440. ;01/17/2008
Source file <XU8P440.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DD35 | ;Remove old HUNT GROUP field #29. OLDXY is in p463
|
|
| POST | ;Post-INIT
|
|
| DDGBL | ;Convert any data in the 'GBL' node to match new DD.
|
|
| DD8989 | ;See that MIXED OS is a 0 or 1
|
|
| DD32 | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | DD35+3, DDGBL+3, DDGBL+4, DDGBL+5* |
| ^%ZIS(2 - [#3.2] | DD32+3! |
| ^DD(3.2 | DD32+2, DD32+6 |
| ^DD(3.5 | DD35+2 |
| ^XTV(8989.3 - [#8989.3] | DD8989+2, DD8989+3* |
| Name | Line Occurrences |
|---|---|
| DD32 | POST+1 |
| DD35 | POST+1 |
| DD8989 | POST+1 |
| DDGBL | POST+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DD35+3, DDGBL+3 |
| ^(0 | DD35+3* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | DD35+1~, DD35+3* |
| CNT | DDGBL+1~, DDGBL+2*, DDGBL+5*, DDGBL+7 |
| DA | DD35+1~, DD35+3*, DD35+4*, DD32+1~, DD32+3*, DD32+4*, DD32+7*, DDGBL+1~, DDGBL+2*, DDGBL+3* , DDGBL+4, DDGBL+5 |
| DA(1 | DD35+4*, DD32+4*, DD32+7* |
| DIK | DD35+1~, DD35+4*, DD32+1~, DD32+4*, DD32+7* |
| U | DD35+3 |
| X | DD8989+1~, DD8989+2*, DD8989+3, DDGBL+1~, DDGBL+4*, DDGBL+5 |