276. EPMO Open Source Coordination Office Redaction File Detail Report

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.

276.1 Files compared

# 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

276.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 220
Changed 1 2
Inserted 0 0
Removed 0 0

276.3 Comparison options

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

276.4 Active regular expressions

No regular expressions were active.

276.5 Comparison detail

  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