source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSD4C000.m@ 1800

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

initial load of WorldVistAEHR

File size: 993 bytes
Line 
1YSD4C000 ;DALISC/LJA - Environment Check/Setup ; [ 04/12/94 8:28 AM ]
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;;
4 ;
5CHECKENV ; Check out environment... Set up variables defining "what
6 ; has been done", for use by subsequent processes...
7 ; Called by YSD4DSM
8 ;
9 S YSD4OK=0
10 ;
11 ; Have all three files been converted?
12 S YSD4ALL=1
13 F YSD4="MR CONVERSION COMPLETED","DR CONVERSION COMPLETED","GPN CONVERSION COMPLETED" D
14 . I $G(^YSD(627.99,"AS",YSD4))']"" S YSD4ALL=0
15 I YSD4ALL D QUIT ;->
16 . W !!,"DSM conversion has already run! Conversion has completed...",!!
17 . H 3
18 ;
19 S YSD4OK=1
20 QUIT
21 ;
22OKCONT(POS) ;
23 ; Called by YSD4DSM
24 S YSD4OK=0
25 ;
26 ; Move to bottom of page if requested...
27 I $G(POS) F I=1:1:POS W !
28 ;
29 N DIR
30 S DIR(0)="Y"
31 S DIR("A")=$S($G(YSD4DIRA)']"":"OK to continue",1:YSD4DIRA) K YSD4DIRA
32 S DIR("?")="Enter 'Y' to continue, or '^' or 'N' to stop ... "
33 D ^DIR
34 QUIT:+Y'=1 ;->
35 S YSD4OK=1
36 QUIT
37 ;
38EOR ;YSD4C000 - Environment Check/Setup ; [ 04/06/94 9:59 AM ]
Note: See TracBrowser for help on using the repository browser.