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 | CHSBMAD1.m | Mon Nov 5 16:39:02 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHSBMAD1.m | Mon Nov 5 17:55:29 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 220 |
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 | CHSBMAD1 ; CVA/JFQ;SB VENDOR IN TERFACE FO R MEDADVIC E 2001 - D RIVER | |
2 | ;;V2.0; | |
3 | ; - Begin s by acces sing Clien t File. | |
4 | ; - Opens Grp, Prov , Fac, and Network f iles for e ach HAC cl ient | |
5 | ; - Searc hes Vendor file for inserts or updates f or each cl ient | |
6 | ; - on SU B x-ref an d writes t o appropri ate file. | |
7 | ; - After files wri tten, for each clien t FTPs dat a to appro priate | |
8 | ; - locat ion | |
9 | SINGLE ; - Process a single cl ient | |
10 | S U="^" | |
11 | Q | |
12 | TASKED ; - Process a ll clients known to HAC | |
13 | S U="^" | |
14 | K ^TMP("M EDADVICE V ENDOR LOAD ",$J) | |
15 | D NOW^%DT C S CHSBNO W=$$DATE^C HSBMAF1(%) K X,Y,%H, %I | |
16 | K CHCLNT D GETCLNT( .CHCLNT) Q :'$D(CHCLN T) | |
17 | D OPEN(CH SBNOW,.CHC LNT) | |
18 | D PROCESS | |
19 | D TRAILER | |
20 | D CLOSE | |
21 | END ; - Cl eanup and Exit | |
22 | K VEN,V0, V1,V2,V3,V 14,NAME,NA MEPROV | |
23 | K ADD1A,A DD2A,CITYA ,STA,ZIPA, PHONEA,FLG A,CNTRYA | |
24 | K ADD1B,A DD2B,CITYB ,STB,ZIPB, PHONEB,FLG B,CNTRYB | |
25 | K ADD1C,A DD2C,CITYC ,STC,ZIPC, PHONEC,FLG C,CNTRYC | |
26 | K ^TMP("M EDADVICE V ENDOR LOAD ",$J) | |
27 | K CHXDATA ,CLIENT,CL NT,HACCL,I ,N,SPECPT, X,Y,CHVEND | |
28 | K CHVENI, CHTYPE,CHT OTREC,CHSU M,CHCLNT,C HADDTYP,%N OW,%NOW1 | |
29 | Q | |
30 | PROCESS ; - Main Pro cessing Lo op | |
31 | ; - Plan to use "SU B" x-ref i n future, for now us e temp glo bal | |
32 | ; - S CLI ENT="" F S CLIENT=$ O(^CHMVEN( "SUB",CLIE NT)) Q:CLI ENT="" D | |
33 | ; -.S CHV EN=0 F S CHVEN=$O(^ CHMVEN("SU B",CLIENT, CHVEN)) Q: CHVEN="" D | |
34 | ; -.. (Co ntinue wit h code bel ow) | |
35 | ; - | |
36 | S CLIENT= "SB" | |
37 | K ^TMP("M EDADVICE V ENDOR LOAD ",$J,CLIEN T) | |
38 | ;;S CHVEN I=0 F S C HVENI=$O(^ CHMZHOLD(" SB-VENDORS ",CHVENI)) Q:'+CHVEN I D | |
39 | F CHVENI= 7107500:1: 7198351 D | |
40 | .;;;; Q:' $$CREATE^C HSBMAF1(CH VENI,CHSBN OW-1) Ke eps Record s either a dded or ch anged toda y | |
41 | .Q:'$D(^C HMVEN(CHVE NI)) | |
42 | .K CHVEND | |
43 | .S CHVEND (CHVENI,0) =$G(^CHMVE N(CHVENI,0 )) | |
44 | .Q:$P(CHV END(CHVENI ,0),U,8)'= 0 ;Only A ctive Vend ors, (at s ome pt, ma y want to process in active ven dors too) | |
45 | .F X=1,2, 4,5,14 S C HVEND(CHVE NI,X)=$G(^ CHMVEN(CHV ENI,X)) | |
46 | .Q:$P(CHV END(CHVENI ,1),U,9)=0 ;If not Austin ver ified, sto p | |
47 | .; | |
48 | .S CHTYPE =$P($$TYPE ^CHSBMAF1( CHVENI,CLI ENT),U) | |
49 | .D:CHTYPE ="P" PRV^C HSBMA10($N A(CHCLNT(C LIENT,"PRV ")),CHSBNO W,$NA(CHVE ND(CHVENI) ),$P(CHTYP E,U,2)) | |
50 | .D:CHTYPE ="G" GRP^C HSBMA12($N A(CHCLNT(C LIENT,"GRP ")),CHSBNO W,$NA(CHVE ND(CHVENI) ),$P(CHTYP E,U,2)) | |
51 | .D:CHTYPE ="F" FAC^C HSBMA14($N A(CHCLNT(C LIENT,"FAC ")),CHSBNO W,$NA(CHVE ND(CHVENI) ),$P(CHTYP E,U,2)) | |
52 | .D:CHTYPE ="N" NET^C HSBMA16($N A(CHCLNT(C LIENT,"NET ")),CHSBNO W,$NA(CHVE ND(CHVENI) ),$P(CHTYP E,U,2)) | |
53 | .K CHVEND | |
54 | .S ^TMP(" MEDADVICE VENDOR LOA D",$J,CLIE NT,CHVENI) ="" | |
55 | Q | |
56 | GETCLNT(XX ) ; - Buil ds local a rray of al l active c lients. | |
57 | ; - Must create fil e which wi ll be quer ied. | |
58 | ; - For n ow, hardco de local a rray. 9/20 /98 | |
59 | S XX("SB" )="HAC_HFS $:[NVA_ARC HIVES.TEST ]^ DNS MED1^" ; p 1 = Direct ory build files, p2 = FTP Dest ination | |
60 | Q | |
61 | OPEN(%NOW, %CLNT) ; - Open all files for all client s | |
62 | ; %CLNT i s array co ntaining l ist of Cli ents | |
63 | S %NOW1=$ $JULIAN^CH SBMAF1(%NO W) | |
64 | Q:%NOW1=" " ; Shoul d send mai l message notify err or. | |
65 | S HACCL=" HAC" | |
66 | S CLNT="" F S CLNT =$O(%CLNT( CLNT)) Q:C LNT="" D | |
67 | .S %CLNT( CLNT,"PRV" ,"ID")=HAC CL | |
68 | .S %CLNT( CLNT,"PRV" )=$P(%CLNT (CLNT),U)_ "P"_%NOW1_ "."_%CLNT( CLNT,"PRV" ,"ID") O:2 %CLNT(CLN T,"PRV"):" NWU":554 | |
69 | .; "CNT" = 10cnt^20 cnt^21cnt^ 22cnt^30cn t^50^cnt^6 0cnt^80cnt ^wrote 00 rec. | |
70 | .S %CLNT( CLNT,"PRV" ,"CNT")="0 ^0^0^0^0^0 ^0^0^N" | |
71 | .S %CLNT( CLNT,"GRP" ,"ID")=HAC CL | |
72 | .S %CLNT( CLNT,"GRP" )=$P(%CLNT (CLNT),U)_ "G"_%NOW1_ "."_%CLNT( CLNT,"GRP" ,"ID") O:2 %CLNT(CLN T,"GRP"):" NWU":554 | |
73 | .S %CLNT( CLNT,"GRP" ,"CNT")="0 ^0^0^0^0^0 ^0^0^N" | |
74 | .S %CLNT( CLNT,"FAC" ,"ID")=HAC CL | |
75 | .S %CLNT( CLNT,"FAC" )=$P(%CLNT (CLNT),U)_ "F"_%NOW1_ "."_%CLNT( CLNT,"FAC" ,"ID") O:2 %CLNT(CLN T,"FAC"):" NWU":554 | |
76 | .S %CLNT( CLNT,"FAC" ,"CNT")="0 ^0^0^0^0^0 ^0^0^N" | |
77 | .S %CLNT( CLNT,"NET" ,"ID")=HAC CL | |
78 | .S %CLNT( CLNT,"NET" )=$P(%CLNT (CLNT),U)_ "N"_%NOW1_ "."_%CLNT( CLNT,"NET" ,"ID") O:2 %CLNT(CLN T,"NET"):" NWU":554 | |
79 | .S %CLNT( CLNT,"NET" ,"CNT")="0 ^0^0^0^0^0 ^0^0^N" | |
80 | Q | |
81 | CLOSE ; - Close all files for all client s | |
82 | ; %CLNT i s array co ntaining l ist of Cli ents | |
83 | S CLNT="" F S CLNT =$O(CHCLNT (CLNT)) Q: CLNT="" D | |
84 | .C CHCLNT (CLNT,"PRV ") | |
85 | .C CHCLNT (CLNT,"GRP ") | |
86 | .C CHCLNT (CLNT,"FAC ") | |
87 | .C CHCLNT (CLNT,"NET ") | |
88 | Q | |
89 | TRAILER ; - Write tr ailer reco rd for all files. | |
90 | S CLNT="" F S CLNT =$O(CHCLNT (CLNT)) Q: CLNT="" D | |
91 | .F CHTYPE ="PRV","GR P","FAC"," NET" D | |
92 | ..Q:$P(CH CLNT(CLNT, CHTYPE,"CN T"),U,9)=" N" | |
93 | ..K CHSUM S CHSUM(" TOT")=0 | |
94 | ..S CHSUM (10)=($P(C HCLNT(CLNT ,CHTYPE,"C NT"),U,1)* 10),CHSUM( "TOT")=CHS UM("TOT")+ CHSUM(10) | |
95 | ..S CHSUM (20)=($P(C HCLNT(CLNT ,CHTYPE,"C NT"),U,2)* 20),CHSUM( "TOT")=CHS UM("TOT")+ CHSUM(20) | |
96 | ..S CHSUM (21)=($P(C HCLNT(CLNT ,CHTYPE,"C NT"),U,3)* 21),CHSUM( "TOT")=CHS UM("TOT")+ CHSUM(21) | |
97 | ..S CHSUM (22)=($P(C HCLNT(CLNT ,CHTYPE,"C NT"),U,4)* 22),CHSUM( "TOT")=CHS UM("TOT")+ CHSUM(22) | |
98 | ..S CHSUM (30)=($P(C HCLNT(CLNT ,CHTYPE,"C NT"),U,5)* 30),CHSUM( "TOT")=CHS UM("TOT")+ CHSUM(30) | |
99 | ..S CHSUM (50)=($P(C HCLNT(CLNT ,CHTYPE,"C NT"),U,6)* 50),CHSUM( "TOT")=CHS UM("TOT")+ CHSUM(50) | |
100 | ..S CHSUM (60)=($P(C HCLNT(CLNT ,CHTYPE,"C NT"),U,7)* 60),CHSUM( "TOT")=CHS UM("TOT")+ CHSUM(60) | |
101 | ..S CHSUM (80)=($P(C HCLNT(CLNT ,CHTYPE,"C NT"),U,8)* 80),CHSUM( "TOT")=CHS UM("TOT")+ CHSUM(80) | |
102 | ..S CHSUM (90)=1*90, CHSUM("TOT ")=CHSUM(" TOT")+90 | |
103 | ..S CHTOT REC=0 F I= 1:1:8 S CH TOTREC=CHT OTREC+$P(C HCLNT(CLNT ,CHTYPE,"C NT"),U,I) | |
104 | ..S CHTOT REC=CHTOTR EC+2 ; (1 for 00 rec and 1 for 90 rec) | |
105 | ..S CHXDA TA("REC90" ,2)=CHCLNT (CLNT,CHTY PE,"ID") | |
106 | ..S CHXDA TA("REC90" ,4)=CHSUM( "TOT") | |
107 | ..S CHXDA TA("REC90" ,5)=CHTOTR EC | |
108 | ..D REC90 ^CHSBMA24( CHCLNT(CLN T,CHTYPE), CHTYPE,$NA (CHXDATA(" REC90"))) | |
109 | ..K CHXDA TA("REC90" ) | |
110 | Q | |
111 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.