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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 40 |
Changed | 0 | 0 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.