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

162.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI4.m Mon Nov 5 16:43:58 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI4.m Mon Nov 5 17:49:55 2018 UTC

162.2 Comparison summary

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

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

162.4 Active regular expressions

No regular expressions were active.

162.5 Comparison detail

  1   CHMLAI4 ;M CR/DEN;Loa d AI test  into DX;03 /08/99  11 :26 AM
  2    ;V 1.0
  3    ;MODIFIED  TO UPDATE  TESTS IN  ONE RTN; J EH 10/3/04
  4    ;MODIFIED  TO UPDATE  MULTIPLE  ENVIRONMEN TS; JEH 10 /31/06 TT  000118
  5    ;ENC00011 8: P&C add  codes for  payment
  6    ;JEH 1/4/ 08 ENC0001 18: P&C ad d codes fo r payment   
  7    ;DPT DEV0 16554 DEV0 12893 CHAN GE EOF REP LACE DECNE T
  8    ;DPT MTN0 25452 MODI FY TO USE  FOR ICD10  DX
  9    ;DPT INC1 824939 CHA NGE AI TO  TEST#4 REM OVE EDIT F OR ENVIRON MENT
  10    D ENVIR
  11    ;S $ZE="" ,$ZT="END"
  12    S CNT=0
  13    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T")    ;DEV012893  DPT
  14    ;S POP=0, CNTR=0 ;DE V012893 DP T
  15    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D  ;D EV012893 D PT
  16    ;  . X "D  $SYSTEM.P rocess.Set ZEOF(1)"   ;DEV016554  DPT
  17    ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE")  ;DEV 012893 DPT
  18    ; .Q ;DEV 012893 DPT
  19    ;I 'POP G  END ;DEV0 12893 DPT
  20    O FILE:"R ":5 
  21    K ^CHMZHO LD("CHMLAI 4")
  22    F  U FILE  R REC  G: $$STATUS^% ZISH END D  ;DEV01655 4 DPT
  23    .Q:$P(REC ,"^",1)="O "   ;QUIT  IF PROCEDU RE CODE
  24    .S CNT=CN T+1
  25    .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",3 )
  26    .I TEST'[ "TEST" S T EST="TEST  #"_TEST
  27    .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV   ;<--- SE T FOR CVA
  28    .D AIUPDT  ;DPT INC1 824939
  29    .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",4 )
  30    .I TEST'[ "TEST" S T EST="TEST  #"_TEST
  31    .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV   ;<--- SE T FOR SB
  32    .D AIUPDT
  33   END S CNT= CNT+1 
  34    ;C FILE
  35    D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT
  36      X "D $S YSTEM.Proc ess.SetZEO F(0)" ;DEV 016554 DPT
  37    S ^CHMZHO LD("CHMLAI 4",0)=CNT
  38    K FILE,CN AME,ENVIR
  39    Q
  40   ENVIR ;
  41    ;S AYGSYS =XQVOL ;DP T INC18249 39
  42    ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV")
  43    ;S ENVIR= AYGSYS DPT  INC182493 9
  44    ;S DIR("B ")=ENVIR D PT INC1824 939
  45    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" DPT IN C1824939
  46    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments" DP T INC18249 39
  47    ;S DIR("L ",2)="" DP T INC18249 39
  48    ;S DIR("L ",3)="   1   LIVE" ;D PT INC1824 939
  49    ;S DIR("L ",4)="   2   TRAIN" ; DPT INC182 4939
  50    ;S DIR("L ",5)="   3   TEST" ;D PT INC1824 939
  51    ;S DIR("L ",6)="   4   DEV" ;DP T INC18249 39
  52    ;S DIR("L ",7)="" ;D PT INC1824 939
  53    ;S DIR("L ")="   ^    QUIT" ;DP T INC18249 39
  54    ;D ^DIR K  DIR ;DPT  INC1824939
  55    ;Q:$D(DUO UT) ;DPT I NC1824939
  56    ;Q:Y="" ; DPT INC182 4939
  57    ;Q:Y="^"! (Y="") ;DP T INC18249 39
  58    ;S ENVIR= Y(0) ;DPT  INC1824939
  59    S $ZE="", $ZT="END" 
  60    ;SET ICD- 10 DX FILE  NAME
  61    ;W !
  62    S DIR(0)= "F^3:50"
  63    S DIR("A" )="Enter I CD-10 DX f ile name"  D ^DIR K D IR
  64    ;S DIR("A ")="Enter  ICD-9 DX f ile name"  D ^DIR K D IR
  65    Q:$D(DUOU T)
  66    Q:Y="^"!( Y="")
  67    S CNAME=Y  K DIR
  68    N FOLDER, CNTR 
  69     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  70    S FILE=CN AME,FOLDER ="" ;DEV01 6554 DPT
  71    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  72    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  73    S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]"  ;INC182493 9 DPT
  74    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  75    S FILE=FO LDER_FILE
  76    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="HAC" :"LIVE") ; DEV012893  DPT
  77    ;S FLDR=" /FS3BIG/CO DEUPDT/ICD 10UPDT/"_C HUCI ;DPT  MTN025452
  78    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD10UPDT. "_ENVIR_"] "_CNAME     ; NAME OF  ICD-9 DX F ILE      ; ICD-9DXE ffOct106.t xt
  79    Q
  80   AIUPDT ;UP DATES THE  AI GBLS
  81    S ERR=$$^ CHMLAI4L(C HPGPT,CODE ,TEST)
  82    S:ERR]""  ^CHMZHOLD( "CHMLAI4", ERR)=""
  83    Q
  84