272. 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.

272.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHPIVMS.m Mon Nov 5 16:41:38 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHPIVMS.m Fri Nov 9 03:45:52 2018 UTC

272.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 4 468
Changed 3 6
Inserted 0 0
Removed 0 0

272.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

272.4 Active regular expressions

No regular expressions were active.

272.5 Comparison detail

  1   CHPIVMS ;B YLIGHT/JLS  Export CP E Extract  data to Mo veIt folde r  11.03.1 6
  2    ;;1.0;CHP I;****;Sep  24, 2016; Build 9
  3    S DEBUG=0
  4    ;
  5    ; 11/03/1 6 - MoveIt  folder lo cation:  DNS     fs3. DNS            
  6    ;             HAC us es utility  FTPFILE^C HTFLIB9(fi le,server, folder,get /put)
  7    ;
  8    ; 10/18/1 6 Export f ile format  (from CPE -PIT v2.8  XLS):
  9    ;
  10    ; Extract  Data 0 'T erminal' f ile format  for Daily  (D) and H istory (H) :
  11    ; Daily ( D) - CHPIT YPE["D"
  12    ;
  13    ; CPE-Ter minal-Deta ils-YYYYMM DDHHMM.txt
  14    ;   Examp le - CPE-T erminal-De tails-2012 07040159.t xt
  15    ; Compani on File
  16    ;   CPE-T erminal-C- YYYYMMDDHH MM.txt
  17    ;   Examp le - CPE-T erminal-C- 2012070401 59.txt
  18    ;
  19    ; History  (H) - CHP ITYPE["H"
  20    ;
  21    ; CPE-His tory-Detai ls-YYYYMMD DHHMM.txt
  22    ;   Examp le - CPE-H istory-Det ails-20120 7040159.tx t
  23    ; Compani on File
  24    ;   CPE-H istory-C-Y YYYMMDDHHM M.txt
  25    ;   Examp le - CPE-H istory-C-2 0120704015 9.txt
  26    ;
  27    ; Returns  to MOVEIT ^CHPIEX1:
  28    ; CHPIMT  = 0/unsucc essful, 1/ successful  CPE-Termi nal-Detail s file exp ort
  29    ; CHPIMC  = 0/unsucc essful, 1/ successful  CPE-Termi nal-C comp anion file  export
  30    ;
  31    ; -- to t est:
  32    ;
  33    ; S CHPIT YPE="DFF", CHPIEN7=1, ZTSK=100,T EST=1 D ^C HPIVMS  << < Daily
  34    ; S CHPIT YPE="HFF", CHPIEN7=2, ZTSK=100,T EST=1 D ^C HPIVMS  << < History
  35    ;
  36    Q:$G(CHPI TYPE)=""
  37    Q:$G(CHPI EN7)=""
  38    ;
  39    S CHPIMT= 0,CHPIMC=0
  40    ;
  41    I CHPITYP E["D" D DA ILY
  42    I CHPITYP E["H" D HI STORY
  43    ;
  44    HANG 60
  45    KILL
  46    KILL ^TMP ($J)
  47    Q
  48    ;
  49   DAILY ; --  build exp ort files  for Daily  extract
  50    D HLDATE
  51    D PATH
  52    D TFILE
  53    D CFILE
  54    Q
  55    ;
  56   HISTORY ;  -- build e xport file s for Hist ory extrac t
  57    D HLDATE
  58    D PATH
  59    D TFILE
  60    D CFILE
  61    Q
  62    ;
  63   TFILE ; CP E-Terminal -Details-Y YYYMMDDHHM M.txt, CPE -History-D etails-YYY YMMDDHHMM. txt
  64    K TFILE
  65    I CHPITYP E["D" S TF ILE="CPE-T erminal-De tails-"_FI LEDATE_".t xt"
  66    I CHPITYP E["H" S TF ILE="CPE-H istory-Det ails-"_FIL EDATE_".tx t"
  67    I $G(TODA TE)'="" S  TFILE="CPE -History-D etails-"_F ILEDATE_". txt"
  68    S Y=$$GTF ^%ZISH($NA (^TMP($J," CHPIDRVR", 1)),3,PATH ,TFILE)
  69    ;
  70    H 10
  71    D FTP(PAT H_TFILE)
  72    ;
  73    S CHPIMT= $G(Y)
  74    Q
  75    ;
  76    ;******** ********** ********** ********** ********** ********** *****
  77   CFILE ; Co mpanion Fi le
  78    ;******** ********** ********** ********** ********** ********** *****
  79    ; CPE-Ter minal-C-YY YYMMDDHHMM .txt, CPE- History-C- YYYYMMDDHH MM.txt
  80    ; Compani on File
  81    ;
  82    S ETYPE=" "
  83    I CHPITYP E["D" D
  84    . S CFILE ="CPE-Term inal-C-"_F ILEDATE_". txt"
  85    . S ETYPE ="D"
  86    I CHPITYP E["H" D
  87    . S CFILE ="CPE-Hist ory-C-"_FI LEDATE_".t xt"
  88    . S ETYPE ="H"
  89    I $G(TODA TE)'="" D
  90    . S CFILE ="CPE-Hist ory-C-"_FI LEDATE_".t xt"
  91    ;
  92    K SEQ1,SE Q2,SEQ3,SE Q4,SEQ5,SE Q6,SEQ7,SE Q8,CFILEDA T
  93    K ^CHPIEX T2(ZTSK,"C FILE0")
  94    K ^CHPIEX T2(ZTSK,"C FILE")
  95    S SEQ1=$G (ETYPE) ;                                 F EED TYPE
  96    S SEQ2="C PE" ;                                     P ROGRAM
  97    S SEQ3=""  ;
  98    ;
  99    ; process  feed date  - SEQ4
  100    S TMPDT=$ G(FILEDATE 2)
  101    S TMPDT=$ E(TMPDT,1, 8)          ;get date  piece
  102    S YYYY=$E (TMPDT,1,4 )
  103    S MM=$E(T MPDT,5,6)
  104    S DD=$E(T MPDT,7,8)
  105    S YYYYMMD D=YYYY_MM_ DD
  106    S TME=$E( FILEDATE2, 9,14)      ;get time  piece
  107    S TME=$E( TME,1,2)_" :"_$E(TME, 3,4)_":"_$ E(TME,5,6)
  108    S SEQ4=YY YYMMDD
  109    ;
  110    S SEQ5=$G (CHPIDTOT)  ;                             R OWCOUNT
  111    S SEQ5=$O (^TMP($J," CHPIDRVR", ""),-1)
  112    ;
  113    ; process  tranfer b egin date  - SEQ6
  114    S TMPDT=$ $FMTHL7^XL FDT($G(ZTS CH))  ;con vert FM da te to HL7
  115    S YYYY=$E (TMPDT,1,4 )
  116    S MM=$E(T MPDT,5,6)
  117    S DD=$E(T MPDT,7,8)
  118    S HH=$E(T MPDT,9,10)
  119    S MM=$E(T MPDT,11,12 )
  120    S SS=$E(T MPDT,13,14 )
  121    S SEQ6=YY YY_MM_DD_"  "_HH_":"_ MM_":"_SS   ;   TRANS FERBEGTIME
  122    ;
  123    ; process  tranfer e nd date -  SEQ7
  124    S TMPDT=$ $FMTHL7^XL FDT($G(CHP IEND))  ;c onvert FM  date to HL 7
  125    S YYYY=$E (TMPDT,1,4 )
  126    S MM=$E(T MPDT,5,6)
  127    S DD=$E(T MPDT,7,8)
  128    S HH=$E(T MPDT,9,10)
  129    S MM=$E(T MPDT,11,12 )
  130    S SS=$E(T MPDT,13,14 )
  131    S SEQ7=YY YY_MM_DD_"  "_HH_":"_ MM_":"_SS   ;   TRANS FERENDTIME
  132    ;
  133    S SEQ8=$G (CHPISIZE)  ;                             F ILESIZE (B YTES)
  134    S CFILEDA T=SEQ1_U_S EQ2_U_SEQ3 _U_SEQ4_U_ SEQ5_U_SEQ 6_U_SEQ7_U _SEQ8
  135    S CFILEDA T0="Feed_T ype^Progra m^Filler^F eed_Date^R owcount"
  136    S CFILEDA T0=CFILEDA T0_"^Trans ferBegTime ^TransferE ndTime^Fil eSize^"
  137    ;
  138    S ^TMP($J ,"CHPIVMS" ,1)=$G(CFI LEDAT0)
  139    S ^TMP($J ,"CHPIVMS" ,2)=$G(CFI LEDAT)
  140    ;
  141    N S3,LCNT ,PDATE
  142    S LCNT=2
  143    F S3="(3) ","(4)","( 5)","(6)"  DO
  144    . S S3=$O (^TMP($J," EX2A",S3))  Q:S3=""
  145    . S PDATE ="" FOR  D O  Q:PDATE =""       
  146    . . S PDA TE=$O(^TMP ($J,"EX2A" ,S3,PDATE) ) Q:PDATE= ""
  147    . . S PCN T=^TMP($J, "EX2A",S3, PDATE)
  148    . . S LCN T=LCNT+1
  149    . . S ^TM P($J,"CHPI VMS",LCNT) =$$CVTDATE ^CHPIDRVR( PDATE)_" -  "_S3_" -  "_PCNT
  150    ;
  151    S Y=$$GTF ^%ZISH($NA (^TMP($J," CHPIVMS",1 )),3,PATH, CFILE)
  152    ;
  153    H 10
  154    D FTP(PAT H_CFILE)
  155    ;
  156    S CHPIMC= $G(Y)
  157    Q
  158    ;
  159   HLDATE ;co nvert curr ent date t ime to HL7  timestamp
  160    ;returns  FILEDATE =  YYYYMMDDH HMM
  161    K FILEDAT E
  162    D NOW^%DT C
  163    S %=$E($P (%,".",2), 1,6)
  164    S FILEDAT E=(1700+$E (X,1,3))_$ E(X,4,7)_% _$E("0000" ,1,4-$L(%) )
  165    S FILEDAT E2=FILEDAT E
  166    IF $L(FIL EDATE)=14  SET FILEDA TE=$E(FILE DATE,1,12)   ;remove  seconds
  167    K %,%H,%I
  168    Q
  169    ;
  170   PATH ; get  from PARA METER file  #741777 V MS DIRECTO RY PATH fl d #.03
  171    K PATH
  172    S PATH=""
  173    S PATH=$$ GET1^DIQ(7 41777,CHPI EN7,.02,"E ")
  174    Q
  175    ;
  176   ZVMS2 ; cr eate hostf ile using  global sub script lev el ^TMP($J ,"CHPIDRVR ",1)
  177    S CHPITYP E="DFF"
  178    S CHPIEN7 =1
  179    D HLDATE
  180    D PATH
  181    K TFILE
  182    I CHPITYP E["D" S TF ILE="CPE-T erminal-De tails-"_FI LEDATE_".t xt"
  183    I CHPITYP E["H" S TF ILE="CPE-H istory-Det ails-"_FIL EDATE_".tx t"
  184    N I,Y
  185    F I=0:1:1 0 S ^CHPIE XT(I)="TES T RECORD " _I
  186    S Y=$$GTF ^%ZISH($NA (^TMP($J," CHPIDRVR", 0)),3,PATH ,TFILE)
  187    Q
  188    ;
  189    ;
  190   ZVMS3 ; cr eate hostf ile using  global sub script lev el ^CHPITE ST($J,ZTSK ,1)
  191    S CHPITYP E="DFF"
  192    S CHPIEN7 =1
  193    D HLDATE
  194    D PATH
  195    K TFILE
  196    I CHPITYP E["D" S TF ILE="CPE-T erminal-De tails-"_FI LEDATE_".t xt"
  197    I CHPITYP E["H" S TF ILE="CPE-H istory-Det ails-"_FIL EDATE_".tx t"
  198    N I,Y
  199    K ^CHPITE ST($J)
  200    S ZTSK=10 0
  201    F I=1:1:3 0 S ^CHPIT EST($J,ZTS K,I)="TEST  extract r ecord "_I
  202    S Y=$$GTF ^%ZISH($NA (^CHPITEST ($J,ZTSK,1 )),3,PATH, TFILE)
  203    Q
  204    ;
  205    ;
  206   DOST2 ; cr eate hostf ile using  global sub script lev el ^TMP($J ,"CHPIDRVR ",1)
  207    N I,Y
  208    K ^TMP($J ,"CHPIDRVR ")
  209    F I=1:1:5 0 S ^TMP($ J,"CHPIDRV R",I)="TES T extract  record "_I
  210    S Y=$$GTF ^%ZISH($NA (^TMP($J," CHPIDRVR", 1)),3,"C:\ USERS\OWNE R\DESKTOP" ,"CPEDOST2 .DAT")
  211    Q
  212    ;
  213   DOST3 ; cr eate hostf ile using  global sub script lev el ^TMP($J ,"CHPIDRVR ",ZTSK,1)
  214    N I,Y
  215    K ^TMP($J ,"CHPIDRVR ")
  216    S ZTSK=10 0
  217    F I=1:1:2 0 S ^TMP($ J,ZTSK,I)= "TEST extr act "_ZTSK _" record  "_I
  218    S Y=$$GTF ^%ZISH($NA (^TMP($J,Z TSK,1)),3, "C:\USERS\ OWNER\DESK TOP","CPED OST3.DAT")
  219    Q
  220    ;
  221   FTP(INFILE ) ; use HA C ftp util ity to tra nsfer extr act files
  222    ;
  223    K XFILE,X SERVER,XFO LDER,XOPER
  224    ;
  225    S XFILE=I NFILE
  226    ;
  227    S XSERVER =" DNS     fs3. DNS             "
  228    ;
  229    S XFOLDER ="/fs3big/ PIE/PROD"
  230    ; S XFOLD ER="/fs3bi g/Engelbac h/PIE" ; t emp RFE 5/ 25/18
  231    ; I $G(TO DATE)'=""  S XFOLDER= "/fs3big/P IE/History "
  232    ; I $User Name = " AI " S XFOLDE R="/fs3big /PIE/In_Pr ogress"
  233    ;
  234    S XOPER=" PUT"
  235    ;
  236    D FTPFILE ^CHTFLIB9( XFILE,XSER VER,XFOLDE R,XOPER)
  237    Q