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

170.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMA7.m Mon Nov 5 16:45:19 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMA7.m Mon Nov 5 17:49:59 2018 UTC

170.2 Comparison summary

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

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

170.4 Active regular expressions

No regular expressions were active.

170.5 Comparison detail

  1   CHMLCMA7 ; CR/DEN;LOA D CMAC DAT A INTO ^CH MCPF FILE; 06/18/99   11:39 AM
  2    ;V1.0
  3    ;CPTS #13 733 BY DTP  (13-FEB-9 8)
  4    ;MOD TO A CCEPT NEW  FILE BY JE H (2/24/04 )
  5    ;MC016 BY  JEH (7/24 /06) CMAC  STANDARD F ILE CONVER SION
  6     ;MTN0198 53 DEV0165 54 DPT 1/9 /13 CODE U PDATES, EO F, REPLACE  DECNET
  7    ;MTN02406 9 DPT LOAD  CMAC REVI SED RATES
  8    ; MTN      DPT  BY P ASS 383 AN D 391 this  will elim inate chan ging file  REMOVE REF ERENCE TO  ENVIRONMEN T MANAULLY  MOVE FILE  TO CACHE
  9   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  10    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  11    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
  12    ;
  13   BEGIN ;SET  CURRENT A ND LAST EF FECT DATE
  14    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
  15    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=9999 999-Y
  16    ;AUTO GET  LAST EFF  DATE
  17    ;S I=0,I= $P(^CHMCPF (0),"^",3)
  18    ;S J=0,J= $O(^CHMCPF (I,J))
  19    ;S K=9999 999,K=$O(^ CHMCPF(I,J ,K),-1)
  20    ;S CHLSRN DT=K
  21    ;
  22    ;SET ENVI RONMENT
  23    ;S AYGSYS =XQVOL
  24    ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV")
  25    ;S ENVIR= AYGSYS
  26    ;S DIR("B ")=ENVIR
  27    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  28    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  29    ;S DIR("L ",2)=""
  30    ;S DIR("L ",3)="   1   LIVE"
  31    ;S DIR("L ",4)="   2   TRAIN"
  32    ;S DIR("L ",5)="   3   TEST"
  33    ;S DIR("L ",6)="   4   DEV"
  34    ;S DIR("L ",7)=""
  35    ;S DIR("L ")="   ^    QUIT"
  36    ;D ^DIR K  DIR
  37    ;Q:$D(DUO UT)
  38    ;Q:Y=""
  39    ;Q:Y="^"! (Y="")
  40    ;S ENVIR= Y(0)
  41    S $ZE="", $ZT="END"
  42    ;SET CMAC  FILE NAME
  43    S DIR(0)= "F^3:50"
  44    S DIR("A" )="Enter C MAC Standa rd file na me (CMAC07 R2.TXT)" D  ^DIR K DI R
  45    Q:$D(DUOU T)
  46    Q:Y="^"!( Y="")
  47    S CNAME=Y  K DIR
  48    ; N FOLDE R,CNTR 
  49     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"
  50    ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT
  51    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 016554 DPT
  52    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554  DPT
  53    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT
  54    ;S FILE=F OLDER_FILE
  55    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="HAC" :"LIVE") ; DEV012893  DPT
  56    ;S FLDR=" /FS3BIG/CO DEUPDT/CMA CUPDT/"_CH UCI ;DEV01 2893 DPT
  57    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 6554 DPT
  58    ; S POP=0 ,CNTR=0
  59    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D
  60     ;. X "D  $SYSTEM.Pr ocess.SetZ EOF(1)"  ; DEV016554  DPT
  61     .; S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE")
  62     ;.Q
  63    ;I 'POP G  END 
  64    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME
  65    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT." _ENVIR_"]" _CNAME     ; NAME OF  CMAC FILE
  66    W !,FILE
  67    O FILE:"R ":5  ;MTN    DPT 
  68    W !!,"Inp ut Device:  ",!,FILE
  69    W !!,"Eff ective Dat e:  ",CHBE GDT
  70    W !,"Last  Run Date:    ",99999 99-CHLSRND T
  71    W !!,"Is  this corre ct? " D SB RS
  72    W !
  73    Q:$D(DFOU T)  Q:$D(D UOUT)  I $ D(DQOUT) D   G BEGIN
  74    .W !!,"En ter 'Y' or  'N'. "
  75    Q:Y=""
  76    S Y=$E(Y, 1) I "ynYN "'[Y W *7, " ??" G BE GIN
  77    ;G F1:"Nn "[Y
  78    G BEGIN:" Nn"[Y
  79    S STARTFL =""
  80   QUEC ;S IO P="Q" D ^% ZIS G QEND :POP
  81    S CHFIO=I ON
  82    S ZTRTN=" START^CHML CMA7",ZTDE SC="LOAD C MAC UPDATE ",ZTIO=""
  83    S ZTSAVE( "CHFIO")=" ",ZTSAVE(" FILE")="", ZTSAVE("CH LSRNDT")=" ",ZTSAVE(" CHBEGDT")= ""
  84    S:$D(STAR TFL) ZTSAV E("STARTFL ")=""
  85    D ^%ZTLOA D
  86    G START     ; JEH <- ---------- ---------- ---------- -REMOVE AF TER TESTIN G
  87   QEND K CM, CHBEGDT,CH FIO,FILE,D ,PG,TIME,D ATE,CHNEWC T Q
  88    ; 
  89    ;CAN TEST  BE ENTERI NG AT STAR T BELOW--M UST SET FI LE,CHBEGDT ,CHLSRNDT
  90   START K X, ^CHMZHOLD( "CMAC-DTER R") S (CM, CHNEWCT)=0
  91    F CHY=297 :1:304 S X (CHY)="" ;  USED TO L IMIT SAMPL E TO FRONT  END OF FI LE
  92    F CHY=377 :1:384 S X (CHY)="" ;  USED TO L IMIT SAMPL E TO BACK  END OF FIL E
  93    S $ZE="", $ZT="END^C HMLCMA7"
  94    ;O FILE:" R":5
  95       ;D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ",FLDR,"GE T")    ;DEV016554  DPT
  96    ;S POP=0, CNTR=0 ;DE V016554 DP T
  97    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D ;DE V016554 DP T
  98    ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT
  99    ;  . X "D  $SYSTEM.P rocess.Set ZEOF(1)"   ;DEV016554  DPT
  100    ; .Q ;DEV 016554 DPT
  101    ;I 'POP G  END  ;DEV 016554 DPT
  102    
  103   A1 U FILE  R X G:$$ST ATUS^%ZISH  END ;DEV0 16554 DPT
  104    ;U FILE R  X G END:( $ZA\1024#2 ) G END:($ ZA\16384#2 ) G A1:$L( X)=0
  105    S CHCPDT= $E(X,41,48 ),CHCMPDT= $$YR8FMYR^ CHTFLIB(CH CPDT)   ;E FFECTIVE D ATE
  106    S CHBEGDT =CHCMPDT     ;<------ ---------- ---------- ---------- ---------- ---------- JEH 4/22/0 8 ADDED 
  107    ;I CHCMPD T'=CHBEGDT  D DTERR G  A1 ; DATE  DISCREPAN CIES IN FI LE
  108    ;CHNG CHB EGDT IN NX T LINE YEA RLY AS NEC ESSARY OR  ADD PROMPT
  109    S CHREVDT =9999999-C HBEGDT ; , CHBEGDT=29 80201
  110    ;S CHREVD T1=7029498  ; 2-13-98  NOT PRESE NTLY USED
  111    S CHCLOC= $E(X,1,3), CHCLOC=+CH CLOC,CHCPT =$E(X,4,8)
  112    I CHCLOC= 383 G A1 ; mtn   dpt
  113    I CHCLOC= 391 G A1 ; mtn dpt
  114    S CHM1=$E (X,9,16) S  B=CHM1 DO  ZEROOUT,D EC S CHM1= B    ;NONF ACILITY CM AC FOR PHY SICIAN/LLP  CLASS
  115    S CHM2=$E (X,17,24)  S B=CHM2 D O ZEROOUT, DEC S CHM2 =B   ;FACI LITY CMAC  FOR PHYSIC IAN/LLP CL ASS
  116    S CHM3=$E (X,25,32)  S B=CHM3 D O ZEROOUT, DEC S CHM3 =B   ;NONF ACILITY CM AC FOR NON DOC CLASS
  117    S CHM4=$E (X,33,40)  S B=CHM4 D O ZEROOUT, DEC S CHM4 =B   ;FACI LITY CMAC  FOR NONDOC  CLASS
  118    ;BELOW 4  LINES NEW  4/19/96
  119    S CHM5=$E (X,65,72)  S B=CHM5 D O ZEROOUT, DEC S CHM5 =B   ;PHYS ICIAN CLAS S PROF COM PONENT CMA C
  120    S CHM6=$E (X,73,80)  S B=CHM6 D O ZEROOUT, DEC S CHM6 =B   ;PHYS ICIAN CLAS S TECH COM PONENT CMA C
  121    S CHM7=$E (X,81,88)  S B=CHM7 D O ZEROOUT, DEC S CHM7 =B   ;NONP HYSICIAN C LASS  PC C MAC
  122    S CHM8=$E (X,89,96)  S B=CHM8 D O ZEROOUT, DEC S CHM8 =B   ;NONP HYSICIAN C LASS TC CM AC
  123    S CHCPTZ= CHCPT_"Z"
  124    G:('$D(^C HMSERV("BF ",CHCPTZ)) )&('$D(^CH MSERV("BC" ,CHCPT)))  A1
  125    I '$D(^CH MCPF("B",C HCPT)) D N EW G CONT
  126    S DA=$O(^ CHMCPF("B" ,CHCPT,0))  I 'DA D N EW G CONT
  127    ;B:CHCPT= 90842 ; 2- 13-98 OLD  MONITOR ON  SPECIFIC  CODE
  128    S CM=CM+1  ; Q:('$D( STARTFL))& (CM=4)  ;  NEED TO CO MMENT QUIT  CMD OFF I F RUNNING  THE ENTIRE  UPDATE HO T
  129    S CHI=DA
  130   CONT D A2
  131    ;BELOW CR EATES NEW  DATE PRICI NG FOR CLO NED CODES
  132    I $D(^CHM CPF(CHI,10 00)) D  ;
  133    .S CHG=0  F  S CHG=$ O(^CHMCPF( CHI,1000," B",CHG)) Q :'CHG  I $ D(^CHMCPF( CHG,0)) S  DA=CHG D A 2
  134    G A1
  135   A2 F I=CHC LOC:-1 Q:I #8=1
  136    ;BELOW NE W 4/15/96
  137    ;S ^CHMCP F(DA,I,999 9999-CHBEG DT,0)=CHBE GDT
  138    S $P(^CHM CPF(DA,I,9 999999-CHB EGDT,0),U, 1)=CHBEGDT
  139    ;BELOW LI NE NEW 4/1 8/96 (OFF- -2/13/98 S ET IN PROF TECH IF NE EDED)
  140    ;S $P(^CH MCPF(DA,I, 9999999-CH BEGDT,1),U ,1)=CHBEGD T
  141    S CHPC=1  F J=CHCLOC :-1 Q:J#8= 1  S CHPC= CHPC+1
  142    D PROFTEC H
  143    S STR=CHM 1_";"_CHM2 _";"_CHM3_ ";"_CHM4_" ;C"
  144    I '$D(^CH MCPF(DA,I, CHREVDT,0) ) S ^CHMCP F(DA,I,CHR EVDT,0)=""
  145    S STR2=$P (^CHMCPF(D A,I,CHREVD T,0),"^",2 )
  146    ;Q:(DA=1) &(I=9)  ;N EW 5/3/96  ONLY TO RE DO ONE NOD E TAKE OUT  *****88
  147    S $P(STR2 ,",",CHPC) =STR
  148    .;K X
  149    I '(DA#50 0)!(CM=2)  I $D(X(CHC LOC)) D    ;SAMPLE EV ERY 500TH  AT FRONT/B ACK
  150    .S CHY=29 7 S:CHCLOC >305 CHY=3 77
  151    .;S CHOLD DT=$O(^CHM CPF(DA,CHY ,CHREVDT))  ; NO OLD  DT FOR BRA ND NEW LOC ALITY
  152    .S ^CHMZH OLD("CMAC3 ",DA,CHY,0 ,"CODE")=C HCPT
  153    .S ^CHMZH OLD("CMAC3 ",DA,CHY,0 ,"OLD",999 9999-CHLSR NDT)="NOT  SET"
  154    .S:$D(^CH MCPF(DA,CH Y,CHLSRNDT ,0)) ^CHMZ HOLD("CMAC 3",DA,CHY, 0,"OLD",99 99999-CHLS RNDT)=^CHM CPF(DA,CHY ,CHLSRNDT, 0)
  155    .S ^CHMZH OLD("CMAC3 ",DA,CHY,0 ,"NEW",999 9999-CHREV DT)=CHBEGD T_"^"_STR2
  156    .S ^CHMZH OLD("CMAC3 ",DA,CHY,C HPC,"VMS", 9999999-CH REVDT)=X
  157    S ^CHMCPF (DA,I,CHRE VDT,0)=CHB EGDT_"^"_S TR2
  158    Q  ;    G  A1
  159   END  
  160    C FILE
  161    D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT
  162     X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT
  163    ;I $ZE'[" ENDOFFILE"  D ^%ET    ; JEH
  164    K CHCLOC, CHCPT,CHI, CHM1,CHM2, CHM3,CHM4, CHM5,CHM6, CHM7,CHM8, CHPC,CHREV DT,CHA
  165    K CHC,CHD ,CHE,FILE, CHY,DA,DIE ,DR,I,J,ST R,STR2,STR G,STRG2,X, Y,CHLSRNDT
  166    K NOSTFL, CHCPDT,CHC MPDT
  167    ;Q:('$D(C HFIO))!('$ D(STARTFL) )
  168    ;U 0 W 
  169     ;CHANGE  TO PRINT R EPORT TO F S3BIG VERS US PRINTER  TESTING
  170   QUEP ;S %Z IS="Q",IOP ="Q;"_CHFI O D ^%ZIS  G QPEND:PO P
  171    S ZTRTN=" ^CHMLCMA8" ,ZTDTH=$H  K ZTIO
  172    S ZTSAVE( "CM")="",Z TSAVE("CHB EGDT")="", ZTSAVE("CH NEWCT")=""
  173    D ^%ZTLOA D
  174   QPEND Q
  175    ; 
  176   NEW L ^CHM CPF(0) S ( CHI,DA)=$P (^CHMCPF(0 ),"^",3)+1
  177    S $P(^CHM CPF(0),"^" ,3)=DA,$P( ^CHMCPF(0) ,"^",4)=$P (^CHMCPF(0 ),"^",4)+1  L
  178    S ^CHMCPF ("B",CHCPT ,DA)=""
  179    S ^CHMCPF (DA,0)=CHC PT,CHNEWCT =CHNEWCT+1
  180    ;S:'$D(^C HMCPF(0))  ^CHMCPF(0) ="CHAMPVA  CMAC^74101 4^0^0"
  181    ;S DA=$O( ^CHMCPF("A "),-1),DA= DA+1
  182    ;S $P(^CH MCPF(0),"^ ",3)=$P(^( 0),"^",3)+ 1
  183    ;S $P(^CH MCPF(0),"^ ",4)=$P(^( 0),"^",4)+ 1
  184    ;S DIE="^ CHMCPF(",D R=".01///^ S X=CHCPT"  D ^DIE K  DIE
  185    Q
  186   SBRS D CSB RS^CHSC2 Q      
  187    R Y:$S($D (DTIME):DT IME,1:60)
  188    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  189   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  190    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  191    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  192    Q
  193   DEC F A=1: 1:5 Q:$E(B ,A)'=0
  194    S B=$E(B, A,8) S LEN =$L(B),LEN 1=LEN-1,LE N2=LEN-2
  195    S B=$E(B, 1,LEN2)_". "_$E(B,LEN 1,LEN)
  196    Q
  197   ZEROOUT ;R EMOVES PRE CEEDING NO NSIGNIFICA NT DIGITS
  198    Q
  199    F P=1:1:$ L(B)-1 Q:$ E(B,1)'=0   S B=$E(B, 2,8)
  200    Q
  201   PROFTECH ; PROFESIONA L/TECHNICA L COMPONEN TS
  202    ;NOSTFL S ET UP IF P ROF/TECH C OMPONENTS  ALL ZERO
  203    K NOSTFL  S:('CHM5)& ('CHM6)&(' CHM7)&('CH M8) NOSTFL =""
  204    S STRG=CH M5_";"_CHM 6_";"_CHM7 _";"_CHM8_ ";C"
  205    S:$D(^CHM CPF(DA,I,C HREVDT,1))  STRG2=$P( ^CHMCPF(DA ,I,CHREVDT ,1),"^",2)
  206    S $P(STRG 2,",",CHPC )=STRG
  207    ;
  208    I '(DA#50 0)!(CM=2)  I $D(X(CHC LOC)) D    ; SAMPLE E VERY 500TH  AT FRONT/ BACK
  209    .S CHY=29 7 S:CHCLOC >305 CHY=3 77
  210    .S ^CHMZH OLD("CMAC3 ",DA,CHY,1 ,"OLD",999 9999-CHLSR NDT)="NOT  SET"
  211    .I $D(^CH MCPF(DA,CH Y,CHLSRNDT ,1)) S ^CH MZHOLD("CM AC3",DA,CH Y,1,"OLD", 9999999-CH LSRNDT)=^C HMCPF(DA,C HY,CHLSRND T,1)
  212    .S ^CHMZH OLD("CMAC3 ",DA,CHY,1 ,"NEW",999 9999-CHREV DT)=CHBEGD T_"^"_STRG 2
  213    .S:$D(NOS TFL) ^CHMZ HOLD("CMAC 3",DA,CHY, 1,"NEW",99 99999-CHRE VDT)="NOT  SET"
  214    .;S ^CHMZ HOLD("CMAC 3",DA,I,1, "VMS",9999 999-CHREVD T)=X ; 2-1 3-98 NOT N EEDED-ALWA YS SET IN  A2 ABOVE
  215    Q:$D(NOST FL)  ; DON 'T SET UP  NODE IF NO  DATA
  216    S ^CHMCPF (DA,I,CHRE VDT,1)=CHB EGDT_"^"_S TRG2
  217    Q
  218    ; 
  219   DTERR S CM =CM+1,^CHM ZHOLD("CMA C-DTERR",C M)=X Q  ;F IND DATE D ISCREPANCI ES IN FILE