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 |