158. EPMO Open Source Coordination Office Redaction File Detail Report

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

158.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI1.m Mon Nov 5 16:41:59 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAI1.m Mon Nov 5 17:49:53 2018 UTC

158.2 Comparison summary

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

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

158.4 Active regular expressions

No regular expressions were active.

158.5 Comparison detail

  1   CHMLAI1 ;M CR/DEN;Loa d AI test  into ICD9  PX PROCEDU RES;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
  5    ;JEH 1/4/ 08 ENC0001 18: P&C ad d codes fo r payment
  6    ;DEV01655 4 DEV01289 3 DPT EOF  REPLACE DE CNET  
  7    D ENVIR
  8    ;S $ZE="" ,$ZT="END"
  9    S CNT=0
  10       D FTPFILE^ CHTFLIB9(F ILE," DNS     fs3. DNS             ",FLDR,"GE T")    ;DEV012893  DPT
  11    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT." _ENVIR_"]" _CNAME     ; NAME OF  ICD-9 PX F ILE      ; ICD-9PXE ffOct106.t xt
  12    S POP=0,C NTR=0 ;DEV 012893 DPT
  13    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D  ;DE V012893 DP T
  14     . S POP= $$OPENFIRD ^CHTFLIB9( .FILE,"FIL E")  ;DEV0 12893 DPT
  15     .Q ;DEV0 12893 DPT
  16    I 'POP G  END ;DEV01 2893 DPT
  17    ;O FILE:" R":5
  18    K ^CHMZHO LD("CHMLAI 1")
  19    F  U FILE  R REC G:$ $STATUS^%Z ISH END D  ;DEV016554  DPT
  20    .Q:$P(REC ,"^",1)="D "   ;QUIT  IF DIAG CO DE
  21    .S CNT=CN T+1  
  22    .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",3 )
  23    .I TEST'[ "TEST" S T EST="TEST  #"_TEST
  24    .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV   ;<--- SE T FOR CVA
  25    .D AIUPDT ^CHMLAI1    ;JEH 1/7/ 08 ADD SUB ROUTINE CA LL
  26    .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",4 )
  27    .I TEST'[ "TEST" S T EST="TEST  #"_TEST
  28    .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV   ;<--- SE T FOR SB
  29    .D AIUPDT ^CHMLAI1    ;JEH 1/7/ 08 ADD SUB ROUTINE CA LL
  30   END S CNT= CNT+1
  31    ;C FILE
  32     D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT
  33    S ^CHMZHO LD("CHMLAI 1",0)=CNT
  34    K FILE,CN AME,ENVIR
  35    Q
  36   ENVIR ;
  37    ;S AYGSYS =XQVOL
  38    ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV")
  39    ;S ENVIR= AYGSYS
  40    ;S DIR("B ")=ENVIR
  41    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  42    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  43    ;S DIR("L ",2)=""
  44    ;S DIR("L ",3)="   1   LIVE"
  45    ;S DIR("L ",4)="   2   TRAIN"
  46    ;S DIR("L ",5)="   3   TEST"
  47    ;S DIR("L ",6)="   4   DEV"
  48    ;S DIR("L ",7)=""
  49    ;S DIR("L ")="   ^    QUIT"
  50    ;D ^DIR K  DIR
  51    ;Q:$D(DUO UT)
  52    ;Q:Y=""
  53    ;Q:Y="^"! (Y="")
  54    ;S ENVIR= Y(0)
  55    ;S $ZE="" ,$ZT="END"
  56    ;SET ICD- 9 PX FILE  NAME
  57    ;W !
  58    S DIR(0)= "F^3:50"
  59    S DIR("A" )="Enter I CD-9 PX fi le name" D  ^DIR K DI R
  60    Q:$D(DUOU T)
  61    Q:Y="^"!( Y="")
  62    S CNAME=Y  K DIR
  63    N FOLDER, CNTR 
  64     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  65    S FILE=CN AME,FOLDER ="" ;DEV01 6554 DPT
  66    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 16554 DPT
  67    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" ;D EV016554 D PT
  68    I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DEV016 554 DPT
  69    S FILE=FO LDER_FILE
  70    S FLDR="/ FS3BIG/COD EUPDT/ICD9 UPDT/"_UCI
  71    Q
  72   AIUPDT ;UP DATES THE  AI GBLS    ;JEH 1/7/0 8 ADD NEW  SUBRTN
  73    S ERR=$$^ CHMLAI1L(C HPGPT,CODE ,TEST)
  74    S:ERR]""  ^CHMZHOLD( "CHMLAI1", ERR)=""
  75    Q
  76