Changeset 1212 for EWD/r

Timestamp:

Aug 2, 2011, 2:55:24 PM (13 years ago)

Author:

Sam Habiel

Message:

Added some of the lost functionality

File:

• EWD/r/KBANDemo.m (modified) (3 diffs)

EWD/r/KBANDemo.m

@@ -1 @@
-KBANDemo ; Test to demo EWD
+KBANDemo ; Test to demo EWD ; 8/2/11 1:53pm
  ;;
 login(sessid)
@@ -12 +12 @@
  n RETURN
  D VALIDAV^XUSRB(.RETURN,$$ENCRYP^XUSRB1(un_";"_pw))
- n DUZ s DUZ=RETURN(0)
  i DUZ'>0 s error="Not a valid login"
  i error="" d  ; everything is okay; save symtab crap
@@ -21 +20 @@
 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="^"