Routine: VAQREQ02

Information

VAQREQ02 ;ALB/JFP - PDX, REQUEST PATIENT DATA, REQUEST SCREEN;01MAR93

Name	Comments	DBIA/ICR reference
EP	; -- Main entry point for the list processor (called from protocol ; vaq create request) ; -- K XQORS,VALMEVL (only kill on the first screen in)
EP1
INIT	; -- Initializes variables and defines screen
SETD	;
WSEG	;
TMP	; -- Set the array used by list processor
HD	; -- Make header line for list processor
REQ	; -- Request Domain and Segment
COPY	; -- Copies segments selected from one domain to main domains
TRAN	; -- Transmits, Signature, Notify list)
TRANEX
PAT	; -- Change patient by exiting back to patient prompt
EXIT	; -- Note: The list processor cleans up its own variables. ; All other variables cleaned up here.
EXIT1
END	; -- End of code

Name	Line Occurrences
Function Call: WRITE	Prompt: !," ** No request to transmit on file" Line Location: TRAN+3
Function Call: WRITE	Prompt: !!,"WARNING...Exiting this option will delete untransmitted request for this patient" Line Location: EXIT+4