Produced by Araxis Merge on 11/9/2018 12:33:58 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 | CHMKFMPP.m | Mon Nov 5 16:43:33 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKFMPP.m | Mon Nov 5 17:48:57 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 202 |
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 | CHMKFMPP ; AHJ/DEN;FM P LABELS F Y03 | |
2 | ;V1.0 | |
3 | S (CLMCNT ,FMPCNT,TO TCNT,ACNT, BCNT,CCNT, FMPCNT)=0 | |
4 | S (ZIP,SW ,SW1,SW2,S W33,SW4)=0 | |
5 | S U="^" | |
6 | ;INPUT = ^CHMZHOLD( "FMP926",C HVET,CHVET PRT) FROM ZALFMP07 | |
7 | ;OUTPUT = ^CHMZHOLD ("FMP-FY03 ") TO ZALF MP13 PRINT STICKY LA BLELS | |
8 | ;OUTPUT = FMP-CLAIM S-NA08.TXT TO BURN C D | |
9 | A2 ; | |
10 | ; | |
11 | ;K ^CHMZH OLD("FMP-F Y05") | |
12 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]FMP-CLAIM S-NA08.TXT " | |
13 | ;O FIO C FIO:"D" | |
14 | ;O FIO:"N WS" | |
15 | ; | |
16 | ;S DFN=49 8658 | |
17 | ; | |
18 | S NAME=0 | |
19 | S DFN=0 | |
20 | L1 S TOTCN T=TOTCNT+1 | |
21 | GETNM ; | |
22 | S NAME=$O (^CHMZHOLD ("FMP-CLAI MS-DAYS",N AME)) G:NA ME="" END | |
23 | S DFN=0 | |
24 | GETDFN ; | |
25 | S DFN=$O( ^CHMZHOLD( "FMP-CLAIM S-DAYS",NA ME,DFN)) G :'DFN GETN M | |
26 | S ADFN=DF N | |
27 | ;NEED TO GET BFN HE RE | |
28 | S ADFN=$O (^AHCHVA(A DFN,100)) | |
29 | S ABFN=0 | |
30 | L2 S ABFN= $O(^AHCHVA (ADFN,100, ABFN)) G:' ABFN L1 | |
31 | ; | |
32 | ;W !," DF N=",DFN," BFN=",BFN | |
33 | G L2:'$D( ^AHCHVA(AD FN,100,ABF N,0)),L2:' $D(^AHCHVA (ADFN,100, ABFN,1)) | |
34 | ; | |
35 | N22 ; | |
36 | ;G L1 | |
37 | NEXT1 ; | |
38 | S NAMELAB =^AHCHVA(D FN,0) | |
39 | ;******** ********** ******CHEC K FMP ADDR ESS | |
40 | G:'$D(^AH CHVA(DFN,1 1)) L1 | |
41 | ;I DFN=49 1175 G L1 | |
42 | ;I DFN=48 9887 G L1 | |
43 | S ADDRLAB =^AHCHVA(D FN,11) | |
44 | N2 ; | |
45 | S STATE=$ P(ADDRLAB, U,4) | |
46 | S:STATE S TATE=$P(^D IC(5,STATE ,0),U,2) | |
47 | ; | |
48 | S (ADDR1, ADDR2,ADDR 3,ADDR4,AD DR5,ADDR6) ="" | |
49 | S ADDR1=$ P(NAMELAB, U,1) | |
50 | S ADDR2=$ P(ADDRLAB, U,1) | |
51 | S ADDR3=$ P(ADDRLAB, U,2) | |
52 | S ADDR4=$ P(ADDRLAB, U,8) | |
53 | S ADDR5=$ P(ADDRLAB, U,3) | |
54 | S ADDR6=" " | |
55 | S ZIP1=$P (ADDRLAB,U ,5) | |
56 | S ZIP=ZIP 1 | |
57 | I $L(ZIP1 )>5 S ZIP2 =$E(ZIP1,1 ,5) S ZIP3 =$E(ZIP1,6 ,9) S ZIP= ZIP2_"-"_Z IP3 | |
58 | I STATE=" " D | |
59 | .S COUNTR Y=$P(ADDRL AB,U,6) | |
60 | .S:COUNTR Y COUNTRY= $P(^DIC(5, COUNTRY,0) ,U,1) | |
61 | .S ADDR6= COUNTRY | |
62 | I $P(ADDR LAB,U,3)=" " G ADD2 | |
63 | S:$P(ADDR LAB,U,3)'= "APO" ADDR 6=$P(ADDRL AB,U,3)_", "_STATE_" "_ZIP | |
64 | S:$P(ADDR LAB,U,3)=" APO" ADDR6 =$P(ADDRLA B,U,3)_" " _STATE_" " _ZIP | |
65 | S:$P(ADDR LAB,U,3)=" FPO" ADDR6 =$P(ADDRLA B,U,3)_" " _STATE_" " _ZIP | |
66 | ; | |
67 | ADD2 ;I AD DR2="" S A DDR2=ADDR6 S ADDR3=" " S ADDR4= "" S ADDR5 ="" S ADDR 6="" | |
68 | ;I ADDR3= "" S ADDR3 =ADDR6 S A DDR4="" S ADDR5="" S ADDR6="" | |
69 | ;I ADDR4= "" S ADDR4 =ADDR6 S A DDR5="" S ADDR6="" | |
70 | ;I ADDR5= "" S ADDR5 =ADDR6 S A DDR6="" | |
71 | ; | |
72 | S T=$C(9) | |
73 | I STATE'= "" D | |
74 | .S TMPS=A DDR1_T_ADD R2_T_ADDR3 _T_ADDR4_T _ADDR5 | |
75 | ; | |
76 | I STATE=" AE" S STAT E="" | |
77 | I STATE=" AA" S STAT E="" | |
78 | S FMPCNT= FMPCNT+1 | |
79 | S T=$C(9) | |
80 | S TMPS=AD DR1_T_ADDR 2_T_ADDR3_ T_ADDR4_T_ ADDR5_T_AD DR6 | |
81 | S TEMP=AD DR1_U_ADDR 2_U_ADDR3_ U_ADDR4_U_ ADDR5_U_AD DR6 | |
82 | S ^CHMZHO LD("FMP-FY 03",ADDR1, CNT)=TEMP | |
83 | ;W !," CL AIM DATE= ",TFMDT, " DFN= ",DFN," " ,$P(NAMELA B,U,1) | |
84 | ; | |
85 | ;U FIO W !,TMPS | |
86 | W !,TMPS | |
87 | ; | |
88 | G L1 | |
89 | Q | |
90 | ADD1 I $E( ADDR3,1,1) '="" S ADD R2=ADDR3 | |
91 | G ADD2 | |
92 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
93 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
94 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
95 | I IOZFO=Y W:$D(IOZF ) # S (DFO UT,Y)="" Q | |
96 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
97 | Q | |
98 | END ; | |
99 | ;W !!,"TO TAL COUNT = ",FMPC NT | |
100 | ;C FIO | |
101 | ; | |
102 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.