YSD4C010 ;DALISC/LJA - Process-continuation Logic ; [ 04/06/94 1:09 PM ]
;;5.01;MENTAL HEALTH;;Dec 30, 1994
;;
;
DO(TYPE) ; Determine whether the process should continue...
; Called by YSD4DSM
; Fill in logic later, if needed...
D @TYPE
QUIT YSD4OK ;->
;
OVERALL ;
S YSD4OK=0
S YSD4OK=1
QUIT
;
ADDFILES ;
S YSD4OK=0
S YSD4OK=1
QUIT
;
CONVDSM ;
S YSD4OK=0
S YSD4OK=1
QUIT
;
MRCONV ;
S YSD4OK=0
S YSD4OK=1
QUIT
;
GPNCONV ;
S YSD4OK=0
S YSD4OK=1
QUIT
;
DRCONV ;
S YSD4OK=0
S YSD4OK=1
QUIT
;
EOR ;YSD4C010 - Process-continuation Logic ; [ 04/06/94 10:02 AM ]
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSD4C010 633 printed Nov 22, 2024@17:24:10 Page 2
YSD4C010 ;DALISC/LJA - Process-continuation Logic ; [ 04/06/94 1:09 PM ]
+1 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
+2 ;;
+3 ;
DO(TYPE) ; Determine whether the process should continue...
+1 ; Called by YSD4DSM
+2 ; Fill in logic later, if needed...
+3 DO @TYPE
+4 ;->
QUIT YSD4OK
+5 ;
OVERALL ;
+1 SET YSD4OK=0
+2 SET YSD4OK=1
+3 QUIT
+4 ;
ADDFILES ;
+1 SET YSD4OK=0
+2 SET YSD4OK=1
+3 QUIT
+4 ;
CONVDSM ;
+1 SET YSD4OK=0
+2 SET YSD4OK=1
+3 QUIT
+4 ;
MRCONV ;
+1 SET YSD4OK=0
+2 SET YSD4OK=1
+3 QUIT
+4 ;
GPNCONV ;
+1 SET YSD4OK=0
+2 SET YSD4OK=1
+3 QUIT
+4 ;
DRCONV ;
+1 SET YSD4OK=0
+2 SET YSD4OK=1
+3 QUIT
+4 ;
EOR ;YSD4C010 - Process-continuation Logic ; [ 04/06/94 10:02 AM ]
