DVBCUTL5 ;ALB/GTS-AMIE C&P APPT LINK USER SEL RTNS ; 10/20/94 1:00 PM
Source file <DVBCUTL5.m>
| 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 | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |