175. EPMO Open Source Coordination Office Redaction File Detail Report

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

175.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMAJ.m Mon Nov 5 16:44:06 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMAJ.m Mon Nov 5 17:50:00 2018 UTC

175.2 Comparison summary

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

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

175.4 Active regular expressions

No regular expressions were active.

175.5 Comparison detail

  1   CHMLCMAJ ; JEH/DEN;LO AD INJECTA BLES (J-CO DE) DATA I NTO ^CHMCP F FILE;08/ 22/06  11: 39 AM
  2    ;V1.0
  3    ;*** COPY  OF ^CHMLC MA7 - MODI FIED TO PR OCESS J-CO DES ***  J EH
  4    ;MC212 JE H 8/22/06  INITIAL CO DING FOR J -CODES
  5    ;DEV01655 4 DEV01289 3 EOF REPL ACE DECNET
  6    ;MTN       DPT MODIF Y ROUTINE  TO OMIT CH ECK FOR EN VIRONMENT.  ADD EDIT  TO EXCLUDE  383 AND 3 91
  7   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  8    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  9    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
  10    ;
  11   BEGIN ;SET  CURRENT A ND LAST EF FECT DATE
  12    W !! S %D T="AEX",%D T("A")="En ter effect ive date:  (MM/DD/YY)  " D ^%DT  Q:X=""  Q: Y=-1  S CH BEGDT=Y
  13    W !! S %D T="AEX",%D T("A")="La st effecti ve date: ( MM/DD/YY)  " D ^%DT Q :X=""  Q:Y =-1  S CHL SRNDT=Y,CH LSTRDT=Y      ;JEH AD D '-Y' AFT ER INITIAL  LOAD/UPDA TE
  14    ;AUTO GET  LAST EFF  DATE
  15    ;S I=0,I= $P(^CHMCPF (0),"^",3)
  16    ;S J=0,J= $O(^CHMCPF (I,J))
  17    ;S K=9999 999,K=$O(^ CHMCPF(I,J ,K),-1)
  18    ;S CHLSRN DT=K
  19    ;
  20    ;SET ENVI RONMENT
  21    ;S AYGSYS =XQVOL
  22    ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV")
  23    ;S ENVIR= AYGSYS
  24    ;S DIR("B ")=ENVIR
  25    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  26    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  27    ;S DIR("L ",2)=""
  28    ;S DIR("L ",3)="   1   LIVE"
  29    ;S DIR("L ",4)="   2   TRAIN"
  30    ;S DIR("L ",5)="   3   TEST"
  31    ;S DIR("L ",6)="   4   DEV"
  32    ;S DIR("L ",7)=""
  33    ;S DIR("L ")="   ^    QUIT"
  34    ;D ^DIR K  DIR
  35    ;Q:$D(DUO UT)
  36    ;Q:Y=""
  37    ;Q:Y="^"! (Y="")
  38    ;S ENVIR= Y(0)
  39    ;S $ZE="" ,$ZT="END"
  40    ;SET CMAC  FILE NAME
  41    S DIR(0)= "F^3:50"
  42    S DIR("A" )="Enter I njectable  Drug (J-co de) file n ame (INJV1 07.TXT)" D  ^DIR K DI R
  43    Q:$D(DUOU T)
  44    Q:Y="^"!( Y="")
  45    S CNAME=Y  K DIR
  46    ;N FOLDER ,CNTR  ;DE V016554 DP T
  47     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"  ;DEV016554  DPT
  48    ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT
  49    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  50    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  51    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  52    ;S FILE=F OLDER_FILE  ;DEV01655 4 DPT
  53    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="HAC" :"LIVE") ; DEV012893  DPT
  54    ;S FLDR=" /FS3BIG/CO DEUPDT/CMA CUPDT/"_CH UCI ;DEV01 6554 DPT
  55    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 6554 DPT
  56    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT." _ENVIR_"]" _CNAME     ; NAME OF  INJECTABLE  FILE
  57    ;S POP=0, CNTR=0 ;DE V016554 DP T
  58    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D ;DE V016554 DP T
  59    ;  . X "D  $SYSTEM.P rocess.Set ZEOF(1)" ; DEV016554  DPT
  60    ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT
  61    ; .Q ;DEV 016554 DPT
  62    ;I 'POP G  END  ;DEV 016554 DPT
  63    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME ; MTN       DPT
  64    O FILE:"R ":5 ;MTN   DPT