Produced by Araxis Merge on 11/9/2018 12:34:16 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 | CHPACSXC.m | Mon Nov 5 16:43:20 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHPACSXC.m | Mon Nov 5 17:54:40 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 158 |
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 | CHPACSXC ;JPN/SXC;P RE-AUTH CO NVERSION F OR SXC LOO PING THROU GH ^ACHHVA GLOBAL;10 /16/07 11 :55 AM | |
2 | ;V1.0; CHAMPVA SY STEM;;JUNE 25, 2015 | |
3 | ;THIS ROUINE IS A PRE-AUTH CONVERSIO N ROUTINE FOR SXC TH AT WILL LO OP | |
4 | ;THROU GH THE ^AC HHCA GLOBA L TO MAKE SURE THERE IS A BENE VALUE THE N | |
5 | ;SAVE THE NAME O F THE BENE AND THE B ENE'S SSN | |
6 | ;DEF01 6554 REPLA CE DECNET WITH FTP 06/25/2 015 DRW | |
7 | START ; PR OGRAM WILL START HER E | |
8 | D INIT | |
9 | D LOOP | |
10 | D OUTPUT | |
11 | D END | |
12 | Q ;P ROGRAM END S HERE | |
13 | INIT ;INIT IALIZES VA RAIBLES | |
14 | S (DFN,BF N,PCNT)=0, CHLEN=50 | |
15 | S (CHBNAM E,CHBSSN,C HB100,CHBE NLN)="" | |
16 | K ^CHMZHO LD("SXC") | |
17 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;;DEF01655 4 OPEN AND CLOSE MOD IFIED 07/ 30/2015 | |
18 | Q | |
19 | LOOP ;LOOP S THROUGH THE GLOBAL ^ACHHVA A ND STORES THE VALID INFORMATIO N INTO A T MP GLOBAL | |
20 | F S DFN= $O(^AHCHVA (DFN)) Q:D FN="" D | |
21 | . S CHB10 0=$G(^AHCH VA(DFN,100 ,1,0)) | |
22 | . Q:CHB10 0="" | |
23 | . S CHBNA ME=$P(CHB1 00,"^",1) | |
24 | . I CHBNA ME="" S CH BNAME="NO NAME" | |
25 | . S CHBSS N=$P(CHB10 0,"^",9) | |
26 | . I CHBSS N="" S CHB SSN="NO SS N" | |
27 | . D BENEC OM | |
28 | . I CHBCH K'=1 Q ;CHKS THE BENE C OMMENTS FO R SPECIFIC WORDS | |
29 | . D PADBL NKS | |
30 | . S ^CHMZ HOLD("SXC" ,DFN)=CHBN AME_CHBSSN | |
31 | . S PCNT= PCNT+1 | |
32 | . I PCNT= 1 W "Proce ssing" | |
33 | . I PCNT# 1000=0 W " ." | |
34 | . Q | |
35 | Q | |
36 | OUTPUT ;WR ITES THE I NFORMATION OUT TO A FILE ON FS 3BIG | |
37 | S DFN=0,D ATA="" | |
38 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]PRE_AUTH_ SXC.TXT" | |
39 | ;O FIO C FIO:"D" | |
40 | ;O FIO:"N WS" | |
41 | ;;NEW LIN E FOR DEF0 16554 FOLL OWS: | |
42 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
43 | S FILENM= "PRE_AUTH_ SXC.TXT" | |
44 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M | |
45 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM | |
46 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") W "F ILE NOT AV AILABLE AT THIS MOME NT" Q | |
47 | F S DFN= $O(^CHMZHO LD("SXC",D FN)) Q:DFN ="" D | |
48 | . S DATA= $G(^CHMZHO LD("SXC",D FN)) | |
49 | . U FIO W !,DATA | |
50 | . Q | |
51 | ;C FIO | |
52 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
53 | S FLDER=" /FS3BIG" | |
54 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ",FLDER,"P UT") | |
55 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ; ;DEF016554 CLOSE MOD IFIED 07/3 0/2015 | |
56 | Q | |
57 | PADBLNKS ; WILL MAKE THE NAME FIELD A SE T LENGTH O F 50 CHARA CTERS | |
58 | F I=1:1:( CHLEN-$L(C HBNAME)) S CHBNAME=C HBNAME_" " | |
59 | S CHBNAME =$E(CHBNAM E,1,CHLEN) | |
60 | Q | |
61 | BENECOM ;C HECKS BENE COMMENTS TO SEE IF MED DOC RE C'D IS THE RE | |
62 | S (CHBCJ, CHBCK,CHBC L,CHBCHK)= 0 | |
63 | F S CHBC J=$O(^CHBE NCOM(DFN,1 00,CHBCJ)) Q:CHBCJ=" " D | |
64 | . I CHBCH K=1 Q | |
65 | . F S CH BCK=$O(^CH BENCOM(DFN ,100,CHBCJ ,200,CHBCK )) Q:CHBCK ="" D | |
66 | .. F S C HBCL=$O(^C HBENCOM(DF N,100,CHBC J,200,CHBC K,300,CHBC L)) Q:CHBC L="" D | |
67 | ... S CHB ENLN=$P($G (^CHBENCOM (DFN,100,C HBCJ,200,C HBCK,300,C HBCL,0))," ^",1) | |
68 | ... D UPP ER(CHBENLN ) | |
69 | ... I ULT XT["MED DO C" S CHBCH K=1 | |
70 | ... I ULT XT["REC'D MED" S CHB CHK=1 | |
71 | ... Q | |
72 | Q | |
73 | UPPER(TXT) ;CONVERTS STRING TO UPPER CAS E | |
74 | S UPPER=" ABCDEFGHIJ KLMNOPQRST UVWXYZ" | |
75 | S lower=" abcdefghij klmnopqrst uvwxyz" | |
76 | S ULTXT=$ TR(TXT,low er,UPPER) | |
77 | Q ULTXT | |
78 | END ;KILLS THE LOCAL VARIABLES | |
79 | K CHBNAME ,CHBSSN,CH B100,CHBEN LN,PCNT,CH LEN,CHBCHK ,CHBCJ,CHB CK,CHBCL,C HBCHK | |
80 | K ULTXT,C HBENLN,UPP ER,lower | |
81 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.