source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPN18E.m

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1SPN18E ;SAN/WDE ENVIRONMENT CHECK FOR SPN*2.0*18;12/2/2002
2 ;;2.0;Spinal Cord Dysfunction;**18**;01/02/97
3 ;
4EN ;ENTRY
5 N ROU,TEST,VER,X,ZAP,P18
6 S ROU="SPNCTINA"
7 D CHK
8 I $G(ZAP)=1 S XPDABORT=2 W !,"***SPN*2.0*18 ABORTED***",! D EXIT Q
9 S ROU="DGUTL4"
10 D CHK2
11 I $G(ZAP)=1 S XPDABORT=2 W !,"***SPN*2.0*18 ABORTED***",! D EXIT Q
12 W !,"***Environment is fine***",!
13 K ROU,TEST,VER,ZAP,P18
14 Q
15CHK ;CHECK FOR PATCHED ROUTINE SPNCTINA
16 S X="S TEST=$T(+2^"_ROU_")" X X
17 S VER=$P(TEST,";",3),P18=$P(TEST,";",5)
18 I VER="" W !,"This account is missing some SPN routines!" S ZAP=1 Q
19 I VER'[2 W !,"This is not the current version of Spinal Cord!" S ZAP=1 Q
20 I P18'[19 W !,"Routine: ",ROU," is missing patch SPN*2*19" S ZAP=1
21 Q
22CHK2 ;CHECK FOR PATCHED ROUTINE DGUTL4
23 S X="S TEST=$T(+2^"_ROU_")" X X
24 S VER=$P(TEST,";",3),P18=$P(TEST,";",5)
25 I VER="" W !,"This account is missing some DG routines!" S ZAP=1 Q
26 I VER'[5.3 W !,"This is not the current version of DG!" S ZAP=1 Q
27 I P18'[415 W !,"Routine: ",ROU," is missing patch DG*5.3*415" S ZAP=1
28 Q
29EXIT ;
30 K ROU,TEST,VER,ZAP,P18
31 Q
Note: See TracBrowser for help on using the repository browser.