PXVPST01 ;BIR/CML3 - V IMMUNIZATION FILE CONVERSION ; 26 Sep 2014 9:38 AM
Source file <PXVPST01.m>
| 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 |
