Index: EWD/ewdapps/bb/pages/bb.ewd =================================================================== --- EWD/ewdapps/bb/pages/bb.ewd (revision 1284) +++ EWD/ewdapps/bb/pages/bb.ewd (revision 1284) @@ -0,0 +1,143 @@ + + Ajax page contains the beds that gets auto-updated every 5 seconds. + V 0.4 + (c) Sam Habiel + Licensed under AGPL + + +

+ + + First Row: Ward Names + ; Ward Data has the following structure: + ; occ beds/total^occmale/maletotal^occfemale/femaletotal^oos^emptymale/emptyfemale/emptytotal + + + + + + + + + + + + + Second Row: Contents. + We use valign and style vertical align on the td b/c only valign works even though it's deprecated! + + + + + + +

+
+ + (Census: )
+ (M: F: OOS: )
+ + + + (Availability: M: F: T: ) +

+ + + + Bed Data is as follows: + pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment + + + + + + + + + + + + + Bed: Color beds for males and females + + + + + + + + + Now, Patients... + + + +

+ + Do nothing here, for now. + + + Print patients; mismatched beds show up in a different color + + + + + + + + + + + Lodger + +
+ (reserved) (since ) + + + EDW + + EDW + + + MOT + + MOT + + + + + Deal with Out Of Service Beds + + : + +

+
+ + Here we have the Census Table + wardbed=beds^males^females^empty beds^occupancy % + + + + + + + + + + + + + + + + + + + + + + + + +

Census
Total Beds	Males	Females	Empty Beds	% Occupation

Index: EWD/ewdapps/bb/pages/ewdTemplate.ewd =================================================================== --- EWD/ewdapps/bb/pages/ewdTemplate.ewd (revision 1284) +++ EWD/ewdapps/bb/pages/ewdTemplate.ewd (revision 1284) @@ -0,0 +1,41 @@ + +BB Template File +Bed Board v 0.5 + + + + + + + Load the Session Values for DUZ etc. + + + + + + + + + +

+ EWD Session # + DUZ + U + IO + Logout +

+ + + Index: EWD/ewdapps/bb/pages/index.ewd =================================================================== --- EWD/ewdapps/bb/pages/index.ewd (revision 1284) +++ EWD/ewdapps/bb/pages/index.ewd (revision 1284) @@ -0,0 +1,43 @@ + + Index Page + v 0.5 + (c) Sam Habiel + Licensed under AGPL + + + + + + +<?= #sitename ?> Bed Board + + +

Bed Board

+Please wait 5 seconds for initial load... +

Legend

+ + + + + + + + + + + + + + + + + + + + +

Color	Meaning
210-B	Male Bed
111-A	Female Bed
TEST,PATIENT	Male Patient in Female bed or the converse
TEST COMMENT	Bed is Out of Service

+ Index: EWD/ewdapps/bb/r/jjihbb.m =================================================================== --- EWD/ewdapps/bb/r/jjihbb.m (revision 1284) +++ EWD/ewdapps/bb/r/jjihbb.m (revision 1284) @@ -0,0 +1,213 @@ +jjihbb ; JJIH/SMH - Bed Board Stuff ; 9/22/11 3:27pm + ;;0.5;INTRACARE SPECIFIC MODIFICATIONS;; + ; (C) Sam Habiel + ; Licensed under AGPL latest + ; + ; Bed Board routine for EWD pages index.ewd and bb.ewd + ; + ; New in 0.3: + ; - Added a bunch of counts everywhere. + ; + ; New in 0.4: + ; - Added EDW and MOT fields + ; - Patients with no beds are included! + ; + ; New in 0.5: + ; - Fixed division by zero problem if db is completely unconfigured + ; +init(sessid) ; Populate index.ewd with site name + new DIQUIET set DIQUIET=1 ; Fileman - be quiet + do DT^DICRW ; Set-up miniumum variables for VISTA + new sitename set sitename=$piece($$SITE^VASITE,"^",2) + set sitename=$$TITLE^XLFSTR(sitename) ; Make uppercase title case. + do setSessionValue^%zewdAPI("sitename",sitename,sessid) + quit "" + ; +getbeds(sessid) ; Populate bb.ewd with bed board information + ; + ; To run this on your terminal, set debug to 1 and type: w $$getbeds^jjihbb(80) + new debug set debug=0 ; Make this 1 to be talkative + new DIQUIET set DIQUIET=1 ; Fileman - be quiet + do DT^DICRW ; Set-up miniumum variables for VISTA + ; Ask Fileman for the list of the wards, taking out inactive ones + ; File 42; .01 field only, "Packed Output, don't re-sort", use "B" index + ; Screen inactive wards out using Fileman Screen on File. + n wards1,err + D LIST^DIC(42,"","@;.01","PQ","","","","B","S D0=Y D WIN^DGPMDDCF I 'X","","wards1","err") + i $d(err) s $EC=",U101," ; we shouldn't ever have any messages - crash if so + n wards2 ; better wards! + m wards2=wards1("DILIST") + ; expected output: + ; wards2(0)="5^*^0^" + ; wards2(0,"MAP")="IEN^.01" + ; wards2(1,0)="15^Adolescent 2L 201-213 South" + ; wards2(2,0)="11^Child 2R 214-225 South" + ; wards2(3,0)="14^DAPA 3R 314-326" + ; wards2(4,0)="13^General/Adult 3L 300-313 South" + ; wards2(5,0)="10^Restore 1L 101-111 South" + ; Now, walk the beds a la ABB^DGPMRBA1 + n wardbed ; return array + n i s i=0 + for s i=$o(wards2(i)) q:'i do + . n wardien s wardien=$piece(wards2(i,0),"^") + . zwrite:debug wardien + . n roomien s roomien=0 + . for s roomien=$o(^DG(405.4,"W",wardien,roomien)) q:'roomien do + . . zwrite:debug roomien + . . quit:'$d(^DG(405.4,roomien,0)) + . . new bed set bed=$P(^(0),"^") + . . new admien set admien=$o(^DGPM("ARM",roomien,0)) + . . new lodger,ptnode,edw,mot + . . if admien d + . . . set lodger=^(admien) + . . . set ptnode=^DGPM(admien,0) ; note naked sexy ref + . . . set edw=+$p($g(^("JJIH0")),"^") + . . . set mot=+$p($g(^("JJIH0")),"^",2) + . . write:debug "ptnode: "_$g(ptnode),! + . . write:debug "edw: "_$g(edw),! + . . write:debug "mot: "_$g(mot),! + . . ; + . . ; Bed Message + . . ; pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment + . . n bedmsg + . . i $g(ptnode) d ; if we have a patient, that's the bed msg + . . . n dfn s dfn=$p(ptnode,"^",3) + . . . s bedmsg=$p(^DPT(dfn,0),"^",1,2) ; Patient name and sex + . . . ; s $p(bedmsg,"^",3)=$$FMTE^XLFDT($p(ptnode,"^")) ; Admission date + . . . s $p(bedmsg,"^",3)=$$DATE^TIULS($p(ptnode,"^"),"AMTH DD@HR:MIN") ; Admission date using TIU API + . . . s $p(bedmsg,"^",4)=$g(lodger) + . . . s $p(bedmsg,"^",5)=$g(edw) + . . . s $p(bedmsg,"^",6)=$g(mot) + . . d ; Out of Service Checks? + . . . n oos s oos=$$oos(roomien) ; 0 or 1^msg^comment + . . . s $p(bedmsg,"^",7,9)=oos + . . ; + . . s wardbed($piece(wards2(i,0),"^",2),bed)=bedmsg + ; + ; Loop through inpatients to find patients without a bed + ; Bed Message (reminder!) + ; pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment + n i,j s (i,j)="" + n counter s counter=0 + for s i=$o(^DPT("CN",i)) q:i="" for s j=$o(^DPT("CN",i,j)) q:j="" do + . n admien s admien=^(j) ; Patient Movement IEN stored in Index + . n dfn s dfn=j + . n bed s bed=$get(^DPT(dfn,.101)) + . i bed'="" quit ; if bed is not empty, quit! + . s counter=counter+1 + . n wardname s wardname=^DPT(dfn,.1) + . s wardbed(wardname,"NONE"_counter)=$p(^DPT(dfn,0),"^",1,2) ; name, sex + . n admdate s admdate=$P(^DGPM(admien,0),"^") + . s $p(wardbed(wardname,"NONE"_counter),"^",3)=$$DATE^TIULS(admdate,"AMTH DD@HR:MIN") + . s $p(wardbed(wardname,"NONE"_counter),"^",4)=0 ; lodger + . n edw s edw=+$p($g(^("JJIH0")),"^") + . s $p(wardbed(wardname,"NONE"_counter),"^",5)=edw + . n mot s mot=+$p($g(^("JJIH0")),"^",2) + . s $p(wardbed(wardname,"NONE"_counter),"^",6)=mot + ; + ; Loop through lodgers to find lodgers without a bed + ; Bed Message (reminder!) + ; pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment + n i,j s (i,j)="" + for s i=$o(^DPT("LD",i)) q:i="" for s j=$o(^DPT("LD",i,j)) q:j="" do + . n admien s admien=^(j) ; Patient Movement IEN stored in Index + . n dfn s dfn=j + . n bed s bed=$get(^DPT(dfn,.108)) + . i bed'="" quit ; if bed is not empty, quit! + . s counter=counter+1 + . n wardname s wardname=^DPT(dfn,.107) + . s wardbed(wardname,"NONE"_counter)=$p(^DPT(dfn,0),"^",1,2) ; name, sex + . n admdate s admdate=$P(^DGPM(admien,0),"^") + . s $p(wardbed(wardname,"NONE"_counter),"^",3)=$$DATE^TIULS(admdate,"AMTH DD@HR:MIN") + . s $p(wardbed(wardname,"NONE"_counter),"^",4)=1 ; lodger + . n edw s edw=+$p($g(^("JJIH0")),"^") + . s $p(wardbed(wardname,"NONE"_counter),"^",5)=edw + . n mot s mot=+$p($g(^("JJIH0")),"^",2) + . s $p(wardbed(wardname,"NONE"_counter),"^",6)=mot + ; + ; Now loop through the results and count beds, males, and females + ; Result will be in wardbed("ward name")= + ; occ beds/total^occmale/maletotal^occfemale/femaletotal^oos^ + ; emptymale/emptyfemale/emptytotal + n i s i="" n j s j="" ; i loops through wards, j beds + f s i=$o(wardbed(i)) q:i="" d + . n nBed,nMale,nFemale,nOOS,nMaleBed,nFemaleBed,nEmptyMaleBed,nEmptyFemaleBed + . s (nBed,nMale,nFemale,nOOS,nMaleBed,nFemaleBed,nEmptyMaleBed,nEmptyFemaleBed)=0 + . ; + . f s j=$o(wardbed(i,j)) q:j="" d + . . n node s node=wardbed(i,j) + . . i +j s nBed=nBed+1 ; if bed is numeric, then count it as a bed. If NONE, won't count + . . i $p(j,"-",3)["M" s nMaleBed=nMaleBed+1 ; Male Bed + . . i $p(j,"-",3)["F" s nFemaleBed=nFemaleBed+1 ; Female Bed + . . i $p(j,"-",3)["M"&($p(node,"^")="") s nEmptyMaleBed=nEmptyMaleBed+1 ; Empty Male Bed + . . i $p(j,"-",3)["F"&($p(node,"^")="") s nEmptyFemaleBed=nEmptyFemaleBed+1 ; Empty Female Bed + . . i $p(node,"^",2)="M" s nMale=nMale+1 ; Male Patient + . . i $p(node,"^",2)="F" s nFemale=nFemale+1 ; Female Patient + . . i $p(node,"^",7)="1" s nOOS=nOOS+1 ; Out of Service Bed + . ; + . n nOccupied s nOccupied=nMale+nFemale + . n nAvailBed s nAvailBed=nBed-nOccupied + . n % s %="/" + . s wardbed(i)=nOccupied_%_nBed_U_nMale_%_nMaleBed_U_nFemale_%_nFemaleBed_U_nOOS_U_nEmptyMaleBed_%_nEmptyFemaleBed_%_nAvailBed + ; + ; Now, loop again and count the counts for a total census. + n i s i="" + n tBed,tMale,tFemale,tOOS s (tBed,tMale,tFemale,tOOS)=0 ; Totals + f s i=$o(wardbed(i)) q:i="" d + . n node s node=wardbed(i) + . n nBed s nBed=$p($p(wardbed(i),"^"),"/",2) + . n nMale s nMale=$p(wardbed(i),"^",2) + . n nFemale s nFemale=$p(wardbed(i),"^",3) + . n nOOS s nOOS=$p(wardbed(i),"^",4) + . s tBed=tBed+nBed + . s tMale=tMale+nMale + . s tFemale=tFemale+nFemale + . s tOOS=tOOS+nOOS + ; done + ; + ; Set the totals at the top top node in the following format + ; wardbed=beds^males^females^empty beds^occupancy % + n tEmptyBed s tEmptyBed=tBed-(tMale+tFemale+tOOS) ; Empty beds + ; + n %occupancy + ; Prevent div by zero error if beds are not there!!! + i tBed=0 s %occupancy=0 + e s %occupancy=(1-(tEmptyBed/tBed))*100 ; Reader: math quiz for you + s %occupancy=$fn(%occupancy,"",0) ; Round up to 0 decimal places + ; + s wardbed=tBed_U_tMale_U_tFemale_U_tEmptyBed_U_%occupancy + ; + ; Put it in the EWD Session + do clearSessionArray^%zewdAPI("wardbed",sessid) + do mergeArrayToSession^%zewdAPI(.wardbed,"wardbed",sessid) + ; + zwrite:debug wardbed + quit "" + ; +oos(bedien) ; Is the bed out of service ; Public $$ + ; Input: bedien + ; Output: 0 -> not out of service -> Active + ; 1^reason -> Out of service and reason + ; + ; First OOS date in the inverse index is the latest + N X S X=$O(^DG(405.4,bedien,"I","AINV",0)) + I 'X Q 0 ; if none, quit + ; + S X=$O(^(+X,0)) ; Then get ifn + Q:'$d(^DG(405.4,bedien,"I",+X,0)) 0 ; confirm that entry exists + ; + N DGND S DGND=^(0) ; Out of Service Node + N OOSD S OOSD=$P(DGND,"^") ; Out of Service Date + N OOSR S OOSR=$P(DGND,"^",4) ; Out of Service Restore + N NOW S NOW=$$NOW^XLFDT() ; Now + ; + I OOSD>NOW Q 0 ; If OOSD in future, bed is active + ; + ; at this point, OOSD is now or in the past. + ; Is there a restore date less than today's date? if yes, bed is active + I OOSR'="",OOSR + + +Roll and Scroll Emulator + + + +

+ + Index: EWD/ewdapps/so/pages/cvc.ewd =================================================================== --- EWD/ewdapps/so/pages/cvc.ewd (revision 1284) +++ EWD/ewdapps/so/pages/cvc.ewd (revision 1284) @@ -0,0 +1,37 @@ + +(C) Sam Habiel 2011 +Inherits EWD License, whatever it is. + + + + + Change Verify Code + + +

Change Verify Code

+ + + + Index: EWD/ewdapps/so/pages/ewdTemplate.ewd =================================================================== --- EWD/ewdapps/so/pages/ewdTemplate.ewd (revision 1284) +++ EWD/ewdapps/so/pages/ewdTemplate.ewd (revision 1284) @@ -0,0 +1,365 @@ + +Sign On Template File. +Contains CSS and JS +V 0.1 +Author: Sam Habiel +License: Same as EWD License + +CSS inspired by: +http://www.red-team-design.com/slick-login-form-with-html5-css3?utm_source=feedburner&utm_medium=feed&utm_campaign=Feed%3A+redteamdesign+%28Red+Team+Design%29&utm_content=FeedBurner + + + + + + + + + + + + + + + + + + Index: EWD/ewdapps/so/pages/index.ewd =================================================================== --- EWD/ewdapps/so/pages/index.ewd (revision 1284) +++ EWD/ewdapps/so/pages/index.ewd (revision 1284) @@ -0,0 +1,62 @@ + +(C) Sam Habiel 2011 +License: Inherits EWD License, whatever it is. + + + + + + + VISTA Sign-On + + + + + + + + + + Index: EWD/ewdapps/so/pages/menu.ewd =================================================================== --- EWD/ewdapps/so/pages/menu.ewd (revision 1284) +++ EWD/ewdapps/so/pages/menu.ewd (revision 1284) @@ -0,0 +1,20 @@ + + + + + Menu System + + +

Where do you want to go?

+ + + + Index: EWD/ewdapps/so/r/ewdu.m =================================================================== --- EWD/ewdapps/so/r/ewdu.m (revision 1284) +++ EWD/ewdapps/so/r/ewdu.m (revision 1284) @@ -0,0 +1,107 @@ +ewdu ; JJIH/SMH - Utilities for EWD to VISTA interaction ; 11/4/11 10:44pm + ; +r(sessid) ; Restore Symbol Table + d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",sessid) + d mergeArrayFromSession^%zewdAPI(.IO,"IO",sessid) + s U=$$getSessionValue^%zewdAPI("U",sessid) + quit + ; +s(sessid) ; Save to Symbol Table + d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid) + d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid) + d setSessionValue^%zewdAPI("U","^",sessid) + quit + ; +NULL ; Open Null Device + s %ZIS="0H",IOP="NULL" d ^%ZIS + i POP s $ec=",U1," ; this crashes everything... intended... + q + ; +SETUP(sessid) ; Set-up and SSO + ; TODO: Set IO("CLNM") + i '$data(IO) d NULL ; Open Null Device + s IO("IP")=$$getServerValue^%zewdAPI("REMOTE_ADDR",sessid) + n return + d SETUP^XUSRB(.return) ; Set-up and Try SSO + i $g(return(5)),DUZ>0 q $$s(sessid) ; Single Sign-On Successful! + e d q "" ; Otherwise, get INTRO text + . N RET + . D INTRO^XUSRB(.RET) + . d mergeArrayToSession^%zewdAPI(.RET,"introtxt",sessid) + ; --- +so(sessid) ; SO from EWD; routes to $$SO + ; TODO: Set IO("CLNM") + d NULL ; IO set-up + s IO("IP")=$$getServerValue^%zewdAPI("REMOTE_ADDR",sessid) + d SETUP^XUSRB(); ; This time, just need partition set-up + n ac s ac=$$getSessionValue^%zewdAPI("ac",sessid) + n vc s vc=$$getSessionValue^%zewdAPI("vc",sessid) + n result s result=$$SO(ac,vc) + ; + ; Change Verify Code Logic Ahead... Damn Complex! + i $l(result),result="CVC" d q "" ; User must change Verify Code + . S DUZ=$$STATE^XWBSEC("XUS DUZ") ; VISTA kills off DUZ if vc needs changing. + . ; That's fine when it can get it back. But we are not a stateful process. + . ; By the time the second request is made, XUS DUZ is gone gone gone. + . d s(sessid) ; Save symbol table for next page (including DUZ) + . d setRedirect^%zewdAPI("cvc",sessid) ; Next page is cvc. + . d setSessionValue^%zewdAPI("cvcForced",1,sessid) ; Need to know that the user is toast! + ; + i $l(result) q result ; General Error Message - User can't log-in + ; + e d q "" ; Everything Okay + . d s(sessid) + . i $$isCheckboxOn^%zewdAPI("cvc","cvc",sessid) d setRedirect^%zewdAPI("cvc",sessid) + ; +SO(ac,vc) ; Sign-on to VISTA, AV way + ; TODO: Handle the rest of the return values + N return + D VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac_";"_vc)) + i return(0)>0,'return(2) q "" ; Sign on successful! + i return(0)=0,return(2) q "CVC" ; Verify Code must be changed NOW! + i $l(return(3)) q return(3) ; Error Message returned whole + ; Note: division selection not implemented here + quit "" + ; --- +sss(id) ; Test + d setRedirect^%zewdAPI("index",id,"bb") + q "" +whoami(sessid) ; Who Am I? PrePage Script + d r(sessid) + n Name s Name=$$GET1^DIQ(200,DUZ,.01) ; User Name + d setSessionValue^%zewdAPI("Name",Name,sessid) + q "" +cvc(sessid) ; Change Verify Code + ; get stored session values for DUZ, IO, and U + d r(sessid) ; Restore the Symbol Table + n VC1,VC2,VC3 + s VC1=$$getPasswordValue^%zewdAPI("vc1",sessid) + s VC2=$$getPasswordValue^%zewdAPI("vc2",sessid) + s VC3=$$getPasswordValue^%zewdAPI("vc3",sessid) + ; Uppercase them -- otherwise CVC will fail. + s VC1=$$UP^XLFSTR(VC1) + s VC2=$$UP^XLFSTR(VC2) + s VC3=$$UP^XLFSTR(VC3) + ; Roman Cipher them vista-wise + n eVC1,eVC2,eVC3 + s eVC1=$$ENCRYP^XUSRB1(VC1) + s eVC2=$$ENCRYP^XUSRB1(VC2) + s eVC3=$$ENCRYP^XUSRB1(VC3) + ; Set-up Call + n vcString s vcString=eVC1_U_eVC2_U_eVC3 + n ret + d CVC^XUSRB(.ret,vcString) + ;;test + M ^ZZSAM=ret + i ret(0)=0 q "" ; Success + i ret(0)>0 q ret(1) ; Failure +;; +;;return(0)=0 +;;return(1)=0 +;;return(2)=1 +;;return(3)="VERIFY CODE must be changed before continued use." +;;return(4)=0 +;;return(5)=0 +;;return(6)="" +;;return(7)="Good evening DOCTOR,TEN" +;;return(8)=" You last signed on today at 22:19" Index: EWD/ewdapps/tutorial/pages/Page1a.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page1a.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page1a.ewd (revision 1284) @@ -0,0 +1,10 @@ + + + +Test Page + + +

This is a test page

+ + + Index: EWD/ewdapps/tutorial/pages/Page1b.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page1b.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page1b.ewd (revision 1284) @@ -0,0 +1,10 @@ + + +Test Page + + +

This is a test page

+Go to page 2

+Log out + + Index: EWD/ewdapps/tutorial/pages/Page1c.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page1c.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page1c.ewd (revision 1284) @@ -0,0 +1,12 @@ + + + + Test Page + + +

This is a test page

+ Go to page 2

+ Go to page 3

+ Log out + + Index: EWD/ewdapps/tutorial/pages/Page1d.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page1d.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page1d.ewd (revision 1284) @@ -0,0 +1,27 @@ + + + + Test Page + + +

This is a test page

Please enter your username and password:

+ +

+ Log out + + Index: EWD/ewdapps/tutorial/pages/Page1e.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page1e.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page1e.ewd (revision 1284) @@ -0,0 +1,26 @@ + + + +Test Page + +

This is a test page

Please enter your username and password:

+ +

+Log out + + Index: EWD/ewdapps/tutorial/pages/Page2b.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page2b.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page2b.ewd (revision 1284) @@ -0,0 +1,11 @@ + + + +Test Page + + +

This is a second test page

+Go back to to page 1

+Log out + + Index: EWD/ewdapps/tutorial/pages/Page2c.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page2c.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page2c.ewd (revision 1284) @@ -0,0 +1,11 @@ + + + + Test Page + + +

This is a second test page

+ Go back to to page 1

+ Log out + + Index: EWD/ewdapps/tutorial/pages/Page2d.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page2d.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page2d.ewd (revision 1284) @@ -0,0 +1,15 @@ + + + + Test Page + + +

This is a second test page

+
Hello
+ Your password is
+ Your session ID is +

+ Log out +

+ + Index: EWD/ewdapps/tutorial/pages/Page2e.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page2e.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page2e.ewd (revision 1284) @@ -0,0 +1,21 @@ + + +Test Page + +

Select a user to edit

+ +

+Log out + + + Index: EWD/ewdapps/tutorial/pages/Page3c.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page3c.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page3c.ewd (revision 1284) @@ -0,0 +1,11 @@ + + + + Test Page mod + + +

This is a third test page

+ Go back to to page 1

+ Log out + + Index: EWD/ewdapps/tutorial/pages/Page3e.ewd =================================================================== --- EWD/ewdapps/tutorial/pages/Page3e.ewd (revision 1284) +++ EWD/ewdapps/tutorial/pages/Page3e.ewd (revision 1284) @@ -0,0 +1,38 @@ + + +Test Page + +

Set/Modify Verify Code

+ +

Change other info

Office Phone:

+

+Select another username

+Log out + + + Index: EWD/ewdapps/tutorial/r/KBANDemo.m =================================================================== --- EWD/ewdapps/tutorial/r/KBANDemo.m (revision 1284) +++ EWD/ewdapps/tutorial/r/KBANDemo.m (revision 1284) @@ -0,0 +1,61 @@ +KBANDemo ; Test to demo EWD + ;; +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)) + n DUZ s DUZ=RETURN(0) + i DUZ'>0 s error="No 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 +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) + 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) + ; 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

Username:
Verify Code (existing):
Verify Code (new):
Verify Code (confirm):

Username:
Verify Code (existing):
Verify Code (new):
Verify Code (confirm):

Username:
Password:

Username:
Password:

Bed Board

Legend

Change Verify Code

Sign On to VISTA

Menu

Please enter your username and password:

Please enter your username and password:

Select a user to edit