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

8.1 Files compared

# Location File Last Modified
1 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_1\User Story CPE005-032 User Story CPE005-032 Manual EDI Corrected Claim - Back-Out of Original Submission Unit Test.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 User Story CPE005-032 Manual EDI Corrected Claim - Back-Out of Original Submission Unit Test.docx Thu Dec 7 20:36:11 2017 UTC

8.2 Comparison summary

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

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

8.4 Active regular expressions

No regular expressions were active.

8.5 Comparison detail

  1   User Story  CPE005-03 2  Manual  EDI Correc ted Claim  – Back-Out  of Origin al Submiss ion Unit T est
  2  
  3   Story Desc ription
  4   This user  story is b ased on th e receipt  a letter o r email re questing t o correct  a claim.   Every time  we receiv e a correc ted claim  the system  will back -out the c harges on  the origin al submiss ion.  
  5   This user  story desc ribes how  the user w ill trigge r this pro cess based  on the re ceipt of a  letter, e mail reque st, or pho ne call to  correct a  claim.        
  6  
  7   Acceptance  Criteria  / Complian ce:
  8   Once a use r inputs Y  in respon se to the  prompt ask ing if he/ she wants  to continu e, the sys tem will n ot repeat  the prompt  and will  back out t he amounts  applied t o annual i ndividual  and family  deductibl es, catast rophic cap  and previ ous paymen ts from th e original  PDI submi ssion.
  9  
  10  
  11   Are you en tering <S> canned, <M >anual, CH AMPVA <E>D I, S<B>/CW VV EDI,
  12    CHAMPVA < O>CR, SB/C <W>VV OCR,  <RC>REOPE N CHAMPVA  EDI,<RS>RE OPEN SB ED I,
  13                  or <ER > REOPEN M anual EDI  submission s? ER
  14  
  15   PDI: 20172 3197033726  Page #: 1        Img  #: 1          Assign ment:                
  16   Vendor:                                 Ben eficiary:  GOWAN,CATH Y C                  
  17                            [DOCUME NT IDENTIF ICATION SC REEN]
  18  
  19                       O riginal PD I Number:  2015030910 39464
  20                         Current PD I Number:  2017231970 33726
  21                                Tot al Pages:  1
  22                                Pag e Number:  1 of 1
  23                              Type  of Image:  BILL/INVOI CE
  24                            Image A vailable:  No
  25   __________ __________ __________ __________ __________ __________ __________ _________
  26  
  27  
  28  
  29  
  30  
  31  
  32  
  33                                                                                          
  34  
  35   1) Cont Ed t  2) Next  Scr  3) S ort PDI  4 ) Kill PDI   5) Not A val  6) Un rd Img    
  36   7) PDI Rev w  8) Paus e     9) C omments 10 ) Btch Cmp  11) PPR       12) PP Rs-PDI    
  37  
  38  
  39  
  40   Select CHA MPVA CLAIM S CLAIM NU MBER: 2015 0309103946 4  KMU5986
  41   Another on e: 2017231 97033726 ? ?
  42  
  43   Another on e: 
  44   Standard C aptioned O utput? Yes // N  (No)
  45   First Prin t FIELD: . 01  CLAIM  NUMBER
  46   Then Print  FIELD: .0 2  CLAIM S TATUS
  47   Then Print  FIELD: 10 00  PDI NU MBER  (mul tiple)
  48     Then Pri nt PDI NUM BER SUB-FI ELD: .01   PDI NUMBER
  49     Then Pri nt PDI NUM BER SUB-FI ELD: 
  50   Then Print  FIELD: 
  51   Heading (S /C): CHAMP VA CLAIMS  List// 
  52   STORE PRIN T LOGIC IN  TEMPLATE:  
  53   DEVICE:    SSH VIRTUA L TERMINAL     Right  Margin: 80 // 
  54   CHAMPVA CL AIMS List                                      OCT 04,  2017@09:4 9   PAGE 1
  55   CLAIM NUMB ER                      CLAIM ST ATUS                         PDI  NUMBER
  56   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  57  
  58   KMU5986                            COMPLETE                         20150309 1039464
  59  
  60  
  61  
  62   CHAMPVA ST ORED IMAGE S List                              OCT 04,  2017@09:5 2   PAGE 1
  63   PRIMARY DO CUMENT  DA TE/TIME                                DATE  REVERSE
  64        INDEX  (PDI)  CO MPLETED            ST ATUS OF PD I     COMP LETED
  65   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  66  
  67    201503091 039464  FE B 11,2015@ 15:23:33CO MPLETED          
  68    201723197 033726                        IN PROCESS          
  69  
  70  
  71  
  72                                                                                          
  73                                  [ Edit Claim  Data Scre en]                             
  74                                                                                          
  75   Original P DI Number:  201503091 039464
  76   Current  P DI Number:  201723197 033726
  77   Related Cl aims:
  78  
  79        Origi nal  Curre nt
  80   No.  Claim  #   Claim  #    Bene                Typ    Vendor        D.O.S        D/C
  81   ---  ----- --   ----- --    ---- ---------- -   ---    ----------    ------- ---  ---
  82  
  83  
  84   1)              KMX73 11    GOWA N,CATHY C      OUT    SAMARITAN     1/8/201 5
  85  
  86  
  87  
  88   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  89   Select:  1 ) Edit
  90            2 ) Continue
  91            3 ) Process  New Page
  92  
  93   Choose:  
  94  
  95                                                                                          
  96                                  [ Edit Claim  Data Scre en]                             
  97                                                                                          
  98   Original P DI Number:  201503091 039464
  99   Current  P DI Number:  201723197 033726
  100   Related Cl aims:
  101  
  102        Origi nal  Curre nt
  103   No.  Claim  #   Claim  #    Bene                Typ    Vendor        D.O.S        D/C
  104   ---  ----- --   ----- --    ---- ---------- -   ---    ----------    ------- ---  ---
  105  
  106  
  107   1)              KMX73 11    GOWA N,CATHY C      OUT    SAMARITAN     1/8/201 5
  108  
  109  
  110  
  111  
  112  
  113   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  114   Are you su re you wan t to conti nue? 
  115  
  116  
  117   Answer “Ye s”
  118   CHAMPVA CL AIMS List                                      OCT 04,  2017@09:5 8   PAGE 1
  119   CLAIM NUMB ER                      CLAIM ST ATUS                         PDI  NUMBER
  120   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  121  
  122   KMU5986                            COMPLETE                         20150309 1039464
  123   KMX7311                            REJECTED                         20172319 7033726
  124  
  125  
  126  
  127   CHAMPVA ST ORED IMAGE S List                              OCT 04,  2017@09:5 9   PAGE 1
  128   PRIMARY DO CUMENT  DA TE/TIME                                DATE  REVERSE
  129        INDEX  (PDI)  CO MPLETED            ST ATUS OF PD I     COMP LETED
  130   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
  131  
  132    201503091 039464  FE B 11,2015@ 15:23:33VO IDED             OCT  4,2017
  133    201723197 033726  OC T 4,2017           UN ASSIGNED         
  134  
  135  
  136  
  137   Global ^%Z TSK(527863  -- NOTE:  translatio n in effec t
  138   ^%ZTSK(527 863,0)="ST ART1^CHFCD DRV^588196 ^^64560,35 850^64560, 35850^R^^^ BRICKER,DE
  139   NNIS^DEV^D OU^ZTDESC^ ^"
  140                .02)="DE V^DOU^^"
  141                .03)="Su bmission q ueued for  check data  and benef it calc"
  142                .04)=557 8019850
  143                 .1)="6^ 64560,3585 1^Finished ^541142006 ^^^^^"
  144                 .2)="CH BCRES^CHBC RES^RES^^Q ^"
  145                .21)=288 1
  146                .25)=""
  147   ^%ZTSK(527 863,.3,"CH MFCLMS("," KMX7311")= 141157311
  148   ^%ZTSK(527 863,.3,"CH MFPDI")=20 1723197033 726
  149   ^%ZTSK(527 863,.3,"CH MFRS(","KM X7311")=""
  150   ^%ZTSK(527 863,.3,"DU Z(",0)="@"
  151                             1)=""
  152                             2)=741
  153                          "AG")="V"
  154                         "BUF")=1
  155                       " LANG")=""
  156  
  157  
  158  
  159   Global ^%Z TSK(527864  -- NOTE:  translatio n in effec t
  160   ^%ZTSK(527 864,0)="ST ART1^CHFCD DRV^588196 ^^64560,35 850^64560, 35850^R^^^ BRICKER,DE
  161   NNIS^DEV^D OU^ZTDESC^ ^"
  162                .02)="DE V^DOU^^"
  163                .03)="Su bmission q ueued for  check data  and benef it calc"
  164                .04)=557 8019850
  165                 .1)="6^ 64560,3585 1^Finished ^541142006 ^^^^^"
  166                 .2)="CH BCRES^CHBC RES^RES^^Q ^"
  167                .21)=288 1
  168                .25)=""
  169   ^%ZTSK(527 864,.3,"CH MFCLMS("," KMU5986")= 141125986
  170   ^%ZTSK(527 864,.3,"CH MFPDI")=20 1503091039 464
  171   ^%ZTSK(527 864,.3,"CH MFRS(","KM X7311")=""
  172   ^%ZTSK(527 864,.3,"DU Z(",0)="@"
  173                             1)=""
  174                             2)=741
  175                          "AG")="V"
  176                         "BUF")=1
  177                       " LANG")=""^ %ZTSK(5278 64,.3,"DUZ (",0)="@"
  178                             1)=""
  179                             2)=741
  180                          "AG")="V"
  181                         "BUF")=1
  182                       " LANG")=""
  183  
  184   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
N
S .
        185   URL")="" ; CPD SUPERV ISORS AND  LEADS MAIL  GROUP - F OR FUTURE  USES XMSUB ="IP UNLOC KED FOR "_ USRNM D ^X MDQ
  186  
  187  
  188  
  189  
  190  
  191  
  192  
  193  
  194  
  195  
  196  
  197  
  198  
  199  
  200  
  201  
  202  
  203  
  204  
  205  
  206  
  207  
  208  
  209  
  210  
  211  
  212  
  213  
  214  
  215  
  216  
  217  
  218  
  219  
  220  
  221