7. EPMO Open Source Coordination Office Redaction File Detail Report

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

7.1 Files compared

# Location File Last Modified
1 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_1\User Story CPE005-032 CPE Teams 1-3 Developer Form - CPE005-032.docx Thu Dec 7 15:13:22 2017 UTC
2 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_1\User Story CPE005-032 CPE Teams 1-3 Developer Form - CPE005-032.docx Thu Dec 7 19:07:18 2017 UTC

7.2 Comparison summary

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

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

7.4 Active regular expressions

No regular expressions were active.

7.5 Comparison detail

  1   Developer  Name(s):   Dennis Bri cker
  2   Associated  User Stor y/Stories:   CPE005-0 32
  3  
  4   ORIGINAL C HMFADRV
  5   CHMFADRV ; PJU/DEN;MA IN DRIVER  CHAMPVA;07 /15/99 10: 42 AM ;;1. 0;CHAMPVA  SYSTEM;;JU LY 4, 1990 ; ;PT 1139 2 ;TT 1106 0 JEH 11/2 6/10 - ADD ING USER L OCK ;CFS 0 8/01/2018  CPE005-004  Modify th e Doc ID S creen for  CHAMPVA an d SB EDI R eopen. Q:$ $IPUSRLK^C HMFADRV(0) =1 ;TT 110 60 JEH 11/ 26/10 K VQ AURLFG,CHE LQFLG N CH MFPDI,CHMO PDI S PS=0 ,FKIL=0,FI PAY=0,BAD= 0,X=0 ;S X =$ZF(-1,"U SERNAME")  S CHSS=""  ;;S X=$ZF( -1,X,7),CH SS=X ; Go  to CHMFSET  and set s creen vari ables D ^C HMFSET ; I f there is  no DUZ in fo, output  an error  message an d quit the  routine.  I '$D(^CHM DIC(741002 .21,DUZ,0) ) D NOUSE^ CHMFADR1 G  END ; Det ermine if  User has d ata in pie ce 10. If  so, identi fy IPSUB v alue and g o to CALLS UB otherwi se continu e. I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) '="" S IPS UB="" D    G:IPSUB'=" " CALLSUB  .S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0  IPSUB="MA NUAL^CHMFA DR4" .S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=1 IPSU B="SCAN^CH MFADR4" .S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 I PSUB="OCR^ CHMFADR4"  .S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3  IPSUB="SB OCR^CHMFAD R4" .S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=4 IPSUB ="OCR2^CHM FADR4" .S: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=5 IP SUB="SBOCR 2^CHMFADR4 " .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =6 IPSUB=" OCRR^CHMFA DR4"    ;CPE005-00 4 .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =7 IPSUB=" SBOCRR^CHM FADR4"    ;CPE005-00 4 .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =8 IPSUB=" MANUALR^CH MFADR4" ;M ANUAL EDI  REOPEN BDB  07262017    W @IOF        ;SKDSTRT W  !!,"Are y ou enterin g <S>canne d, <M>anua l, CHAMPVA  <E>DI, S< B>/CWVV ED I,"    W !," CHAM PVA <O>CR,  SB/C<W>VV  OCR, <RC> REOPEN CHA MPVA EDI,< RS>REOPEN  SB EDI,"    W !," or < ER> REOPEN  Manual ED I submissi ons? " D C SBRS^CHSC2  ; If user  enters "^ ^", goto E ND and qui t routine  G:$D(DUOUT ) END G:$D (DFOUT) EN D ; If use r enters n othing and  hits retu rn, re-wri te to scre en and ret urn to STR T ;CPE005- 004 Add "R C" and "RS " options  to horizon tal menu.  I $D(DQOUT ) D    G STRT .W  !!,"Enter  'S' for Sc anned, 'M'  for Manua l, 'E' for  CHV EDI,  'B' for SB /CWVV EDI, " .W !,"'O ' for CHV  OCR, 'W' f or SB/CWVV  OCR, 'RC'  for REOPE N CHAMPVA  EDI," .W ! ,"'RS' for  REOPEN SB  EDI submi ssions, or  'ER' for  Manual EDI  ReOpen "  ; Y holds  the first  letter of  whatever t he user en tered. If  nil, retur n to STRT  G:Y="" STR T I (Y'="M ")&(Y'="E" )&(Y'="S") &(Y'="B")& (Y'="O")&( Y'="W")&(Y '="RC")&(Y '="RS")&(Y '="ER") G  STRT ; Set  the 10th  piece to e qual the u ser's entr y and set  IPSUB to t he appropr iate strin g. I Y="M"  S $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0  S IPSUB=" MANUAL^CHM FADR4" ; M ANUAL I Y= "E" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=2 S IPSU B="OCR^CHM FADR4" ; C HV EDI I Y ="S" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=1 S IPS UB="SCAN^C HMFADR4" ;  SCANNED I  Y="B" S $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=3 S I PSUB="SBOC R^CHMFADR4 " ; SB/CWV V EDI I Y= "O" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=4 S IPSU B="OCR2^CH MFADR4" ;  CHV OCR I  Y="W" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=5 S IP SUB="SBOCR 2^CHMFADR4 " ; SB/CWV V OCR I Y= "RC" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=6 S IPS UB="OCRR^C HMFADR4" ;  CHV EDI R EOPEN CPE0 05-004 I Y ="RS" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=7 S IP SUB="SBOCR R^CHMFADR4 " ; SB/CWV V EDI REOP EN CPE005- 004 I Y="E R" S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =8 S IPSUB ="MANUALR^ CHMFADR4"  ; MANUAL E DI REOPEN  ;CALLSUB ;  ; Do the  routine na med in the  variable  IPSUB. D @ IPSUB G:$D (CHQUIT) E ND G:$D(CH MFPAUS) EN D G:$D(CHM FKIL) END  G:$D(CHMFE XIT) END G :$D(CHMFPD RV) END G: $D(DUOUT)  END G:$D(D FOUT) END  ;CHECK ;CH ECK DATA A ND SORT CA LLED IN HE RE ; G:CHM FPDI="" A8 A2 D CMPLT ^CHMFIMG S  CHMFPP="C IP" D ^CHM FWK01 D KL OCK^CHMFAD R1 D DELST 1^CHMFADR1  S CHMFPP= "SST" D ^C HMFWK01 D  ^CHMFSRT ; SENDS CLAI MS TO CLAI M SORT I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=0 D . S CHMQNAM= "MANUAL(", CHMOUT=1,I PSUB="MANU AL^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 D .S C HMQNAM="IM AGE(",CHMO UT=1,IPSUB ="SCAN^CHM FADR4" .K  CHMIN D ^C HMIS041 I  $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=2 D  .S CHMQNAM ="OCR(",CH MOUT=1,IPS UB="OCR^CH MFADR4" .K  CHMIN D ^ CHMIS041 I  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=3 D  .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR ^CHMFADR4"  .K CHMIN  D ^CHMIS04 1 I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 D .S CHM QNAM="OCR( ",CHMOUT=1 ,IPSUB="OC R2^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=5 D .S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" SBOCR2^CHM FADR4" .K  CHMIN D ^C HMIS041 I  $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=6 D    ;CPE005-00 4 .S CHMQN AM="OCR(", CHMOUT=1,I PSUB="OCRR ^CHMFADR4"  .K CHMIN  D ^CHMIS04 1 I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 D    ;CPE005-00 4 .S CHMQN AM="OCR(", CHMOUT=1,I PSUB="SBOC RR^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=8 D .S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" MANUALR^CH MFADR4" .K  CHMIN D ^ CHMIS041 S  CHMFPP="C ST" D ^CHM FWK01 S $P (^CHMIMAGE (CHMFPDI,0 ),"^",10)= 1 K CHMFCL MS,CHMFCL, CHMFREJ D  SORT^CHFCD UTL D ^CHF CDDRV ;CAL LS CLAIM E DIT UTILIT Y ^CHMFA80 1 I $D(CHN EWPG) D    G CALLSUB  .D NEWPG^C HMFADR1 .S  $P(^CHMIM G(CHMFPDI, 0),"^",6)= 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =0 D ..S I PSUB="MANU AL^CHMFADR 4" ..D PDI UP^CHMFABU 3(CHMFPDI, $P(^CHMIMG (CHMFPDI,0 ),"^",6))  ..S CHMQNA M="MANUAL( ",CHMIN=1  ..K CHMOUT  D ^CHMIS0 41 .I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 D ..S  IPSUB="SCA N^CHMFADR4 " ..S CHMQ NAM="IMAGE (",CHMIN=1  ..K CHMOU T D ^CHMIS 041 .I $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=2 D ..S  IPSUB="OC R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT  D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =3 D ..S I PSUB="SBOC R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT  D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =4 D ..S I PSUB="OCR2 ^CHMFADR4"  ..S CHMQN AM="OCR(", CHMIN=1 .. K CHMOUT D  ^CHMIS041  .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 D ..S IP SUB="SBOCR 2^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT  D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =6 D    ;CPE005-00 4 ..S IPSU B="OCRR^CH MFADR4" .. S CHMQNAM= "OCR(",CHM IN=1 ..K C HMOUT D ^C HMIS041 .I  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=7 D     ;CPE005-00 4 ..S IPSU B="SBOCRR^ CHMFADR4"  ..S CHMQNA M="OCR(",C HMIN=1 ..K  CHMOUT D  ^CHMIS041  .I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8  D ..S IPS UB="MANUAL R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT  D ^CHMIS04 1 .S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",5)= CHMFPDI D: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)'=0 R EMV1^CHMFA DR1A5 D NO W^%DTC N C HOSEN S $P (^CHMIMAGE (CHMFPDI,0 ),"^",5)=%  S CHOSEN= $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10) I CH OSEN=6!(CH OSEN=7)!(C HOSEN=8) D     ;CPE005-00 4, CPE005- 069 .I $G( CHMOPDI)'= "" D ..I $ D(^CHMPAY( "C",CHMFPD I)) D    ;Set EDI R eopen flag . CPE005-0 04 ...S $P (^CHMIMG(C HMFPDI,"E- REOPEN")," ^")=CHMOPD I,$P(^CHMI MG(CHMFPDI ,"E-REOPEN "),"^",3)= 1 ...S $P( ^CHMIMG(CH MOPDI,"E-R EOPEN"),"^ ",2)=CHMFP DI,$P(^CHM IMG(CHMOPD I,"E-REOPE N"),"^",3) =1A8 D KIL ALL^CHMFAD R1 G:$D(CH RSTSRT) EN D D BATCH^ CHMFADR1 S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=0 I PSUB="MANU AL^CHMFADR 4" S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =2 IPSUB=" OCR^CHMFAD R4" S:$P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 IPSUB= "SCAN^CHMF ADR4" S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=3 IPSU B="SBOCR^C HMFADR4" S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=4 I PSUB="OCR2 ^CHMFADR4"  S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5  IPSUB="SB OCR2^CHMFA DR4" S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=6 IPSUB ="OCRR^CHM FADR4"    ;CPE005-00 4 S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 IPSUB="S BOCRR^CHMF ADR4"    ;CPE005-00 4 S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 IPSUB="M ANUALR^CHM FADR4" G C ALLSUB ;EN D I $D(^CH MDIC(74100 2.21,DUZ,0 )) D:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) '=0 REMV^C HMFADR1 X  CHRESET I  $D(CHMFPDI ) K:CHMFPD I'="" ^CHM IMAGE("LOC K",CHMFPDI ) I '$D(CH MFPAUS) D  .D KILALL^ CHMFADR1 . S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)="" QUIT K CHB OFF,CHBON, CHEBOL,CHE EL,CHEOL,C HMAR,CHMAR ESET,CHMFU SER K CHRE VOFF,CHREV ON,CHULOFF ,CHULON,OU TFLG,IPSUB  L Q:$$IPU SRLK^CHMFA DRV(1)=1 ; TT 11060 J EH 11/26/1 0 Q ; ;SUB ROUTINES C ALLED IN D RIVER ;ERR 1 S DY=5,D X=10 X XY  W "User is  unknown t o system", @CHEOL S D Y=6,DX=10  X XY W "Pl ease Log o nto termin al again", @CHEOL R R D:2 Q QIPU SRLK(IPFLG ) ;USER LO CK TO PREV ENT MULTIP LE SESSION S ;TT 1106 0 JEH 11/2 6/10Q:$$EN VIR^CHTFLI B()'="LIVE " 0 ;FOR L IVE USE ON LYN IPLCK     ;SETTING L OCK TO ALL OW USER TO  RUN IP 0= UNLOCKED/1 =LOCKEDN I PMSG     ;LOCKING M ESSAGES IP LCK=0I IPF LG=0 D.I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,22)=1 D.. S IPMSG="* ** IMAGE P ROCESSING  (IP) IS CU RRENTLY IN  USE, ONLY  1 SESSION  IS ALLOWE D ***"..S  IPMSG2="Pl ease conta ct your Su pervisor f or help.". .W @IOF,!! ,?(80-$L(I PMSG)/2),I PMSG,!!,IP MSG2,! H 3 ..S IPLCK= 1.E    D..S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",22) =1..S IPLC K=0I IPFLG =1 D.S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",2 2)=0.S IPL CK=1Q IPLC KIPHLPDSK  ;ALLOW OCI O HELPDESK  TO LOCK/U NLOCK IP F OR USER ;T T 11060 JE H 11/26/10 N IPHMSG,T MPY,IPDUZS  IPHMSG="L OCK/UNLOCK  IMAGE PRO CESSING (I P) SCREEN  FOR USER"W  #,!!,?(80 -$L(IPHMSG )/2),IPHMS G,!!S DIR( 0)="PO^741 002.21:EMZ ",DIR("A") ="User to  unlock" D  ^DIR K DIR Q:$D(DIRUT )Q:Y=-1S I PDUZ=+YI $ P(^CHMDIC( 741002.21, +Y,0),"^", 22)=0&($P( ^CHMDIC(74 1002.21,+Y ,0),"^",5) ="") D    Q.W !!,$P( ^VA(200,+Y ,0),"^",1) ," DOES NO T HAVE AN  OPEN IMAGE  PROCESSIN G (IP) SES SION TO UN LOCK." H 2 I $P(^CHMD IC(741002. 21,+Y,0)," ^",5)'=""  W !!,"USER  HAS SESSI ON OPEN WI TH AN ACTI VE PDI, DO UBLE CHECK  BEFORE UN LOCKING.", !S TMPY=+Y W !S DIR(0 )="Y",DIR( "B")="NO", DIR("A")=" OK TO UNLO CK" D ^DIR  K DIRI Y= 1 D.S $P(^ CHMDIC(741 002.21,TMP Y,0),"^",2 2)=0.D MMM SGK DIE,DR ,DA,YQMMMS G ;GENERAT E MM MESSA GE TO CPD  TOP 4 SPEC IALIST AND  USER NEED ING UNLOCK EDQ:'$D(IP DUZ)N USRN M,UNLDTD N OW^%DTC S  UNLDT=$$FM TE^XLFDT(% )S USRNM=$ P(^VA(200, IPDUZ,0)," ^",1)S CNT =1,^TMP($J ,"CHMIPLK" ,CNT)="",C NT=CNT+1S  ^TMP($J,"C HMIPLK",CN T)="User " _USRNM_" h as been un locked fro m Image Pr ocessing ( IP).",CNT= CNT+1S ^TM P($J,"CHMI PLK",CNT)= "",CNT=CNT +1S ^TMP($ J,"CHMIPLK ",CNT)="Un lock was d one: "_UNL DT,CNT=CNT +1S ^TMP($ J,"CHMIPLK ",CNT)="", CNT=CNT+1S  XMTEXT="^ TMP($J,""C HMIPLK""," S XMDUZ=.5 S XMY(IPDU Z)=""     ;COURTESY  COPY FOR U SER NEEDIN G UNLOCKED S XMY(DUZ) ="" ;COPY  FOR USER U NLOCKING V E;S XMY("
D NS . URL ")="" ;CPD  SUPERVISO RS AND LEA DS MAIL GR OUP - FOR  FUTURE USE S XMSUB="I P UNLOCKED  FOR "_USR NM D ^XMDQ
  6  
  7  
  8  
  9   EDITED CHM FADRV
  10   CHMFADRV ; PJU/DEN;MA IN DRIVER  CHAMPVA;07 /15/99 10: 42 AM ;;1. 0;CHAMPVA  SYSTEM;;JU LY 4, 1990 ; ;PT 1139 2 ;TT 1106 0 JEH 11/2 6/10 - ADD ING USER L OCK ;CFS 0 8/01/2018  CPE005-004  Modify th e Doc ID S creen for  CHAMPVA an d SB EDI R eopen. Q:$ $IPUSRLK^C HMFADRV(0) =1 ;TT 110 60 JEH 11/ 26/10 K VQ AURLFG,CHE LQFLG N CH MFPDI,CHMO PDI S PS=0 ,FKIL=0,FI PAY=0,BAD= 0,X=0 ;S X =$ZF(-1,"U SERNAME")  S CHSS=""  ;;S X=$ZF( -1,X,7),CH SS=X ; Go  to CHMFSET  and set s creen vari ables D ^C HMFSET ; I f there is  no DUZ in fo, output  an error  message an d quit the  routine.  I '$D(^CHM DIC(741002 .21,DUZ,0) ) D NOUSE^ CHMFADR1 G  END ; Det ermine if  User has d ata in pie ce 10. If  so, identi fy IPSUB v alue and g o to CALLS UB otherwi se continu e. I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) '="" S IPS UB="" D    G:IPSUB'=" " CALLSUB  .S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0  IPSUB="MA NUAL^CHMFA DR4" .S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=1 IPSU B="SCAN^CH MFADR4" .S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 I PSUB="OCR^ CHMFADR4"  .S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3  IPSUB="SB OCR^CHMFAD R4" .S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=4 IPSUB ="OCR2^CHM FADR4" .S: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=5 IP SUB="SBOCR 2^CHMFADR4 " .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =6 IPSUB=" OCRR^CHMFA DR4"    ;CPE005-00 4 .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =7 IPSUB=" SBOCRR^CHM FADR4"    ;CPE005-00 4 .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =8 IPSUB=" MANUALR^CH MFADR4" ;M ANUAL EDI  REOPEN BDB  07262017    W @IOF        ;SKDSTRT W  !!,"Are y ou enterin g <S>canne d, <M>anua l, CHAMPVA  <E>DI, S< B>/CWVV ED I,"    W !," CHAM PVA <O>CR,  SB/C<W>VV  OCR, <RC> REOPEN CHA MPVA EDI,< RS>REOPEN  SB EDI,"    W !," or < ER> REOPEN  Manual ED I submissi ons? " D C SBRS^CHSC2  ; If user  enters "^ ^", goto E ND and qui t routine  G:$D(DUOUT ) END G:$D (DFOUT) EN D ; If use r enters n othing and  hits retu rn, re-wri te to scre en and ret urn to STR T ;CPE005- 004 Add "R C" and "RS " options  to horizon tal menu.  I $D(DQOUT ) D    G STRT .W  !!,"Enter  'S' for Sc anned, 'M'  for Manua l, 'E' for  CHV EDI,  'B' for SB /CWVV EDI, " .W !,"'O ' for CHV  OCR, 'W' f or SB/CWVV  OCR, 'RC'  for REOPE N CHAMPVA  EDI," .W ! ,"'RS' for  REOPEN SB  EDI submi ssions, or  'ER' for  Manual EDI  ReOpen "  ; Y holds  the first  letter of  whatever t he user en tered. If  nil, retur n to STRT  G:Y="" STR T I (Y'="M ")&(Y'="E" )&(Y'="S") &(Y'="B")& (Y'="O")&( Y'="W")&(Y '="RC")&(Y '="RS")&(Y '="ER") G  STRT ; Set  the 10th  piece to e qual the u ser's entr y and set  IPSUB to t he appropr iate strin g. I Y="M"  S $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0  S IPSUB=" MANUAL^CHM FADR4" ; M ANUAL I Y= "E" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=2 S IPSU B="OCR^CHM FADR4" ; C HV EDI I Y ="S" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=1 S IPS UB="SCAN^C HMFADR4" ;  SCANNED I  Y="B" S $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=3 S I PSUB="SBOC R^CHMFADR4 " ; SB/CWV V EDI I Y= "O" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=4 S IPSU B="OCR2^CH MFADR4" ;  CHV OCR I  Y="W" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=5 S IP SUB="SBOCR 2^CHMFADR4 " ; SB/CWV V OCR I Y= "RC" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=6 S IPS UB="OCRR^C HMFADR4" ;  CHV EDI R EOPEN CPE0 05-004 I Y ="RS" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=7 S IP SUB="SBOCR R^CHMFADR4 " ; SB/CWV V EDI REOP EN CPE005- 004 I Y="E R" S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =8 S IPSUB ="MANUALR^ CHMFADR4"  ; MANUAL E DI REOPEN  ;CALLSUB ;  ; Do the  routine na med in the  variable  IPSUB. D @ IPSUB G:$D (CHQUIT) E ND G:$D(CH MFPAUS) EN D G:$D(CHM FKIL) END  G:$D(CHMFE XIT) END G :$D(CHMFPD RV) END G: $D(DUOUT)  END G:$D(D FOUT) END  ;CHECK ;CH ECK DATA A ND SORT CA LLED IN HE RE ; G:CHM FPDI="" A8 A2 D CMPLT ^CHMFIMG S  CHMFPP="C IP" D ^CHM FWK01 D KL OCK^CHMFAD R1 D DELST 1^CHMFADR1  S CHMFPP= "SST" D ^C HMFWK01 D  ^CHMFSRT ; SENDS CLAI MS TO CLAI M SORT I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=0 D . S CHMQNAM= "MANUAL(", CHMOUT=1,I PSUB="MANU AL^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 D .S C HMQNAM="IM AGE(",CHMO UT=1,IPSUB ="SCAN^CHM FADR4" .K  CHMIN D ^C HMIS041 I  $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=2 D  .S CHMQNAM ="OCR(",CH MOUT=1,IPS UB="OCR^CH MFADR4" .K  CHMIN D ^ CHMIS041 I  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=3 D  .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR ^CHMFADR4"  .K CHMIN  D ^CHMIS04 1 I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 D .S CHM QNAM="OCR( ",CHMOUT=1 ,IPSUB="OC R2^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=5 D .S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" SBOCR2^CHM FADR4" .K  CHMIN D ^C HMIS041 I  $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=6 D    ;CPE005-00 4 .S CHMQN AM="OCR(", CHMOUT=1,I PSUB="OCRR ^CHMFADR4"  .K CHMIN  D ^CHMIS04 1 I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 D    ;CPE005-00 4 .S CHMQN AM="OCR(", CHMOUT=1,I PSUB="SBOC RR^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=8 D .S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" MANUALR^CH MFADR4" .K  CHMIN D ^ CHMIS041 S  CHMFPP="C ST" D ^CHM FWK01 S $P (^CHMIMAGE (CHMFPDI,0 ),"^",10)= 1 K CHMFCL MS,CHMFCL, CHMFREJ D  SORT^CHFCD UTL D ^CHF CDDRV ;CAL LS CLAIM E DIT UTILIT Y ^CHMFA80 1 I $G(CHM OPDI) D    ;bdb 10042 017 origin al pdi ben e-calc . N EW CHOSEN  . S CHOSEN =$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10) I C HOSEN=6!(C HOSEN=7)!( CHOSEN=8)  D .. S DIE =741000.2, DA=CHMOPDI ,DR=".06// /11;.22/// "_DT D ^DI E K DIE ..  N CHMFPDI  .. S CHMF PDI=CHMOPD I .. D SOR T^CHFCDUTL  .. D QUE1 ^CHFCDUTL  ;queue the  bene chec k and bene  calc I $D (CHNEWPG)    G CALLSUB  .D NEWPG^C HMFADR1 .S  $P(^CHMIM G(CHMFPDI, 0),"^",6)= 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =0 D ..S I PSUB="MANU AL^CHMFADR 4" ..D PDI UP^CHMFABU 3(CHMFPDI, $P(^CHMIMG (CHMFPDI,0 ),"^",6))  ..S CHMQNA M="MANUAL( ",CHMIN=1  ..K CHMOUT  D ^CHMIS0 41 .I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 D ..S  IPSUB="SCA N^CHMFADR4 " ..S CHMQ NAM="IMAGE (",CHMIN=1  ..K CHMOU T D ^CHMIS 041 .I $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=2 D ..S  IPSUB="OC R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT  D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =3 D ..S I PSUB="SBOC R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT  D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =4 D ..S I PSUB="OCR2 ^CHMFADR4"  ..S CHMQN AM="OCR(", CHMIN=1 .. K CHMOUT D  ^CHMIS041  .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 D ..S IP SUB="SBOCR 2^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT  D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =6 D    ;CPE005-00 4 ..S IPSU B="OCRR^CH MFADR4" .. S CHMQNAM= "OCR(",CHM IN=1 ..K C HMOUT D ^C HMIS041 .I  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=7 D     ;CPE005-00 4 ..S IPSU B="SBOCRR^ CHMFADR4"  ..S CHMQNA M="OCR(",C HMIN=1 ..K  CHMOUT D  ^CHMIS041  .I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8  D ..S IPS UB="MANUAL R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT  D ^CHMIS04 1 .S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",5)= CHMFPDI D: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)'=0 R EMV1^CHMFA DR1A5 D NO W^%DTC N C HOSEN S $P (^CHMIMAGE (CHMFPDI,0 ),"^",5)=%  S CHOSEN= $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10) I CH OSEN=6!(CH OSEN=7)!(C HOSEN=8) D     ;CPE005-00 4, CPE005- 069 .I $G( CHMOPDI)'= "" D ..I $ D(^CHMPAY( "C",CHMFPD I)) D    ;Set EDI R eopen flag . CPE005-0 04 ...S $P (^CHMIMG(C HMFPDI,"E- REOPEN")," ^")=CHMOPD I,$P(^CHMI MG(CHMFPDI ,"E-REOPEN "),"^",3)= 1 ...S $P( ^CHMIMG(CH MOPDI,"E-R EOPEN"),"^ ",2)=CHMFP DI,$P(^CHM IMG(CHMOPD I,"E-REOPE N"),"^",3) =1A8 D KIL ALL^CHMFAD R1 G:$D(CH RSTSRT) EN D D BATCH^ CHMFADR1 S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=0 I PSUB="MANU AL^CHMFADR 4" S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =2 IPSUB=" OCR^CHMFAD R4" S:$P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 IPSUB= "SCAN^CHMF ADR4" S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=3 IPSU B="SBOCR^C HMFADR4" S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=4 I PSUB="OCR2 ^CHMFADR4"  S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5  IPSUB="SB OCR2^CHMFA DR4" S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=6 IPSUB ="OCRR^CHM FADR4"    ;CPE005-00 4 S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 IPSUB="S BOCRR^CHMF ADR4"    ;CPE005-00 4 S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 IPSUB="M ANUALR^CHM FADR4" G C ALLSUB ;EN D I $D(^CH MDIC(74100 2.21,DUZ,0 )) D:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) '=0 REMV^C HMFADR1 X  CHRESET I  $D(CHMFPDI ) K:CHMFPD I'="" ^CHM IMAGE("LOC K",CHMFPDI ) I '$D(CH MFPAUS) D  .D KILALL^ CHMFADR1 . S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)="" QUIT K CHB OFF,CHBON, CHEBOL,CHE EL,CHEOL,C HMAR,CHMAR ESET,CHMFU SER K CHRE VOFF,CHREV ON,CHULOFF ,CHULON,OU TFLG,IPSUB  L Q:$$IPU SRLK^CHMFA DRV(1)=1 ; TT 11060 J EH 11/26/1 0 Q ; ;SUB ROUTINES C ALLED IN D RIVER ;ERR 1 S DY=5,D X=10 X XY  W "User is  unknown t o system", @CHEOL S D Y=6,DX=10  X XY W "Pl ease Log o nto termin al again", @CHEOL R R D:2 Q QIPU SRLK(IPFLG ) ;USER LO CK TO PREV ENT MULTIP LE SESSION S ;TT 1106 0 JEH 11/2 6/10Q:$$EN VIR^CHTFLI B()'="LIVE " 0 ;FOR L IVE USE ON LYN IPLCK     ;SETTING L OCK TO ALL OW USER TO  RUN IP 0= UNLOCKED/1 =LOCKEDN I PMSG     ;LOCKING M ESSAGES IP LCK=0I IPF LG=0 D.I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,22)=1 D.. S IPMSG="* ** IMAGE P ROCESSING  (IP) IS CU RRENTLY IN  USE, ONLY  1 SESSION  IS ALLOWE D ***"..S  IPMSG2="Pl ease conta ct your Su pervisor f or help.". .W @IOF,!! ,?(80-$L(I PMSG)/2),I PMSG,!!,IP MSG2,! H 3 ..S IPLCK= 1.E    D..S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",22) =1..S IPLC K=0I IPFLG =1 D.S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",2 2)=0.S IPL CK=1Q IPLC KIPHLPDSK  ;ALLOW OCI O HELPDESK  TO LOCK/U NLOCK IP F OR USER ;T T 11060 JE H 11/26/10 N IPHMSG,T MPY,IPDUZS  IPHMSG="L OCK/UNLOCK  IMAGE PRO CESSING (I P) SCREEN  FOR USER"W  #,!!,?(80 -$L(IPHMSG )/2),IPHMS G,!!S DIR( 0)="PO^741 002.21:EMZ ",DIR("A") ="User to  unlock" D  ^DIR K DIR Q:$D(DIRUT )Q:Y=-1S I PDUZ=+YI $ P(^CHMDIC( 741002.21, +Y,0),"^", 22)=0&($P( ^CHMDIC(74 1002.21,+Y ,0),"^",5) ="") D    Q.W !!,$P( ^VA(200,+Y ,0),"^",1) ," DOES NO T HAVE AN  OPEN IMAGE  PROCESSIN G (IP) SES SION TO UN LOCK." H 2 I $P(^CHMD IC(741002. 21,+Y,0)," ^",5)'=""  W !!,"USER  HAS SESSI ON OPEN WI TH AN ACTI VE PDI, DO UBLE CHECK  BEFORE UN LOCKING.", !S TMPY=+Y W !S DIR(0 )="Y",DIR( "B")="NO", DIR("A")=" OK TO UNLO CK" D ^DIR  K DIRI Y= 1 D.S $P(^ CHMDIC(741 002.21,TMP Y,0),"^",2 2)=0.D MMM SGK DIE,DR ,DA,YQMMMS G ;GENERAT E MM MESSA GE TO CPD  TOP 4 SPEC IALIST AND  USER NEED ING UNLOCK EDQ:'$D(IP DUZ)N USRN M,UNLDTD N OW^%DTC S  UNLDT=$$FM TE^XLFDT(% )S USRNM=$ P(^VA(200, IPDUZ,0)," ^",1)S CNT =1,^TMP($J ,"CHMIPLK" ,CNT)="",C NT=CNT+1S  ^TMP($J,"C HMIPLK",CN T)="User " _USRNM_" h as been un locked fro m Image Pr ocessing ( IP).",CNT= CNT+1S ^TM P($J,"CHMI PLK",CNT)= "",CNT=CNT +1S ^TMP($ J,"CHMIPLK ",CNT)="Un lock was d one: "_UNL DT,CNT=CNT +1S ^TMP($ J,"CHMIPLK ",CNT)="", CNT=CNT+1S  XMTEXT="^ TMP($J,""C HMIPLK""," S XMDUZ=.5 S XMY(IPDU Z)=""     ;COURTESY  COPY FOR U SER NEEDIN G UNLOCKED S XMY(DUZ) ="" ;COPY  FOR USER U NLOCKING V E;S XMY("
D NS . URL ")="" ;CPD  SUPERVISO RS AND LEA DS MAIL GR OUP - FOR  FUTURE USE S XMSUB="I P UNLOCKED  FOR "_USR NM D ^XMDQ
  11  
  12  
  13  
  14   Passed XIN DEX?  (Y /  N):  N/A