©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
PSAV3P53 ;VMP/PDW-POST INIT *53 FIND BAD 'C' INDEX, KILL OLD, SET PROPER 'C' & 'B' INDEXES; 8/20/05
Source file <PSAV3P53.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ST | ;walk 'C' entries finding bad entries , pull values, kill old, set new indexes
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSD(58.8 - [#58.8] | ST+4, ST+5, ST+6, ST+7!, ST+8!, ST+9*, ST+10*, ST+13, ST+15, ST+18 , ST+19!, ST+21*, ST+23*, ST+25, ST+26, ST+27, ST+28! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| PSADRG | ST+6*, ST+7, ST+8, ST+9, ST+10, ST+14*, ST+15*, ST+18, ST+19, ST+21 , ST+23, ST+25*, ST+26, ST+27, ST+28, ST+29! |
| PSADRG2 | ST+17*, ST+18*, ST+19, ST+27*, ST+28, ST+29! |
| PSALOC | ST+5*, ST+6, ST+7, ST+8, ST+9, ST+10, ST+12*, ST+13*, ST+15, ST+18 , ST+19, ST+21, ST+23, ST+26*, ST+27, ST+28, ST+29! |
| >> PSASHOW | ST+3, ST+7, ST+8, ST+9, ST+10, ST+11, ST+19, ST+21, ST+23, ST+24 , ST+28 |
| >> PSASUB | ST+1*, ST+4*, ST+5, ST+6, ST+7, ST+8 |
| >> X | ST+7, ST+8, ST+9, ST+10, ST+19, ST+21, ST+23, ST+28 |