PXVP210 ;BPOIFO/LMT - PX*1*210 KIDS Routine ;11/03/15 16:47
Source file <PXVP210.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ; pre-install entry for patch PX*1*210
|
|
| POST | ; KIDS Post install for PX*1*210
|
|
| CVIMMXR | ; Update ACR cross-reference on V IMMUNIZATION file
|
|
| CIMMXR | ; Create ACR cross-reference on IMMUNIZATION file
|
|
| BLDVIMM | ; Rebuild Clinical Reminder index on V Immunization file
|
|
| BLDVIMMT | ; Queued entry point to rebuild index
|
|
| DDSEC | ; Update security access codes on Immunization and Skin Test files
|
|
| TSKDSG | ; Task job to split Dosage into Dose and Units
|
|
| DOSAGE | ; Loop through all V Immunization records and determine if Dosage needs to be split
|
|
| SPLITDSG(PXIEN) | ; Split Dosage field
|
|
| MVDIAGS | ;
; move the data in the old DIAGNOSIS fields of the V SKIN TEST file ; (#9000010.12) to the new fields: ; from old fields .08, .09, .1, .11, .12, .13, .14, .15 ; to new fields 801, 802, 803, 804, 805, 806, 807, 808 respectively. |
|
| MVDONE | ; DIAGNOSIS data move completed
|
|
| RMVFLD | ; remove DDs for old diagnosis fields .08 to .15
|
|
| DELFLD | ; delete field if it exists
|
|
| DELSCRN | ; Delete screen nodes from V Immunization .01 DD
|
|
| BMES(STR) | ;
; Write string |
|
| MES(STR) | ;
; Write string |
| FileNo | Call Tags |
|---|---|
| ^AUPNVSK - [#9000010.12] | GET1^DID |
