188. EPMO Open Source Coordination Office Redaction File Detail Report

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

188.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLFCMA7.m Mon Nov 5 16:42:12 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLFCMA7.m Fri Nov 9 03:13:06 2018 UTC

188.2 Comparison summary

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

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

188.4 Active regular expressions

No regular expressions were active.

188.5 Comparison detail

  1   CHMLFCMA7  ;CR/DEN;LO AD CMAC DA TA INTO ^C HMCPF FILE  - PRIOR 1 /1/05 FMT; 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    ;*** COPY  OF CHMLFC MA7 ***
  6   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  7    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  8    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
  9   ZNAM ;
  10    W @IOF,!, "This rout ine is use d to load  new CMAC v alues.  It  will prom pt for:  "
  11    W !!?10," 1) The eff ective dat e for the  new codes,  in FM for mat"
  12    W !?10,"2 ) The effe ctive date  for the l ast CMAC c odes loade d, in FM f ormat"
  13    ;W !?10," 3) The CPU , device,  directory,  and file  name in wh ich the da ta has",!? 13,"been s tored"
  14    W !!,"Thi s routine  is usually  queued as  a backgro und task.   It can be  run hot a nd",!,"in  debug mode  to ensure  that the  first few  data sets  are correc t."
  15    W !,"Chec k with the  system ad ministrato r to ensur e that not hing will  interrupt" ,!,"the ho t run.  It  will take  some time  to comple te."
  16    W !!,"To  run hot, s et:  CHBEG DT, effect ive date o f the curr ent update ;"
  17    W !?18,"C HLSRNDT, d ate the la st CMAC up date was r un/effecti ve (revers e FM date) ;"
  18    W !?18,"F ILE, name  of input d evice."
  19    W !!,"Rem ember to k ill the va riable STA RTFL and c all START^ CHMLCMA7."
  20   F W !! S % DT="AEX",% DT("A")="E nter effec tive date:  (MM/DD/YY ) " D ^%DT  Q:X=""  Q :Y=-1  S C HBEGDT=Y
  21   F05 W !! S  %DT="AEX" ,%DT("A")= "Last effe ctive date : (MM/DD/Y Y) " D ^%D T Q:X=""   Q:Y=-1  S  CHLSRNDT=9 999999-Y
  22    G F4  ; A DDED TO SK IP TO NEXT  SECTION -  JEH
  23   F1 K FILE  W !!,"Ente r NODE:  A XPDEV// "  D SBRS Q:$ D(DFOUT)   G F:$D(DUO UT)
  24    I $D(DQOU T) D  G F1
  25    .W !!,"En ter the CP U name or  <RETURN> f or the def ault. "
  26    I Y="" S  CHA="AXPDE V" G F0
  27    I Y'="AXP DEV",Y'="H ACFS3",Y'= "VA7415",Y '="VA5545" ,Y'["HACFS 3",Y'="741 D01" W *7, !,"Enter a  valid nod e name" G  F1
  28    S CHA=Y
  29   F0 ;W !!," Enter USER NAME: " D  SBRS Q:$D( DFOUT)  Q: $D(DUOUT)
  30    ;I $D(DQO UT) W !!," Enter node  ex: DSMMA NAG " G F0
  31    ;Q:Y=""   S CHF=Y
  32    ;
  33   F2 ;W !!," Enter Pass word: " D  SBRS Q:$D( DFOUT)  Q: $D(DUOUT)
  34    ;I $D(DQO UT) W !!," Enter the  Password o r <RETURN> . " G F2
  35    ;Q:Y=""   S CHB=Y
  36   F3 W !!,"E nter the d evice name : "
  37    D SBRS Q: $D(DFOUT)   Q:$D(DUOU T)
  38    I $D(DQOU T) W !!,"E nter the d evice name .  " G F3
  39    Q:Y=""  S  CHC=Y
  40   F31 W !!," Enter the  directory  name: "
  41    D SBRS Q: $D(DFOUT)   Q:$D(DUOU T)
  42    I $D(DQOU T) W !!,"E nter the d irectory n ame.  Must  be enclos ed in brac kets []" G  F31
  43    Q:Y=""  S  CHD=Y
  44   F33 W !!," Enter the  filename:  "
  45    D SBRS Q: $D(DFOUT)   Q:$D(DUOU T)
  46    I $D(DQOU T) W !!,"E nter the f ilename.   " G F31
  47    Q:Y=""  S  CHE=Y
  48    ;
  49    ;S CHF=$C (34)_CHF_"  " ; IF US ERNAME PRO MPT USED N EED THIS
  50    ;S CHB=CH B_$C(34) ;  IF PASSWO RD PROMPT  USED NEED  THIS
  51    ;S CHA_CH F_CHB_"::" _CHC_":"_C HD_CHE ; I F USERNAME /PASSWORD  USED NEED
  52    ;S FILE=C HA_"::"_CH C_":"_CHD_ CHE
  53    ;S CHC=Y, FILE=CHA_" ""DSMMANAG  "_CHB_""" ::HAC_HFS$ :[000000]" _CHC ; OLD
  54    ;S CHC=Y, FILE=CHA_C HC ; OLD
  55    ;S FILE=" VA7415::DS A15:[DSMVA XMGR.CMACJ AN98]"_CHE  ; ADDED ' 98 (DTP)
  56    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT]"
  57   F4 ;
  58    ;S FILE=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT.L IVE]CMAC05 V1.DAT"    ; <------- ---- CHANG E FOR NEXT  UPDATE -  JEH
  59    S FILE="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT.L IVE]CMACNU 05.TXT"    ; <------- ---- CHANG E FOR NEXT  UPDATE -  JEH
  60    W !!,"Inp ut Device:  ",!,FILE
  61    W !!,"Eff ective Dat e:  ",CHBE GDT
  62    W !,"Last  Run Date:    ",99999 99-CHLSRND T
  63    W !!,"Is  this corre ct? " D SB RS
  64    W !
  65    Q:$D(DFOU T)  Q:$D(D UOUT)  I $ D(DQOUT) D   G F4
  66    .W !!,"En ter 'Y' or  'N'. "
  67    Q:Y=""
  68    S Y=$E(Y, 1) I "ynYN "'[Y W *7, " ??" G F4
  69    ;G F1:"Nn "[Y
  70    G ZNAM:"N n"[Y
  71    S STARTFL =""
  72    G START    ; JEH - C OMMENT OUT  TO RUN HO T
  73   QUEC S IOP ="Q" D ^%Z IS G QEND: POP
  74    S CHFIO=I ON
  75    S ZTRTN=" START^CHML FCMA7",ZTD ESC="LOAD  CMAC UPDAT E",ZTIO=""
  76    S ZTSAVE( "CHFIO")=" ",ZTSAVE(" FILE")="", ZTSAVE("CH LSRNDT")=" ",ZTSAVE(" CHBEGDT")= ""
  77    S:$D(STAR TFL) ZTSAV E("STARTFL ")=""
  78    D ^%ZTLOA D
  79   QEND K CM, CHBEGDT,CH FIO,D,PG,T IME,DATE,C HNEWCT Q
  80    ; 
  81    ;CAN TEST  BE ENTERI NG AT STAR T BELOW--M UST SET FI LE,CHBEGDT ,CHLSRNDT
  82   START K X, ^CHMZHOLD( "CMAC-DTER R") S (CM, CHNEWCT)=0
  83    F CHY=297 :1:304 S X (CHY)="" ;  USED TO L IMIT SAMPL E TO FRONT  END OF FI LE
  84    F CHY=377 :1:384 S X (CHY)="" ;  USED TO L IMIT SAMPL E TO BACK  END OF FIL E
  85    S $ZE="", $ZT="END^C HMLFCMA7"
  86    O FILE:"R ":10
  87   A1 U FILE  R X G END: ($ZA\1024# 2) G END:( $ZA\16384# 2) G A1:$L (X)=0
  88    S CHCPDT= $E(X,36,43 ),CHCMPDT= $$YR8FMYR^ CHTFLIB(CH CPDT)   ;E FFECTIVE D ATE
  89    I CHCMPDT '=CHBEGDT  D DTERR G  A1 ; DATE  DISCREPANC IES IN FIL E
  90    ;CHNG CHB EGDT IN NX T LINE YEA RLY AS NEC ESSARY OR  ADD PROMPT
  91    S CHREVDT =9999999-C HBEGDT ; , CHBEGDT=29 80201
  92    ;S CHREVD T1=7029498  ; 2-13-98  NOT PRESE NTLY USED
  93    S CHCLOC= $E(X,1,3), CHCLOC=+CH CLOC,CHCPT =$E(X,4,8)      ;CHAM PUS LOCALI TY NO  /   CPT/HCPCS  CODE
  94    S CHM1=$E (X,9,16) S  B=CHM1 DO  ZEROOUT,D EC S CHM1= B    ;CMAC  FOR CLASS  01
  95    S CHM2=$E (X,17,24)  S B=CHM2 D O ZEROOUT, DEC S CHM2 =B   ;CMAC  FOR CLASS  02
  96    S CHM3=$E (X,25,32)  S B=CHM3 D O ZEROOUT, DEC S CHM3 =B   ;CMAC  FOR CLASS  04
  97    ;BELOW 4  LINES NEW  4/19/96
  98    S CHM4=$E (X,60,67)  S B=CHM4 D O ZEROOUT, DEC S CHM4 =B   ;CLAS S 01 PROFE SSIONAL CO MPONENT CM AC
  99    S CHM5=$E (X,68,75)  S B=CHM5 D O ZEROOUT, DEC S CHM5 =B   ;CLAS S 01 TECHN ICAL COMPO NENT CMAC
  100    S CHM6=$E (X,76,83)  S B=CHM6 D O ZEROOUT, DEC S CHM6 =B   ;CLAS S 04 PROFE SSIONAL CO MPONENT CM AC
  101    S CHM7=$E (X,84,91)  S B=CHM7 D O ZEROOUT, DEC S CHM7 =B   ;CLAS S 04 TECHN ICAL COMPO NENT CMAC
  102    S CHCPTZ= CHCPT_"Z"
  103    G:('$D(^C HMSERV("BF ",CHCPTZ)) )&('$D(^CH MSERV("BC" ,CHCPT)))  A1
  104    I '$D(^CH MCPF("B",C HCPT)) D N EW G CONT
  105    S DA=$O(^ CHMCPF("B" ,CHCPT,0))  I 'DA D N EW G CONT
  106    ;B:CHCPT= 90842 ; 2- 13-98 OLD  MONITOR ON  SPECIFIC  CODE
  107    S CM=CM+1  ; Q:('$D( STARTFL))& (CM=4)  ;  NEED TO CO MMENT QUIT  CMD OFF I F RUNNING  THE ENTIRE  UPDATE HO T
  108    S CHI=DA
  109   CONT D A2
  110    ;BELOW CR EATES NEW  DATE PRICI NG FOR CLO NED CODES
  111    I $D(^CHM CPF(CHI,10 00)) D  ;
  112    .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
  113    G A1
  114   A2 F I=CHC LOC:-1 Q:I #8=1
  115    ;BELOW NE W 4/15/96
  116    ;S ^CHMCP F(DA,I,999 9999-CHBEG DT,0)=CHBE GDT
  117    S $P(^CHM CPF(DA,I,9 999999-CHB EGDT,0),U, 1)=CHBEGDT
  118    ;BELOW LI NE NEW 4/1 8/96 (OFF- -2/13/98 S ET IN PROF TECH IF NE EDED)
  119    ;S $P(^CH MCPF(DA,I, 9999999-CH BEGDT,1),U ,1)=CHBEGD T
  120    S CHPC=1  F J=CHCLOC :-1 Q:J#8= 1  S CHPC= CHPC+1
  121    D PROFTEC H
  122    S STR=CHM 1_";"_CHM2 _";"_CHM3_ ";C"
  123    I '$D(^CH MCPF(DA,I, CHREVDT,0) ) S ^CHMCP F(DA,I,CHR EVDT,0)=""
  124    S STR2=$P (^CHMCPF(D A,I,CHREVD T,0),"^",2 )
  125    ;Q:(DA=1) &(I=9)  ;N EW 5/3/96  ONLY TO RE DO ONE NOD E TAKE OUT  *****88
  126    S $P(STR2 ,",",CHPC) =STR
  127    .;K X
  128    I '(DA#50 0)!(CM=2)  I $D(X(CHC LOC)) D    ;SAMPLE EV ERY 500TH  AT FRONT/B ACK
  129    .S CHY=29 7 S:CHCLOC >305 CHY=3 77
  130    .;S CHOLD DT=$O(^CHM CPF(DA,CHY ,CHREVDT))  ; NO OLD  DT FOR BRA ND NEW LOC ALITY
  131    .S ^CHMZH OLD("CMAC3 ",DA,CHY,0 ,"CODE")=C HCPT
  132    .S ^CHMZH OLD("CMAC3 ",DA,CHY,0 ,"OLD",999 9999-CHLSR NDT)="NOT  SET"
  133    .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)
  134    .S ^CHMZH OLD("CMAC3 ",DA,CHY,0 ,"NEW",999 9999-CHREV DT)=CHBEGD T_"^"_STR2
  135    .S ^CHMZH OLD("CMAC3 ",DA,CHY,C HPC,"VMS", 9999999-CH REVDT)=X
  136    S ^CHMCPF (DA,I,CHRE VDT,0)=CHB EGDT_"^"_S TR2
  137    Q  ;    G  A1
  138   END C FILE  
  139    ;I $ZE'[" ENDOFFILE"  D ^%ET    ; JEH
  140    K CHCLOC, CHCPT,CHI, CHM1,CHM2, CHM3,CHM4, CHM5,CHM6, CHM7,CHPC, CHREVDT,CH A
  141    K CHC,CHD ,CHE,FILE, CHY,DA,DIE ,DR,I,J,ST R,STR2,STR G,STRG2,X, Y,CHLSRNDT
  142    K NOSTFL, CHCPDT,CHC MPDT
  143    ;Q:('$D(C HFIO))!('$ D(STARTFL) )
  144   QUEP ;
  145    D ^CHMLCM A8
  146    Q
  147    S %ZIS="Q ",IOP="Q;" _CHFIO D ^ %ZIS G QPE ND:POP
  148    S ZTRTN=" ^CHMLCMA8" ,ZTDTH=$H  K ZTIO
  149    S ZTSAVE( "CM")="",Z TSAVE("CHB EGDT")="", ZTSAVE("CH NEWCT")=""
  150    D ^%ZTLOA D
  151   QPEND Q
  152    ; 
  153   NEW L ^CHM CPF(0) S ( CHI,DA)=$P (^CHMCPF(0 ),"^",3)+1
  154    S $P(^CHM CPF(0),"^" ,3)=DA,$P( ^CHMCPF(0) ,"^",4)=$P (^CHMCPF(0 ),"^",4)+1  L
  155    S ^CHMCPF ("B",CHCPT ,DA)=""
  156    S ^CHMCPF (DA,0)=CHC PT,CHNEWCT =CHNEWCT+1
  157    ;S:'$D(^C HMCPF(0))  ^CHMCPF(0) ="CHAMPVA  CMAC^74101 4^0^0"
  158    ;S DA=$O( ^CHMCPF("A "),-1),DA= DA+1
  159    ;S $P(^CH MCPF(0),"^ ",3)=$P(^( 0),"^",3)+ 1
  160    ;S $P(^CH MCPF(0),"^ ",4)=$P(^( 0),"^",4)+ 1
  161    ;S DIE="^ CHMCPF(",D R=".01///^ S X=CHCPT"  D ^DIE K  DIE
  162    Q
  163   SBRS D CSB RS^CHSC2 Q      
  164    R Y:$S($D (DTIME):DT IME,1:60)
  165    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  166   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  167    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  168    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  169    Q
  170   DEC F A=1: 1:5 Q:$E(B ,A)'=0
  171    S B=$E(B, A,8) S LEN =$L(B),LEN 1=LEN-1,LE N2=LEN-2
  172    S B=$E(B, 1,LEN2)_". "_$E(B,LEN 1,LEN)
  173    Q
  174   ZEROOUT ;R EMOVES PRE CEEDING NO NSIGNIFICA NT DIGITS
  175    Q
  176    F P=1:1:$ L(B)-1 Q:$ E(B,1)'=0   S B=$E(B, 2,8)
  177    Q
  178   PROFTECH ; PROFESIONA L/TECHNICA L COMPONEN TS
  179    ;NOSTFL S ET UP IF P ROF/TECH C OMPONENTS  ALL ZERO
  180    K NOSTFL  S:('CHM4)& ('CHM5)&(' CHM6)&('CH M7) NOSTFL =""
  181    S STRG=CH M4_";"_CHM 5_";"_CHM6 _";"_CHM7_ ";C"
  182    S:$D(^CHM CPF(DA,I,C HREVDT,1))  STRG2=$P( ^CHMCPF(DA ,I,CHREVDT ,1),"^",2)
  183    S $P(STRG 2,",",CHPC )=STRG
  184    ;
  185    I '(DA#50 0)!(CM=2)  I $D(X(CHC LOC)) D    ; SAMPLE E VERY 500TH  AT FRONT/ BACK
  186    .S CHY=29 7 S:CHCLOC >305 CHY=3 77
  187    .S ^CHMZH OLD("CMAC3 ",DA,CHY,1 ,"OLD",999 9999-CHLSR NDT)="NOT  SET"
  188    .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)
  189    .S ^CHMZH OLD("CMAC3 ",DA,CHY,1 ,"NEW",999 9999-CHREV DT)=CHBEGD T_"^"_STRG 2
  190    .S:$D(NOS TFL) ^CHMZ HOLD("CMAC 3",DA,CHY, 1,"NEW",99 99999-CHRE VDT)="NOT  SET"
  191    .;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
  192    Q:$D(NOST FL)  ; DON 'T SET UP  NODE IF NO  DATA
  193    S ^CHMCPF (DA,I,CHRE VDT,1)=CHB EGDT_"^"_S TRG2
  194    Q
  195    ; 
  196   DTERR S CM =CM+1,^CHM ZHOLD("CMA C-DTERR",C M)=X Q  ;F IND DATE D ISCREPANCI ES IN FILE
  197    ;