Changeset 1307 for EWD

Timestamp:

Dec 4, 2011, 2:48:59 AM (13 years ago)

Author:

Sam Habiel

Message:

Updated for DIINQUIRE

File:

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

EWD/ewdapps/so/r/ewdu.m

@@ -131 +131 @@
  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 ""
 INQ(sessid) ; DIINQUIRE Application Pre-Page Script
+ ;
+ ; First, get the options
  n outopt   ; Output Options checkbox values
  d getCheckboxValues^%zewdAPI("outopt",.outopt,sessid)
@@ -137 +157 @@
  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=$$getSessionValue^%zewdAPI("entry",sessid)
+ ;
+ ; dbug dbug
+ k ^ZZSAM
+ S ^ZZSAM("file")=file
+ S ^ZZSAM("entry")=entry
+ ;
+ ; 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(200,9,capopts)      ; Write Out Report
+ ; 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.