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

174.1 Files compared

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

174.2 Comparison summary

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

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

174.4 Active regular expressions

No regular expressions were active.

174.5 Comparison detail

  1   CHMLCMAA ; JEH/DEN;LO AD ANESTHE SIA DATA I NTO ^CHMCP F FILE;08/ 22/06  11: 39 AM
  2    ;V1.0
  3    ;*** COPY  OF ^CHMLC MAJ - MODI FIED TO PR OCESS ANES THESIA COD ES ***  JE H
  4    ;MC212 JE H 8/22/06  INITIAL CO DING FOR A NESTHESIA  CODES
  5    ;DEV01655 4 DEV12893  DPT CHANG E EOF CHEC K REPLACE  DECNET 1/2 7/14
  6    ;R1871972 6FY18 DPT  2ANESTHESI A DATA EFF  3/1/18
  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    ;SET ENVI RONMENT
  13    ;S AYGSYS =XQVOL
  14    ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV")
  15    ;S ENVIR= AYGSYS
  16    ;S DIR("B ")=ENVIR
  17    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  18    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  19    ;S DIR("L ",2)=""
  20    ;S DIR("L ",3)="   1   LIVE"
  21    ;S DIR("L ",4)="   2   TRAIN"
  22    ;S DIR("L ",5)="   3   TEST"
  23    ;S DIR("L ",6)="   4   DEV"
  24    ;S DIR("L ",7)=""
  25    ;S DIR("L ")="   ^    QUIT"
  26    ;D ^DIR K  DIR
  27    ;Q:$D(DUO UT)
  28    ;Q:Y=""
  29    ;Q:Y="^"! (Y="")
  30    ;S ENVIR= Y(0)
  31    ;S $ZE="" ,$ZT="END"
  32    ;SET CMAC  FILE NAME
  33    S DIR(0)= "F^3:50"
  34    S DIR("B" )="ANESCF1 .Y06"
  35    S DIR("A" )="Enter A nesthesia  file name  (ex. ANESC F1.Y06)" D  ^DIR K DI R
  36    Q:$D(DUOU T)
  37    Q:Y="^"!( Y="")
  38    S CNAME=Y  K DIR
  39    N FOLDER, CNTR 
  40    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  41    ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT
  42    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  43    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  44    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  45    ;S FILE=F OLDER_FILE
  46    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "SLA":"LIV E",UCI="HA C":"LIVE")  ;DEV01289 3 DPT
  47    ;S FLDR=" /FS3BIG/CO DEUPDT/CMA CUPDT/"_CH UCI
  48    ; D FTPFI LE^CHTFLIB 9(FILE," DNS     fs3. DNS             ",FLDR,"GE T")    ;DEV012893  DPT
  49    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT." _ENVIR_"]" _CNAME     ; NAME OF  CMAC FILE
  50    ;O FILE:" R":5
  51     S FILE=" HAC_HFS$:[ DSMMANAG.C HAMPVA]"_C NAME ; R18 719726FY18  DPT 2/12/ 18
  52     S POP=0, CNTR=0 ;DE V012893 DP T
  53    F  S CNTR =CNTR+1 Q: (CNTR>5)!P OP  D  ;DE V012893 DP T
  54      . X "D  $SYSTEM.Pr ocess.SetZ EOF(1)"  ; DEV016554  DPT
  55     . S POP= $$OPENFIRD ^CHTFLIB9( .FILE,"FIL E")  ;DEV0 12893 DPT
  56     .Q ;DEV0 12893 DPT
  57    I 'POP G  END ;DEV01 2893 DPT
  58    W !!,"Inp ut Device:  ",!,FILE
  59    W !!,"Is  this corre ct? " D SB RS
  60    W !
  61    Q:$D(DFOU T)  Q:$D(D UOUT)  I $ D(DQOUT) D   G BEGIN
  62    .W !!,"En ter 'Y' or  'N'. "
  63    Q:Y=""
  64     S Y=$E(Y ,1) I "ynY N"'[Y W *7 ," ??" G B EGIN
  65    G BEGIN:" Nn"[Y
  66    S STARTFL =""
  67   QUEC ;
  68    ;S IOP="Q " D ^%ZIS  G QEND:POP
  69    S CHFIO=I ON
  70    S ZTRTN=" START^CHML CMAA",ZTDE SC="LOAD A NESTHESIA  UPDATE",ZT IO=""
  71    S ZTSAVE( "CHFIO")=" ",ZTSAVE(" FILE")="", ZTSAVE("CH LSRNDT")=" ",ZTSAVE(" CHEFFDT")= ""
  72    S:$D(STAR TFL) ZTSAV E("STARTFL ")=""
  73    ;D ^%ZTLO AD
  74    G START     ; JEH <- ---------- ---------- ---------- -REMOVE AF TER TESTIN G
  75   QEND K CM, CHEFFDT,CH FIO,D,PG,T IME,DATE,C HNEWCT Q
  76    ; 
  77   START ;
  78    ;K X,^CHM ZHOLD("CMA C-DTERR") 
  79    S (CM,CHN EWCT)=0
  80    S $ZE="", $ZT="END^C HMLCMAA"
  81    
  82    
  83   A1 ;
  84    F  U FILE  R X  G:$$ STATUS^%ZI SH END D ; DEV016554  DPT
  85    .;U 0 W ! ,X    ;UNC OMMENT FOR  TESTING P URPOSES
  86    .S (CHM1, CHM3)=0
  87    .S CHCPDT =$E(X,18,2 5),CHEFFDT =$$YR8FMYR ^CHTFLIB(C HCPDT)   ; EFFECTIVE  DATE
  88    .S CHCPDT =$E(X,34,4 1)
  89    .I CHCPDT =99999999  S CHTRMDT= ""
  90    .E  S CHT RMDT=$$YR8 FMYR^CHTFL IB(CHCPDT)         ;T ERMINATION  DATE
  91    .S CHREVD T=9999999- CHEFFDT                       ;R EVERSE DAT E
  92    .S CHCLOC =$E(X,1,3) ,CHCLOC=+C HCLOC              ;C HAMPUS Loc ality No.
  93    .S CHM1=+ $$LTRIM^CH TFLIB($E(X ,4,9))/100         ;P HYSICIAN C F  (2 impl ied decima ls)
  94    .S CHM3=+ $$LTRIM^CH TFLIB($E(X ,10,15))/1 00      ;N ONPHYSICIA N CF  (2 i mplied dec imals)
  95    .S CHCPTR =0 F  S CH CPTR=$O(^C HMSERV(CHC PTR)) Q:'C HCPTR  D
  96    ..I $D(^C HMSERV(CHC PTR,4)) D
  97    ...S CHCP T=$P(^CHMS ERV(CHCPTR ,0),"^",1)
  98    ...I '$D( ^CHMCPF("B ",CHCPT))  D NEW G CO NT
  99    ...S DA=$ O(^CHMCPF( "B",CHCPT, 0)) I 'DA  D NEW G CO NT
  100   CONT ...;
  101    ...F I=CH CLOC:-1 Q: I#8=1
  102    ...S $P(^ CHMCPF(DA, I,9999999- CHEFFDT,0) ,U,1)=CHEF FDT
  103    ...S CHPC =1 F J=CHC LOC:-1 Q:J #8=1  S CH PC=CHPC+1
  104    ...S STR= CHM1_";;"_ CHM3_";;C"
  105    ...I '$D( ^CHMCPF(DA ,I,CHREVDT ,0)) S ^CH MCPF(DA,I, CHREVDT,0) =""
  106    ...S STR2 =$P(^CHMCP F(DA,I,CHR EVDT,0),"^ ",2)
  107    ...S $P(S TR2,",",CH PC)=STR
  108    ...S ^CHM CPF(DA,I,C HREVDT,0)= CHEFFDT_"^ "_STR2
  109    ...;U 0 W  !,^CHMCPF (DA,I,CHRE VDT,0)," =  ",CHEFFDT ," ^ ",STR 2,?65,"DA  = ",DA     ;UNCOMMENT  FOR TESTI NG PURPOSE S
  110    Q
  111   END ;C FIL
  112     D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT
  113     X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT
  114    K CHCLOC, CHCPT,CHI, CHM1,CHM2, CHM3,CHM4, CHPC,CHREV DT,CHA
  115    K CHC,CHD ,CHE,FILE, CHY,DA,DIE ,DR,I,J,ST R,STR2,STR G,STRG2,X, Y,CHLSRNDT
  116    K NOSTFL, CHCPDT,CHC MPDT
  117   QUEP S %ZI S="Q",IOP= "Q;"_CHFIO  D ^%ZIS G  QPEND:POP
  118    S ZTRTN=" ^CHMLCMA8" ,ZTDTH=$H  K ZTIO
  119    S ZTSAVE( "CM")="",Z TSAVE("CHE FFDT")="", ZTSAVE("CH NEWCT")=""
  120    D ^%ZTLOA D
  121   QPEND Q
  122    ; 
  123   NEW L ^CHM CPF(0) S ( CHI,DA)=$P (^CHMCPF(0 ),"^",3)+1
  124    S $P(^CHM CPF(0),"^" ,3)=DA,$P( ^CHMCPF(0) ,"^",4)=$P (^CHMCPF(0 ),"^",4)+1  L
  125    S ^CHMCPF ("B",CHCPT ,DA)=""
  126    S ^CHMCPF (DA,0)=CHC PT,CHNEWCT =CHNEWCT+1
  127    Q
  128   SBRS D CSB RS^CHSC2 Q      
  129    R Y:$S($D (DTIME):DT IME,1:60)
  130    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  131   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  132    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  133    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  134    Q
  135   DEC F A=1: 1:5 Q:$E(B ,A)'=0
  136    Q:B["."
  137    S B=$E(B, A,8) S LEN =$L(B),LEN 1=LEN-1,LE N2=LEN-2
  138    S B=$E(B, 1,LEN2)_". "_$E(B,LEN 1,LEN)
  139    Q
  140   ZEROOUT ;R EMOVES PRE CEEDING NO NSIGNIFICA NT DIGITS
  141    Q
  142    F P=1:1:$ L(B)-1 Q:$ E(B,1)'=0   S B=$E(B, 2,8)
  143    Q
  144    ; 
  145   DTERR S CM =CM+1,^CHM ZHOLD("CMA C-DTERR",C M)=X Q  ;F IND DATE D ISCREPANCI ES IN FILE
  146    ; 
  147