PXVPST01 ;BIR/CML3 - V IMMUNIZATION FILE CONVERSION ; 26 Sep 2014 9:38 AM
Source file <PXVPST01.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MVDIAGS | ;
; moves the data in the previous DIAGNOSIS fields to the new fields: ; the PRIMARY DIAGNOSIS (#1304) and the OTHER DIAGNOSIS (#3) multiple ; this is a one-time task ; ^AUPNVIMM( is the V IMMUNIZATION file (#9000010.11) ; PXVV is the IENs of that file ; PXVD are pieces 8-15 of the zero node, where the data for the ; previous diagnosis fields (#s .08 thru .15) is stored |
|
| MVDONE | ; DIAGNOSIS data move completed
|
|
| RMVFLD | ;
; following code no longer needed . . . ; I $P($G(^DD(9000010.11,.1,0)),"^")="DIAGNOSIS 3" K DA S DIK="^DD(9000010.11,",DA=.1,DA(1)=9000010.11 D ^DIK |
| FileNo | Call Tags |
|---|---|
| ^AUPNVIMM - [#9000010.11] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVIMM - [#9000010.11] | MVDIAGS+12, MVDIAGS+15*, MVDIAGS+19* |
| Name | Field # of Occurrence |
|---|---|
| ^( | MVDIAGS+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | MVDIAGS+8~, MVDIAGS+9, MVDONE+1 |
| %H | MVDIAGS+8~ |
| %I | MVDIAGS+8~ |
| CNT | MVDIAGS+8~, MVDIAGS+11*, MVDIAGS+14*, MVDONE+2 |
| DA | MVDIAGS+8~, MVDIAGS+15!*, MVDIAGS+18! |
| DA(1 | MVDIAGS+18* |
| DIC | MVDIAGS+8~, MVDIAGS+18!* |
| DIC(0 | MVDIAGS+18* |
| DIE | MVDIAGS+8~, MVDIAGS+15* |
| DIK | MVDIAGS+8~ |
| DR | MVDIAGS+8~, MVDIAGS+15* |
| PXVD | MVDIAGS+8~, MVDIAGS+12*, MVDIAGS+14, MVDIAGS+17 |
| PXVNOW | MVDIAGS+8~, MVDIAGS+9*, MVDIAGS+10, MVDONE+1*, MVDONE+3 |
| PXVV | MVDIAGS+8~, MVDIAGS+11*, MVDIAGS+12*, MVDIAGS+15, MVDIAGS+18, MVDIAGS+19 |
| Q | MVDIAGS+8~, MVDIAGS+17*, MVDIAGS+19, MVDONE+2!, MVDONE+4 |
| Q(1 | MVDONE+2* |
| Q(2 | MVDONE+3* |
| Q(3 | MVDONE+2* |
| X | MVDIAGS+8~, MVDIAGS+14*, MVDIAGS+15, MVDIAGS+17* |
| Y | MVDIAGS+8~, MVDIAGS+9*, MVDONE+1* |
