Changeset 1317 for EWD/ewdapps

Timestamp:

Dec 10, 2011, 5:46:34 PM (13 years ago)

Author:

Sam Habiel

Message:

some vars prefixed by so; SETUP d2 setup

File:

• EWD/ewdapps/so/r/ewdu.m (modified) (2 diffs)

EWD/ewdapps/so/r/ewdu.m

@@ -28 +28 @@
  q
  ;
-SETUP(sessid) ; Set-up and SSO
+setup(sessid) ; Set-up and SSO
  ; TODO: Set IO("CLNM")
  i '$data(IO) d NULL                  ; Open Null Device
@@ -34 +34 @@
  n return
  d SETUP^XUSRB(.return)               ; Set-up and Try SSO
- i $g(return(5)),DUZ>0 q $$s(sessid)  ; Single Sign-On Successful!
+ ;0=server name, 1=volume, 2=uci, 3=device, 4=# attempts, 5=skip signon-screen,6=Domain Name, 7=Production (0=no, 1=Yes)
+ i $g(return(5)),DUZ>0 q $$s(sessid)  ; Single Sign-On Successful; need redirect though here.
  e  d  q ""                           ; Otherwise, get INTRO text
- . N RET
- . D INTRO^XUSRB(.RET)
- . d mergeArrayToSession^%zewdAPI(.RET,"introtxt",sessid)
+ . N INTROTXT
+ . D INTRO^XUSRB(.INTROTXT)
+ . d mergeArrayToSession^%zewdAPI(.INTROTXT,"so.introtxt",sessid)
+ . d setSessionValue^%zewdAPI("so.serverName",return(0),sessid)
+ . d setSessionValue^%zewdAPI("so.volume",return(1),sessid)
+ . d setSessionValue^%zewdAPI("so.uci",return(2),sessid)
+ . ; Don't care about device! (return(3))
+ . ; Number of Attempts (return(4))
+ . d setSessionValue^%zewdAPI("so.fqdn",return(6),sessid)
+ . d setSessionValue^%zewdAPI("so.prod",return(7),sessid)
  ; ---
 so(sessid) ; SO from EWD; routes to $$SO