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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 598 |
Changed | 2 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.