[1202] | 1 | KBANDemo ; Test to demo EWD
|
---|
| 2 | ;;
|
---|
| 3 | login(sessid)
|
---|
| 4 | n error s error=""
|
---|
| 5 | n un,pw
|
---|
| 6 | s un=$$getTextValue^%zewdAPI("username",sessid)
|
---|
| 7 | s pw=$$getPasswordValue^%zewdAPI("password",sessid)
|
---|
| 8 | s %ZIS="0H",IOP="NULL"
|
---|
| 9 | d ^%ZIS
|
---|
| 10 | i POP s error="Programming error" d ^%ZTER g EXIT
|
---|
| 11 | d SETUP^XUSRB() ; Set-up for GUI signon
|
---|
| 12 | n RETURN
|
---|
| 13 | D VALIDAV^XUSRB(.RETURN,$$ENCRYP^XUSRB1(un_";"_pw))
|
---|
| 14 | n DUZ s DUZ=RETURN(0)
|
---|
[1208] | 15 | i DUZ'>0 s error="Not a valid login"
|
---|
[1202] | 16 | i error="" d ; everything is okay; save symtab crap
|
---|
| 17 | . d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
|
---|
| 18 | . d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
|
---|
| 19 | . d setSessionValue^%zewdAPI("U","^",sessid)
|
---|
| 20 | q error
|
---|
| 21 | EXIT D:$G(DUZ) LOGOUT^XUSRB
|
---|
| 22 | Q error
|
---|
[1208] | 23 | SignonTxt(sessid) ;
|
---|
| 24 | S U="^"
|
---|
| 25 | D setSessionValue^%zewdAPI("signontxt","Welcome to Wonderful Veldt of EWD")
|
---|
| 26 | Q ""
|
---|
[1202] | 27 | getUsernames(sessid)
|
---|
| 28 | d clearList^%zewdAPI("user",sessid)
|
---|
| 29 | n sam
|
---|
| 30 | d LIST^DIC(200,"","@;.01","PKU","*","","","","","","sam")
|
---|
| 31 | n i s i=0
|
---|
| 32 | f s i=$o(sam("DILIST",i)) q:i="" d
|
---|
| 33 | . n entry s entry=sam("DILIST",i,0)
|
---|
| 34 | . d appendToList^%zewdAPI("user",$p(entry,U,2),$p(entry,U),sessid)
|
---|
| 35 | quit ""
|
---|
| 36 | getInfo(sessid)
|
---|
[1208] | 37 | S ^KBANSAM=1
|
---|
[1202] | 38 | n DUZ s DUZ=$$getSessionValue^%zewdAPI("user",sessid)
|
---|
[1208] | 39 | n Name s Name=$$GET1^DIQ(200,DUZ_",",.01)
|
---|
[1202] | 40 | n officePhone s officePhone=$$GET1^DIQ(200,DUZ,"OFFICE PHONE")
|
---|
| 41 | d setSessionValue^%zewdAPI("Name",Name,sessid)
|
---|
| 42 | d setSessionValue^%zewdAPI("officePhone",officePhone,sessid)
|
---|
| 43 | quit ""
|
---|
| 44 | savePhones(sessid)
|
---|
| 45 | quit ""
|
---|
| 46 | CVC(sessid) ; Change verify code
|
---|
| 47 | ; get stored session values for DUZ, IO, and U
|
---|
| 48 | d FillSymTab(sessid)
|
---|
| 49 | n VC1,VC2,VC3
|
---|
| 50 | s VC1=$$getPasswordValue^%zewdAPI("vc1",sessid)
|
---|
| 51 | s VC2=$$getPasswordValue^%zewdAPI("vc2",sessid)
|
---|
| 52 | s VC3=$$getPasswordValue^%zewdAPI("vc3",sessid)
|
---|
| 53 | n eVC1,eVC2,eVC3
|
---|
| 54 | s eVC1=$$ENCRYP^XUSRB1(VC1)
|
---|
| 55 | s eVC2=$$ENCRYP^XUSRB1(VC2)
|
---|
| 56 | s eVC3=$$ENCRYP^XUSRB1(VC3)
|
---|
| 57 | n vcString s vcString=eVC1_U_eVC2_U_eVC3
|
---|
| 58 | n ret
|
---|
| 59 | d CVC^XUSRB(.ret,vcString)
|
---|
| 60 | i ret(0)=0 q ""
|
---|
| 61 | i ret(0)>0 q ret(1)
|
---|
| 62 | FillSymTab(id) ; Fill symbol table
|
---|
| 63 | d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",id)
|
---|
| 64 | d mergeArrayFromSession^%zewdAPI(.IO,"IO",id)
|
---|
| 65 | s U=$$getSessionValue^%zewdAPI("U",id)
|
---|
| 66 | quit
|
---|