PXKIMM ;BP/LMT - Main Routine for filing immunization multiples ;10/11/2017
Source file <PXKIMM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLEAN(PXKNODE) | ; Clean for IMM multiples. Check to see if PXKAV=PXKBV
|
|
| DIE | ; File data for multiples
|
|
| PURGE(PXKNODE) | ; Before filing edits for an entry, purge multiples
|
|
| CMPRWP(PXKLIST1,PXKLIST2) | ; Compares two word-processing arrays for equivalence.
|
|
| CMPR(PXKDIFF,PXKLIST1,PXKLIST2) | ;
|
|
| CONCAT(PXKLIST) | ; Concatenates array into a caret ('^') delimited string
|
|
| ER | ; Check if data was filed ok
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVIMM - [#9000010.11] | WP^DIE |
