9. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 12/7/2017 6:27:11 PM Eastern 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.

9.1 Files compared

# Location File Last Modified
1 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_1\User Story CPE005-032 ZZBDB032.RO Thu Dec 7 15:13:22 2017 UTC
2 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_1\User Story CPE005-032 ZZBDB032.RO Thu Dec 7 16:23:07 2017 UTC

9.2 Comparison summary

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

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

9.4 Active regular expressions

No regular expressions were active.

9.5 Comparison detail

  1   Cache for  OpenVMS/AL PHA V8.x^I NT^CPE005- 032 MANUAL  EDI REOPE N^~Format= Cache.S~^R AW
  2   %RO on 05  Oct 2017   11:40 AM
  3   CHMFADRV^I NT^1^^0
  4   CHMFADRV ; PJU/DEN;MA IN DRIVER  CHAMPVA;07 /15/99 10: 42 AM
  5    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  6    ;PT 11392
  7    ;TT 11060  JEH 11/26 /10 - ADDI NG USER LO CK
  8    ;CFS 08/0 1/2018 CPE 005-004 Mo dify the D oc ID Scre en for CHA MPVA and S B EDI Reop en.
  9    Q:$$IPUSR LK^CHMFADR V(0)=1  ;T T 11060 JE H 11/26/10
  10    K VQAURLF G,CHELQFLG
  11    N CHMFPDI ,CHMOPDI
  12    S PS=0,FK IL=0,FIPAY =0,BAD=0,X =0
  13    ;S X=$ZF( -1,"USERNA ME")
  14    S CHSS=""
  15    ;;S X=$ZF (-1,X,7),C HSS=X
  16    ; Go to C HMFSET and  set scree n variable s
  17    D ^CHMFSE T
  18    ; If ther e is no DU Z info, ou tput an er ror messag e and quit  the routi ne.
  19    I '$D(^CH MDIC(74100 2.21,DUZ,0 )) D NOUSE ^CHMFADR1  G END
  20    ; Determi ne if User  has data  in piece 1 0. If so,  identify I PSUB value  and go to  CALLSUB o therwise c ontinue.
  21    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= "" S IPSUB ="" D  G:I PSUB'="" C ALLSUB
  22    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 IPSUB="M ANUAL^CHMF ADR4"
  23    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 IPSUB="S CAN^CHMFAD R4"
  24    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 2 IPSUB="O CR^CHMFADR 4"
  25    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 3 IPSUB="S BOCR^CHMFA DR4"
  26    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 IPSUB="O CR2^CHMFAD R4"
  27    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 IPSUB="S BOCR2^CHMF ADR4"
  28    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 6 IPSUB="O CRR^CHMFAD R4"  ;CPE0 05-004
  29    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 IPSUB="S BOCRR^CHMF ADR4"  ;CP E005-004
  30    .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 IPSUB="M ANUALR^CHM FADR4" ;MA NUAL EDI R EOPEN BDB  07262017 
  31    W @IOF       ;SKD
  32   STRT W !!, "Are you e ntering <S >canned, < M>anual, C HAMPVA <E> DI, S<B>/C WVV EDI,"
  33     W !," CH AMPVA <O>C R, SB/C<W> VV OCR, <R C>REOPEN C HAMPVA EDI ,<RS>REOPE N SB EDI,"
  34     W !,"                or <ER> R EOPEN Manu al EDI sub missions?  "
  35    D CSBRS^C HSC2
  36    ; If user  enters "^ ^", goto E ND and qui t routine
  37    G:$D(DUOU T) END
  38    G:$D(DFOU T) END
  39    ; If user  enters no thing and  hits retur n, re-writ e to scree n and retu rn to STRT
  40    ;CPE005-0 04 Add "RC " and "RS"  options t o horizont al menu.
  41    I $D(DQOU T) D  G ST RT
  42    .W !!,"En ter 'S' fo r Scanned,  'M' for M anual, 'E'  for CHV E DI, 'B' fo r SB/CWVV  EDI,"
  43    .W !,"'O'  for CHV O CR, 'W' fo r SB/CWVV  OCR, 'RC'  for REOPEN  CHAMPVA E DI,"
  44    .W !,"'RS ' for REOP EN SB EDI  submission s, or 'ER'  for Manua l EDI ReOp en "
  45    ; Y holds  the first  letter of  whatever  the user e ntered. If  nil, retu rn to STRT
  46    G:Y="" ST RT
  47    I (Y'="M" )&(Y'="E") &(Y'="S")& (Y'="B")&( Y'="O")&(Y '="W")&(Y' ="RC")&(Y' ="RS")&(Y' ="ER") G S TRT
  48    ; Set the  10th piec e to equal  the user' s entry an d set IPSU B to the a ppropriate  string.
  49    I Y="M" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=0 S  IPSUB="MA NUAL^CHMFA DR4" ; MAN UAL
  50    I Y="E" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 S  IPSUB="OC R^CHMFADR4 " ; CHV ED I
  51    I Y="S" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=1 S  IPSUB="SC AN^CHMFADR 4" ; SCANN ED
  52    I Y="B" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=3 S  IPSUB="SB OCR^CHMFAD R4" ; SB/C WVV EDI
  53    I Y="O" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=4 S  IPSUB="OC R2^CHMFADR 4" ; CHV O CR
  54    I Y="W" S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=5 S  IPSUB="SB OCR2^CHMFA DR4" ; SB/ CWVV OCR
  55    I Y="RC"  S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=6  S IPSUB="O CRR^CHMFAD R4" ; CHV  EDI REOPEN  CPE005-00 4
  56    I Y="RS"  S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=7  S IPSUB="S BOCRR^CHMF ADR4" ; SB /CWVV EDI  REOPEN CPE 005-004
  57    I Y="ER"  S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=8  S IPSUB="M ANUALR^CHM FADR4" ; M ANUAL EDI  REOPEN
  58    ;
  59   CALLSUB ;
  60    ; Do the  routine na med in the  variable  IPSUB.
  61    D @IPSUB
  62    G:$D(CHQU IT) END
  63    G:$D(CHMF PAUS) END
  64    G:$D(CHMF KIL) END
  65    G:$D(CHMF EXIT) END
  66    G:$D(CHMF PDRV) END
  67    G:$D(DUOU T) END
  68    G:$D(DFOU T) END
  69    ;
  70   CHECK ;CHE CK DATA AN D SORT CAL LED IN HER E
  71    ;
  72    G:CHMFPDI ="" A8
  73   A2 D CMPLT ^CHMFIMG
  74    S CHMFPP= "CIP" D ^C HMFWK01
  75    D KLOCK^C HMFADR1
  76    D DELST1^ CHMFADR1
  77    S CHMFPP= "SST"
  78    D ^CHMFWK 01
  79    D ^CHMFSR T ;SENDS C LAIMS TO C LAIM SORT
  80    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0  D
  81    .S CHMQNA M="MANUAL( ",CHMOUT=1 ,IPSUB="MA NUAL^CHMFA DR4"
  82    .K CHMIN  D ^CHMIS04 1
  83    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=1  D
  84    .S CHMQNA M="IMAGE(" ,CHMOUT=1, IPSUB="SCA N^CHMFADR4 "
  85    .K CHMIN  D ^CHMIS04 1
  86    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=2  D
  87    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCR^C HMFADR4"
  88    .K CHMIN  D ^CHMIS04 1
  89    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3  D
  90    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR ^CHMFADR4"
  91    .K CHMIN  D ^CHMIS04 1
  92    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4  D
  93    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCR2^ CHMFADR4"
  94    .K CHMIN  D ^CHMIS04 1
  95    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5  D
  96    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR 2^CHMFADR4 "
  97    .K CHMIN  D ^CHMIS04 1
  98    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=6  D  ;CPE00 5-004
  99    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCRR^ CHMFADR4"
  100    .K CHMIN  D ^CHMIS04 1
  101    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=7  D  ;CPE00 5-004
  102    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR R^CHMFADR4 "
  103    .K CHMIN  D ^CHMIS04 1
  104    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8  D
  105    .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="MANUA LR^CHMFADR 4"
  106    .K CHMIN  D ^CHMIS04 1
  107    S CHMFPP= "CST"
  108    D ^CHMFWK 01
  109    S $P(^CHM IMAGE(CHMF PDI,0),"^" ,10)=1
  110    K CHMFCLM S,CHMFCL,C HMFREJ
  111    D SORT^CH FCDUTL
  112    D ^CHFCDD RV ;CALLS  CLAIM EDIT  UTILITY ^ CHMFA801
  113    I $G(CHMO PDI) D  ;b db 1004201 7 original  pdi bene- calc
  114    . NEW CHO SEN
  115    . S CHOSE N=$P(^CHMD IC(741002. 21,DUZ,0), "^",10) I  CHOSEN=6!( CHOSEN=7)! (CHOSEN=8)  D
  116    .. S DIE= 741000.2,D A=CHMOPDI, DR=".06/// 11;.22///" _DT D ^DIE  K DIE
  117    .. N CHMF PDI
  118    .. S CHMF PDI=CHMOPD I
  119    .. D SORT ^CHFCDUTL
  120    .. D QUE1 ^CHFCDUTL  ;queue the  bene chec k and bene  calc
  121    I $D(CHNE WPG) D  G  CALLSUB
  122    .D NEWPG^ CHMFADR1
  123    .S $P(^CH MIMG(CHMFP DI,0),"^", 6)=1
  124    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 D
  125    ..S IPSUB ="MANUAL^C HMFADR4"
  126    ..D PDIUP ^CHMFABU3( CHMFPDI,$P (^CHMIMG(C HMFPDI,0), "^",6))
  127    ..S CHMQN AM="MANUAL (",CHMIN=1
  128    ..K CHMOU T D ^CHMIS 041
  129    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 D
  130    ..S IPSUB ="SCAN^CHM FADR4"
  131    ..S CHMQN AM="IMAGE( ",CHMIN=1
  132    ..K CHMOU T D ^CHMIS 041
  133    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 2 D
  134    ..S IPSUB ="OCR^CHMF ADR4"
  135    ..S CHMQN AM="OCR(", CHMIN=1
  136    ..K CHMOU T D ^CHMIS 041
  137    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 3 D
  138    ..S IPSUB ="SBOCR^CH MFADR4"
  139    ..S CHMQN AM="OCR(", CHMIN=1
  140    ..K CHMOU T D ^CHMIS 041
  141    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 D
  142    ..S IPSUB ="OCR2^CHM FADR4"
  143    ..S CHMQN AM="OCR(", CHMIN=1
  144    ..K CHMOU T D ^CHMIS 041
  145    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 D
  146    ..S IPSUB ="SBOCR2^C HMFADR4"
  147    ..S CHMQN AM="OCR(", CHMIN=1
  148    ..K CHMOU T D ^CHMIS 041
  149    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 6 D  ;CPE0 05-004
  150    ..S IPSUB ="OCRR^CHM FADR4"
  151    ..S CHMQN AM="OCR(", CHMIN=1
  152    ..K CHMOU T D ^CHMIS 041
  153    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 D  ;CPE0 05-004
  154    ..S IPSUB ="SBOCRR^C HMFADR4"
  155    ..S CHMQN AM="OCR(", CHMIN=1
  156    ..K CHMOU T D ^CHMIS 041
  157    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 D
  158    ..S IPSUB ="MANUALR^ CHMFADR4"
  159    ..S CHMQN AM="OCR(", CHMIN=1
  160    ..K CHMOU T D ^CHMIS 041
  161    .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",5)=C HMFPDI
  162    I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= 0,$P(^CHMD IC(741002. 21,DUZ,0), "^",10)'=8  D REMV1^C HMFADR1
  163   A5 D NOW^% DTC
  164    N CHOSEN
  165    S $P(^CHM IMAGE(CHMF PDI,0),"^" ,5)=%
  166    S CHOSEN= $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)
  167    I CHOSEN= 6!(CHOSEN= 7)!(CHOSEN =8) D  ;CP E005-004,  CPE005-069
  168    .I $G(CHM OPDI)'=""  D
  169    ..I $D(^C HMPAY("C", CHMFPDI))  D  ;Set ED I Reopen f lag. CPE00 5-004
  170    ...S $P(^ CHMIMG(CHM FPDI,"E-RE OPEN"),"^" )=CHMOPDI, $P(^CHMIMG (CHMFPDI," E-REOPEN") ,"^",3)=1
  171    ...S $P(^ CHMIMG(CHM OPDI,"E-RE OPEN"),"^" ,2)=CHMFPD I,$P(^CHMI MG(CHMOPDI ,"E-REOPEN "),"^",3)= 1
  172   A8 D KILAL L^CHMFADR1
  173    G:$D(CHRS TSRT) END
  174    D BATCH^C HMFADR1
  175    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0  IPSUB="MA NUAL^CHMFA DR4"
  176    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=2  IPSUB="OC R^CHMFADR4 "
  177    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=1  IPSUB="SC AN^CHMFADR 4"
  178    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3  IPSUB="SB OCR^CHMFAD R4"
  179    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4  IPSUB="OC R2^CHMFADR 4"
  180    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5  IPSUB="SB OCR2^CHMFA DR4"
  181    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=6  IPSUB="OC RR^CHMFADR 4"  ;CPE00 5-004
  182    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=7  IPSUB="SB OCRR^CHMFA DR4"  ;CPE 005-004
  183    S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8  IPSUB="MA NUALR^CHMF ADR4"
  184    G CALLSUB
  185    ;
  186   END I $D(^ CHMDIC(741 002.21,DUZ ,0)) D
  187    .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)' =0,$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= 8 D REMV^C HMFADR1
  188    X CHRESET
  189    I $D(CHMF PDI) K:CHM FPDI'="" ^ CHMIMAGE(" LOCK",CHMF PDI)
  190    I '$D(CHM FPAUS) D
  191    .D KILALL ^CHMFADR1
  192    .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= ""
  193   QUIT K CHB OFF,CHBON, CHEBOL,CHE EL,CHEOL,C HMAR,CHMAR ESET,CHMFU SER
  194    K CHREVOF F,CHREVON, CHULOFF,CH ULON,OUTFL G,IPSUB L
  195    Q:$$IPUSR LK^CHMFADR V(1)=1  ;T T 11060 JE H 11/26/10
  196    Q
  197    ;
  198    ;SUBROUTI NES CALLED  IN DRIVER
  199    ;
  200   ERR1 S DY= 5,DX=10 X  XY W "User  is unknow n to syste m",@CHEOL
  201    S DY=6,DX =10 X XY W  "Please L og onto te rminal aga in",@CHEOL
  202    R RD:2 Q
  203    Q
  204   IPUSRLK(IP FLG) ;USER  LOCK TO P REVENT MUL TIPLE SESS IONS ;TT 1 1060 JEH 1 1/26/10
  205           Q: $$ENVIR^CH TFLIB()'=" LIVE" 0 ;F OR LIVE US E ONLY
  206           N  IPLCK   ;S ETTING LOC K TO ALLOW  USER TO R UN IP 0=UN LOCKED/1=L OCKED
  207           N  IPMSG   ;L OCKING MES SAGE
  208           S  IPLCK=0
  209           I  IPFLG=0 D
  210           .I  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",22)=1 D
  211           .. S IPMSG="* ** IMAGE P ROCESSING  (IP) IS CU RRENTLY IN  USE, ONLY  1 SESSION  IS ALLOWE D ***"
  212           .. S IPMSG2=" Please con tact your  Supervisor  for help. "
  213           .. W @IOF,!!, ?(80-$L(IP MSG)/2),IP MSG,!!,IPM SG2,! H 3
  214           .. S IPLCK=1
  215           .E   D
  216           .. S $P(^CHMD IC(741002. 21,DUZ,0), "^",22)=1
  217           .. S IPLCK=0
  218           I  IPFLG=1 D
  219           .S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",22)=0
  220           .S  IPLCK=1
  221           Q  IPLCK
  222   IPHLPDSK ; ALLOW OCIO  HELPDESK  TO LOCK/UN LOCK IP FO R USER ;TT  11060 JEH  11/26/10
  223           N  IPHMSG,TMP Y,IPDUZ
  224           S  IPHMSG="LO CK/UNLOCK  IMAGE PROC ESSING (IP ) SCREEN F OR USER"
  225           W  #,!!,?(80- $L(IPHMSG) /2),IPHMSG ,!!
  226           S  DIR(0)="PO ^741002.21 :EMZ",DIR( "A")="User  to unlock " D ^DIR K  DIR
  227           Q: $D(DIRUT)
  228           Q: Y=-1
  229           S  IPDUZ=+Y
  230           I  $P(^CHMDIC (741002.21 ,+Y,0),"^" ,22)=0&($P (^CHMDIC(7 41002.21,+ Y,0),"^",5 )="") D  Q
  231           .W  !!,$P(^VA (200,+Y,0) ,"^",1),"  DOES NOT H AVE AN OPE N IMAGE PR OCESSING ( IP) SESSIO N TO UNLOC K." H 2
  232           I  $P(^CHMDIC (741002.21 ,+Y,0),"^" ,5)'="" W  !!,"USER H AS SESSION  OPEN WITH  AN ACTIVE  PDI, DOUB LE CHECK B EFORE UNLO CKING.",!
  233           S  TMPY=+Y
  234           W  !
  235           S  DIR(0)="Y" ,DIR("B")= "NO",DIR(" A")="OK TO  UNLOCK" D  ^DIR K DI R
  236           I  Y=1 D
  237           .S  $P(^CHMDI C(741002.2 1,TMPY,0), "^",22)=0
  238           .D  MMMSG
  239           K  DIE,DR,DA, Y
  240           Q
  241   MMMSG ;GEN ERATE MM M ESSAGE TO  CPD TOP 4  SPECIALIST  AND USER  NEEDING UN LOCKED
  242           Q: '$D(IPDUZ)
  243           N  USRNM,UNLD T
  244           D  NOW^%DTC S  UNLDT=$$F MTE^XLFDT( %)
  245           S  USRNM=$P(^ VA(200,IPD UZ,0),"^", 1)
  246           S  CNT=1,^TMP ($J,"CHMIP LK",CNT)=" ",CNT=CNT+ 1
  247           S  ^TMP($J,"C HMIPLK",CN T)="User " _USRNM_" h as been un locked fro m Image Pr ocessing ( IP).",CNT= CNT+1
  248           S  ^TMP($J,"C HMIPLK",CN T)="",CNT= CNT+1
  249           S  ^TMP($J,"C HMIPLK",CN T)="Unlock  was done:  "_UNLDT,C NT=CNT+1
  250           S  ^TMP($J,"C HMIPLK",CN T)="",CNT= CNT+1
  251           S  XMTEXT="^T MP($J,""CH MIPLK"","
  252           S  XMDUZ=.5
  253           S  XMY(IPDUZ) =""   ;COU RTESY COPY  FOR USER  NEEDING UN LOCKED
  254           S  XMY(DUZ)=" " ;COPY FO R USER UNL OCKING VE
  255           ;S  XMY("
P II                  ")="" ;CPD  SUPERVISO RS AND LEA DS MAIL GR OUP - FOR  FUTURE USE
  256           S  XMSUB="IP  UNLOCKED F OR "_USRNM  D ^XMD
  257           Q
  258  
  259  
  260