15. EPMO Open Source Coordination Office Redaction File Detail Report

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

15.1 Files compared

# Location File Last Modified
1 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937657-CPE005-051 Permission Error Message CHMFADRV Developer Form.docx Thu Dec 7 15:13:22 2017 UTC
2 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937657-CPE005-051 Permission Error Message CHMFADRV Developer Form.docx Thu Dec 7 21:02:22 2017 UTC

15.2 Comparison summary

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

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

15.4 Active regular expressions

No regular expressions were active.

15.5 Comparison detail

  1   Routine Na me:  _____ __CHMFADRV _______
  2   Developer  Name(s):   __________ Cindy Stil es____
  3   Associated  User Stor y/Stories:     ______ CPE005-051
  4  
  5   Current ve rsion (Por tions that  are added  to, modif ied or del eted [Matc h up with  New Versio n section)
  6  
  7   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 Q:$$IP USRLK^CHMF ADRV(0)=1  ;TT 11060  JEH 11/26/ 10 K CHMFP DI,VQAURLF G,CHELQFLG  S PS=0,FK IL=0,FIPAY =0,BAD=0,X =0 ;S X=$Z F(-1,"USER NAME") S C HSS="" ;;S  X=$ZF(-1, X,7),CHSS= X ; Go to  CHMFSET an d set scre en variabl es D ^CHMF SET ; If t here is no  DUZ info,  output an  error mes sage and q uit the ro utine. I ' $D(^CHMDIC (741002.21 ,DUZ,0)) D  NOUSE^CHM FADR1 G EN D ; Determ ine if Use r has data  in piece  10. If so,  identify  IPSUB valu e and go t o CALLSUB  otherwise  continue.  I $P(^CHMD IC(741002. 21,DUZ,0), "^",10)'=" " S IPSUB= "" 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 " W @IOF        ;SKD ;W @I OFSTRT W ! !,"Are you  entering  <S>canned,  <M>anual,  CHAMPVA < E>DI, S<B> /CWVV EDI,  CHAMPVA < O>CR, or S B/C<W>VV O CR submiss ions? " D  CSBRS^CHSC 2 ; If use r enters " ^^", goto  END and qu it routine  G:$D(DUOU T) END G:$ D(DFOUT) E ND ; If us er enters  nothing an d hits ret urn, re-wr ite to scr een and re turn to ST RT I $D(DQ OUT) D    G STRT    .W !!,"Ent er 'S' for  Scanned,  'M' for Ma nual, or ' E' for CHV  EDI, 'B'  for SB/CWV V EDI",!," 'O' for CH V OCR, or  'W' for SB /CWVV OCR"     ; Y holds  the first  letter of  whatever t he user en tered. If  nil, retur n to STRT  G:Y="" STR T S Y=$E(Y ,1) ; If Y  does not  contain an y letter i n SMEBOW,  return to  STRT G:"SM EBOW"'[Y S TRT ; Set  the 10th p iece to eq ual the us er's entry  and set I PSUB to th e appropri ate string . I Y="M"  S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=0  S IPSUB="M ANUAL^CHMF ADR4" ; MA NUAL I Y=" E" S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =2 S IPSUB ="OCR^CHMF ADR4" ; CH V EDI I Y= "S" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 S IPSU B="SCAN^CH MFADR4" ;  SCANNED I  Y="B" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=3 S IP SUB="SBOCR ^CHMFADR4"  ; SB/CWVV  EDI I Y=" O" S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =4 S IPSUB ="OCR2^CHM FADR4" ; C HV OCR I Y ="W" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=5 S IPS UB="SBOCR2 ^CHMFADR4"  ; SB/CWVV  OCR ;CALL SUB ; ; Do  the routi ne named i n the vari able IPSUB . D @IPSUB  G:$D(CHQU IT) END G: $D(CHMFPAU S) END G:$ D(CHMFKIL)  END G:$D( CHMFEXIT)  END G:$D(C HMFPDRV) E ND G:$D(DU OUT) END G :$D(DFOUT)  END ;CHEC K ;CHECK D ATA AND SO RT CALLED  IN HERE ;  G:CHMFPDI= "" A8A2 D  CMPLT^CHMF IMG S CHMF PP="CIP" D  ^CHMFWK01  D KLOCK^C HMFADR1 D  DELST1^CHM FADR1 S CH MFPP="SST"  D ^CHMFWK 01 D ^CHMF SRT ;SENDS  CLAIMS TO  CLAIM SOR T I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 D .S CHM QNAM="MANU AL(",CHMOU T=1,IPSUB= "MANUAL^CH MFADR4" .K  CHMIN D ^ CHMIS041 I  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=1 D  .S CHMQNA M="IMAGE(" ,CHMOUT=1, IPSUB="SCA N^CHMFADR4 " .K CHMIN  D ^CHMIS0 41 I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =2 D .S CH MQNAM="OCR (",CHMOUT= 1,IPSUB="O CR^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=3 D .S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" SBOCR^CHMF ADR4" .K C HMIN D ^CH MIS041 I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=4 D . S CHMQNAM= "OCR(",CHM OUT=1,IPSU B="OCR2^CH MFADR4" .K  CHMIN D ^ CHMIS041 I  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=5 D  .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR 2^CHMFADR4 " .K CHMIN  D ^CHMIS0 41 S CHMFP P="CST" D  ^CHMFWK01  S $P(^CHMI MAGE(CHMFP DI,0),"^", 10)=1 K CH MFCLMS,CHM FCL,CHMFRE J D SORT^C HFCDUTL D  ^CHFCDDRV  ;CALLS CLA IM EDIT UT ILITY ^CHM FA801 I $D (CHNEWPG)    G CALLSUB  .D NEWPG^C HMFADR1 .S  $P(^CHMIM G(CHMFPDI, 0),"^",6)=   .I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0  D ..S IPS UB="MANUAL ^CHMFADR4"  ..D PDIUP ^CHMFABU3( CHMFPDI,$P (^CHMIMG(C HMFPDI,0), "^",6)) .. S CHMQNAM= "MANUAL(", CHMIN=1 .. K CHMOUT D  ^CHMIS041  .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 D ..S IP SUB="SCAN^ CHMFADR4"  ..S CHMQNA M="IMAGE(" ,CHMIN=1 . .K CHMOUT  D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =2 D ..S I PSUB="OCR^ CHMFADR4"  ..S CHMQNA M="OCR(",C HMIN=1 ..K  CHMOUT D  ^CHMIS041  .I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3  D ..S IPS UB="SBOCR^ CHMFADR4"  ..S CHMQNA M="OCR(",C HMIN=1 ..K  CHMOUT D  ^CHMIS041  .I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4  D ..S IPS UB="OCR2^C HMFADR4" . .S CHMQNAM ="OCR(",CH MIN=1 ..K  CHMOUT D ^ CHMIS041 . I $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=5  D ..S IPSU B="SBOCR2^ CHMFADR4"  ..S CHMQNA M="OCR(",C HMIN=1 ..K  CHMOUT D  ^CHMIS041  .S $P(^CHM DIC(741002 .21,DUZ,0) ,"^",5)=CH MFPDI D:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)'=0 REM V1^CHMFADR 1A5 D NOW^ %DTC S $P( ^CHMIMAGE( CHMFPDI,0) ,"^",5)=%A 8 D KILALL ^CHMFADR1  G:$D(CHRST SRT) END D  BATCH^CHM FADR1 S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=0 IPSU B="MANUAL^ CHMFADR4"  S:$P(^CHMD IC(741002. 21,DUZ,0), "^",10)=2  IPSUB="OCR ^CHMFADR4"  S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=1  IPSUB="SC AN^CHMFADR 4" S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =3 IPSUB=" SBOCR^CHMF ADR4" S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=4 IPSU B="OCR2^CH MFADR4" S: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=5 IP SUB="SBOCR 2^CHMFADR4 " G CALLSU B ;END I $ D(^CHMDIC( 741002.21, DUZ,0)) D: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)'=0 R EMV^CHMFAD R1 X CHRES ET I $D(CH MFPDI) K:C HMFPDI'=""  ^CHMIMAGE ("LOCK",CH MFPDI) I ' $D(CHMFPAU S) D .D KI LALL^CHMFA DR1 .S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=""QUIT  K CHBOFF,C HBON,CHEBO L,CHEEL,CH EOL,CHMAR, CHMARESET, CHMFUSER K  CHREVOFF, CHREVON,CH ULOFF,CHUL ON,OUTFLG, IPSUB L     Q:$$IPUSRL K^CHMFADRV (1)=1 ;TT  11060 JEH  11/26/10 Q  ; ;SUBROU TINES CALL ED IN DRIV ER ;ERR1 S  DY=5,DX=1 0 X XY W " User is un known to s ystem",@CH EOL S DY=6 ,DX=10 X X Y W "Pleas e Log onto  terminal  again",@CH EOL R RD:2  Q QIPUSRL K(IPFLG) ; USER LOCK  TO PREVENT  MULTIPLE  SESSIONS ; TT 11060 J EH 11/26/1 0Q:$$ENVIR ^CHTFLIB() '="LIVE" 0  ;FOR LIVE  USE ONLYN  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 F OR USER UN LOCKING VE ;S XMY("
D NS . URL  ;CPD SUPE RVISORS AN D LEADS MA IL GROUP -  FOR FUTUR E USES XMS UB="IP UNL OCKED FOR  "_USRNM D  ^XMDQ 
  8  
  9   New versio n (New or  changed po rtions; Hi ghlight al l of the f ollowing:   New - Bol d, Deleted  - Striket hru, Chang ed - Itali cs)
  10  
  11   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/2017  CPE005-004  Modify th e Doc ID S creen for  CHAMPVA an d SB EDI R eopen. ;JS E 10/06/20 17 CPE005- 051 Restri ct users t o the reop en menus ; LEG 10/16/ 2017 CPE00 5-001 adde d "E-ALL"  & "E-FIRST " processi ng in A5,  PDIFIRST,  PDIXREFS a nd PDICNTS  ;JSG2 10/ 19/2017 CP E005-023 C hanged sta tus to EDI -REOPEN Q: $$IPUSRLK^ CHMFADRV(0 )=1 ;TT 11 060 JEH 11 /26/10 K C HMFPDI,VQA URLFG,CHEL QFLG – Rem ove CHMFPD I this var iable is N ewed on th e next lin e. N CHMFP DI,CHMOPDI  S PS=0,FK IL=0,FIPAY =0,BAD=0,X =0 ;S X=$Z F(-1,"USER NAME") S C HSS="" ;;S  X=$ZF(-1, X,7),CHSS= X ; Go to  CHMFSET an d set scre en variabl es D ^CHMF SET ; If t here is no  DUZ info,  output an  error mes sage and q uit the ro utine. I ' $D(^CHMDIC (741002.21 ,DUZ,0)) D  NOUSE^CHM FADR1 G EN D ; Determ ine if Use r has data  in piece  10. If so,  identify  IPSUB valu e and go t o CALLSUB  otherwise  continue.  I $P(^CHMD IC(741002. 21,DUZ,0), "^",10)'=" " S IPSUB= "" D  G:IP SUB'="" CA LLSUB .S:$ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=0 IPS UB="MANUAL ^CHMFADR4"  .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 IPSUB="S CAN^CHMFAD R4" .S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=2 IPSUB ="OCR^CHMF ADR4" .S:$ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=3 IPS UB="SBOCR^ CHMFADR4"  .S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4  IPSUB="OC R2^CHMFADR 4" .S:$P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=5 IPSUB= "SBOCR2^CH MFADR4" .S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=6 I PSUB="OCRR ^CHMFADR4"   ;CPE005- 004 .S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=7 IPSUB ="SBOCRR^C HMFADR4"   ;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       ;SKD
  12   ;W @IOF -  RemoveSTRT  W !!,"Are  you enter ing <S>can ned, <M>an ual, CHAMP VA <E>DI,  S<B>/CWVV  EDI,"    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,    or '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 ;CPE0 05-051 Res trict user s to reope n menu I Y ="RC"!(Y=" RS")!(Y="E R") S MCHK =$$SCHK^CH MFADR1(DUZ ) G:MCHK=0  STRT ; Se t the 10th  piece to  equal the  user's ent ry and set  IPSUB to  the approp riate stri ng. I Y="M " S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 S IPSUB= "MANUAL^CH MFADR4" ;  MANUAL I Y ="E" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=2 S IPS UB="OCR^CH MFADR4" ;  CHV EDI I  Y="S" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=1 S IP SUB="SCAN^ CHMFADR4"  ; SCANNED  I Y="B" S  $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=3 S  IPSUB="SBO CR^CHMFADR 4" ; SB/CW VV EDI I Y ="O" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=4 S IPS UB="OCR2^C HMFADR4" ;  CHV OCR I  Y="W" S $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=5 S I PSUB="SBOC R2^CHMFADR 4" ; SB/CW VV OCR I Y ="RC" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=6 S IP SUB="OCRR^ CHMFADR4"  ; CHV EDI  REOPEN CPE 005-004 I  Y="RS" S $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=7 S I PSUB="SBOC RR^CHMFADR 4" ; SB/CW VV EDI REO PEN CPE005 -004 I Y=" ER" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=8 S IPSU B="MANUALR ^CHMFADR4"  ; MANUAL  EDI REOPEN  ;CALLSUB  ; ; Do the  routine n amed in th e variable  IPSUB. D  @IPSUB G:$ D(CHQUIT)  END G:$D(C HMFPAUS) E ND G:$D(CH MFKIL) END  G:$D(CHMF EXIT) END  G:$D(CHMFP DRV) END G :$D(DUOUT)  END G:$D( DFOUT) END  ;CHECK ;C HECK DATA  AND SORT C ALLED IN H ERE ; G:CH MFPDI="" A 8A2 D CMPL T^CHMFIMG  S CHMFPP=" CIP" D ^CH MFWK01 D K LOCK^CHMFA DR1 D DELS T1^CHMFADR 1 S CHMFPP ="SST" D ^ CHMFWK01 D  ^CHMFSRT  ;SENDS CLA IMS TO CLA IM SORT I  $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=0 D  .S CHMQNAM ="MANUAL(" ,CHMOUT=1, IPSUB="MAN UAL^CHMFAD R4" .K CHM IN D ^CHMI S041 I $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=1 D .S  CHMQNAM="I MAGE(",CHM OUT=1,IPSU B="SCAN^CH MFADR4" .K  CHMIN D ^ CHMIS041 I  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 D  .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCR^C HMFADR4" . K CHMIN D  ^CHMIS041  I $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=3  D .S CHMQN AM="OCR(", CHMOUT=1,I PSUB="SBOC R^CHMFADR4 " .K CHMIN  D ^CHMIS0 41 I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =4 D .S CH MQNAM="OCR (",CHMOUT= 1,IPSUB="O CR2^CHMFAD R4" .K CHM IN D ^CHMI S041 I $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=5 D .S  CHMQNAM="O CR(",CHMOU T=1,IPSUB= "SBOCR2^CH MFADR4" .K  CHMIN D ^ CHMIS041 I  $P(^CHMDI C(741002.2 1,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 .; CPE00 5-023 Chan ge status  to EDI-REO PEN .; S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" SBOCRR^CHM FADR4" .S  CHMQNAM="E DI-REOPEN" ,CHMOUT=1, IPSUB="SBO CRR^CHMFAD R4" .; .K  CHMIN D ^C HMIS041 I  $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=8 D  .S CHMQNAM ="OCR(",CH MOUT=1,IPS UB="MANUAL R^CHMFADR4 " .K CHMIN  D ^CHMIS0 41 S CHMFP P="CST" D  ^CHMFWK01  S $P(^CHMI MAGE(CHMFP DI,0),"^", 10)=1 K CH MFCLMS,CHM FCL,CHMFRE J D SORT^C HFCDUTL D  ^CHFCDDRV  ;CALLS CLA IM EDIT UT ILITY ^CHM FA801 I $G (CHMOPDI)    ;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"  ..; CPE005 -023 Chang e status t o EDI-REOP EN ..; S C HMQNAM="OC R(",CHMIN= 1 ..S CHMQ NAM="EDI-R EOPEN",CHM IN=1 ..K C HMOUT D ^C HMIS041 .I  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=8 D  ..S IPSUB ="MANUALR^ CHMFADR4"  ..S CHMQNA M="OCR(",C HMIN=1 ..K  CHMOUT D  ^CHMIS041  .S $P(^CHM DIC(741002 .21,DUZ,0) ,"^",5)=CH MFPDI I $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)'=0,$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)'=8 D RE MV1^CHMFAD R1A5 D NOW ^%DTC N CH OSEN S $P( ^CHMIMAGE( CHMFPDI,0) ,"^",5)=%  S CHOSEN=$ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10) I CHO SEN=6!(CHO SEN=7)!(CH OSEN=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) =1 ...; ad d ReOpen x refs: a) " E-FIRST" s ets 1st Or iginal for  each give n subseque nt ReOpen  ...; b) "E -ALL" sets  all ReOpe ns xrefed  to 1st Ori ginal occu rrence ... D PDIFIRST ^CHMFUTLE( CHMFPDI) ;  (CPE005-0 01) ...QA8  D KILALL^ CHMFADR1 G :$D(CHRSTS RT) END D  BATCH^CHMF ADR1 S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=0 IPSUB ="MANUAL^C HMFADR4" S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 I PSUB="OCR^ CHMFADR4"  S:$P(^CHMD IC(741002. 21,DUZ,0), "^",10)=1  IPSUB="SCA N^CHMFADR4 " S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 3 IPSUB="S BOCR^CHMFA DR4" 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 IPS UB="SBOCR2 ^CHMFADR4"  S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=6  IPSUB="OC RR^CHMFADR 4"    ;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 .I $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)'=0,$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)'=8 D RE MV^CHMFADR 1 X CHRESE T I $D(CHM FPDI) K:CH MFPDI'=""  ^CHMIMAGE( "LOCK",CHM FPDI) I '$ D(CHMFPAUS ) D .D KIL ALL^CHMFAD R1 .S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",2) ="" .S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",5 )="" .S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=""QUIT  K CHBOFF, CHBON,CHEB OL,CHEEL,C HEOL,CHMAR ,CHMARESET ,CHMFUSER  K CHREVOFF ,CHREVON,C HULOFF,CHU LON,OUTFLG ,IPSUB L Q :$$IPUSRLK ^CHMFADRV( 1)=1 ;TT 1 1060 JEH 1 1/26/10 Q  ; ;SUBROUT INES CALLE D IN DRIVE R ;ERR1 S  DY=5,DX=10  X XY W "U ser is unk nown to sy stem",@CHE OL S DY=6, DX=10 X XY  W "Please  Log onto  terminal a gain",@CHE OL R RD:2  Q QIPUSRLK (IPFLG) ;U SER LOCK T O PREVENT  MULTIPLE S ESSIONS ;T T 11060 JE H 11/26/10 Q:$$ENVIR^ CHTFLIB()' ="LIVE" 0  ;FOR LIVE  USE ONLYN  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 ;
  13  
  14  
  15  
  16   Difference s
  17  
  18  
  19  
  20   Passed XIN DEX?  (Y /  N):