Changeset 1305

Timestamp:

Dec 4, 2011, 12:15:30 AM (12 years ago)

Author:

Sam Habiel

Message:

Support for DIINQUIRE application

File:

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

EWD/ewdapps/so/r/ewdu.m

@@ -1 @@
-ewdu ; JJIH/SMH - Utilities for EWD to VISTA interaction ; 11/10/11 3:27pm
+ewdu ; JJIH/SMH - Utilities for EWD to VISTA interaction ; 11/18/11 5:39pm
  ;
 r(sessid) ; Restore Symbol Table
@@ -118 +118 @@
  . c "lsApps"
  . zwrite:$g(debug) apps
+ . d mergeArrayToSession^%zewdAPI(.apps,"installedapps",sessid)
  ;
- n appsjson s appsjson=$$arrayToJSON^%zewdJSON("apps")
- zwrite:$g(debug) appsjson
- d setSessionValue^%zewdAPI("appsjson",appsjson,sessid)
+ ; Old code: uses JSON
+ ; n appsjson s appsjson=$$arrayToJSON^%zewdJSON("apps")
+ ; zwrite:$g(debug) appsjson
+ ; d setSessionValue^%zewdAPI("appsjson",appsjson,sessid)
+ ; 
  q ""
+redir(sessid)
+ n redirapp s redirapp=$$getRequestValue^%zewdAPI("nextapp",sessid)
+ d setRedirect^%zewdAPI("index",sessid,redirapp)
+ q ""
+ ;
+INQ(sessid) ; DIINQUIRE Application Pre-Page Script
+ 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
+ S IOP="HFS" D ^%ZIS    ; Open HFS Device
+ U IO                   ; USE HFS Device
+ D CAPTION^DIQ(200,9,capopts)      ; Write Out Report
+ D ^%ZISC               ; Close Device
+ ;
+ ; 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 ""