283. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:17 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

283.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHXPORT1.m Mon Nov 5 16:45:07 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHXPORT1.m Mon Nov 5 17:55:51 2018 UTC

283.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 598
Changed 2 4
Inserted 0 0
Removed 0 0

283.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

283.4 Active regular expressions

No regular expressions were active.

283.5 Comparison detail

  1   CHXPORT1 ; JSG;CITI T OTAL VOLUM ES REPORT  / EXPORT ( QUEUED);05 /09/08
  2            ; Requiremen ts defined  by: DEV00 0249-02 &  BAT000249- 01
  3            ; DEV012893  1/14/2014  DGC - MODI FY DECNET  WRITE
  4            ; MTN024265  09/23/15 S BB - Fix t he DECNET  routines t hat have a  typo
  5            ;
  6            ; Keys: In-h ouse, queu e, INH, IH Q, DAT, FS 3BIG, expo rt, extrac t
  7            ; Prints or  exports al l complete d claims ( CITI & non -CITI) for  benes
  8            ; with claim s in the I n-house Qu eue for a  user speci fied date  range.
  9            ; CITI - col lects and  stores sel ected data  in ^TMP
  10            ; CITIO - pr ints or ex ports from  ^TMP 
  11            ; GRAND - pr ints summa ry page
  12            ;
  13            N  TYPE,STYL E,DEL,SD,E D,SYN,EM,T AB,IOFILE, QED
  14            S  U="^",QED =0,XDUZ=DU Z Q:"^^@"[ $$CRITERIA                  ;Get  run time  parameters
  15            I  $D(IO("Q" ))!(TYPE=" E") S QED= 1                           ;To  Q or not t o Q
  16            S  TAB=$S(DE L'="":DEL, 1:U) I 'QE D D CITI Q                  ;If  not queuei ng
  17            S  ZTRTN="CI TI^CHXPORT 1" D VARSA VE,^%ZTLOA D                ;If  queueing
  18            S  IOP="HOME " D HOME^% ZIS W !,"Y our Task N umber is:  ",ZTSK R X :3
  19            Q
  20            ;
  21   CRITERIA()  ;TYPE=P!E ;STYLE=D!S ;DEL=delim iter;SD=St art Date;E D=End Date ;SYN=Summa ry?;EM=E-M ail?
  22               S (TYPE,S TYLE,DEL,S D,ED,SYN,E M,IOFILE,C HUCI)=""
  23               W !!,"CHA MPVA CITI  Reports -  CITI Volum es Report: ",!
  24               S TYPE=$$ PorE() Q:T YPE=U U                                ;Pri nt or expo rt?
  25               I TYPE="P " S STYLE= $$DorS() Q :STYLE=U U                  ;Det ail or sum mary
  26               E  S DEL= $$DChar()  Q:DEL="@"  U S:DEL="< Tab>" DEL= $C(9) ;Del imiter cha racter if  export
  27               D NOW^%DT C S TODAY= X
  28               S SD=$$SD ate(TODAY)  Q:SD=U U                              ;Sta rt date
  29               S ED=$$ED ate(TODAY)  Q:ED=U U                              ;End  date
  30               I TYPE="E " S SYN=$$ PSum() Q:S YN=U U S:S YN STYLE=" S"    ;If  export: pr inted summ ary?
  31               S EM=$$EM ail() Q:EM =U U
  32               I TYPE="P "!(TYPE="E "&(STYLE=" S")) W !!, "Report re quires a " "WIDE"" pr inter.",!!
  33               I  S IOP= "Q" D ^%ZI S Q:POP U                              ;If  printing,  get device
  34               IF TYPE=" P" {
  35                  W !,"P rinting in -house cla ims "
  36                     W $ S(STYLE="D ":"detail  and totals ",1:"total s summary" )
  37                     W "  for ",$$D FD(SD)," t hrough ",$ $DFD(ED),! ,"to: ",IO ,ION,".",!  }
  38               ELSE {
  39                  X ^%ZO SF("UCI")  S CHUCI=$P (Y,",")
  40                  S IOFI LE="CTV_"_ DUZ_"_"_TO DAY_"_"_($ P($H,",",2 )\60)
  41                  S:CHUC I'="HAC" I OFILE=IOFI LE_"_TST"  S IOFILE=I OFILE_".TX T" W:'SYN  !
  42                     W ! ,"Exportin g in-house  claims de tail (",$$ DFD(SD),"  through ", $$DFD(ED), ") to:"
  43                     W ! !,?24,"Dat a share: F s3big",!,? 28,"Folder : CITI_Tot al_Volumes "
  44                     W ! ,?30,"File : ",IOFILE ,! }
  45               Q 1
  46               ;
  47   DFD(D) Q $ E(D,4,5)_" /"_$E(D,6, 7)_"/"_$E( D,2,3) ;Fo rmat date
  48          ;
  49   VARSAVE ;S ave variab les for qu eued job:
  50           S  CHFIO=$G(I ON),ZTIO=" " S PAR=$$ VPACK
  51           S  ZTDESC="CI TI Volumes  "_$S(TYPE ="P":"Repo rt",1:"Fil e Extract" )
  52           S  (ZTSAVE("C HFIO"),ZTS AVE("U"),Z TSAVE("PAR "))=""
  53           Q
  54           ;
  55   VPACK() Q  $LB(TYPE,S TYLE,DEL,S D,ED,QED,T AB,TODAY,I OFILE,CHUC I,XDUZ,EM)
  56           ;
  57   VSET(P) S  TYPE=$LI(P ,1),STYLE= $LI(P,2),D EL=$LI(P,3 ),SD=$LI(P ,4),ED=$LI (P,5)
  58           S  QED=$LI(P, 6),TAB=$LI (P,7),TODA Y=$LI(P,8) ,IOFILE=$L I(P,9)
  59           S  CHUCI=$LI( P,10),XDUZ =$LI(P,11) ,EM=$LI(P, 12) Q
  60           ;
  61   CITI ;Scan  In-house  Queue date  entry ind ex beginni ng with St art Date:
  62        K ^TM P($J) D:'$ D(QED) VSE T(PAR) S D PIQ=SD ;Un pack, get  Start Date
  63   B    ;CHAM PVA In-Hou se Queue
  64        S DPI Q=$O(^CHMI HQ("B",DPI Q))               ;Da te Placed  In Queue
  65        G:DPI Q'>0!(DPIQ >ED) CITIE ND S I=0          ;Go  for outpu t if end d ate exceed ed
  66   IHQ  S I=$ O(^CHMIHQ( "B",DPIQ,I )) G B:I'> 0      ;Ge t an inhou se Queue K EY
  67        S QRE C=^CHMIHQ( I,0),CNP=$ P(QREC,U,3 )      ;Ge t Claim Nu mber Point er for a b ene
  68   PAY  ;CHAM PVA Claims
  69        S CRE C=^CHMPAY( CNP,0),CS= $P(CREC,U, 2)     ;Ge t Claim RE Cord, Clai m Status
  70        G IHQ :CS'=4                                  ;Go  for anoth er, if not  complete  (4)
  71        S DFN =$P(CREC,U ,21),BN=$P (CREC,U,22 )      ;Ge t sponsor  number (DF N), Bene N umber
  72        G IHQ :$D(^TMP($ J,DFN,BN))                   ;Go  for anoth er, if ben e already  done
  73   DFN  ;CHAM PVA Paymen t Sponsor/ Beneficiar y
  74        S DI= $O(^CHMDFN ("B",DFN,0 ))                ;Ge t CHMDFN k ey
  75        S J=$ $GETJ(CNP, DI,BN) G I HQ:J=0            ;<T his is jus t eeevil { FYI: if J= 0 ^CHMDFN  is broken}
  76        S K=0 ,CNI=$O(^C HMDFN("C", CNP,DI,J,K ))     ;Ge t Claim Nu mber Index  for Kth c laim for b ene
  77        S LCN I=$P(^CHMD FN(DI,100, J,100,0),U ,3)    ;Ge t Last Cla im Number  Index for  bene
  78        F K=C NI:1:LCNI  D CLAIMS(D I,J,K)            ;Sc an the res t of bene' s claims
  79        G IHQ :'$D(^TMP( $J,DFN,BN, 0))               ;Go  for anoth er, if no  claims fou nd
  80        D GTO T(1)                                    ;<U pdate Gran d Totals:
  81        I $P( ^TMP($J,DF N,BN,0),U) >0&($P(^TM P($J,DFN,B N,0),U,2)> 0) D GTOT( 3) 
  82        I $P( ^TMP($J,DF N,BN,0),U) >0&($P(^TM P($J,DFN,B N,0),U,2)= 0) D GTOT( 4)
  83        ;G IH Q
  84        S SC= $I(SC) G I HQ:SC<101, CITIEND
  85        ;
  86   GETJ(C,D,B ) ;Find th e right J  for the Be ne:
  87                N X S X= 0 F  S X=$ O(^CHMDFN( "C",C,D,X) ) Q:X'>0   Q:+^CHMDFN (D,100,X,0 )=B
  88                Q +X
  89                ;
  90   CLAIMS(I,J ,K) ;Start  with firs t & get th e followin g complete d claims f or bene in  date rang e
  91                  N P,R0 ,R1,S,B,RO W
  92                  I '$D( ^CHMDFN(I, 100,J,100, K,0),P) Q
  93                  Q:'$D( ^CHMPAY(P, 0),R0)  S  R1=$G(^(1) )
  94                  Q:$P(R 0,U,2)'=4   Q:$P(R0,U ,10)\1'<ED   Q:$P(R0, U,10)\1<SD
  95                  S S=$P (R0,U,21), B=$P(R0,U, 22)
  96                  S ROW= $$CDATA(R0 ,R1,TAB),^ (0)=$$BTOT ($G(^TMP($ J,S,B,0)), $P(ROW,TAB ,11))
  97                  S:TYPE ="E"!(TYPE ="P"&(STYL E="D")) ^T MP($J,S,B, P)=ROW
  98                  Q
  99                  ;
  100   CDATA(P0,P 1,T) ;Pack  claim dat a
  101                   N BSS N,BNAM,BTO S,BVN,BVST A,BVSTE,BV CTY,BVTID, BCN,BCAP,B VCF,BDOS
  102                   N BR, VID,V0,BCC D
  103                   S BCN =$P(P0,U), BCAP=$P(P1 ,U),BTOS=$ P(P0,U,7), BDOS=$P(P0 ,U,8)
  104                   S BCC D=$E($P(P0 ,U,10)\1,1 ,5),BTOS=$ P($P($T(TO S),";",2), U,BTOS)
  105   TOS             ;IPT^ OPT^RXT^DM E^DNT^TRV
  106                   S BDO S=$E(BDOS, 4,5)_"/"_$ E(BDOS,6,7 )_"/"_$E(B DOS,2,3)
  107                   S BR= ^AHCHVA(S, 100,B,0),B SSN=$P(BR, U,9),BNAM= $P(BR,U)
  108                   S VID =$P(P0,U,3 ),V0=^CHMV EN(VID,0), BVN=$P(V0, U),BVTID=$ P(V0,U,3)
  109                   S BVC F=$P(^CHMV EN(VID,1), U,16) I BV CF'>0 S BV CF="N" D G TOT(7)
  110                   E  S  BVCF="Y" D  GTOT(2),G TOT(5,BTOS ),GTOT(6,B CCD)
  111                   S BVS TE=$P(^CHM VEN(VID,2) ,U,4),BVCT Y=$$TRIM^X LFSTR($P(^ (2),U,3)," R"," ")
  112                   S BVS TA=$P($G(^ CHMVEN(VID ,15)),U) I  BVSTE'=""  S BVSTE=$ P(^DIC(5,B VSTE,0),U, 2)
  113                   Q BSS N_T_BNAM_T _BTOS_T_BV N_T_BVSTA_ T_BVSTE_T_ BVCTY_T_BV TID_T_BCN_ T_BCAP_T_B VCF_T_BDOS  ;
  114   BTOT(X,CF)  ;Incremen t Total Nu mber CITI  Claims, No n-CITI Cla ims, Claim s:
  115               N TNCC,TN NCC,TC S:X ="" X="0^0 ^0"
  116               S TNCC=$P (X,U),TNNC C=$P(X,U,2 ),TC=$P(X, U,3)
  117               S TC=$I(T C) I CF="Y " S TNCC=$ I(TNCC)
  118               E  S TNNC C=$I(TNNCC )
  119               Q TNCC_U_ TNNCC_U_TC  ;
  120   GTOT(T,R)  ;+ Grand t otals: 1,U nique Bene s;2,CITI c laims;3,Bo th;4,CITI  Only;5,TOS ;6,DOS;7,N on CITI
  121              I '$D(R) S  G(T)=$I(G (T)) ;1,2, 3,4,,,7
  122              E  S G(T,R )=$I(G(T,R ))   ;,,,, 5,6,
  123              Q
  124              ;
  125   CITIEND ;S pin off ou tput:
  126           I  'QED G CIT IO
  127           S  %ZIS="Q",I OP="Q;"_CH FIO D ^%ZI S K ZTIO
  128           S  ZTRTN="CIT IO^CHXPORT 1",ZTDESC= "CITI VOLU MES",ZTDTH =$H
  129           S  PAR=$$VPAC K,(ZTSAVE( "G("),ZTSA VE("PAR"), ZTSAVE("CH FIO"),ZTSA VE("^TMP($ J,"))=""
  130           D  ^%ZTLOAD
  131           Q
  132           ;
  133   CITIO ;Put  accumulat ed data to  printer o r file:
  134         D:'$ D(QED) VSE T(PAR)
  135         ;DGC  1/14/2014  DEV012893  - BEGIN
  136         IF T YPE="E" {
  137            ;S XFILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[Fs3big .CITI_Tota l_Volumes] "
  138          ;S  XFILE=XFIL E_IOFILE
  139          ;O  XFILE:"NWS "
  140          X ^ %ZOSF("UCI ")  S UCI= $P(Y,",",1 )
  141          X " D $SYSTEM. Process.Se tZEOF(1)"  ;DGC 7/30/ 2015 DEV01 2893
  142          S F ILENM2=XFI LE_IOFILE
  143          S X FILE="HAC_ HFS$:[SCR. TEMP_FILES ]"_FILENM2
  144          I U CI'="HAC"  S XFILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FI LENM2
  145          I ' $$OPENFIWR ^CHTFLIB9( .XFILE,"XF ILE") X "D  $SYSTEM.P rocess.Set ZEOF(0)" Q  ;DGC 7/30 /2015 DEV0 12893
  146          ;
  147          D I NIT(1),HEA DER(1),DET AIL ;C XFI LE
  148          D C LOSEF^CHTF LIB9(XFILE ,"XFILE")
  149          X " D $SYSTEM. Process.Se tZEOF(0)"  ;DGC 7/30/ 2015 DEV01 2893
  150            D FTPFILE^ CHTFLIB9(X FILE," DNS     fs3. DNS             ","Fs3big/ CITI_TOTAL _VOLUMES", "PUT")
  151          ;DG C 1/14/201 4 DEV01289 3 - END
  152          D:S TYLE="S" I NIT(0),HEA DER(0,0),G RAND }
  153      ELSE {
  154              D INIT(0)
  155              D:STYLE="D " HEADER(0 ,1),DETAIL
  156              D HEADER(0 ,0),GRAND  }
  157         IF C HUCI="HAC" ,EM'="NN"  {
  158          S Z ML(1)="",X MTEXT="ZML (",XMDUZ=X DUZ,XMY(EM )=""
  159          S X MSUB="Your  CITI Tota l Volumes  "_$S(TYPE= "E":"File" ,1:"Report ")_" Is Re ady"
  160          D ^ XMD }
  161         Q
  162         ;
  163   DETAIL ;Pr int or exp ort bene,  claim rows :
  164          N N BC I STYLE ="D" F K=2 :1:5 S BC( K-2)=$P($T (BC),";",K )
  165   BC     ;To tal Number  of ;CITI  Provider C laims: ;No n-CITI Pro vider Clai ms: ;Claim s: ;
  166          S D FN=0 F  S  DFN=$O(^TM P($J,DFN))  Q:DFN'>0   D
  167          .S  BN=0 F  S  BN=$O(^TMP ($J,DFN,BN )) Q:BN'>0   D
  168          ..S  CN=0 F NB C=1:1 S CN =$O(^TMP($ J,DFN,BN,C N)) Q:CN'> 0  D OUTPU T(^(CN),TY PE,NBC)
  169          ..Q :TYPE="E"   W:$$HC(2)  !!,BC(0)
  170          ..F  K=1:1:3 W  BC(K),$J( $P(^TMP($J ,DFN,BN,0) ,U,K),3),? $X+4
  171          Q
  172          ;
  173   HC(L) D:$Y +L>$S(CHUC I="HAC":59 ,1:58) HEA DER(0,1) Q  1 ;
  174   OUTPUT(X,T ,N) ;Put a  row out t o printer  or file:
  175                  IF T=" E" { U XFI LE W X,! }
  176                  ELSE {
  177                   D:N=1  EXTRA
  178                      D  EXTRA W:N= 1 $P(X,U), ?11,$E($P( X,U,2),1,2 5)
  179                      W  ?38,$P(X,U ,3),?43,$E ($P(X,U,4) ,1,20)
  180                      W  ?65,$E($J( $P(X,U,5), 3)_"-"_$P( X,U,6)_"-" _$P(X,U,7) ,1,18),?85 ,$P(X,U,8)
  181                      W  ?96,$P(X,U ,9),?106,$ J($P(X,U,1 0),8,2),?1 19,$P(X,U, 11),?124,$ P(X,U,12)  }
  182                  Q
  183                  ;
  184   EXTRA W:$$ HC(1) ! Q  ;
  185   HEADER(EF, CPF) ;Prin t or expor t header ( EF=Export  Flag, CPF= Column tit le Print F lag):
  186                   IF EF  { U XFILE  W HDR,! }
  187                   ELSE  {
  188                   W @IO F,!,DUZ,?T T,TITLE,?1 23,"Page:  ",$J(PG,3) ,!,DATE,?S T,SUB,!,TI ME,?PT,PAR AM,!
  189                      D: CPF COLUMN  S PG=PG+1  }
  190                   Q
  191                   ;
  192   INIT(EF) ; Set up pri nt or expo rt header  (EF=Export  Flag):
  193            I F EF {
  194              S HDR=""
  195                 F I=1:1 :12 S HDR= HDR_$P($P( $T(FHDR)," ;",2),U,I) _$S(I'=12: TAB,1:"")  }
  196            E LSE  {
  197              S DATE=$$F IX($$FMTE^ DILIBF(TOD AY,6)),TIM E=$$HTIM^A CKQUTL($H, 0)
  198                 S TITLE ="HEALTH A DMINISTRAT ION CENTER ",TT=66-($ L(TITLE)\2 )
  199                 S SUB=" CITI TOTAL  VOLUME RE PORT",ST=6 6-($L(SUB) \2)
  200                 S PARAM =$$DFD(SD) _" to "_$$ DFD(ED),PT =66-($L(PA RAM)\2),PG =1 }
  201            Q
  202   FHDR ;SSN^ NAME^TOS^V ENDOR^STAT ION^STATE^ CITY^TAXID ^CLAIM^PAI D^INH?^DOS ;
  203        ;
  204   FIX(D) Q $ E(D,1,2)_" /"_$E(D,4, 5)_"/"_$E( D,7,10) ;< Replace "- " with "/"  in (D)ate
  205          ;
  206   COLUMN ;Pr int column  titles
  207          W ! ,"Bene SSN ",?11,"Ben e Name",?3 8,"TOS",?4 3,"Provide r Name",?6 5,"VAMC St ation"
  208          W ? 85,"Tax ID  #",?96,"C laim #",?1 06,"Paid ( $)",?117," CITI?",?12 4,"DOS"
  209          W ! ,"-------- -",?11,"-- ---------- ---------- ---",?38," ---",?43," ---------- ---------- "
  210          W ? 65,"------ ---------- --",?85,"- -------",? 96,"------ ---",?106, "--------"
  211          W ? 117,"----- ",?124,"-- ------"
  212          Q
  213          ;
  214   GRAND ;Gra nd totals
  215         W !, "SUMMARY T OTALS FOR  ",$S(TYPE= "P":"REPOR T",1:"FILE : "_IOFILE ),!
  216         W !, "CITI BENE FICIARIES  THAT:",!
  217         W !, ?1,"           ",?11, "           ",?21,"    Used"
  218         W !, ?1,"   Are     ",?11, "   Used    ",?21,"    CITI"
  219         W !, ?1,"  Uniq ue  ",?11, "   Both    ",?21,"    Only"
  220         W !, ?1,"  ---- --  ",?11, "  ------   ",?21,"   ------"
  221         W !, ?3,$J(G(1) ,5),?13,$J ($G(G(3)), 5),?23,$J( $G(G(4)),5 )
  222         W !! ,"CITI CLA IMS PROCES SED: ",G(2 )
  223         W !! ,"CITI CLA IMS BY TYP E OF SERVI CE:",!
  224         W !, ?2,"  IPT   ",?12,"   OPT  ",?22 ,"  RXT  " ,?32,"  DM E  ",?42,"   DNT  ",? 52,"  TRV  ",?62," TO TAL"
  225         W !, ?2," -----  ",?12," - ---- ",?22 ," ----- " ,?32," --- -- ",?42,"  ----- ",? 52," ----- ",?62," -- ---"
  226         W !  F I=1:1:6  W ?I+1*10- 18+1,$J($G (G(5,$P($P ($T(TOS)," ;",2),U,I) )),5)
  227         W ?6 3,$J(G(2), 5) S SY=$O (G(6,0)) D  YRHDR
  228         S M= 0 F  S M=$ O(G(6,M))  Q:M'>0  D  PMTH(M)
  229         I $D (AT),AT'=0  W ?13-1*1 0+1+2,$J(A T,5)
  230         W !! ,"NON-CITI  CLAIMS (w here Bene  also used  a CITI fac ility): ", $J(G(7),5)
  231         Q
  232         ;
  233   PMTH(A) ;P rint data  for a part icular mon th:
  234           I  $E(A,1,3)> SY S SY=A  D YRHDR
  235           S  CM=$E(A,4, 5),AT=AT+G (6,A) W ?C M-1*10+1+2 ,$J(G(6,A) ,5)
  236           Q
  237           ;
  238   YRHDR ;Pri nt column  titles for  monthly d ata:
  239         I $D (AT),AT'=0  W ?13-1*1 0+1+2,$J(A T,5)
  240         W !  S AT=0,PY= $S($E(SY)= 2:"19",1:" 20")_$E(SY ,2,3),SY=$ E(SY,1,3)
  241         W !, "CITI CLAI MS BY MONT H FOR YEAR  ",PY,":", !
  242         W !, ?2 F I=1:1 :12 W "  " ,$P($P($T( MTH),";",2 ),U,I),"      "
  243   MTH   ;Jan ^Feb^Mar^A pr^May^Jun ^Jul^Aug^S ep^Oct^Nov ^Dec;
  244         W "  TOTAL",!,? 2 F I=1:1: 13 W ?I-1* 10+1+2,"-- ---"
  245         W !, ?2
  246         Q
  247         ;
  248          ;Ru n time par ameters (c riteria):
  249   PorE() ;So licit outp ut destina tion (prin t or expor t):
  250          K D IR S DIR(0 )="SAB^P:P rint to se lected dev ice;E:Expo rt to deli mited text  file"
  251          S D IR("A")="     (P)rint  or (E)xpo rt the out put: ",DIR ("B")="E"
  252          S D IR("PRE")= "I X=""""  S X=""E""  W X"
  253          S D IR("?")="" "P"" uses  a WIDE pri nter, ""E" " creates  a .DAT fil e."
  254          D ^ DIR K DIR  Q:"^^@"[X  "^"
  255          Q Y
  256          ;
  257   DorS() ;So licit hard copy repor t style (d etail or s ummary):
  258          K D IR S DIR(0 )="SAB^D:D etail: cla ims + tota ls for dat e range;S: Summary: t otals for  date range "
  259          S D IR("A")="( D)etail or  (S)ummary  Only Repo rt?: ",DIR ("B")="S"
  260          S D IR("PRE")= "I X=""""  S X=""S""  W X"
  261          S D IR("?")="" "D"" print s all deta il and Sum mary, ""S" " prints S ummary pag e only."
  262          D ^ DIR K DIR  Q:"^^@"[X  "^"
  263          Q Y
  264          ;
  265   DChar() ;S olicit fie ld delimit er:
  266           K  DIR S DIR( 0)="FAU^"
  267           S  DIR("A")="            Field deli miter for  file: ",DI R("B")="<T ab>"
  268           S  DIR("PRE") ="I X=""""  S X=""<Ta b>"" W X"
  269           S  DIR("?")=" Enter a ch aracter to  placed be tween fiel ds in the  output dat a file."
  270           D  ^DIR K DIR  Q:"@"[X " @"
  271           Q  Y
  272           ;
  273   SDate(D) ; Solicit St art Date f or report  or file:
  274            K  DIR S DIR (0)="DA^10 00101:"_D_ ":EX"
  275            S  DIR("A")= "        B eginning d ate (inclu sive): "
  276            S  DIR("?")= "Enter a s tarting da te of a ra nge for th e "_$S(TYP E="P":"rep ort.",1:"f ile.")
  277            D  ^DIR K DI R Q:"^^@"[ X "^"
  278            Q  Y
  279            ;
  280   EDate(D) ; Solicit En d Date for  report or  file:
  281            S  DIR(0)="D OA^1000101 :"_D_":EX"
  282            S  DIR("A")= "            Ending d ate (inclu sive): "
  283            S  DIR("?")= "Enter an  ending dat e of a ran ge for the  "_$S(TYPE ="P":"repo rt.",1:"fi le.")
  284            D  ^DIR K DI R Q:"^^@"[ X "^"
  285            Q  Y
  286            ;
  287   PSum() ;So licit whet her user w ants a sum mary page  for their  export dat a:
  288          K D IR S DIR(0 )="Y"
  289          S D IR("A")="P rinted Sum mary with  exported f ile",DIR(" B")="Yes"
  290          S D IR("?")="E nter a ""Y "" for pri nted total s associat ed with th e .TXT fil e."
  291          D ^ DIR K DIR  Q:"^^@"[X  "^"
  292          Q Y
  293          ;
  294   EMail() ;S olicit e-m ail notifi cation add ress:
  295           K  DIR S DIR( 0)="FA^^I  X'=""NN"", X'?1.U1"". ""1.U1""@V A.COM"" K  X W ""  ?? """
  296           S  DIR("A")="   E-mail t o notify u pon comple tion: ",DI R("B")="No ne"
  297           S  DIR("PRE") ="I X=""""  S X=""NN" " W ""No n otificatio n"""
  298           S  DIR("?")=" Enter an O utlook e-m ail addres s to notif y when rep ort/file i s complete ."
  299           D  ^DIR K DIR  Q:"^^@"[X  "^"
  300           Q  Y
  301           ;