169. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:02 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.

169.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMA6.m Mon Nov 5 16:44:47 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMA6.m Mon Nov 5 17:49:59 2018 UTC

169.2 Comparison summary

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

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

169.4 Active regular expressions

No regular expressions were active.

169.5 Comparison detail

  1   CHMLCMA6 ; JEH/HAC; U PDATE SERV ICE FILE W ITH CPT RV U DATA;09/ 6/06  12:3 9 PM
  2    ;V1.0
  3    ;MTN02069 7 DPT 3/20 /14  anest hesia upda te new fie ld 
  4    ;DEV01655 4 DEV01289 3 DPT EOF  REPLACE DE CNET 1/27/ 14 3/24/15
  5    ;MTN02552 4 DPT CMAC  2016 EFF  4/1/16
  6   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  7    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  8    ;set var  IOF for cl ear screen
  9    S:'$D(IOF ) IOF="#,$ C(27,91,50 ,74,27,91, 72)"
  10    I '$D(IOZ ) S %IS="N ",IOP=$I D  ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS
  11    S:$D(IOF)  IOZF=IOF
  12   ZNAM ;
  13    ;
  14   BEGIN ;
  15    D INIT    ; INITIALI ZE AND SET  VARIABLES
  16    D FLOAD   ; LOAD DAT A INTO TEM P GLOBAL
  17    D GLOAD   ; LOAD DAT A IN CHMSE RV GLOBAL
  18    D:$D(^CHM ZHOLD("CPT -RVU","ERR OR")) ERRF L
  19    W !!,"END  OF LOADIN G RVU DATA "
  20    G END
  21    Q
  22   INIT ;MASS  UPDATE (R EAD IN EXT ERNAL FILE )
  23    S AYGSYS= XQVOL
  24    S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V")
  25    S ENVIR=A YGSYS
  26    S DIR(0)= "F",DIR("A ")="Enter  File Name  (include f ile extens ion - ANES RVG1.Y06)"  D ^DIR K  DIR S FNAM E=Y
  27    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT." _ENVIR_"]" _FNAME       ;<---JEH      PUT FILE N AME HERE    "ANESRVG1. Y06"     - TEST "AN ESRVG1TEST .Y06"
  28    ;S FILE=F NAME,FOLDE R="" ;DEV0 16554 DPT
  29    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  30    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  31    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  32    ;S FILE=F OLDER_FILE
  33    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="HADTST ":"DEV",UC I="TST":"T EST",UCI=" HACTST":"T EST",UCI=" SLA":"LIVE ",UCI="HAC ":"LIVE",U CI="TRN":" TRAIN") ;D EV012893 D PT MTN0255 24 DPT  
  34    ;S FLDR=" /FS3BIG/CO DEUPDT/CMA CUPDT/"_CH UCI
  35    ;U 0 W !! ,"ENVIRONM ENT = ",UC I," ",CHUC I
  36    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 2893 DPT
  37    ;S POP=0, CNTR=0 ;DE V012893 DP T
  38    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D  ;D EV012893 D PT
  39    ; . X "D  $SYSTEM.Pr ocess.SetZ EOF(1)"  ; DEV016554  DPT
  40    ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 12893 DPT
  41    ; .Q ;DEV 012893 DPT
  42    ;I 'POP W  !!,"NOT A BLE TO OPE N FILE" Q  ;DEV012893  DPT
  43    S CTR=0,I 1=0
  44    K ^CHMZHO LD("CPT-RV U")
  45    S CHDUZ=1
  46    S:$G(DUZ)  CHDUZ=DUZ
  47    I '$D(DT)  D NOW^%DT C S DT=X
  48    S CHMODDT =DT  ;SETT ING MODIFY  DATE
  49    S TAB=$C( 9)
  50    Q
  51   FLOAD ;LOA D DATA INT O TEMP GLO BAL
  52    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FN AME
  53    S POP=0,C NTR=0 ;DEV 012893 DPT
  54    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D  ;DE V012893 DP T
  55     . X "D $ SYSTEM.Pro cess.SetZE OF(1)"  ;D EV016554 D PT
  56     . S POP= $$OPENFIRD ^CHTFLIB9( .FILE,"FIL E") ;DEV01 2893 DPT
  57     .Q ;DEV0 12893 DPT
  58    I 'POP W  !!,"NOT AB LE TO OPEN  FILE" Q ; DEV012893  DPT