Changeset 1314 for EWD

Timestamp:

Dec 8, 2011, 9:41:24 AM (13 years ago)

Author:

Sam Habiel

Message:

added vista:session custom tag implementation

File:

• EWD/ewdapps/so/r/ewdu.m (modified) (2 diffs)

EWD/ewdapps/so/r/ewdu.m

@@ -11 +11 @@
  d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
  d setSessionValue^%zewdAPI("U","^",sessid)
+ quit
+ ;
+ ; Custom Tag
+SS(nodeOID,attrValues,docOID,technology) ; <vista:session> to get VISTA Session Variables
+ N attr
+ S attr("method")="r^ewdu"
+ S attr("param1")="#ewd_sessid"
+ S attr("type")="procedure"
+ N xOID s xOID=$$addElementToDOM^%zewdDOM("ewd:execute",nodeOID,"",.attr)
+ D removeIntermediateNode^%zewdDOM(nodeOID)
  quit
  ;
@@ -131 +141 @@
  q ""
  ;
-
-FILES(sessid)  ; Get File of Files
- d clearList^%zewdAPI("file",sessid)                        ; Clean
- N FILE S FILE=""                                           ; Looper that is also the File Name
- FOR  S FILE=$O(^DIC("B",FILE)) QUIT:FILE=""  DO            ; ditto
- . N IEN S IEN=$O(^(FILE,""))                               ; IEN from 2nd subscript in B index
- . d appendToList^%zewdAPI("file",FILE,IEN,sessid)          ; Add to session
- Q ""
-ENTRY(sessid)  ; Get Entries in a specific file
- d clearList^%zewdAPI("entry",sessid)                       ; Clean
- n file s file=$$getSessionValue^%zewdAPI("file",sessid)    ; Get select file from combo box
- n glo s glo=^DIC(file,0,"GL")                              ; Get File Global
- s glo=$$CREF^DILF(glo)                                     ; Get the closed root reference
- N ENTRY S ENTRY=""                                         ; Looper that is also the Entry
- FOR  S ENTRY=$O(@glo@("B",ENTRY)) QUIT:ENTRY=""  DO        ; ditto
- . N IEN S IEN=$O(^(ENTRY,""))                              ; IEN
- . d appendToList^%zewdAPI("entry",ENTRY,IEN,sessid)        ; Add to session
- Q ""
-CAPOPTS(sessid) ; Nothing much
- K ^SAMOPTS
- ZSHOW "V":^SAMOPTS
- Q ""
-INQ(sessid) ; DIINQUIRE Application Pre-Page Script
- ;
- ; First, get the options
- n outopt   ; Output Options checkbox values
- d getCheckboxValues^%zewdAPI("outopt",.outopt,sessid)
- n capopts s capopts=""  ; Caption Options to get from checkbox values
- n i s i=""
- for  set i=$order(outopt(i)) q:i=""  s capopts=capopts_i
- ;
- ; Get File and Entry
- n file s file=$$getSessionValue^%zewdAPI("file",sessid)
- n entry s entry=$$getRequestValue^%zewdAPI("entry",sessid)
- ;
- ; dbug dbug
- k ^ZZSAM
- ZSHOW "V":^ZZSAM
- ;
- ; Now actual VISTA work--write out the output to a file
- S IOP="HFS" D ^%ZIS    ; Open HFS Device
- U IO                   ; USE HFS Device
- ; D CAPTION^DIQ(file,entry,capopts)      ; Write Out Report
- D CAPTION^DIQ(file,1,"ARC")      ; Temp until Russian Doll is fixed :-(
- D ^%ZISC               ; Close Device
- ; done
- ;
- ; This code doesn't work, and my debugger couldn't go through it.
- ; something is wrong--and I have an old version of GT.M--why is this happening?
- ; N PATH S PATH=$$PATH^MXMLPRSE(IO("CLOSE"))
- ; N FILE S FILE=$P(IO("CLOSE"),PATH,2)
- ; N RESULT S RESULT=$$FTG^%ZISH(PATH,FILE,$NAME(^TMP("EWDU",$J)),3) ; Doesn't work!!!
- ;
- ; ------------------> Read the File Back
- OPEN IO("CLOSE"):(READONLY:rewind)       ; Open Again for reading
- USE IO("CLOSE")        ; Use
- N CNT S CNT=1          ; Counter
- KILL ^TMP("EWDU",$J)   ; Kill TMP Global
- FOR  DO  Q:$ZEOF       ; Read the file
- . N % R %
- . S ^TMP("EWDU",$J,CNT)=%
- . S CNT=CNT+1
- C IO("CLOSE"):(delete) ; Close and delete
- ; <------------------ Close the File
- ;
- ; Move to EWD Session
- d clearSessionArray^%zewdAPI("DIINQUIRE",sessid)
- d mergeGlobalToSession^%zewdAPI($NAME(^TMP("EWDU",$J)),"DIINQUIRE",sessid)
- QUIT ""