Changeset 1208 for EWD/r


Ignore:
Timestamp:
Jul 23, 2011, 12:34:30 AM (13 years ago)
Author:
Sam Habiel
Message:

Added SignonTxt

File:
1 edited

Legend:

Unmodified
Added
Removed
  • EWD/r/KBANDemo.m

    r1202 r1208  
    1313 D VALIDAV^XUSRB(.RETURN,$$ENCRYP^XUSRB1(un_";"_pw))
    1414 n DUZ s DUZ=RETURN(0)
    15  i DUZ'>0 s error="No a valid login"
     15 i DUZ'>0 s error="Not a valid login"
    1616 i error="" d  ; everything is okay; save symtab crap
    1717 . d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
     
    2121EXIT D:$G(DUZ) LOGOUT^XUSRB
    2222 Q error
     23SignonTxt(sessid)       ;
     24 S U="^"
     25 D setSessionValue^%zewdAPI("signontxt","Welcome to Wonderful Veldt of EWD")
     26 Q ""
    2327getUsernames(sessid)
    2428 d clearList^%zewdAPI("user",sessid)
     
    3135 quit ""
    3236getInfo(sessid)
     37 S ^KBANSAM=1
    3338 n DUZ s DUZ=$$getSessionValue^%zewdAPI("user",sessid)
    34  n Name s Name=$$GET1^DIQ(200,DUZ,.01)
     39 n Name s Name=$$GET1^DIQ(200,DUZ_",",.01)
    3540 n officePhone s officePhone=$$GET1^DIQ(200,DUZ,"OFFICE PHONE")
    3641 d setSessionValue^%zewdAPI("Name",Name,sessid)
Note: See TracChangeset for help on using the changeset viewer.