Routine: DVBCUTL5

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

DVBCUTL5 ;ALB/GTS-AMIE C&P APPT LINK USER SEL RTNS ; 10/20/94 1:00 PM

Name	Comments	DBIA/ICR reference
REQARY	;** Create Array of 2507's for veteran
REQSEL	;** Select 2507
FINDDA	;** Loop ^TMP, get 396.3 DA
SELREQ	;** Select 2507 from ^TMP
OPENCHK(REQDA)	;** Check for open exam on 2507
REQPAT()	;** Select patient who has 2507's
CPPATARY(DVBADFN)	;** Set ^TMP of 2507's for vet
NO2507	;** 2507 not selected, error
SDEVTSPC(DVBAPCE)	;**Return piece of 'S' node in Sched event
SDEVTXST()	;** Check ^TMP("SDEVT",$J) existence
SDORGST()	;** Return value of SD Event originating process

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select a 2507 request",! Line Location: REQSEL+6
Function Call: WRITE	Prompt: ! Line Location: SELREQ+8