91. EPMO Open Source Coordination Office Redaction File Detail Report

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

91.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMCRZ07.m Mon Nov 5 16:40:49 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMCRZ07.m Mon Nov 5 17:43:12 2018 UTC

91.2 Comparison summary

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

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

91.4 Active regular expressions

No regular expressions were active.

91.5 Comparison detail

  1   CHMCRZ07 ; HAC/JAH-CR M Project;  3/1/2018
  2    ;;1.0;ZZJ AH;**1 doN otDistribu te TO prod uction**;
  3    Q
  4    ; UTILITY  ROUTINE T O SUPPORT  DESIGN, DE VELOPMENT  AND TESTIN G OF CRM 3 .0
  5    ;
  6    ;
  7   ACAREP ; R EPORT on A CA transac tion log.
  8    ;
  9    ;ASK DEVI CE
  10    ;
  11    N PG,LC
  12    S (DONE,P G,LC)=0
  13    S TITLE=" ACA TRANSA CTION LOG  REPORT"
  14    S SPEC=""
  15    D ^%ZIS
  16    Q:$G(POP)
  17    U IO
  18    D HDR1(TI TLE,SPEC,. PG,.LC)
  19    ;
  20    ;start lo op at bott om (last c laim filed ) and work  towards o ldest clai ms (top of  file)
  21    S TXIEN=$ P($G(^CHMA CA(741411, 0)),U,3)
  22    ;
  23    F  S TXIE N=$O(^CHMA CA(741411, TXIEN),-1)  Q:TXIEN'> 0!DONE  D
  24    .  S DFN= $G(^CHMACA (741411,TX IEN,1,1,0) )
  25    .  S BFN= $G(^CHMACA (741411,TX IEN,1,2,0) )
  26    .  W !,"D ATE: ",$$B ULLETDT^CH MCRUT2($P( $G(^CHMACA (741411,TX IEN,0)),U, 2))
  27    .  W ?32, $P(DFN,U), "-",$P(BFN ,U),": ",$ P(DFN,U,2) ,"-",$P(BF N,U,2)," D UZ: ",DUZ
  28    .  S LC=L C+1
  29    .  I LC>( IOSL-7) S  DONE=$$ASK ^PRSLIB00( 1) I 'DONE  D HDR1(TI TLE,SPEC,. PG,.LC)
  30    D ^%ZISC
  31    Q
  32   HDR1(TOCEX T,SPECIAL, PAGE,CNT)  ;
  33    S PAGE=PA GE+1
  34    W @IOF,!! ,$G(TOCEXT ),$G(SPECI AL),?($G(I OM)-10),"P AGE ",PAGE
  35    W !
  36    N I F I=1 :1:$G(IOM)  W "="
  37    S CNT=0
  38    Q
  39   ACCGROUP ;
  40    ;
  41    ; D ACCGR OUP^CHMCRZ 07
  42    N CHNAMES
  43    S CHNAMES =$NA(^TMP( "ACCESS NA MES",$J))
  44    K @CHNAME S
  45    ;pick a d irectory J ohn or Cha d or enter  one
  46    N HFSDIR, FILENAME,P OP
  47    ;S HFSDIR =$$DEFDIR^ %ZISH()
  48    ;
  49    S HFSDIR= $$GETHFDIR ()
  50    ;
  51    ;S FILENA ME="CHVAAC CESSNAMELI ST.TXT"
  52    S FILENAM E=$$GETFIL E()
  53    ;
  54    ; Read fi le 
  55    ;
  56    K POP
  57    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  58    D OPEN^%Z ISH("READF ILE",HFSDI R,FILENAME ,"R")
  59    ;
  60    ;If can't  open file  for writi ne get xml  error mes sage and q uit
  61    ;
  62    D CHKPOP^ CHMCRUT1(. ERRORS,POP ,"R")
  63    ;
  64    I +$G(ERR ORS(0))>0  D  Q
  65    .  D CLOS E^%ZISH("R EADFILE")
  66    .  D CLEA N^CHMCRC10 (FILENAME, HFSDIR)
  67    ;
  68    N I,X
  69    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  70    U IO F I= 1:1 R X:DT IME Q:$$ST ATUS^%ZISH ()  D
  71    .  S @CHN AMES@(I)=X
  72    D CLOSE^% ZISH("READ FILE")
  73    .
  74    W !!,"NAM ES LIST",!
  75    ZW @CHNAM ES
  76    W !!
  77    Q:$$ASK^P RSLIB00(1)
  78    W @IOF,!! ,"ACCESS P ROCESSING"
  79    S I=0
  80    F  S I=$O (@CHNAMES@ (I)) Q:I'> 0  D
  81    .  S VAIE N=$$GETUSE R(@CHNAMES @(I))
  82    .  W !,VA IEN,": ",@ CHNAMES@(I )
  83    .  I VAIE N>0 D  Q
  84    ..    S $ P(@CHNAMES @(I),U,2)= VAIEN
  85    .  S VAIE N=$$GETUSE RI(@CHNAME S@(I))
  86    .  W !,VA IEN,": ",@ CHNAMES@(I )
  87    .  I VAIE N>0 D  Q
  88    ..    S $ P(@CHNAMES @(I),U,2)= VAIEN
  89    ZW @CHNAM ES
  90    ;
  91    ;FINALLY  AWARD THE  SECONDARY  MENU FOR C RM REMOTE  PROCS
  92    ;
  93    ;D GIV2ND ^CHMCRZC8( VAIEN)
  94    ;
  95    ;K @CHNAM ES
  96    Q
  97   GETUSER(X)  ;
  98    ;INPUT X  : LOOKUP V ALUE IN 20 0 (MOST LI KELY NAME  IN FORM LA ST,FIRST M I
  99    ;
  100    N Y,DIC
  101    S DIC="^V A(200,"
  102    S DIC(0)= "MZ"
  103    D ^DIC
  104    ;
  105    Q Y
  106   GETUSERI(X ) ;
  107    ;
  108    N Y,DIC
  109    S DIC("A" )="Enter u ser (name)  to give a ccess to:  "
  110    S DIC="^V A(200,"
  111    S DIC("B" )=X
  112    S DIC(0)= "AEQMZ"
  113    D ^DIC
  114    ;
  115    Q Y
  116   GETHFDIR()  ; prompt  for host f ile direct ory--eithe r John or  Chad or le t user typ e in
  117    N DIR,X,Y ,DIRUT
  118    S DIR("B" )="J"
  119    S DIR(0)= "S^J:HAC_C ACHE$![HAC . DN S      HEIGEJ.CRM 3];C:HAC_C ACHE$![HAC . DN S      PETERC];E: Enter Anot her HFS Di rectory"
  120    S DIR("A" )="Select  Host File  or [E] to  enter one"
  121    D ^DIR
  122    I $D(DIRU T) S RETUR N=""
  123    I Y="J" D
  124    .     S RETURN=" HAC_CACHE$ :[HAC. DN S      HEIGEJ.CRM 3]"
  125    E  D
  126    .  I Y="C " D
  127    ..      S RETURN=" HAC_CACHE$ :[HAC. DN S      PETERC]"
  128    .  E  D
  129    ..    S R ETURN=$$TY PHFDIR()
  130    Q RETURN
  131   TYPHFDIR()
  132    N DIR,X,Y ,DIRUT,RET URN
  133    W !,"Comp lete the H FS spec wi th directo ry and sub  directori es separat ed by [.]"
  134    S LEAD="H AC_CACHE$: [HAC."
  135    W !,"HFS  SPEC: "_LE AD
  136    S DIR(0)= "FAr^10:79 ^K:'((X?.A N)!(X?.AN1 ""."".AN))  X"
  137    S DIR("A" )="Enter D IRs: "
  138    D ^DIR
  139    I $D(DIRU T) Q ""
  140    S RETURN= LEAD_Y_"]"
  141    Q RETURN
  142   GETFILE()  ;
  143    N DIR,X,Y ,DIRUT,RET URN
  144    S DIR(0)= "FAr^2:79^ K:'((X?.AN )!(X?.AN1" "."".AN))  X"
  145    S DIR("A" )="Enter F ilename: "
  146    D ^DIR
  147    I $D(DIRU T) Q ""
  148    S RETURN= Y
  149    Q RETURN
  150    ;
  151   SPECATT ;
  152    N SPONATT ,OUTC,DFN
  153           ;p rompt wher e to start  search
  154    ;
  155    D HDR
  156    S DONE=0
  157    S DFN=+$$ GETSTART^C HMCRZ05()
  158    W ! ZW DF N W !
  159    F  S DFN= $O(^AHCHVA (DFN)) Q:D FN'>0!DONE   D
  160    .  S MATC H=0
  161    .  S SPON ATT=""
  162    .  S SPON ATT=$$CDRL CK^CHTFLIB 4(DFN,"")
  163    .  I SPON ATT D
  164    ..    W ! !,"WHO:  " ,DFN
  165    ..    W ! ,"ATTENTIO N: ",$P(SP ONATT,U,2)
  166    ..    S O UTC=OUTC+2
  167    .;
  168    .;
  169    .  I OUTC >(IOSL-4)  S DONE=$$A SK^PRSLIB0 0(1) I 'DO NE D HDR
  170    Q
  171   HDR ;
  172    W @IOF,!! ,?10,$P($G (SBF),U,2) ," SEARCH  RESULTS",!
  173    W ?5 F I= 1:1:($G(IO M)-10) W " ="
  174    S OUTC=4
  175    Q
  176   DUPSPON ;  search for  benes wit h more tha n one spon sor
  177    N I,J
  178    S I=10000 0000
  179    F  S I=$O (^AHCHVA(" G",I)) Q:I '>0  D
  180    . S (JC,J )=0
  181    . F  S J= $O(^AHCHVA ("G",I,J))  Q:J'>0  D
  182    ..  S JC= JC+1
  183    . I JC>1  D
  184    ..  W !," I: ",I,"-"
  185    ..  W $O( ^AHCHVA("G ",I,0))
  186    Q