Routine: VAQLED02

Information

VAQLED02 ;ALB/JFP - PDX, LOAD/EDIT,SETUP OF DIFFERENCES;01MAR93

Name	Comments	DBIA/ICR reference
EP	; -- Main entry point for the list processor ; -- K XQORS,VALMEVL ;(only kill on the first screen in)
INIT	; -- Builds array of differences between PDX minimal and the local ; data stored in file 2.
HD	; -- Make header line for list processor
FIELD	; -- Updates local patient file by field or fields selected
UPDATE	; -- Loads fields for update
UPDTER1	; -- Updates patient with PDX data (field by field) NON MUTIPLE
UPDTEM1	; -- Updates patient with PDX data (field by field) MULTIPLE ; Loads pointer to main file
UPDTEM2	; -- Load fields into sub file for entry
LOAD	; -- Loads all different fields from PDX segment to local patient file
TRANEX	; -- Pauses screen
WORKLD	; -- Updates workload file for update
KILL	; --
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	Prompt: !,"Local patient pointer missing... unable to upload field" Line Location: UPDATE+3
Function Call: WRITE	Prompt: !,"Could not edit entry... record locked" Line Location: UPDATE+11
Function Call: WRITE	Prompt: !,"Error updating workload file (UPDTE)... "_$P(X,U,2) Line Location: WORKLD+2
Function Call: WRITE	Prompt: !,"Error updating workload file (SNSTVE)... "_$P(X,U,2) Line Location: WORKLD+5