23. EPMO Open Source Coordination Office Redaction File Detail Report

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

23.1 Files compared

# Location File Last Modified
1 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937671-CPE005-069 Manual EDI User Entry of PDI Numbers CHMFADR4 Developer Form.docx Thu Dec 7 15:13:28 2017 UTC
2 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937671-CPE005-069 Manual EDI User Entry of PDI Numbers CHMFADR4 Developer Form.docx Thu Dec 7 22:50:11 2017 UTC

23.2 Comparison summary

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

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

23.4 Active regular expressions

No regular expressions were active.

23.5 Comparison detail

  1   Routine Na me:  _____ __CHMFADR4 _______
  2   Developer  Name(s):   _______Cin dy Stiles_ ______
  3   Associated  User Stor y/Stories:     _____C PE005-069  and 071
  4   Current ve rsion (Por tions that  are added  to, modif ied or del eted [Matc h up with  New Versio n section)
  5  
  6   CHMFADR4 ; CVA/JLR;UT ILITY PROG RAM #3 FOR  IP DRIVER ;08/20/98  8:16 AM ;V 1.0SCAN ;S CANNED CLA IMS GO HER E ; S (PS, FKIL,FIPAY ,BAD)=0 S  CHMFPDI=""  D LSTPDI^ CHMFADR1 D  SETUP^CHM FADR1 G:CH MFPDI'=""  S01S0 D SE TUP1^CHMFA DR1 D ^CHM FPDI Q:$D( CHQUIT)S01  S ZZPDI=C HMFPDI S C HDOCID=$P( ^CHMIMG(CH MFPDI,"DOC "),"^",1)  S CHMFPP=" SIP" D ^CH MFWK01 S $ P(^CHMIMG( CHMFPDI,0) ,"^",17)=1  S $P(^CHM IMAGE(CHMF PDI,0),"^" ,8)=1S1 D  ^CHMFA001   I $D(CHYE SFLG) D  G  S0 .D KLO CK^CHMFADR 1 .D REMV^ CHMFADR1 . D DELST1^C HMFADR1 .D  KILALL^CH MFADR1 .S  CHMQNAM="I MAGE(",CHM OUT=1 K CH MIN D ^CHM IS041 Q I  $D(CHMFBAD ) D  G S0  .D KLOCK^C HMFADR1 .D  REMV^CHMF ADR1 .D DE LST1^CHMFA DR1 .D KIL ALL^CHMFAD R1 .S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN  D ^CHMIS04 1 .S CHMQN AM="CHMBAD Q(",CHMIN= 1 K CHMOUT  D ^CHMIS0 41 Q I $D( CHMFPS) D   G S0 .S P S=1,CHMFI= CHMFPDI,CH MFPP="SSPS " .D ^CHMF WK01 .D SE TPROD^CHMF ADR1 .D PS MSG^CHMFAD R1 .D KLOC K^CHMFADR1  .D REMV^C HMFADR1 .D  DELST1^CH MFADR1 .D  KILALL^CHM FADR1 .S C HMQNAM="IM AGE(",CHMO UT=1 K CHM IN D ^CHMI S041 .S CH MQNAM="CHM PSQ(",CHMI N=1 K CHMO UT D ^CHMI S041 Q I $ D(CHMFPAUS ) D SETPD^ CHMFADR1 Q  I $D(CHMF KIL) D  Q  .S FKIL=1  .D SETPROD ^CHMFADR1  .D KLOCK^C HMFADR1 .D  KILPDI^CH MFADR1 .D  DELST1^CHM FADR1 .D R EADY^CHMFA DR1 I $D(D UOUT) D  Q  .D KLOCK^ CHMFADR1 . D READY^CH MFADR1 .D  DELST1^CHM FADR1 .D R EMV^CHMFAD R1 I $D(DF OUT) D  Q  .D KLOCK^C HMFADR1 .D  READY^CHM FADR1 .D D ELST1^CHMF ADR1 .D RE MV^CHMFADR 1 QMANUAL  ;Manually  processed  claims sta rt here. ;  Set varia bles to 0  or nil S ( PS,FKIL,FI PAY,BAD)=0  S CHMFPDI ="" ; LSTP DI^CHMFADR 1 looks fo r PDI's cu rrently in  "Pause" s tatus. D L STPDI^CHMF ADR1 D SET UP^CHMFADR 1 G:CHMFPD I'="" M1M0  D SETUP1^ CHMFADR1M1  D ^CHMFA0 01 I $D(CH YESFLG) D   G M0 .D K LOCK^CHMFA DR1 .D REM V^CHMFADR1  .D DELST1 ^CHMFADR1  .D KILALL^ CHMFADR1 . S CHMQNAM= "MANUAL(", CHMOUT=1 K  CHMIN D ^ CHMIS041 Q  I $D(CHMF BAD) D  G  M0 .D KLOC K^CHMFADR1  .D REMV^C HMFADR1 .D  DELST1^CH MFADR1 .D  KILALL^CHM FADR1 .S C HMQNAM="MA NUAL(",CHM OUT=1 K CH MIN D ^CHM IS041 .S C HMQNAM="CH MBADQ(",CH MIN=1 K CH MOUT D ^CH MIS041 Q I  $D(CHMFPS ) D  G M0  .S PS=1,CH MFI=CHMFPD I,CHMFPP=" SSPS" .D ^ CHMFWK01 . D SETPROD^ CHMFADR1 . D PSMSG^CH MFADR1 .D  KLOCK^CHMF ADR1 .D RE MV^CHMFADR 1 .D DELST 1^CHMFADR1  .D KILALL ^CHMFADR1  .S CHMQNAM ="MANUAL(" ,CHMOUT=1  K CHMIN D  ^CHMIS041  .S CHMQNAM ="CHMPSQ(" ,CHMIN=1 K  CHMOUT D  ^CHMIS041  Q I $D(CHM FPAUS) D S ETPD^CHMFA DR1 Q I $D (CHMFKIL)  D  Q .S FK IL=1 .D SE TPROD^CHMF ADR1 .D KL OCK^CHMFAD R1 .D KILP DI^CHMFADR 1 .D DELST 1^CHMFADR1  .D MANL^C HMFADR1 .D  SKIP^CHMF ADR1 I $D( DUOUT) D   Q .D KLOCK ^CHMFADR1  .D MANL^CH MFADR1 .D  DELST1^CHM FADR1 .D R EMV^CHMFAD R1 I $D(DF OUT) D  Q  .D KLOCK^C HMFADR1 .D  MANL^CHMF ADR1 .D DE LST1^CHMFA DR1 .D REM V^CHMFADR1  Q ;OCR ;C HAMPVA EDI  claims st art here.  ; S (PS,FK IL,FIPAY,B AD,CHMFPGN M,CHMFIMAG )=0 S CHMF PDI="" D L STPDI^CHMF ADR1 D SET UP^CHMFADR 1 G:CHMFPD I'="" O01O 0 D SETUP1 ^CHMFADR1  D ^CHMFPDI O Q:$D(CHQ UIT)O01 S  ZZPDI=CHMF PDI S CHDO CID=$P(^CH MIMG(CHMFP DI,"DOC"), "^",1) S C HMFPP="SIP " D ^CHMFW K01 S $P(^ CHMIMG(CHM FPDI,0),"^ ",17)=4 S  $P(^CHMIMA GE(CHMFPDI ,0),"^",8) =1 D GETDA TA^CHMFA00 8O1 D ^CHM FA008 ;I $ D(CHYESFLG ) D G O0 . ;D KLOCK^C HMFADR1 .; D REMV^CHM FADR1 .;D  DELST1^CHM FADR1 .;D  KILALL^CHM FADR1 .;S  CHMQNAM="I MAGE(",CHM OUT=1 K CH MIN D ^CHM IS041 Q I  $D(CHMFBAD ) D  G O0  .D KLOCK^C HMFADR1 .D  REMV^CHMF ADR1 .D DE LST1^CHMFA DR1 .D KIL ALL^CHMFAD R1 .S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN  D ^CHMIS04 1 .S CHMQN AM="CHMBAD Q(",CHMIN= 1 K CHMOUT  D ^CHMIS0 41 Q ;I $D (CHMFPS) D  G O0 .;S  PS=1,CHMFI =CHMFPDI,C HMFPP="SSP S" .;D ^CH MFWK01 .;D  SETPROD^C HMFADR1 .; D PSMSG^CH MFADR1 .;D  KLOCK^CHM FADR1 .;D  REMV^CHMFA DR1 .;D DE LST1^CHMFA DR1 .;D KI LALL^CHMFA DR1 .;S CH MQNAM="IMA GE(",CHMOU T=1 K CHMI N D ^CHMIS 041 .;S CH MQNAM="CHM PSQ(",CHMI N=1 K CHMO UT D ^CHMI S041 Q I $ D(CHMFPAUS ) D SETPD^ CHMFADR1 Q  ;I $D(CHM FEXIT) D Q  .;S FKIL= 1 .;D SETP ROD^CHMFAD R1 .;D KLO CK^CHMFADR 1 .;D DELS T1^CHMFADR 1 .;D OCRR DY^CHMFADR 1 I $D(CHM FKIL) D  Q  .S FKIL=1  .D SETPRO D^CHMFADR1  .D KLOCK^ CHMFADR1 . D DELST1^C HMFADR1 .D  OCRRDY^CH MFADR1 .S  $P(^CHMIMG (CHMFPDI,0 ),"^",3)=" " .S $P(^C HMIMG(CHMF PDI,0),"^" ,4)="" .I  $D(^CHMIMG (CHMFPDI," PAUSE")) K  ^CHMIMG(C HMFPDI,"PA USE") I $D (CHMFPDRV)  D  G O0 . D KLOCK^CH MFADR1 .D  REMV^CHMFA DR1 .D DEL ST1^CHMFAD R1 .D OCRK IL^CHMFADR 1 .S CHMFP P="PDIRST2 " D ^CHMFW K01 I $D(D UOUT) D  Q  .D KLOCK^ CHMFADR1 . D OCRRDY^C HMFADR1 .D  DELST1^CH MFADR1 .D  REMV^CHMFA DR1 I $D(D FOUT) D  Q  .D KLOCK^ CHMFADR1 . D OCRRDY^C HMFADR1 .D  DELST1^CH MFADR1 .D  REMV^CHMFA DR1 QOCR2  ;CHAMPVA O CR claims  start here . ; S (PS, FKIL,FIPAY ,BAD,CHMFP GNM,CHMFIM AG)=0 S CH MFPDI="" D  LSTPDI^CH MFADR1 D S ETUP^CHMFA DR1 G:CHMF PDI'="" OC R201OCR20  D SETUP1^C HMFADR1 D  ^CHMFPDO1  Q:$D(CHQUI T)OCR201 S  ZZPDI=CHM FPDI S CHD OCID=$P(^C HMIMG(CHMF PDI,"DOC") ,"^",1) S  CHMFPP="SI P" D ^CHMF WK01 S $P( ^CHMIMG(CH MFPDI,0)," ^",17)=4 S  $P(^CHMIM AGE(CHMFPD I,0),"^",8 )=1 D GETD ATA^CHMFA0 08OCR21 D  ^CHMFA008  ;I $D(CHYE SFLG) D G  OCR20 .;D  KLOCK^CHMF ADR1 .;D R EMV^CHMFAD R1 .;D DEL ST1^CHMFAD R1 .;D KIL ALL^CHMFAD R1 .;S CHM QNAM="IMAG E(",CHMOUT =1 K CHMIN  D ^CHMIS0 41 Q I $D( CHMFBAD) D   G OCR20  .D KLOCK^C HMFADR1 .D  REMV^CHMF ADR1 .D DE LST1^CHMFA DR1 .D KIL ALL^CHMFAD R1 .S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN  D ^CHMIS04 1 .S CHMQN AM="CHMBAD Q(",CHMIN= 1 K CHMOUT  D ^CHMIS0 41 Q ;I $D (CHMFPS) D  G OCR20 . ;S PS=1,CH MFI=CHMFPD I,CHMFPP=" SSPS" .;D  ^CHMFWK01  .;D SETPRO D^CHMFADR1  .;D PSMSG ^CHMFADR1  .;D KLOCK^ CHMFADR1 . ;D REMV^CH MFADR1 .;D  DELST1^CH MFADR1 .;D  KILALL^CH MFADR1 .;S  CHMQNAM=" IMAGE(",CH MOUT=1 K C HMIN D ^CH MIS041 .;S  CHMQNAM=" CHMPSQ(",C HMIN=1 K C HMOUT D ^C HMIS041 Q  I $D(CHMFP AUS) D SET PD^CHMFADR 1 Q ;I $D( CHMFEXIT)  D Q .;S FK IL=1 .;D S ETPROD^CHM FADR1 .;D  KLOCK^CHMF ADR1 .;D D ELST1^CHMF ADR1 .;D O CR2RDY^CHM FADR1 I $D (CHMFKIL)  D  Q .S FK IL=1 .D SE TPROD^CHMF ADR1 .D KL OCK^CHMFAD R1 .D DELS T1^CHMFADR 1 .D OCR2R DY^CHMFADR 1 .S $P(^C HMIMG(CHMF PDI,0),"^" ,3)="" .S  $P(^CHMIMG (CHMFPDI,0 ),"^",4)=" " .I $D(^C HMIMG(CHMF PDI,"PAUSE ")) K ^CHM IMG(CHMFPD I,"PAUSE")  I $D(CHMF PDRV) D  G  OCR20 .D  KLOCK^CHMF ADR1 .D RE MV^CHMFADR 1 .D DELST 1^CHMFADR1  .D OCRKIL ^CHMFADR1  .S CHMFPP= "PDIRST2"  D ^CHMFWK0 1 I $D(DUO UT) D  Q . D KLOCK^CH MFADR1 .D  OCR2RDY^CH MFADR1 .D  DELST1^CHM FADR1 .D R EMV^CHMFAD R1 I $D(DF OUT) D  Q  .D KLOCK^C HMFADR1 .D  OCR2RDY^C HMFADR1 .D  DELST1^CH MFADR1 .D  REMV^CHMFA DR1 QSBOCR  ;SB/CWVV  EDI claims  start her e. ; S (PS ,FKIL,FIPA Y,BAD,CHMF PGNM,CHMFI MAG)=0 S C HMFPDI=""  D LSTPDI^C HMFADR1 D  SETUP^CHMF ADR1 G:CHM FPDI'="" S O01SO0 D S ETUP1^CHMF ADR1 D ^CH MFPDIS Q:$ D(CHQUIT)S O01 S ZZPD I=CHMFPDI  S CHDOCID= $P(^CHMIMG (CHMFPDI," DOC"),"^", 1) S CHMFP P="SIP" D  ^CHMFWK01  S $P(^CHMI MG(CHMFPDI ,0),"^",17 )=4 S $P(^ CHMIMAGE(C HMFPDI,0), "^",8)=1 D  GETDATA^C HMFA008SO1  D ^CHMFA0 08 ;I $D(C HYESFLG) D  G SO0 .;D  KLOCK^CHM FADR1 .;D  REMV^CHMFA DR1 .;D DE LST1^CHMFA DR1 .;D KI LALL^CHMFA DR1 .;S CH MQNAM="IMA GE(",CHMOU T=1 K CHMI N D ^CHMIS 041 Q I $D (CHMFBAD)  D  G SO0 . D KLOCK^CH MFADR1 .D  REMV^CHMFA DR1 .D DEL ST1^CHMFAD R1 .D KILA LL^CHMFADR 1 .S CHMQN AM="IMAGE( ",CHMOUT=1  K CHMIN D  ^CHMIS041  .S CHMQNA M="CHMBADQ (",CHMIN=1  K CHMOUT  D ^CHMIS04 1 Q ;I $D( CHMFPS) D  G SO0 .;S  PS=1,CHMFI =CHMFPDI,C HMFPP="SSP S" .;D ^CH MFWK01 .;D  SETPROD^C HMFADR1 .; D PSMSG^CH MFADR1 .;D  KLOCK^CHM FADR1 .;D  REMV^CHMFA DR1 .;D DE LST1^CHMFA DR1 .;D KI LALL^CHMFA DR1 .;S CH MQNAM="IMA GE(",CHMOU T=1 K CHMI N D ^CHMIS 041 .;S CH MQNAM="CHM PSQ(",CHMI N=1 K CHMO UT D ^CHMI S041 Q I $ D(CHMFPAUS ) D SETPD^ CHMFADR1 Q  ;I $D(CHM FEXIT) D Q  .;S FKIL= 1 .;D SETP ROD^CHMFAD R1 .;D KLO CK^CHMFADR 1 .;D DELS T1^CHMFADR 1 .;D SBOC RDY^CHMFAD R1 I $D(CH MFKIL) D   Q .S FKIL= 1 .D SETPR OD^CHMFADR 1 .D KLOCK ^CHMFADR1  .D DELST1^ CHMFADR1 . D SBOCRDY^ CHMFADR1 . S $P(^CHMI MG(CHMFPDI ,0),"^",3) ="" .S $P( ^CHMIMG(CH MFPDI,0)," ^",4)="" . I $D(^CHMI MG(CHMFPDI ,"PAUSE"))  K ^CHMIMG (CHMFPDI," PAUSE") I  $D(CHMFPDR V) D  G SO 0 .D KLOCK ^CHMFADR1  .D REMV^CH MFADR1 .D  DELST1^CHM FADR1 .D O CRKIL^CHMF ADR1 .S CH MFPP="PDIR ST2" D ^CH MFWK01 I $ D(DUOUT) D   Q .D KLO CK^CHMFADR 1 .D SBOCR DY^CHMFADR 1 .D DELST 1^CHMFADR1  .D REMV^C HMFADR1 I  $D(DFOUT)  D  Q .D KL OCK^CHMFAD R1 .D SBOC RDY^CHMFAD R1 .D DELS T1^CHMFADR 1 .D REMV^ CHMFADR1 Q SBOCR2 ;SB /CWVV OCR  claims sta rt here ;  S (PS,FKIL ,FIPAY,BAD ,CHMFPGNM, CHMFIMAG)= 0 S CHMFPD I="" D LST PDI^CHMFAD R1 D SETUP ^CHMFADR1  G:CHMFPDI' ="" SOCR20 1SOCR20 D  SETUP1^CHM FADR1 D ^C HMFPDO2 Q: $D(CHQUIT) SOCR201 S  ZZPDI=CHMF PDI S CHDO CID=$P(^CH MIMG(CHMFP DI,"DOC"), "^",1) S C HMFPP="SIP " D ^CHMFW K01 S $P(^ CHMIMG(CHM FPDI,0),"^ ",17)=4 S  $P(^CHMIMA GE(CHMFPDI ,0),"^",8) =1 D GETDA TA^CHMFA00 8SOCR21 D  ^CHMFA008  ;I $D(CHYE SFLG) D G  SOCR20 .;D  KLOCK^CHM FADR1 .;D  REMV^CHMFA DR1 .;D DE LST1^CHMFA DR1 .;D KI LALL^CHMFA DR1 .;S CH MQNAM="IMA GE(",CHMOU T=1 K CHMI N D ^CHMIS 041 Q I $D (CHMFBAD)  D  G SOCR2 0 .D KLOCK ^CHMFADR1  .D REMV^CH MFADR1 .D  DELST1^CHM FADR1 .D K ILALL^CHMF ADR1 .S CH MQNAM="IMA GE(",CHMOU T=1 K CHMI N D ^CHMIS 041 .S CHM QNAM="CHMB ADQ(",CHMI N=1 K CHMO UT D ^CHMI S041 Q ;I  $D(CHMFPS)  D G SOCR2 0 .;S PS=1 ,CHMFI=CHM FPDI,CHMFP P="SSPS" . ;D ^CHMFWK 01 .;D SET PROD^CHMFA DR1 .;D PS MSG^CHMFAD R1 .;D KLO CK^CHMFADR 1 .;D REMV ^CHMFADR1  .;D DELST1 ^CHMFADR1  .;D KILALL ^CHMFADR1  .;S CHMQNA M="IMAGE(" ,CHMOUT=1  K CHMIN D  ^CHMIS041  .;S CHMQNA M="CHMPSQ( ",CHMIN=1  K CHMOUT D  ^CHMIS041  Q I $D(CH MFPAUS) D  SETPD^CHMF ADR1 Q ;I  $D(CHMFEXI T) D Q .;S  FKIL=1 .; D SETPROD^ CHMFADR1 . ;D KLOCK^C HMFADR1 .; D DELST1^C HMFADR1 .; D SBOCR2DY ^CHMFADR1  I $D(CHMFK IL) D  Q . S FKIL=1 . D SETPROD^ CHMFADR1 . D KLOCK^CH MFADR1 .D  DELST1^CHM FADR1 .D S BOCR2DY^CH MFADR1 .S  $P(^CHMIMG (CHMFPDI,0 ),"^",3)=" " .S $P(^C HMIMG(CHMF PDI,0),"^" ,4)="" .I  $D(^CHMIMG (CHMFPDI," PAUSE")) K  ^CHMIMG(C HMFPDI,"PA USE") I $D (CHMFPDRV)  D  G SOCR 20 .D KLOC K^CHMFADR1  .D REMV^C HMFADR1 .D  DELST1^CH MFADR1 .D  OCRKIL^CHM FADR1 .S C HMFPP="PDI RST2" D ^C HMFWK01 I  $D(DUOUT)  D  Q .D KL OCK^CHMFAD R1 .D SBOC R2DY^CHMFA DR1 .D DEL ST1^CHMFAD R1 .D REMV ^CHMFADR1  I $D(DFOUT ) D  Q .D  KLOCK^CHMF ADR1 .D SB OCR2DY^CHM FADR1 .D D ELST1^CHMF ADR1 .D RE MV^CHMFADR 1 Q
  7  
  8   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)
  9  
  10   CHMFADR4 ; CVA/JLR;UT ILITY PROG RAM #3 FOR  IP DRIVER ;08/20/98  8:16 AM ;; 1.0;CHAMPV A SYSTEM;; JULY 4, 19 90;Build 3  – Remove  this line.
  11   ;V1.0 – Ad d this lin e. ;CFS 08 /09/2017 C PE005-004  Pull Curre nt and Ori gnal PDI N umbers. Ne w line tag s "OCRR" a nd "SBOCRR ". ;CFS 08 /09/2017 C PE005-004  Fix bug wi th Undefin ed errors  on variabl e CHDOCID.  ;CFS 10/0 1/2017 CPE 005-069 Ad d the Manu al EDI Re- open Doc I D Screen.  ;CFS 10/01 /2017 CPE0 05-071 Def ault CHMFT YPE to BIL L/INVOICE  for the Im age Type.   ;AJF 10/0 5/2017 CPE 005-033 Al low user t o Reject i f Original  PDI is no t validSCA N ;SCANNED  CLAIMS GO  HERE ; N  CHOSEN S ( PS,FKIL,FI PAY,BAD)=0  S CHMFPDI ="",CHOSEN =1 ;S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",2) ="" D LSTP DI^CHMFADR 1 D SETUP^ CHMFADR1 G :CHMFPDI'= "" S01S0 D  SETUP1^CH MFADR1 D ^ CHMFPDI Q: $D(CHQUIT) S01 S ZZPD I=CHMFPDI  S CHDOCID= $P($G(^CHM IMG(CHMFPD I,"DOC")), "^",1) ;CP E005-004   S CHMFPP=" SIP" D ^CH MFWK01 I $ D(^CHMIMG( CHMFPDI))  S $P(^CHMI MG(CHMFPDI ,0),"^",17 )=1 I $D(^ CHMIMAGE(C HMFPDI)) S  $P(^CHMIM AGE(CHMFPD I,0),"^",8 )=1S1 D ^C HMFA001 I  $D(CHYESFL G) D  G S0  .D KLOCK^ CHMFADR1 . D REMV^CHM FADR1 .D D ELST1^CHMF ADR1 .D KI LALL^CHMFA DR1 .S CHM QNAM="IMAG E(",CHMOUT =1 K CHMIN  D ^CHMIS0 41 Q I $D( CHMFBAD) D   G S0 .D  KLOCK^CHMF ADR1 .D RE MV^CHMFADR 1 .D DELST 1^CHMFADR1  .D KILALL ^CHMFADR1  .S CHMQNAM ="IMAGE(", CHMOUT=1 K  CHMIN D ^ CHMIS041 . S CHMQNAM= "CHMBADQ(" ,CHMIN=1 K  CHMOUT D  ^CHMIS041  Q I $D(CHM FPS) D  G  S0 .S PS=1 ,CHMFI=CHM FPDI,CHMFP P="SSPS" . D ^CHMFWK0 1 .D SETPR OD^CHMFADR 1 .D PSMSG ^CHMFADR1  .D KLOCK^C HMFADR1 .D  REMV^CHMF ADR1 .D DE LST1^CHMFA DR1 .D KIL ALL^CHMFAD R1 .S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN  D ^CHMIS04 1 .S CHMQN AM="CHMPSQ (",CHMIN=1  K CHMOUT  D ^CHMIS04 1 Q I $D(C HMFPAUS) D  SETPD^CHM FADR1 Q I  $D(CHMFKIL ) D  Q .S  FKIL=1 .D  SETPROD^CH MFADR1 .D  KLOCK^CHMF ADR1 .D KI LPDI^CHMFA DR1 .D DEL ST1^CHMFAD R1 .D READ Y^CHMFADR1  I $D(DUOU T) D  Q .D  KLOCK^CHM FADR1 .D R EADY^CHMFA DR1 .D DEL ST1^CHMFAD R1 .D REMV ^CHMFADR1  I $D(DFOUT ) D  Q .D  KLOCK^CHMF ADR1 .D RE ADY^CHMFAD R1 .D DELS T1^CHMFADR 1 .D REMV^ CHMFADR1 Q MANUAL ;Ma nually pro cessed cla ims start  here. ; Se t variable s to 0 or  nil N CHOS EN S (CHOS EN,PS,FKIL ,FIPAY,BAD )=0 S CHMF PDI="" ; L STPDI^CHMF ADR1 looks  for PDI's  currently  in "Pause " status.  ;S $P(^CHM DIC(741002 .21,DUZ,0) ,"^",2)=""  D LSTPDI^ CHMFADR1 D  SETUP^CHM FADR1 G:CH MFPDI'=""  M1M0 D SET UP1^CHMFAD R1M1 D ^CH MFA001 I $ D(CHYESFLG ) D  G M0  .D KLOCK^C HMFADR1 .D  REMV^CHMF ADR1 .D DE LST1^CHMFA DR1 .D KIL ALL^CHMFAD R1 .S CHMQ NAM="MANUA L(",CHMOUT =1 K CHMIN  D ^CHMIS0 41 Q I $D( CHMFBAD) D   G M0 .D  KLOCK^CHMF ADR1 .D RE MV^CHMFADR 1 .D DELST 1^CHMFADR1  .D KILALL ^CHMFADR1  .S CHMQNAM ="MANUAL(" ,CHMOUT=1  K CHMIN D  ^CHMIS041  .S CHMQNAM ="CHMBADQ( ",CHMIN=1  K CHMOUT D  ^CHMIS041  Q I $D(CH MFPS) D  G  M0 .S PS= 1,CHMFI=CH MFPDI,CHMF PP="SSPS"  .D ^CHMFWK 01 .D SETP ROD^CHMFAD R1 .D PSMS G^CHMFADR1  .D KLOCK^ CHMFADR1 . D REMV^CHM FADR1 .D D ELST1^CHMF ADR1 .D KI LALL^CHMFA DR1 .S CHM QNAM="MANU AL(",CHMOU T=1 K CHMI N D ^CHMIS 041 .S CHM QNAM="CHMP SQ(",CHMIN =1 K CHMOU T D ^CHMIS 041 Q I $D (CHMFPAUS)  D SETPD^C HMFADR1 Q  I $D(CHMFK IL) D  Q . S FKIL=1 . D SETPROD^ CHMFADR1 . D KLOCK^CH MFADR1 .D  KILPDI^CHM FADR1 .D D ELST1^CHMF ADR1 .D MA NL^CHMFADR 1 .D SKIP^ CHMFADR1 I  $D(DUOUT)  D  Q .D K LOCK^CHMFA DR1 .D MAN L^CHMFADR1  .D DELST1 ^CHMFADR1  .D REMV^CH MFADR1 I $ D(DFOUT) D   Q .D KLO CK^CHMFADR 1 .D MANL^ CHMFADR1 . D DELST1^C HMFADR1 .D  REMV^CHMF ADR1 Q ;OC R ;CHAMPVA  EDI claim s start he re. ; N CH OSEN S (PS ,FKIL,FIPA Y,BAD,CHMF PGNM,CHMFI MAG)=0 S C HMFPDI="", CHOSEN=2 ; S $P(^CHMD IC(741002. 21,DUZ,0), "^",2)=""  D LSTPDI^C HMFADR1 D  SETUP^CHMF ADR1 G:CHM FPDI'="" O 01O0 D SET UP1^CHMFAD R1 D ^CHMF PDIO Q:$D( CHQUIT)O01  S ZZPDI=C HMFPDI S C HDOCID=$P( $G(^CHMIMG (CHMFPDI," DOC")),"^" ,1) ;CPE00 5-004 S CH MFPP="SIP"  D ^CHMFWK 01 I $D(^C HMIMG(CHMF PDI)) S $P (^CHMIMG(C HMFPDI,0), "^",17)=4  I $D(^CHMI MAGE(CHMFP DI)) S $P( ^CHMIMAGE( CHMFPDI,0) ,"^",8)=1  D GETDATA^ CHMFA008O1  D ^CHMFA0 08 ;I $D(C HYESFLG) D  G O0 ;.;D  KLOCK^CHM FADR1 ;.;D  REMV^CHMF ADR1 ;.;D  DELST1^CHM FADR1 ;.;D  KILALL^CH MFADR1 ;.; S CHMQNAM= "IMAGE(",C HMOUT=1 K  CHMIN D ^C HMIS041 Q  I $D(CHMFB AD) D  G O 0 .D KLOCK ^CHMFADR1  .D REMV^CH MFADR1 .D  DELST1^CHM FADR1 .D K ILALL^CHMF ADR1 .S CH MQNAM="IMA GE(",CHMOU T=1 K CHMI N D ^CHMIS 041 .S CHM QNAM="CHMB ADQ(",CHMI N=1 K CHMO UT D ^CHMI S041 Q ;I  $D(CHMFPS)  D G O0 ;. ;S PS=1,CH MFI=CHMFPD I,CHMFPP=" SSPS" ;.;D  ^CHMFWK01  ;.;D SETP ROD^CHMFAD R1 ;.;D PS MSG^CHMFAD R1 ;.;D KL OCK^CHMFAD R1 ;.;D RE MV^CHMFADR 1 ;.;D DEL ST1^CHMFAD R1 ;.;D KI LALL^CHMFA DR1 ;.;S C HMQNAM="IM AGE(",CHMO UT=1 K CHM IN D ^CHMI S041 ;.;S  CHMQNAM="C HMPSQ(",CH MIN=1 K CH MOUT D ^CH MIS041 Q I  $D(CHMFPA US) D SETP D^CHMFADR1  Q ;I $D(C HMFEXIT) D  Q ;.;S FK IL=1 ;.;D  SETPROD^CH MFADR1 ;.; D KLOCK^CH MFADR1 ;.; D DELST1^C HMFADR1 ;. ;D OCRRDY^ CHMFADR1 I  $D(CHMFKI L) D  Q .S  FKIL=1 .D  SETPROD^C HMFADR1 .D  KLOCK^CHM FADR1 .D D ELST1^CHMF ADR1 .D OC RRDY^CHMFA DR1 .S $P( ^CHMIMG(CH MFPDI,0)," ^",3)="" . S $P(^CHMI MG(CHMFPDI ,0),"^",4) ="" .I $D( ^CHMIMG(CH MFPDI,"PAU SE")) K ^C HMIMG(CHMF PDI,"PAUSE ") I $D(CH MFPDRV) D   G O0 .D K LOCK^CHMFA DR1 .D REM V^CHMFADR1  .D DELST1 ^CHMFADR1  .D OCRKIL^ CHMFADR1 . S CHMFPP=" PDIRST2" D  ^CHMFWK01  I $D(DUOU T) D  Q .D  KLOCK^CHM FADR1 .D O CRRDY^CHMF ADR1 .D DE LST1^CHMFA DR1 .D REM V^CHMFADR1  I $D(DFOU T) D  Q .D  KLOCK^CHM FADR1 .D O CRRDY^CHMF ADR1 .D DE LST1^CHMFA DR1 .D REM V^CHMFADR1  QOCR2 ;CH AMPVA OCR  claims sta rt here. ;  N CHOSEN  S (PS,FKIL ,FIPAY,BAD ,CHMFPGNM, CHMFIMAG)= 0 S CHMFPD I="",CHOSE N=4 ;S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",2 )="" D LST PDI^CHMFAD R1 D SETUP ^CHMFADR1  G:CHMFPDI' ="" OCR201 OCR20 D SE TUP1^CHMFA DR1 D ^CHM FPDO1 Q:$D (CHQUIT)OC R201 S ZZP DI=CHMFPDI  S CHDOCID =$P($G(^CH MIMG(CHMFP DI,"DOC")) ,"^",1) ;C PE005-004  S CHMFPP=" SIP" D ^CH MFWK01 I $ D(^CHMIMG( CHMFPDI))  S $P(^CHMI MG(CHMFPDI ,0),"^",17 )=4 I $D(^ CHMIMAGE(C HMFPDI)) S  $P(^CHMIM AGE(CHMFPD I,0),"^",8 )=1 D GETD ATA^CHMFA0 08OCR21 D  ^CHMFA008  ;I $D(CHYE SFLG) D G  OCR20 ;.;D  KLOCK^CHM FADR1 ;.;D  REMV^CHMF ADR1 ;.;D  DELST1^CHM FADR1 ;.;D  KILALL^CH MFADR1 ;.; S CHMQNAM= "IMAGE(",C HMOUT=1 K  CHMIN D ^C HMIS041 Q  I $D(CHMFB AD) D  G O CR20 .D KL OCK^CHMFAD R1 .D REMV ^CHMFADR1  .D DELST1^ CHMFADR1 . D KILALL^C HMFADR1 .S  CHMQNAM=" IMAGE(",CH MOUT=1 K C HMIN D ^CH MIS041 .S  CHMQNAM="C HMBADQ(",C HMIN=1 K C HMOUT D ^C HMIS041 Q  ;I $D(CHMF PS) D G OC R20 ;.;S P S=1,CHMFI= CHMFPDI,CH MFPP="SSPS " ;.;D ^CH MFWK01 ;.; D SETPROD^ CHMFADR1 ; .;D PSMSG^ CHMFADR1 ; .;D KLOCK^ CHMFADR1 ; .;D REMV^C HMFADR1 ;. ;D DELST1^ CHMFADR1 ; .;D KILALL ^CHMFADR1  ;.;S CHMQN AM="IMAGE( ",CHMOUT=1  K CHMIN D  ^CHMIS041  ;.;S CHMQ NAM="CHMPS Q(",CHMIN= 1 K CHMOUT  D ^CHMIS0 41 Q I $D( CHMFPAUS)  D SETPD^CH MFADR1 Q ; I $D(CHMFE XIT) D Q ; .;S FKIL=1  ;.;D SETP ROD^CHMFAD R1 ;.;D KL OCK^CHMFAD R1 ;.;D DE LST1^CHMFA DR1 ;.;D O CR2RDY^CHM FADR1 I $D (CHMFKIL)  D  Q .S FK IL=1 .D SE TPROD^CHMF ADR1 .D KL OCK^CHMFAD R1 .D DELS T1^CHMFADR 1 .D OCR2R DY^CHMFADR 1 .S $P(^C HMIMG(CHMF PDI,0),"^" ,3)="" .S  $P(^CHMIMG (CHMFPDI,0 ),"^",4)=" " .I $D(^C HMIMG(CHMF PDI,"PAUSE ")) K ^CHM IMG(CHMFPD I,"PAUSE")  I $D(CHMF PDRV) D  G  OCR20 .D  KLOCK^CHMF ADR1 .D RE MV^CHMFADR 1 .D DELST 1^CHMFADR1  .D OCRKIL ^CHMFADR1  .S CHMFPP= "PDIRST2"  D ^CHMFWK0 1 I $D(DUO UT) D  Q . D KLOCK^CH MFADR1 .D  OCR2RDY^CH MFADR1 .D  DELST1^CHM FADR1 .D R EMV^CHMFAD R1 I $D(DF OUT) D  Q  .D KLOCK^C HMFADR1 .D  OCR2RDY^C HMFADR1 .D  DELST1^CH MFADR1 .D  REMV^CHMFA DR1 QSBOCR  ;SB/CWVV  EDI claims  start her e. ; N CHO SEN S (PS, FKIL,FIPAY ,BAD,CHMFP GNM,CHMFIM AG)=0 S CH MFPDI="",C HOSEN=3 ;S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",2)="" D  LSTPDI^CH MFADR1 D S ETUP^CHMFA DR1 G:CHMF PDI'="" SO 01SO0 D SE TUP1^CHMFA DR1 D ^CHM FPDIS Q:$D (CHQUIT)SO 01 S ZZPDI =CHMFPDI S  CHDOCID=$ P($G(^CHMI MG(CHMFPDI ,"DOC"))," ^",1) ;CPE 005-004 S  CHMFPP="SI P" D ^CHMF WK01 I $D( ^CHMIMG(CH MFPDI)) S  $P(^CHMIMG (CHMFPDI,0 ),"^",17)= 4 I $D(^CH MIMAGE(CHM FPDI)) S $ P(^CHMIMAG E(CHMFPDI, 0),"^",8)= 1 D GETDAT A^CHMFA008 SO1 D ^CHM FA008 ;I $ D(CHYESFLG ) D G SO0  ;.;D KLOCK ^CHMFADR1  ;.;D REMV^ CHMFADR1 ; .;D DELST1 ^CHMFADR1  ;.;D KILAL L^CHMFADR1  ;.;S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN  D ^CHMIS04 1 Q I $D(C HMFBAD) D   G SO0 .D  KLOCK^CHMF ADR1 .D RE MV^CHMFADR 1 .D DELST 1^CHMFADR1  .D KILALL ^CHMFADR1  .S CHMQNAM ="IMAGE(", CHMOUT=1 K  CHMIN D ^ CHMIS041 . S CHMQNAM= "CHMBADQ(" ,CHMIN=1 K  CHMOUT D  ^CHMIS041  Q ;I $D(CH MFPS) D G  SO0 ;.;S P S=1,CHMFI= CHMFPDI,CH MFPP="SSPS " – Add se micolon. ; .;D ^CHMFW K01 ;.;D S ETPROD^CHM FADR1 ;.;D  PSMSG^CHM FADR1 ;.;D  KLOCK^CHM FADR1 ;.;D  REMV^CHMF ADR1 ;.;D  DELST1^CHM FADR1 ;.;D  KILALL^CH MFADR1 ;.; S CHMQNAM= "IMAGE(",C HMOUT=1 K  CHMIN D ^C HMIS041 ;. ;S CHMQNAM ="CHMPSQ(" ,CHMIN=1 K  CHMOUT D  ^CHMIS041  Q I $D(CHM FPAUS) D S ETPD^CHMFA DR1 Q ;I $ D(CHMFEXIT ) D Q ;.;S  FKIL=1 ;. ;D SETPROD ^CHMFADR1  ;.;D KLOCK ^CHMFADR1  ;.;D DELST 1^CHMFADR1  ;.;D SBOC RDY^CHMFAD R1 I $D(CH MFKIL) D   Q .S FKIL= 1 .D SETPR OD^CHMFADR 1 .D KLOCK ^CHMFADR1  .D DELST1^ CHMFADR1 . D SBOCRDY^ CHMFADR1 . S $P(^CHMI MG(CHMFPDI ,0),"^",3) ="" .S $P( ^CHMIMG(CH MFPDI,0)," ^",4)="" . I $D(^CHMI MG(CHMFPDI ,"PAUSE"))  K ^CHMIMG (CHMFPDI," PAUSE") I  $D(CHMFPDR V) D  G SO 0 .D KLOCK ^CHMFADR1  .D REMV^CH MFADR1 .D  DELST1^CHM FADR1 .D O CRKIL^CHMF ADR1 .S CH MFPP="PDIR ST2" D ^CH MFWK01 I $ D(DUOUT) D   Q .D KLO CK^CHMFADR 1 .D SBOCR DY^CHMFADR 1 .D DELST 1^CHMFADR1  .D REMV^C HMFADR1 I  $D(DFOUT)  D  Q .D KL OCK^CHMFAD R1 .D SBOC RDY^CHMFAD R1 .D DELS T1^CHMFADR 1 .D REMV^ CHMFADR1 Q SBOCR2 ;SB /CWVV OCR  claims sta rt here ;  N CHOSEN S  (PS,FKIL, FIPAY,BAD, CHMFPGNM,C HMFIMAG)=0  S CHMFPDI ="",CHOSEN =5 ;S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",2) ="" D LSTP DI^CHMFADR 1 D SETUP^ CHMFADR1 G :CHMFPDI'= "" SOCR201 SOCR20 D S ETUP1^CHMF ADR1 D ^CH MFPDO2 Q:$ D(CHQUIT)S OCR201 S Z ZPDI=CHMFP DI S CHDOC ID=$P($G(^ CHMIMG(CHM FPDI,"DOC" )),"^",1)  ;CPE005-00 4 S CHMFPP ="SIP" D ^ CHMFWK01 I  $D(^CHMIM G(CHMFPDI) ) S $P(^CH MIMG(CHMFP DI,0),"^", 17)=4 I $D (^CHMIMAGE (CHMFPDI))  S $P(^CHM IMAGE(CHMF PDI,0),"^" ,8)=1 D GE TDATA^CHMF A008SOCR21  D ^CHMFA0 08 ;I $D(C HYESFLG) D  G SOCR20  ;.;D KLOCK ^CHMFADR1  ;.;D REMV^ CHMFADR1 ; .;D DELST1 ^CHMFADR1  ;.;D KILAL L^CHMFADR1  ;.;S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN  D ^CHMIS04 1 Q I $D(C HMFBAD) D   G SOCR20  .D KLOCK^C HMFADR1 .D  REMV^CHMF ADR1 .D DE LST1^CHMFA DR1 .D KIL ALL^CHMFAD R1 .S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN  D ^CHMIS04 1 .S CHMQN AM="CHMBAD Q(",CHMIN= 1 K CHMOUT  D ^CHMIS0 41 Q ;I $D (CHMFPS) D  G SOCR20  ;.;S PS=1, CHMFI=CHMF PDI,CHMFPP ="SSPS" ;. ;D ^CHMFWK 01 ;.;D SE TPROD^CHMF ADR1 ;.;D  PSMSG^CHMF ADR1 ;.;D  KLOCK^CHMF ADR1 ;.;D  REMV^CHMFA DR1 ;.;D D ELST1^CHMF ADR1 ;.;D  KILALL^CHM FADR1 ;.;S  CHMQNAM=" IMAGE(",CH MOUT=1 K C HMIN D ^CH MIS041 ;.; S CHMQNAM= "CHMPSQ(", CHMIN=1 K  CHMOUT D ^ CHMIS041 Q  I $D(CHMF PAUS) D SE TPD^CHMFAD R1 Q ;I $D (CHMFEXIT)  D Q ;.;S  FKIL=1 ;.; D SETPROD^ CHMFADR1 ; .;D KLOCK^ CHMFADR1 ; .;D DELST1 ^CHMFADR1  ;.;D SBOCR 2DY^CHMFAD R1 I $D(CH MFKIL) D   Q .S FKIL= 1 .D SETPR OD^CHMFADR 1 .D KLOCK ^CHMFADR1  .D DELST1^ CHMFADR1 . D SBOCR2DY ^CHMFADR1  .S $P(^CHM IMG(CHMFPD I,0),"^",3 )="" .S $P (^CHMIMG(C HMFPDI,0), "^",4)=""  .I $D(^CHM IMG(CHMFPD I,"PAUSE") ) K ^CHMIM G(CHMFPDI, "PAUSE") I  $D(CHMFPD RV) D  G S OCR20 .D K LOCK^CHMFA DR1 .D REM V^CHMFADR1  .D DELST1 ^CHMFADR1  .D OCRKIL^ CHMFADR1 . S CHMFPP=" PDIRST2" D  ^CHMFWK01  I $D(DUOU T) D  Q .D  KLOCK^CHM FADR1 .D S BOCR2DY^CH MFADR1 .D  DELST1^CHM FADR1 .D R EMV^CHMFAD R1 I $D(DF OUT) D  Q  .D KLOCK^C HMFADR1 .D  SBOCR2DY^ CHMFADR1 . D DELST1^C HMFADR1 .D  REMV^CHMF ADR1 Q OCR R ;CHV EDI  Re-Open C laims star t here. --  CPE005-00 4 ; N CHOS EN,VALOPDI ,CHREJ S C HOSEN=6 K  CHMFPREV S  (PS,FKIL, FIPAY,BAD, CHMFPGNM,C HMFIMAG,VA LOPDI)=0 S  CHMFPDI=" " D LSTPDI ^CHMFADR1  D SETUP^CH MFADR1 G:C HMFPDI'=""  CR01CRO0  D SETUP1^C HMFADR1 D  ^CHMFPDO3  Q:$D(CHQUI T)CR01 ;   I CHMOPDI= "" S CHMOP DI=$P($G(^ CHMIMG(CHM FPDI,"E-RE OPEN")),"^ ") S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",2)= $G(CHMOPDI ) S CHDOCI D=$P($G(^C HMIMG(CHMF PDI,"DOC") ),"^",1) S  CHMFPP="S IP" D ^CHM FWK01 I $D (^CHMIMG(C HMFPDI)) S  $P(^CHMIM G(CHMFPDI, 0),"^",17) =4 I $D(^C HMIMAGE(CH MFPDI)) S  $P(^CHMIMA GE(CHMFPDI ,0),"^",8) =1 D GETDA TA^CHMFA00 8 S CHMFIM TY=1,CHMFT YPE="BILL/ INVOICE" ; BDB 051720 17CH1 D ^C HMFA008 I  $D(CHMFBAD ) D  G CRO 0 .D KLOCK ^CHMFADR1  .D REMV^CH MFADR1 .D  DELST1^CHM FADR1 .D K ILALL^CHMF ADR1 .S CH MQNAM="IMA GE(",CHMOU T=1 K CHMI N D ^CHMIS 041 .S CHM QNAM="CHMB ADQ(",CHMI N=1 K CHMO UT D ^CHMI S041 Q I $ D(CHMFPAUS ) D SETPD^ CHMFADR1 Q  I $D(CHMF KIL) D  Q  .;AJF 10/0 5/2017 CPE 005-033 .N  CHMFTOB . S CHMFTOB= $$TOB^CHMF ADR2(CHMFP DI,CHMFPGN M,CHMFIMAG ) .I $E(CH MFTOB,3)=8  D CHRJ Q: $D(CHREJ)  .S FKIL=1  .D SETPROD ^CHMFADR1  .D KLOCK^C HMFADR1 .D  DELST1^CH MFADR1 .D  OCRRRDY^CH MFADR1 .S  $P(^CHMIMG (CHMFPDI,0 ),"^",3)=" " .S $P(^C HMIMG(CHMF PDI,0),"^" ,4)="" .I  $D(^CHMIMG (CHMFPDI," PAUSE")) K  ^CHMIMG(C HMFPDI,"PA USE") I $D (CHMFPDRV)  D  G CRO0  .D KLOCK^ CHMFADR1 . D REMV^CHM FADR1 .D D ELST1^CHMF ADR1 .D OC RKIL^CHMFA DR1 .S CHM FPP="PDIRS T2" D ^CHM FWK01 I $D (DUOUT) D   Q .D KLOC K^CHMFADR1  .D OCRRRD Y^CHMFADR1  .D DELST1 ^CHMFADR1  .D REMV^CH MFADR1 I $ D(DFOUT) D   Q .D KLO CK^CHMFADR 1 .D OCRRR DY^CHMFADR 1 .D DELST 1^CHMFADR1  .D REMV^C HMFADR1 QS BOCRR ;SB/ CWVV EDI R e-open cla ims start  here. -- C PE005-004  ; N CHOSEN ,VALOPDI,C HREJ S CHO SEN=7 K CH MFPREV S ( PS,FKIL,FI PAY,BAD,CH MFPGNM,CHM FIMAG,VALO PDI)=0 S ( CHMFPDI,CH MOPDI)=""  D LSTPDI^C HMFADR1 D  SETUP^CHMF ADR1 G:CHM FPDI'="" S B01SB0 D S ETUP1^CHMF ADR1 D ^CH MFPDO4 Q:$ D(CHQUIT)S B01 ; I CH MOPDI="" S  CHMOPDI=$ P($G(^CHMI MG(CHMFPDI ,"E-REOPEN ")),"^") S  $P(^CHMDI C(741002.2 1,DUZ,0)," ^",2)=$G(C HMOPDI) S  CHDOCID=$P ($G(^CHMIM G(CHMFPDI, "DOC")),"^ ",1) S CHM FPP="SIP"  D ^CHMFWK0 1 I $D(^CH MIMG(CHMFP DI)) S $P( ^CHMIMG(CH MFPDI,0)," ^",17)=4 I  $D(^CHMIM AGE(CHMFPD I)) S $P(^ CHMIMAGE(C HMFPDI,0), "^",8)=1 D  GETDATA^C HMFA008 S  CHMFIMTY=1 ,CHMFTYPE= "BILL/INVO ICE" ;BDB  05172017SB 1 D ^CHMFA 008 I $D(C HMFBAD) D   G SB0 .D  KLOCK^CHMF ADR1 .D RE MV^CHMFADR 1 .D DELST 1^CHMFADR1  .D KILALL ^CHMFADR1  .S CHMQNAM ="IMAGE(", CHMOUT=1 K  CHMIN D ^ CHMIS041 . S CHMQNAM= "CHMBADQ(" ,CHMIN=1 K  CHMOUT D  ^CHMIS041  Q I $D(CHM FPAUS) D S ETPD^CHMFA DR1 Q I $D (CHMFKIL)  D  Q .;AJF  10/05/201 7 CPE005-0 33  .N CHM FTOB .S CH MFTOB=$$TO B^CHMFADR2 (CHMFPDI,C HMFPGNM,CH MFIMAG) .I  $E(CHMFTO B,3)=8 D C HRJ Q:$D(C HREJ) .S F KIL=1 .D S ETPROD^CHM FADR1 .D K LOCK^CHMFA DR1 .D DEL ST1^CHMFAD R1 .D SBOC RRDY^CHMFA DR1 .S $P( ^CHMIMG(CH MFPDI,0)," ^",3)="" . S $P(^CHMI MG(CHMFPDI ,0),"^",4) ="" .I $D( ^CHMIMG(CH MFPDI,"PAU SE")) K ^C HMIMG(CHMF PDI,"PAUSE ") I $D(CH MFPDRV) D   G SB0 .D  KLOCK^CHMF ADR1 .D RE MV^CHMFADR 1 .D DELST 1^CHMFADR1  .D OCRKIL ^CHMFADR1  .S CHMFPP= "PDIRST2"  D ^CHMFWK0 1 I $D(DUO UT) D  Q . D KLOCK^CH MFADR1 .D  SBOCRRDY^C HMFADR1 .D  DELST1^CH MFADR1 .D  REMV^CHMFA DR1 I $D(D FOUT) D  Q  .D KLOCK^ CHMFADR1 . D SBOCRRDY ^CHMFADR1  .D DELST1^ CHMFADR1 . D REMV^CHM FADR1 Q ;M ANUALR ;Ma nual EDI R e-Open pro cessed cla ims start  here. CPE0 05-069 ; S et variabl es to 0 or  nil N CHO SEN,VALOPD I S (PS,FK IL,FIPAY,B AD)=0 S (C HMFPDI,CHM OPDI)="" S  CHOSEN=8  ; LSTPDI^C HMFADR1 lo oks for PD I's curren tly in "Pa use" statu s. D LSTPD I^CHMFADR1  D SETUP^C HMFADR1 G: CHMFPDI'=" " MR1MR0 D  SETUP1^CH MFADR1MR1  S CHMFIMTY =1,CHMFTYP E="BILL/IN VOICE"  ;C PE005-071   D ^CHMFA0 01 I $D(CH YESFLG) D   G M0 .D K LOCK^CHMFA DR1 .D REM V^CHMFADR1  .D DELST1 ^CHMFADR1  .D KILALL^ CHMFADR1 . S CHMQNAM= "MANUAL(", CHMOUT=1 K  CHMIN D ^ CHMIS041 Q  I $D(CHMF BAD) D  G  M0 .D KLOC K^CHMFADR1  .D REMV^C HMFADR1 .D  DELST1^CH MFADR1 .D  KILALL^CHM FADR1 .S C HMQNAM="MA NUAL(",CHM OUT=1 K CH MIN D ^CHM IS041 .S C HMQNAM="CH MBADQ(",CH MIN=1 K CH MOUT D ^CH MIS041 Q I  $D(CHMFPS ) D  G M0  .S PS=1,CH MFI=CHMFPD I,CHMFPP=" SSPS" .D ^ CHMFWK01 . D SETPROD^ CHMFADR1 . D PSMSG^CH MFADR1 .D  KLOCK^CHMF ADR1 .D RE MV^CHMFADR 1 .D DELST 1^CHMFADR1  .D KILALL ^CHMFADR1  .S CHMQNAM ="MANUAL(" ,CHMOUT=1  K CHMIN D  ^CHMIS041  .S CHMQNAM ="CHMPSQ(" ,CHMIN=1 K  CHMOUT D  ^CHMIS041  Q I $D(CHM FPAUS) D S ETPD^CHMFA DR1 Q I $D (CHMFKIL)  D  Q .S FK IL=1 .D SE TPROD^CHMF ADR1 .D KL OCK^CHMFAD R1 .D KILP DI^CHMFADR 1 .D DELST 1^CHMFADR1  .D MANL^C HMFADR1 .D  SKIP^CHMF ADR1 I $D( DUOUT) D   Q .D KLOCK ^CHMFADR1  .D MANL^CH MFADR1 .D  DELST1^CHM FADR1 .D R EMV^CHMFAD R1 I $D(DF OUT) D  Q  .D KLOCK^C HMFADR1 .D  MANL^CHMF ADR1 .D DE LST1^CHMFA DR1 .D REM V^CHMFADR1  QCHRJ ;Pr ocess for  Rejecting  invalid PD I ;AJF 10/ 05/2017 CP E005-033   N CHR,DIC, DA,X,DA,DL AYGO S DY= 15,DX=20 X  XY W "Do  you want t o reject t his PDI? ( Y/N) //No  " R CHR:10  Q:$E($$UP ^XLFSTR($G (CHR)),1)' ="Y" D CST AT^CHMXPUT L(CHMFPDI, "F2:464:73 6") ;FIND  IEN for CH MXCLE Buff er file S  J1=$Q(^CHM XCLE("PDI" ,CHMFPDI)) ,J2=$TR(J1 ,"""","*") ,J3=$P(J2, "*",9) ;Ad d E33a Err or code to  this PDI  S DIC="^CH MXCLE("_J3 _",101,",D A(1)=J3,DI C(0)="L",D LAYGO=7412 10.12,X=10 6 D FILE^D ICN ;CHRJ2  ; Reject  PDI S FKIL =1,CHREJ=1  D SETPROD ^CHMFADR1  D KLOCK^CH MFADR1 D D ELST1^CHMF ADR1 ; Q
  12  
  13  
  14  
  15   Difference s
  16  
  17   See highli ghted info  above.
  18  
  19  
  20   Passed XIN DEX?  (Y /  N):  Y