Produced by Araxis Merge on 11/9/2018 12:33:51 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 | CHLSREPT.m | Mon Nov 5 16:39:37 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHLSREPT.m | Mon Nov 5 17:41:54 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 142 |
Changed | 1 | 2 |
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 | CHLSREPT ; AHJ/DEN;CH AMPVA SERV ICES FILE DATA TO FS 3BIG XLS F ILE | |
2 | ;V1.0 | |
3 | ; | |
4 | ;R1922435 6FY18 DEV0 16554 DPT REMOVE DEC NET 3/13/1 8 | |
5 | S U="^" | |
6 | S T=$C(9) | |
7 | D NOW^%DT C S RUNTIM E=% | |
8 | S Y=$E(RU NTIME,1,7) | |
9 | S TODAY=Y | |
10 | S Y=TODAY D DD^%DT S TODAY=Y | |
11 | START ; | |
12 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DPT DEV016554 R19224356F Y18 | |
13 | S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" ;D PT DEV0165 54 R192243 56FY18 | |
14 | I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DPT DE V016554 R1 9224356FY1 8 | |
15 | S FILENM= "CHAMPVA_S ERVICES.TX T" ;DEV016 554 DPT R1 9224356FY1 8 | |
16 | S FIO=FOL DER_FILENM ;DEV0165 54 DPT | |
17 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q ;D PT MTN0186 31 DEV0 16554 R192 24356FY18 | |
18 | I '$T S $ ZE="UNABLE TO OPEN F IO FILE--R EPORT NOT WRITTEN" ; DPT MTN018 631 DEV 016554 | |
19 | ;O FIO C FIO:"D" | |
20 | ;O FIO:"N WV" | |
21 | S CHSTOP= 0,SORT=0,C T=0 | |
22 | S IN=0 | |
23 | U FIO W " CHAMPVA SE RVICES COD ES="_TODAY ,! | |
24 | U FIO W ! ,"SERVICE CODE"_T_" TYPE" _T_"DUZ"_T _"DATE ADD ED"_T_"PRI NT SWITCH( Y/N)",! | |
25 | ;U FIO W "SERVICE C ODE"_T_" TYPE"_T _"PRINT SW ITCH(Y/N)" ,! | |
26 | S SERVCD= 0 | |
27 | A1 ; | |
28 | S SERVCD= $O(^CHMSER V("B",SERV CD)) I SER VCD="" G E ND | |
29 | S I=0 | |
30 | A11 ; | |
31 | S I=$O(^C HMSERV("B" ,SERVCD,I) ) G:'$D(I) A1 | |
32 | ; | |
33 | A2 ; | |
34 | G:'$D(^CH MSERV(I,0) ) A11 | |
35 | S DATA=^C HMSERV(I,0 ) | |
36 | ;W !!,I | |
37 | ;W !,DATA | |
38 | S PEOBSW= $P(DATA,U, 4) | |
39 | ;I PEOBSW ="" G A1 | |
40 | I PEOBSW= 0 G OVER | |
41 | I PEOBSW= 1 G OVER | |
42 | G A1 | |
43 | OVER ; | |
44 | I PEOBSW= 0 S PEOBSW ="Y" | |
45 | I PEOBSW= 1 S PEOBSW ="N" | |
46 | ; | |
47 | S PDUZ=$P (DATA,U,7) | |
48 | S PDATE=$ P(DATA,U,8 ) | |
49 | S PCDTYPE =$P(DATA,U ,5) | |
50 | ; | |
51 | A22 ; | |
52 | ; | |
53 | ; CONVE RT DATE HE RE | |
54 | S Y=PDATE D DD^%DT S PDATE=Y | |
55 | ; | |
56 | S PSERVCD =SERVCD_" " | |
57 | U FIO W P SERVCD_T_$ J(PCDTYPE, 18)_T_PDUZ _T_PDATE_T _PEOBSW_T, ! | |
58 | ;U FIO W PSERVCD_T_ $J(PCDTYPE ,18)_T_PEO BSW_T,! | |
59 | S CT=CT+1 | |
60 | G A1 | |
61 | QEND ; | |
62 | END ;W !,C T | |
63 | S ^CHMZHO LD("CHMSER V-COUNT-EN C001671")= CT | |
64 | U FIO W ! ," COUNT = ",CT | |
65 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
66 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT | |
67 | H 3 | |
68 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
69 | ;C FIO | |
70 | W !,"REPO RT COMPLET ED ON FS3B IG TITLED "_FILENM H ANG 5 | |
71 | Q | |
72 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.