| 1 | KBANDemo ; Test to demo EWD ; 8/2/11 1:53pm
|
|---|
| 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 | i DUZ'>0 s error="Not a valid login"
|
|---|
| 15 | i error="" d ; everything is okay; save symtab crap
|
|---|
| 16 | . d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
|
|---|
| 17 | . d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
|
|---|
| 18 | . d setSessionValue^%zewdAPI("U","^",sessid)
|
|---|
| 19 | q error
|
|---|
| 20 | EXIT D:$G(DUZ) LOGOUT^XUSRB
|
|---|
| 21 | Q error
|
|---|
| 22 | DisplayUserCharacteristics(sessid)
|
|---|
| 23 | D FillSymTab(sessid)
|
|---|
| 24 | d clearTextArea^%zewdAPI("display",sessid)
|
|---|
| 25 | ; d appendToTextArea^%zewdAPI("display","blha blha",sessid)
|
|---|
| 26 | N ZTQUEUED,ORHFS,ORSUB,ROOT,ORIO,ORHANDLE,ORWINDEV
|
|---|
| 27 | N IOM,IOSL,IOST,IOF,IOT,IOS,POP
|
|---|
| 28 | S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS",ORTEXT=$NA(^TMP(ORSUB,$J,1)),ORHANDLE="ORWRP"
|
|---|
| 29 | S ORHFS=$$HFS^ORWRP(),ORWINDEV=1 ;Flag for printing to windows device
|
|---|
| 30 | D HFSOPEN^ORWRP(ORHANDLE,ORHFS,"W")
|
|---|
| 31 | I POP D Q
|
|---|
| 32 | . I $D(ROOT) D SETITEM^ORWRP(.ROOT,"ERROR: Unable to open HFS file")
|
|---|
| 33 | D IOVAR^ORWRP(.ORIO,,,"P-WINHFS80")
|
|---|
| 34 | N $ETRAP,$ESTACK
|
|---|
| 35 | S $ETRAP="D ERR^ORWRP Q"
|
|---|
| 36 | U IO
|
|---|
| 37 | D ^XQUSR
|
|---|
| 38 | D HFSCLOSE^ORWRP(ORHANDLE,ORHFS)
|
|---|
| 39 | N txt M txt=@ORTEXT
|
|---|
| 40 | D mergeToTextArea^%zewdAPI("display",.txt,sessid)
|
|---|
| 41 | Q ""
|
|---|
| 42 | SignonTxt(sessid) ;
|
|---|
| 43 | S U="^"
|
|---|
| 44 | D setSessionValue^%zewdAPI("signontxt","Welcome to Wonderful Veldt of EWD")
|
|---|
| 45 | Q ""
|
|---|
| 46 | getUsernames(sessid)
|
|---|
| 47 | d clearList^%zewdAPI("user",sessid)
|
|---|
| 48 | n sam
|
|---|
| 49 | d LIST^DIC(200,"","@;.01","PKU","*","","","","","","sam")
|
|---|
| 50 | n i s i=0
|
|---|
| 51 | f s i=$o(sam("DILIST",i)) q:i="" d
|
|---|
| 52 | . n entry s entry=sam("DILIST",i,0)
|
|---|
| 53 | . d appendToList^%zewdAPI("user",$p(entry,U,2),$p(entry,U),sessid)
|
|---|
| 54 | quit ""
|
|---|
| 55 | getInfo(sessid)
|
|---|
| 56 | S ^KBANSAM=1
|
|---|
| 57 | n DUZ s DUZ=$$getSessionValue^%zewdAPI("user",sessid)
|
|---|
| 58 | n Name s Name=$$GET1^DIQ(200,DUZ_",",.01)
|
|---|
| 59 | n officePhone s officePhone=$$GET1^DIQ(200,DUZ,"OFFICE PHONE")
|
|---|
| 60 | d setSessionValue^%zewdAPI("Name",Name,sessid)
|
|---|
| 61 | d setSessionValue^%zewdAPI("officePhone",officePhone,sessid)
|
|---|
| 62 | quit ""
|
|---|
| 63 | savePhones(sessid)
|
|---|
| 64 | quit ""
|
|---|
| 65 | CVC(sessid) ; Change verify code
|
|---|
| 66 | ; get stored session values for DUZ, IO, and U
|
|---|
| 67 | d FillSymTab(sessid)
|
|---|
| 68 | n VC1,VC2,VC3
|
|---|
| 69 | s VC1=$$getPasswordValue^%zewdAPI("vc1",sessid)
|
|---|
| 70 | s VC2=$$getPasswordValue^%zewdAPI("vc2",sessid)
|
|---|
| 71 | s VC3=$$getPasswordValue^%zewdAPI("vc3",sessid)
|
|---|
| 72 | n eVC1,eVC2,eVC3
|
|---|
| 73 | s eVC1=$$ENCRYP^XUSRB1(VC1)
|
|---|
| 74 | s eVC2=$$ENCRYP^XUSRB1(VC2)
|
|---|
| 75 | s eVC3=$$ENCRYP^XUSRB1(VC3)
|
|---|
| 76 | n vcString s vcString=eVC1_U_eVC2_U_eVC3
|
|---|
| 77 | n ret
|
|---|
| 78 | d CVC^XUSRB(.ret,vcString)
|
|---|
| 79 | i ret(0)=0 q ""
|
|---|
| 80 | i ret(0)>0 q ret(1)
|
|---|
| 81 | FillSymTab(id) ; Fill symbol table
|
|---|
| 82 | d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",id)
|
|---|
| 83 | d mergeArrayFromSession^%zewdAPI(.IO,"IO",id)
|
|---|
| 84 | s U=$$getSessionValue^%zewdAPI("U",id)
|
|---|
| 85 | quit
|
|---|
