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)
|
---|
15 | i DUZ'>0 s error="Not a valid login"
|
---|
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
|
---|
23 | SignonTxt(sessid) ;
|
---|
24 | S U="^"
|
---|
25 | D setSessionValue^%zewdAPI("signontxt","Welcome to Wonderful Veldt of EWD")
|
---|
26 | Q ""
|
---|
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)
|
---|
37 | S ^KBANSAM=1
|
---|
38 | n DUZ s DUZ=$$getSessionValue^%zewdAPI("user",sessid)
|
---|
39 | n Name s Name=$$GET1^DIQ(200,DUZ_",",.01)
|
---|
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
|
---|