VAQLED07 ;ALB/JFP,JRP - DISPLAY MINIMAL DATA/ADD NEW PATIENT ;01MAR93 [ 12/04/96 9:23 AM ]
Source file <VAQLED07.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EP | ; -- Main entry point for the list processor
; Note: sets flag 'VAQADFL' if required elements are blank |
|
EXTR | ; -- Extract PDX minimal data
|
|
INIT | ; -- Builds array of minimal data for the patient entered (DFN)
|
|
HD | ; -- Make header line for list processor
|
|
ADD | ; -- Adds new patient to local data base
|
|
LOAD | ; -- Loads fields to patient file
|
|
TMPADDR | ; -- Checks to see if temporary address dates are active and flag set
; -- active flag |
|
ERRMSG | ; -- Displays error message
|
|
DISMSG | ; -- Display status message
|
|
TMP | ; -- Set the array used by list processor
|
|
CHKNULL | ; -- Sets missing data flag if it finds a required field null
; Added quit condition. NOIS ISD-0495-40199 |
|
TRANEX | ; -- Transaction exit
|
|
WORKLD | ; -- Updates work load file
|
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |