Changeset 1208 for EWD/r

Timestamp:

Jul 23, 2011, 12:34:30 AM (13 years ago)

Author:

Sam Habiel

Message:

Added SignonTxt

File:

• EWD/r/KBANDemo.m (modified) (3 diffs)

EWD/r/KBANDemo.m

@@ -13 +13 @@
  D VALIDAV^XUSRB(.RETURN,$$ENCRYP^XUSRB1(un_";"_pw))
  n DUZ s DUZ=RETURN(0)
- i DUZ'>0 s error="No a valid login"
+ i DUZ'>0 s error="Not a valid login"
  i error="" d  ; everything is okay; save symtab crap
  . d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
@@ -21 +21 @@
 EXIT D:$G(DUZ) LOGOUT^XUSRB
  Q error
+SignonTxt(sessid)       ;
+ S U="^"
+ D setSessionValue^%zewdAPI("signontxt","Welcome to Wonderful Veldt of EWD")
+ Q ""
 getUsernames(sessid)
  d clearList^%zewdAPI("user",sessid)
@@ -31 +35 @@
  quit ""
 getInfo(sessid)
+ S ^KBANSAM=1
  n DUZ s DUZ=$$getSessionValue^%zewdAPI("user",sessid)
- n Name s Name=$$GET1^DIQ(200,DUZ,.01)
+ n Name s Name=$$GET1^DIQ(200,DUZ_",",.01)
  n officePhone s officePhone=$$GET1^DIQ(200,DUZ,"OFFICE PHONE")
  d setSessionValue^%zewdAPI("Name",Name,sessid)