VAQLED05 ;ALB/JFP,JRP - PDX, LOAD/EDIT DIFFERENCES,SCREEN;01MAR93
Source file <VAQLED05.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EP | ; -- Main entry point
|
|
| EP1 | ||
| MAIN | ; -- Loops thru patient file looking for differences by field
|
|
| MULT | ; -- Loop thru multiple associated with patient file
|
|
| M1 | ||
| MLOAD | ; -- Loads .01 field of multiple into an array for compare (patient)
|
|
| MULTDIF | ; -- Displays entries which do not match .01
|
|
| DISP1 | ; -- Display line 1
|
|
| DISP2 | ; -- Display line 2
|
|
| DISP3 | ; -- Display line 3
|
|
| DISP4 | ; -- Displays all fields associated with multiple from transaction file
|
|
| D41 | ||
| KILL | ; -- Kills entries which are not different for work arrays
|
|
| KILL1 | ||
| KILL2 | ||
| KF | ; -- kills fields in subfile
|
|
| TMP | ; -- Set the array used by list processor
|
|
| MSG | ; -- Displays entries not passing the input transform
|
|
| TMP2 | ; -- Sets array for list processor for message
|
|
| EXIT | ; -- Note: The list processor cleans up its own variables.
; All other variables cleaned up here. |
|
| END | ; -- End of code
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
