source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSD4C010.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 592 bytes
Line 
1YSD4C010 ;DALISC/LJA - Process-continuation Logic ; [ 04/06/94 1:09 PM ]
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;;
4 ;
5DO(TYPE) ; Determine whether the process should continue...
6 ; Called by YSD4DSM
7 ; Fill in logic later, if needed...
8 D @TYPE
9 QUIT YSD4OK ;->
10 ;
11OVERALL ;
12 S YSD4OK=0
13 S YSD4OK=1
14 QUIT
15 ;
16ADDFILES ;
17 S YSD4OK=0
18 S YSD4OK=1
19 QUIT
20 ;
21CONVDSM ;
22 S YSD4OK=0
23 S YSD4OK=1
24 QUIT
25 ;
26MRCONV ;
27 S YSD4OK=0
28 S YSD4OK=1
29 QUIT
30 ;
31GPNCONV ;
32 S YSD4OK=0
33 S YSD4OK=1
34 QUIT
35 ;
36DRCONV ;
37 S YSD4OK=0
38 S YSD4OK=1
39 QUIT
40 ;
41EOR ;YSD4C010 - Process-continuation Logic ; [ 04/06/94 10:02 AM ]
Note: See TracBrowser for help on using the repository browser.