Changeset 1212 for EWD/r


Ignore:
Timestamp:
Aug 2, 2011, 2:55:24 PM (13 years ago)
Author:
Sam Habiel
Message:

Added some of the lost functionality

File:
1 edited

Legend:

Unmodified
Added
Removed
  • EWD/r/KBANDemo.m

    r1208 r1212  
    1 KBANDemo ; Test to demo EWD
     1KBANDemo ; Test to demo EWD ; 8/2/11 1:53pm
    22 ;;
    33login(sessid)
     
    1212 n RETURN
    1313 D VALIDAV^XUSRB(.RETURN,$$ENCRYP^XUSRB1(un_";"_pw))
    14  n DUZ s DUZ=RETURN(0)
    1514 i DUZ'>0 s error="Not a valid login"
    1615 i error="" d  ; everything is okay; save symtab crap
     
    2120EXIT D:$G(DUZ) LOGOUT^XUSRB
    2221 Q error
     22DisplayUserCharacteristics(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 ""
    2342SignonTxt(sessid)       ;
    2443 S U="^"
Note: See TracChangeset for help on using the changeset viewer.