Welcome to Edit Your Stuff Portal

You are: + +

You can do the following

Your session ID is + +

+

+ Log out + + Index: /EWD/ewd-fm/r/KBANDemo.m =================================================================== --- /EWD/ewd-fm/r/KBANDemo.m (revision 1282) +++ /EWD/ewd-fm/r/KBANDemo.m (revision 1282) @@ -0,0 +1,85 @@ +KBANDemo ; Test to demo EWD ; 8/2/11 1:53pm + ;; +login(sessid) + n error s error="" + n un,pw + s un=$$getTextValue^%zewdAPI("username",sessid) + s pw=$$getPasswordValue^%zewdAPI("password",sessid) + s %ZIS="0H",IOP="NULL" + d ^%ZIS + i POP s error="Programming error" d ^%ZTER g EXIT + d SETUP^XUSRB() ; Set-up for GUI signon + n RETURN + D VALIDAV^XUSRB(.RETURN,$$ENCRYP^XUSRB1(un_";"_pw)) + i DUZ'>0 s error="Not a valid login" + i error="" d ; everything is okay; save symtab crap + . d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid) + . d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid) + . d setSessionValue^%zewdAPI("U","^",sessid) + q error +EXIT D:$G(DUZ) LOGOUT^XUSRB + Q error +DisplayUserCharacteristics(sessid) + D FillSymTab(sessid) + d clearTextArea^%zewdAPI("display",sessid) + ; d appendToTextArea^%zewdAPI("display","blha blha",sessid) + N ZTQUEUED,ORHFS,ORSUB,ROOT,ORIO,ORHANDLE,ORWINDEV + N IOM,IOSL,IOST,IOF,IOT,IOS,POP + S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS",ORTEXT=$NA(^TMP(ORSUB,$J,1)),ORHANDLE="ORWRP" + S ORHFS=$$HFS^ORWRP(),ORWINDEV=1 ;Flag for printing to windows device + D HFSOPEN^ORWRP(ORHANDLE,ORHFS,"W") + I POP D Q + . I $D(ROOT) D SETITEM^ORWRP(.ROOT,"ERROR: Unable to open HFS file") + D IOVAR^ORWRP(.ORIO,,,"P-WINHFS80") + N $ETRAP,$ESTACK + S $ETRAP="D ERR^ORWRP Q" + U IO + D ^XQUSR + D HFSCLOSE^ORWRP(ORHANDLE,ORHFS) + N txt M txt=@ORTEXT + D mergeToTextArea^%zewdAPI("display",.txt,sessid) + Q "" +SignonTxt(sessid) ; + S U="^" + D setSessionValue^%zewdAPI("signontxt","Welcome to Wonderful Veldt of EWD") + Q "" +getUsernames(sessid) + d clearList^%zewdAPI("user",sessid) + n sam + d LIST^DIC(200,"","@;.01","PKU","*","","","","","","sam") + n i s i=0 + f s i=$o(sam("DILIST",i)) q:i="" d + . n entry s entry=sam("DILIST",i,0) + . d appendToList^%zewdAPI("user",$p(entry,U,2),$p(entry,U),sessid) + quit "" +getInfo(sessid) + S ^KBANSAM=1 + n DUZ s DUZ=$$getSessionValue^%zewdAPI("user",sessid) + 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) + d setSessionValue^%zewdAPI("officePhone",officePhone,sessid) + quit "" +savePhones(sessid) + quit "" +CVC(sessid) ; Change verify code + ; get stored session values for DUZ, IO, and U + d FillSymTab(sessid) + n VC1,VC2,VC3 + s VC1=$$getPasswordValue^%zewdAPI("vc1",sessid) + s VC2=$$getPasswordValue^%zewdAPI("vc2",sessid) + s VC3=$$getPasswordValue^%zewdAPI("vc3",sessid) + n eVC1,eVC2,eVC3 + s eVC1=$$ENCRYP^XUSRB1(VC1) + s eVC2=$$ENCRYP^XUSRB1(VC2) + s eVC3=$$ENCRYP^XUSRB1(VC3) + n vcString s vcString=eVC1_U_eVC2_U_eVC3 + n ret + d CVC^XUSRB(.ret,vcString) + i ret(0)=0 q "" + i ret(0)>0 q ret(1) +FillSymTab(id) ; Fill symbol table + d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",id) + d mergeArrayFromSession^%zewdAPI(.IO,"IO",id) + s U=$$getSessionValue^%zewdAPI("U",id) + quit Index: /EWD/ewd-fm/r/KBANEWD1.m =================================================================== --- /EWD/ewd-fm/r/KBANEWD1.m (revision 1282) +++ /EWD/ewd-fm/r/KBANEWD1.m (revision 1282) @@ -0,0 +1,104 @@ +KBANEWD1 ; KBAN/SMH - Custom Tag Processor ; 8/14/11 9:08pm + ;; +SS(nodeOID,attrValues,docOID,technology) ; to get VISTA Session Variables + N attr + S attr("method")="SS2^KBANEWD1" + S attr("param1")="#ewd_sessid" + S attr("type")="procedure" + N xOID s xOID=$$addElementToDOM^%zewdDOM("ewd:execute",nodeOID,"",.attr) + D removeIntermediateNode^%zewdDOM(nodeOID) + quit +SS2(sessid) + d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",sessid) + d mergeArrayFromSession^%zewdAPI(.IO,"IO",sessid) + s U=$$getSessionValue^%zewdAPI("U",sessid) + quit +EDIT(nodeOID,attrValues,docOID,technology) ; Fileman Field Edit tag + ; Get Attributes supplied to us: dd, fields, iens + ; + N attrs + D getAttributeValues^%zewdCustomTags(nodeOID,.attrs) + N DD S DD=$g(attrs("dd")) ; Data Dictionary + N FIELDS S FIELDS=$g(attrs("fields")) ; Fields to Edit + N IENS S IENS=$g(attrs("iens")) ; IENs to Edit + ; + ; Does our Form Tag Exist? + N fOID S fOID=$$getElementById^%zewdDOM("fmEdit",docOID) + ; ----- + ; If it doesn't exist, create it + IF fOID="" DO + . ; Create the Form Tag + . ; Attributes + . N attr + . S attr("name")="fmEdit" + . S attr("id")="fmEdit" + . S attr("action")="ewd" + . S attr("method")="post" + . ; + . ; Add form + . S fOID=$$addElementToDOM^%zewdDOM("form",nodeOID,"",.attr,"") + ; ----- + ; Destination Input Name + N dst S dst="DD"_$TR(DD,".","_")_"F"_$TR(FIELDS,".","_") + ; + ; Build to set the value of the default; child of form in fOID + K attr + S attr("method")="XTARGET^KBANEWD1" + S attr("param1")="#ewd_sessid" + S attr("param2")=dst + S attr("param3")=DD + S attr("param4")=$$stripSpaces^%zewdAPI(phpVars($P(IENS,"&php;",2))) ; becomes #DUZ + S attr("param5")=FIELDS + S attr("type")="procedure" + N xOID s xOID=$$addElementToDOM^%zewdDOM("ewd:execute",fOID,"",.attr) + ; + ; Add label + N text S text=$$GET1^DID(DD,FIELDS,"","LABEL") ; this should be i18n in MSC FM + S text=text_": " + K attr S attr("for")=dst + N lOID s lOID=$$addElementToDOM^%zewdDOM("label",fOID,"",.attr,text) + ; ------------ + ; + ; Add Input Tag + ; Attributes + K attr + S attr("type")="text" ; Should be dynamic based on FM DataType + S attr("name")=dst + S attr("value")="*" + ; + ; Add input Tag under form tag + N iOID S iOID=$$addElementToDOM^%zewdDOM("input",fOID,"",.attr,"") + ; + ; Remove custom tag + D removeIntermediateNode^%zewdDOM(nodeOID) + ;break + QUIT + ; + ; --- + ; +XTARGET(sessid,fieldName,DD,IENS,FIELDS) ; Proc - Xecute Target - Adds Default Value to Sess + N VAL S VAL=$$GET1^DIQ(DD,IENS,FIELDS) + D setSessionValue^%zewdAPI(fieldName,VAL,sessid) + QUIT + ; + ; --- + ; +VAL(sessid) + D setSessionValue^%zewdAPI("tmp.error","Null Validation",sessid) + D setSessionValue^%zewdAPI("tmp.name","testdiv",sessid) ; testdiv hardcoded for now. + N KBANDD S KBANDD=+$TR($P(requestArray("name"),"DD",2),"_",".") ; todo: check for 0 value + N KBANF S KBANF=+$TR($P(requestArray("name"),"F",2),"_",".") ; todo: check for 0 value + N KBANIENS S KBANIENS=requestArray("iens") + I $E(KBANIENS,$L(KBANIENS))'="," S KBANIENS=KBANIENS_"," + N KBANV S KBANV=requestArray("value") ; todo: unescape urlencoding. + N KBANRESULT ; Result + N KBANMSG + D VAL^DIE(KBANDD,KBANIENS,KBANF,"E",KBANV,.KBANRESULT,"","KBANMSG") + I $D(KBANMSG) K ^ZZSAM M ^ZZSAM=KBANMSG + ; KBANMSG(DIERR,1,TEXT,1) can be longer than one line (last subscript)... loop... + ; HTML formatting for error message??? + I KBANRESULT="^" D setSessionValue^%zewdAPI("tmp.error",KBANMSG("DIERR",1,"TEXT",1),sessid) + E D + . D setSessionValue^%zewdAPI("tmp.result","Success in Validating: "_$$SYMENC^MXMLUTL($$SYMENC^MXMLUTL(KBANRESULT(0))),sessid) + . D setSessionValue^%zewdAPI("tmp.error","",sessid) + QUIT "" Index: D/ewd-fm/sso.ewd =================================================================== --- /EWD/ewd-fm/sso.ewd (revision 1281) +++ (revision ) @@ -1,1 +1,0 @@ - Index: D/ewd-fm/valfield.ewd =================================================================== --- /EWD/ewd-fm/valfield.ewd (revision 1281) +++ (revision ) @@ -1,12 +1,0 @@ - - - Index: D/ewd-fm/welcome.ewd =================================================================== --- /EWD/ewd-fm/welcome.ewd (revision 1281) +++ (revision ) @@ -1,25 +1,0 @@ - - - - Welcome to Edit Your Stuff Portal - - -

Welcome to Edit Your Stuff Portal

You are: - -

You can do the following

Your session ID is - -

-

- Log out - -

Display User Characteristics

Edit User Characteristics

Please enter your username and password:

Edit Electronic Signature

Display User Characteristics

Edit User Characteristics

Please enter your username and password:

Edit Electronic Signature

Welcome to Edit Your Stuff Portal

Welcome to Edit Your Stuff Portal

Access Code:
Verify Code:

Access Code:
Verify Code: