source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUPROD.m@ 1569

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

WorldVistAEHR overlayed on FOIAVistA

File size: 1.4 KB
Line 
1XUPROD ;ISF/RWF - Is this a PROD account. ;06/17/2004 08:13
2 ;;8.0;KERNEL;**284**;Jul 10, 1995
3 ;
4 ;IA# 4440
5PROD(FORCE) ;Return 1 if this is a production account
6 ;A non-zero flag will force a real check
7 ;This call just checks a flag in the KSP, Other code will compair
8 ;with registered ID.
9 N LC,SID
10 S SID=$G(^XTV(8989.3,1,"SID"))
11 I '$L($P(SID,"^",3))!($P(SID,"^",3)'=$G(DT))!$G(FORCE) D
12 . D CHECK S SID=$G(^XTV(8989.3,1,"SID"))
13 Q +$P(SID,"^",1)
14 ;
15CHECK ;Check if SID matched stored value, Set field 501
16 N CSID,SSID,FDA
17 L +^XTV(8989.3,1,"SID"):2
18 S CSID=$$SID^%ZOSV,SSID=$P($G(^XTV(8989.3,1,"SID")),"^",2)
19 S FDA(8989.3,"1,",501)=(CSID=SSID),FDA(8989.3,"1,",503)=$$DT^XLFDT
20 D FILE^DIE("","FDA")
21 L -^XTV(8989.3,1,"SID")
22 Q
23 ;
24SSID(SID) ;Set the SID into KSP.
25 N FDA
26 S FDA(8989.3,"1,",502)=SID,FDA(8989.3,"1,",503)="@"
27 L +^XTV(8989.3,1,"SID"):2
28 D FILE^DIE("","FDA")
29 L -^XTV(8989.3,1,"SID")
30 Q
31ASK ;Ask user if this is prod.
32 N DIR,P S P=$$PROD
33 S DIR(0)="YO",DIR("A")="Is this a Production Account",DIR("B")="No"
34 S DIR("A",1)="This is now a "_$S(P:"PRODUCTION",1:"TEST")_" account."
35 S DIR("A",2)=" "
36 S DIR("A",3)="Only answer YES if this is the full time Production Account."
37 S DIR("A",4)="Answer No for all other accounts."
38 D ^DIR Q:$D(DIRUT)
39 I Y=1 D SSID($$SID^%ZOSV)
40 E D SSID("2~TEST~999")
41 S P=$$PROD
42 W:P !!,"This is now a PRODUCTION account.",! W:'P !!,"This is now a TEST account.",!
43 Q
Note: See TracBrowser for help on using the repository browser.