Produced by Araxis Merge on 12/7/2017 6:27:49 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 | CHMFADR1 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 | CHMFADR1 Developer Form.docx | Thu Dec 7 22:47:19 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: _____ CHMFADR1__ ___ | |
2 | Developer Name(s): _________C indy Stile s_____ | |
3 | Associated User Stor y/Stories: ______ CPE005-051 and 069 | |
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 | CHMFADR1 ; PJU/DEN;UT ILITY PROG RAM # 1 FO R MAIN DRI VER;08/20/ 98 8:16 AM ;V2.0;; ; CPTS #1498 9 (RLC) ;S UBROUTINES CALLED IN DRIVER ;B ATCH ; I ' $D(CHBTCHN O) S CHBTC HNO=$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",6) Q :CHBTCHNO= "" I $$BTC HST^CHMFAB U3(CHBTCHN O)=1 D .S $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",6)="" .S CHMFI=CHB TCHNO,CHMF PP="BATCLS D" .S $P(^ CHMIMPB(CH BTCHNO,0), "^",6)="" .D ^CHMFWK 03 .S J=0 .F S J=$O (^CHMIMPB( CHBTCHNO,1 00,J)) Q:' J I $D(^C HMIMPB(CHB TCHNO,100, J,0)) I ($ P(^(0),"^" ,3)=2)!($P (^(0),"^", 3)=3) S CH MFPDI=$P(^ (0),"^",1) D SETPROD ^CHMFIMG . S CHBTCHNO ="" QCOUNT S CLCT=0C O1 S CLCT= $O(CHMFCLM S(CLCT)) Q :CLCT="" S CHMQNAM=" CHMPAY(",C HMIN="" K CHOUT D ^C HMIS041 G CO1LSTPDI ; If the D UZ is unkn own, print error mes sage to sc reen and q uit I '$D( ^CHMDIC(74 1002.21,DU Z,0)) D NO USE S CHQU IT=1 Q ; D etermine w hat the la st PDI ent ered by th e user was . S LSTPDI =$P(^CHMDI C(741002.2 1,DUZ,0)," ^",5) ; If LSTPDI is not nil, do the fol lowing. Ot herwise re turn to MA NUAL^CHMFA DR4 I LSTP DI'="" D . S CHMFPDI= LSTPDI ; M ove the va lue of LST PDI to CHM FPDI .S CH MFNMPG=$P( ^CHMIMG(CH MFPDI,0)," ^",2) .K ^ CHMIMG("RE ADY",CHMFP DI) .K ^CH MIMG("OCR- READY",CHM FPDI) .K ^ CHMIMG("SB OCR-READY" ,CHMFPDI) .K ^CHMIMG ("OCR2-REA DY",CHMFPD I) .K ^CHM IMG("SBOCR 2-READY",C HMFPDI) .D PAUSE ; R eturn to M ANUAL^CHMF ADR4 QPAUS E S PAUSDT ="" D NOW^ %DTC ; Sea rch for pa used PDI's P1 S PAUSD T=$O(^CHMI MG(CHMFPDI ,"PAUSE",P AUSDT)) Q: 'PAUSDT G: '$D(^CHMIM G(CHMFPDI, "PAUSE",PA USDT,0)) P 1 ; Set PA USEDT to t he date/ti me stored in piece 3 of ^CHMIM G(I,"PAUSE ",J,0) S P AUSEDT=$P( ^CHMIMG(CH MFPDI,"PAU SE",PAUSDT ,0),"^",3) ; If PAUS EDT is nil , set it t o the curr ent date/t ime retrie ved from N OW^%DTC an d quit I P AUSEDT="" S $P(^CHMI MG(CHMFPDI ,"PAUSE",P AUSDT,0)," ^",3)=% Q G P1NOUSE W !!,"USER NOT DEFIN ED IN THE CHAMPVA US ER FILE!" QSETUP ; K ill the fo llowing va riables K CHMFBN,CHN EWPG ; TOP ^CHMFA100 formats th e top of t he screen D TOP^CHMF A100 ; BOT T^CHMFA100 formats t he bottom of the scr een D BOTT ^CHMFA100 S DTM=4,DB M=20 X CHM AR ; If th ere is no DUZ, do ER R1 and qui t I '$D(DU Z) D ERR1 Q S CHMFDU Z=DUZ S CH USER="UNKN OWN" I DUZ '="" S:$D( ^VA(200,DU Z,0)) CHUS ER=$P(^VA( 200,DUZ,0) ,"^",1) QS ETUP1 K F6 ,CHMFFIN,C HNOFLAG,CH YESFLG,R1, R2,R3,R4,R 7,CHMFKIL, CHMFC,CHMF PS S (CHMF PDI,CHMFIM AG,CHMFIMT Y,CHMFIMNM ,CHMFNMPG, CHMFPGNM,C HMFTYPE)=" " S (F1,CH MFIMCT,CHM FPGCT)="" QPSMSG Q ; SEND TO P SQ REMOVED . CALL WAS ROUTINE C HMG172A ;K LOCK I $D( CHMFPDI) K :CHMFPDI'= "" ^CHMIMA GE("LOCK", CHMFPDI) Q NEWPG D TO P^CHMFA100 D BOTT^CH MFA100 S D TM=4,DBM=2 0 X CHMAR Q REMV D R EMV^CHMFPD I QREMV1 D REMV1^CHM FPDI QDELS T1 Q:'$D(^ CHMDIC(741 002.21,DUZ ,0)) S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",5 )="" QSETP D Q:'$D(^C HMDIC(7410 02.21,DUZ, 0)) Q:CHMF PDI="" S $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,5)=CHMFPD I I $D(CHB TCHNO) I C HBTCHNO'=" " S $P(^CH MIMPB(CHBT CHNO,0),"^ ",6)="" S JPD=99999 S JPD=$O(^ CHMIMG(CHM FPDI,"PAUS E",JPD),-1 ) I JPD="" S JPD=0 S JPD=JPD+1 D NOW^%DT C S $P(^CH MIMG(CHMFP DI,"PAUSE" ,JPD,0),"^ ",1)=% S $P(^CHMIMG (CHMFPDI," PAUSE",JPD ,0),"^",2) =DUZ K JPD QSKIP S P DIJ=0 Q:'$ D(CHBTCHNO ) Q:'CHBTC HNOSK1 S P DIJ=$O(^CH MIMPB(CHBT CHNO,100,P DIJ)) Q:'P DIJ G:'$D( ^CHMIMPB(C HBTCHNO,10 0,PDIJ,0)) SK1 G:$P( ^(0),"^",3 )'=5 SK1 S $P(^(0)," ^",3)=0 G SK1READY Q :'$D(CHMFP DI) Q:CHMF PDI="" Q:' $D(^CHMIMG (CHMFPDI," DOC")) S:$ D(CHDOCID) ^CHMIMG(" READY",CHM FPDI)="" Q OCRRDY ;FO R CHAMPVA EDI CLAIMS Q:'$D(CHM FPDI) Q:CH MFPDI="" S ^CHMIMG(" OCR-READY" ,CHMFPDI)= "" ;NEXT L INE FOR SY STEM STATI STICS -- A DD ONE TO EDI/OCR ;S CHMQNAM=" EDI/OCR",C HMIN="" K CHMOUT D ^ CHMIS041 Q OCR2RDY ;F OR CHAMPVA OCR CLAIM S Q:'$D(CH MFPDI) Q:C HMFPDI="" S ^CHMIMG( "OCR2-READ Y",CHMFPDI )="" ;NEXT LINE FOR SYSTEM STA TISTICS -- ADD ONE T O EDI/OCR ;S CHMQNAM ="EDI/OCR" ,CHMIN="" K CHMOUT D ^CHMIS041 QSBOCRDY ;FOR SB/CW VV EDI CLA IMS Q:'$D( CHMFPDI) Q :CHMFPDI=" " S ^CHMIM G("SBOCR-R EADY",CHMF PDI)="" ;N EXT LINE F OR SYSTEM STATISTICS -- ADD ON E TO EDI/O CR ;S CHMQ NAM="EDI/O CR",CHMIN= "" K CHMOU T D ^CHMIS 041 QSBOCR 2DY ;FOR S B/CWVV OCR CLAIMS Q: '$D(CHMFPD I) Q:CHMFP DI="" S ^C HMIMG("SBO CR2-READY" ,CHMFPDI)= "" ;NEXT L INE FOR SY STEM STATI STICS -- A DD ONE TO EDI/OCR ;S CHMQNAM=" EDI/OCR",C HMIN="" K CHMOUT D ^ CHMIS041 Q MANL Q:'$D (CHMFPDI) Q:CHMFPDI= "" S ^CHMI MG("MANUAL ",CHMFPDI) ="" QERR1 ; Print ou t error me ssage to t erminal an d quit pro gram. S DY =5,DX=10 X XY W "Use r is unkno wn to syst em",@CHEOL S DY=6,DX =10 X XY W "Please L og onto te rminal aga in",@CHEOL R RD:2 QK ILALL K A, BFN,CH,CHC TRD,CHCTRO ,CHMFCLMS, CHMCL,DFN, CHBENNM,VF N,CHMVEN,C HMFCORR K CHMFACCN,C HMFAMNT,CH MFASDT,CHM FASS,CHMFB FN,CHMFC,C HMFCLIN,CH MBEN K CHM FCOMM,CHMF CONT,CHMFC OR,CHMFDAT E,CHMFDAYS ,CHMFDCBN, CHMFDCVN K CHMFDFN,C HMFELIG,CH MFFIN,CHMF FL,CHMFFL1 ,CHMFHCPC, CHMFICD9,C HMFIMAG K CHMFIMCT,C HMFIMNM,CH MFIMTY,CHM FINCT,CHMF INTC,CHMFI NVD,CHMFIN VN K CHMFK IL,CHMFLIS T,CHMFLOC, CHMFNMPG,C HMFOUT,CHM FPDI,CHMFP GCT,CHMFPG NM K CHMFP LAC,CHMFPL PT,CHMFPRC T,CHMFPS,C HMFPSBN,CH MFREDO,CHM FREF,CHMFS AME K CHMF SVTY,CHMFT ERM,CHMFTM BG,CHMFTYP E,CHMFQUIT ,CHNB,CHSA ME,CHSDX,C HSDY K CHT ,CHTY,CHUP ,DBM,DF,DF 1,DFN,DFOU T,DIC,DLAY GO,DR,DTM, F1,F2,FLAG 4,J K K,HD A,HLD,HTYP E,IV,NM,NW ,PDIFL,SFL ,SURFACE,C HFARM,TOOT H,TY,QU,VE N K VFN,X, XPLUS,ZCT, ZICN,CHMCC RFG,CHRXN, CHNDC,CHRX D,CHRXDP,C HPSN,CHQNT K CHBAMT, CHICD9,CHG NIND,CHICD S9,CHDFL,I CD,CHMFGO, CHLTG,ZY,Z X,DY,DX K CHUP,CHUPS ,CHDOWN,CH DOWNS,CHSA ME,CHOUT,C HSDX,CHSDY ,CHANSW,CH LG K CHMFQ UIT,CHT,DD OUT,X,Y,ZS TN,CHREDO, ZSTF,ZTM,Z BMK,CHPTC, CHEKR,CHHD FN K CHHBF N,CHOUTER, CHENTRE,CH FCT,CHFIFL AG,CMENTR, CHMFEDIT,C HMFENTR K CHPPX,CHOU TR,CHGNIND ,L9,M,M1,P RXD,STEFL, Y9,TL,FLAG ,FLAG1,FLA G2,FLAG3 K FLAG4,S1, Y1,Y2,AN,L ,N,M9,M8,C HMFCOT,CH9 ,CH99,CHCT L1,CHJ,CHJ J,CHKILR K CHKIR,CHN UMBR,CHP,C HPZ,CHSCT, CHSCTS,CHS CTS1,CHST1 ,HIP,PCHMF H K CHMFBA SC,PV,CHVE NNM,CHBEN, CHBTCHNO,C HTOBIL,A1, AA,ASKFL,A SS,BAD,BL K BLNK1,BL NK2,BN,C,C FL,CHASSGN ,CHCODE,CH COMFL,CHDE F,CHDTA,CH HDT,CHIBTC H K CHINGO R,CHMCCR,C HFMCLNM,CH MFI,CHMFNE XT,CHMFPP, CHMFREVS,C HMFRS,CHMF RTN K CHMF SERV,CHMFS ORT,CHMFSR VC,CHMFTY, CHMINUS,CH MNEXT,CHMN RTN,CHNOW, CHOICE K C HORG,CHSUM ,CHUPFL,CL ,CLT,CHMAC ,CNO,CNT,C T,CT1,CTY, D,D0,DA1,D A2,DDER K DI,DN,DOS, DQ,EX,FIPA Y,FKIL,HR, HVFN,HX,HY ,I,ID,IMG, LINW,LL,LN ,MEDPTR K MIN,OHIAMT ,OHIDOS,OH IIND,OHINA ME,OHIREC, OHITOS,OHI TYP,PAY,PG ,PLS,PS K PT,PVN,PY, REC,REC40, RNG,RNGBD, RNGED,SDAT E,SN,SP,ST R,STR1,SUB ,SUB1 K SU B2,SUB3,SU B4,SUB5,SU B6,SVFLD,T AB1,TAB2,T OTSUM,TSP, VDC,VN,VNP G K VREC0, VREC1,XX,Z ,ZZPDI,ZVF NKILPDI I $D(CHMFPDI ),CHMFPDI' ="" D .K ^CHMIMAGE (CHMFPDI) ; KILL PDI .K ^CHMIM AGE("AC",C HMFPDI) ; KILL CROSS REF .K ^C HMIMAGE(CH MFPDI,"AD" ) ; KILL C ROSS REF . K ^CHMIMAG E("B",CHMF PDI) ; KIL L CROSS RE F .K:CHMFP DI'="" ^CH MIMAGE("LO CK",CHMFPD I) .S $P(^ CHMIMG(CHM FPDI,0),"^ ",6)=0 .S $P(^CHMIMG (CHMFPDI,0 ),"^",3)=" " .S $P(^C HMIMG(CHMF PDI,0),"^" ,4)="" I $ D(CHBTCHNO ) I CHBTCH NO=0 D Q .S:$D(^CHM DIC(741002 .21,DUZ,0) ) $P(^(0), "^",6)="" .S CHBTCHN O="" Q I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=0 I $ D(CHBTCHNO ) I CHBTCH NO'="" D . S X=$$BTCH ST^CHMFABU 3(CHBTCHNO ) .S X=$$B TCHUP^CHMF ABU3(CHBTC HNO) .I 'X S:$D(^CHM DIC(741002 .21,DUZ,0) ) $P(^(0), "^",6)="" D ..S CHMF I=CHBTCHNO ,CHMFPP="B ATKILL" D ^CHMFWK03 I $D(CHBTC HNO) I CHB TCHNO'="" S $P(^CHMI MPB(CHBTCH NO,0),"^", 6)="" QSET PROD ; S S DATE=$P(($ $HTFM^XLFD T($H)),"." ,1) S TMPT IME=$P(($$ HTFM^XLFDT ($H)),".", 2) S HR=$E (TMPTIME,1 ,2),MIN=$E (TMPTIME,3 ,4) I MIN> 29 S MIN=3 0 G PROD1 S MIN=+(00 )PROD1 S T MPDT=+(SDA TE_"."_HR_ MIN) S:'$D (FKIL) FKI L=0 S:'$D( PS) PS=0 S :'$D(BAD) BAD=0 S:'$ D(FIPAY) F IPAY=0 S:' $D(^CHMPRO D("PROD-RP T-VE","OTH ER",DT,DUZ )) ^CHMPRO D("PROD-RP T-VE","OTH ER",TMPDT, DUZ)=0_"^" _0_"^"_0_" ^"_0 I FKI L=1 I $D(C HMFPDI) I CHMFPDI'=" " I $D(^CH MIMAGE(CHM FPDI,0)) I $P(^CHMIM AGE(CHMFPD I,0),"^",9 )=1 D .S $ P(^CHMPROD ("PROD-RPT -VE","OTHE R",TMPDT,D UZ),"^",3) =$P(^CHMPR OD("PROD-R PT-VE","OT HER",TMPDT ,DUZ),"^", 3)+FKIL .S CHMFI=CHM FPDI,CHMFP P="SKIL" D ^CHMFWK01 I PS=1 S $P(^CHMPRO D("PROD-RP T-VE","OTH ER",TMPDT, DUZ),"^",4 )=$P(^CHMP ROD("PROD- RPT-VE","O THER",TMPD T,DUZ),"^" ,4)+PS I F IPAY=1 S $ P(^CHMPROD ("PROD-RPT -VE","OTHE R",TMPDT,D UZ),"^",2) =$P(^CHMPR OD("PROD-R PT-VE","OT HER",TMPDT ,DUZ),"^", 2)+FIPAY I BAD=1 S $ P(^CHMPROD ("PROD-RPT -VE","OTHE R",TMPDT,D UZ),"^",1) =$P(^CHMPR OD("PROD-R PT-VE","OT HER",TMPDT ,DUZ),"^", 1)+BAD S ( PS,FKIL,FI PAY,BAD)=0 QOCRKIL ; RESETS VE PDI CLOCK WHEN PLACI NG EDI/OCR CLAIMS IN HOLD Q -- TAB 7 ;AE B ADDED LO GIC TO SET PDI TO CO MPLETE AND ADD PDI C OMMENTS 4/ 20/2007 I $D(CHMFPDI ),CHMFPDI' ="" D .D N OW^%DTC I $E(%,1,10) '=$E($P(^C HMIMG(CHMF PDI,0),"^" ,4),1,10) S $P(^CHMI MG(CHMFPDI ,0),"^",4) =% R TMPX: 2 .F I=18: 1:24 S DX= 0,DY=I X X Y W @CHEOL .S DX=2,D Y=18 X XY W "WARNING : This pro cess will DELETE EDI /OCR PDIs from the R EADY queue !!" .S DX= 2,DY=19 X XY W "Do y ou want to set the P DI status to COMPLET E? YES//" D CSBRS^CH SC2 .S Y=$ E(Y,1) S:Y ="" Y="Y" .S Y=$$UP^ XLFSTR(Y) I Y="N" D ..S $P(^CH MIMG(CHMFP DI,0),"^", 6)=0 ..S $ P(^CHMIMG( CHMFPDI,0) ,"^",3)="" ..S $P(^C HMIMG(CHMF PDI,0),"^" ,4)="" ..S ^CHMIMG(" EDI/OCR-HO LD",CHMFPD I)="" ..Q .I Y="Y" D ..S DX=2, DY=20 X XY W "That P DI has bee n deleted from the R eady Queue " R X:1 .. S $P(^CHMI MG(CHMFPDI ,0),"^",6) =4 ..D NOW ^%DTC S $P (^CHMIMG(C HMFPDI,0), "^",5)=%,$ P(^CHMIMG( CHMFPDI,0) ,"^",3)=DU Z ..S $P(^ CHMIMAGE(C HMFPDI,0), "^",9)=1 . .I $D(^CHM IMG("OCR-R EADY",CHMF PDI)) K ^C HMIMG("OCR -READY",CH MFPDI) ..I $D(^CHMIM G("SBOCR-R EADY",CHMF PDI)) K ^C HMIMG("SBO CR-READY", CHMFPDI) . .I $D(^CHM IMG("OCR2- READY",CHM FPDI)) K ^ CHMIMG("OC R2-READY", CHMFPDI) . .I $D(^CHM IMG("SBOCR 2-READY",C HMFPDI)) K ^CHMIMG(" SBOCR2-REA DY",CHMFPD I) ..S FKI L=1 D SETP ROD^CHMFIM G ;GIVE VE CREDIT FO R PDI. AEB 7/24/2007 - CHANGED FROM CHMF ADR1 TO CH MFIMG TO C OUNT AS PR OCESSED PD I NOT A 'K ILLED' ONE ..Q .;W @IOF D ^CH MFSET S CH ONCE=1,ANS =CHMFPDI D EN1^CHMLC OMM K DIR W @IOF D ^ CHMFSET ;S KD 8-24-07 DEV003066 .W @IOF D ^CHMFSET S CHONCE=1 ,ANS=CHMFP DI D EN1^C HMLCOMM K CHONCE K D IR W @IOF D ^CHMFSET ;SKD 8-24 -07 DEV003 066 .Q 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 | CHMFADR1 ; PJU/DEN;UT ILITY PROG RAM # 1 FO R MAIN DRI VER;08/20/ 98 8:16 AM ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; - R emove | |
11 | ;V2.0;; - Add this i n. ;CPTS # 14989 (RLC ) ;SUBROUT INES CALLE D IN DRIVE R ;CFS 08/ 16/2017 CP E005-004 A dd the "OC RR-READY" and "SBOCR R-READY" q ueues. ;JS E 10/06/20 17 CPE005- 051 Restri ct users t o the reop en menus ; CFS 10/08/ 2017 CPE00 5-069 Ensu re global piece is c leaned up if not a R e-open PDI .BATCH ; I '$D(CHBTC HNO) S CHB TCHNO=$P(^ CHMDIC(741 002.21,DUZ ,0),"^",6) Q:CHBTCHN O="" I $$B TCHST^CHMF ABU3(CHBTC HNO)=1 D . S $P(^CHMD IC(741002. 21,DUZ,0), "^",6)="" .S CHMFI=C HBTCHNO,CH MFPP="BATC LSD" .S $P (^CHMIMPB( CHBTCHNO,0 ),"^",6)=" " .D ^CHMF WK03 .S J= 0 .F S J= $O(^CHMIMP B(CHBTCHNO ,100,J)) Q :'J I $D( ^CHMIMPB(C HBTCHNO,10 0,J,0)) I ($P(^(0)," ^",3)=2)!( $P(^(0),"^ ",3)=3) S CHMFPDI=$P (^(0),"^", 1) D SETPR OD^CHMFIMG .S CHBTCH NO="" QCOU NT S CLCT= 0CO1 S CLC T=$O(CHMFC LMS(CLCT)) Q:CLCT="" S CHMQNAM ="CHMPAY(" ,CHMIN="" K CHOUT D ^CHMIS041 G CO1LSTPD I ; If the DUZ is un known, pri nt error m essage to screen and quit ;N C HOSEN I '$ D(^CHMDIC( 741002.21, DUZ,0)) D NOUSE S CH QUIT=1 Q ; Determine what the last PDI e ntered by the user w as. S LSTP DI=$P(^CHM DIC(741002 .21,DUZ,0) ,"^",5) ; If LSTPDI is not nil , do the f ollowing. Otherwise return to MANUAL^CHM FADR4 I LS TPDI'="" D .S CHMFPD I=LSTPDI ; Move the value of L STPDI to C HMFPDI .S CHMFNMPG=$ P(^CHMIMG( CHMFPDI,0) ,"^",2) .K ^CHMIMG(" READY",CHM FPDI) .K ^ CHMIMG("OC R-READY",C HMFPDI) .K ^CHMIMG(" SBOCR-READ Y",CHMFPDI ) .K ^CHMI MG("OCR2-R EADY",CHMF PDI) .K ^C HMIMG("SBO CR2-READY" ,CHMFPDI) .K ^CHMIMG ("OCRR-REA DY",CHMFPD I) ;CPE005 -004 .K ^C HMIMG("SBO CRR-READY" ,CHMFPDI) ;CPE005-00 4 .D PAUSE S CHMOPDI =$P(^CHMDI C(741002.2 1,DUZ,0)," ^",2) S CH MOPDI=$S(C HOSEN=6:CH MOPDI,CHOS EN=7:CHMOP DI,CHOSEN= 8:CHMOPDI, 1:"") I CH MOPDI="" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",2)="" ;CPE005-06 9 Ensure g lobal piec e is clean ed up. ; ; That piece only need ed for a R e-open PDI Number. ; Return to routine C HMFADR4 QP AUSE S PAU SDT="" D N OW^%DTC ; Search for paused PD I'sP1 S PA USDT=$O(^C HMIMG(CHMF PDI,"PAUSE ",PAUSDT)) Q:'PAUSDT G:'$D(^CH MIMG(CHMFP DI,"PAUSE" ,PAUSDT,0) ) P1 ; Set PAUSEDT t o the date /time stor ed in piec e 3 of ^CH MIMG(I,"PA USE",J,0) S PAUSEDT= $P(^CHMIMG (CHMFPDI," PAUSE",PAU SDT,0),"^" ,3) ; If P AUSEDT is nil, set i t to the c urrent dat e/time ret rieved fro m NOW^%DTC and quit I PAUSEDT= "" S $P(^C HMIMG(CHMF PDI,"PAUSE ",PAUSDT,0 ),"^",3)=% Q G P1NOU SE W !!,"U SER NOT DE FINED IN T HE CHAMPVA USER FILE !" QSETUP ; Kill the following variables K CHMFBN, CHNEWPG ; TOP^CHMFA1 00 formats the top o f the scre en D TOP^C HMFA100 ; BOTT^CHMFA 100 format s the bott om of the screen D B OTT^CHMFA1 00 S DTM=4 ,DBM=20 X CHMAR ; If there is no DUZ, do ERR1 and quit I '$D (DUZ) D ER R1 Q S CHM FDUZ=DUZ S CHUSER="U NKNOWN" I DUZ'="" S: $D(^VA(200 ,DUZ,0)) C HUSER=$P(^ VA(200,DUZ ,0),"^",1) QSETUP1 K F6,CHMFFI N,CHNOFLAG ,CHYESFLG, R1,R2,R3,R 4,R7,CHMFK IL,CHMFC,C HMFPS S (C HMFPDI,CHM FIMAG,CHMF IMTY,CHMFI MNM,CHMFNM PG,CHMFPGN M,CHMFTYPE )="" S (F1 ,CHMFIMCT, CHMFPGCT)= "" QPSMSG Q ; SEND T O PSQ REMO VED. CALL WAS ROUTIN E CHMG172A ;KLOCK I $D(CHMFPDI ) K:CHMFPD I'="" ^CHM IMAGE("LOC K",CHMFPDI ) QNEWPG D TOP^CHMFA 100 D BOTT ^CHMFA100 S DTM=4,DB M=20 X CHM AR Q REMV D REMV^CHM FPDI QREMV 1 D REMV1^ CHMFPDI QD ELST1 Q:'$ D(^CHMDIC( 741002.21, DUZ,0)) S $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",5)="" S $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",2)="" QS ETPD Q:'$D (^CHMDIC(7 41002.21,D UZ,0)) Q:C HMFPDI="" S $P(^CHMD IC(741002. 21,DUZ,0), "^",5)=CHM FPDI S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",2 )=$G(CHMOP DI) I $D(C HBTCHNO) I CHBTCHNO' ="" S $P(^ CHMIMPB(CH BTCHNO,0), "^",6)="" S JPD=9999 9 S JPD=$O (^CHMIMG(C HMFPDI,"PA USE",JPD), -1) I JPD= "" S JPD=0 S JPD=JPD +1 D NOW^% DTC S $P(^ CHMIMG(CHM FPDI,"PAUS E",JPD,0), "^",1)=% S $P(^CHMIM G(CHMFPDI, "PAUSE",JP D,0),"^",2 )=DUZ K JP D QSKIP S PDIJ=0 Q:' $D(CHBTCHN O) Q:'CHBT CHNOSK1 S PDIJ=$O(^C HMIMPB(CHB TCHNO,100, PDIJ)) Q:' PDIJ G:'$D (^CHMIMPB( CHBTCHNO,1 00,PDIJ,0) ) SK1 G:$P (^(0),"^", 3)'=5 SK1 S $P(^(0), "^",3)=0 G SK1READY Q:'$D(CHMF PDI) Q:CH MFPDI="" Q :'$D(^CHMI MG(CHMFPDI ,"DOC")) S :$D(CHDOCI D) ^CHMIMG ("READY",C HMFPDI)="" QOCRRDY ; FOR CHAMPV A EDI CLAI MS Q:'$D(C HMFPDI) Q: CHMFPDI="" S ^CHMIMG ("OCR-READ Y",CHMFPDI )="" ;NEXT LINE FOR SYSTEM STA TISTICS -- ADD ONE T O EDI/OCR ;S CHMQNAM ="EDI/OCR" ,CHMIN="" K CHMOUT D ^CHMIS041 QOCR2RDY ;FOR CHAMP VA OCR CLA IMS Q:'$D( CHMFPDI) Q :CHMFPDI=" " S ^CHMIM G("OCR2-RE ADY",CHMFP DI)="" ;NE XT LINE FO R SYSTEM S TATISTICS -- ADD ONE TO EDI/OC R ;S CHMQN AM="EDI/OC R",CHMIN=" " K CHMOUT D ^CHMIS0 41 QSBOCRD Y ;FOR SB/ CWVV EDI C LAIMS Q:'$ D(CHMFPDI) Q:CHMFPDI ="" S ^CHM IMG("SBOCR -READY",CH MFPDI)="" ;NEXT LINE FOR SYSTE M STATISTI CS -- ADD ONE TO EDI /OCR ;S CH MQNAM="EDI /OCR",CHMI N="" K CHM OUT D ^CHM IS041 QSBO CR2DY ;FOR SB/CWVV O CR CLAIMS Q:'$D(CHMF PDI) Q:CHM FPDI="" S ^CHMIMG("S BOCR2-READ Y",CHMFPDI )="" ;NEXT LINE FOR SYSTEM STA TISTICS -- ADD ONE T O EDI/OCR ;S CHMQNAM ="EDI/OCR" ,CHMIN="" K CHMOUT D ^CHMIS041 QMANL ;C PE005-069 FOR MANUAL EDI REOPE N Q:'$D(CH MFPDI) Q:C HMFPDI="" S ^CHMIMG( "MANUAL",C HMFPDI)="" QOCRRRDY; CPE005-004 FOR CHAMP VA EDI REO PEN Q:'$D( CHMFPDI) Q :CHMFPDI=" " S ^CHMIM G("OCRR-RE ADY",CHMFP DI)="" QSB OCRRDY ;CP E005-004 F OR S/B EDI REOPEN Q: '$D(CHMFPD I) Q:CHMFP DI="" S ^C HMIMG("SBO CRR-READY" ,CHMFPDI)= "" QERR1 ; Print out error mes sage to te rminal and quit prog ram. S DY= 5,DX=10 X XY W "User is unknow n to syste m",@CHEOL S DY=6,DX= 10 X XY W "Please Lo g onto ter minal agai n",@CHEOL R RD:2 QKI LALL K A,B FN,CH,CHCT RD,CHCTRO, CHMFCLMS,C HMCL,DFN,C HBENNM,VFN ,CHMVEN,CH MFCORR K C HMFACCN,CH MFAMNT,CHM FASDT,CHMF ASS,CHMFBF N,CHMFC,CH MFCLIN,CHM BEN K CHMF COMM,CHMFC ONT,CHMFCO R,CHMFDATE ,CHMFDAYS, CHMFDCBN,C HMFDCVN K CHMFDFN,CH MFELIG,CHM FFIN,CHMFF L,CHMFFL1, CHMFHCPC,C HMFICD9,CH MFIMAG K C HMFIMCT,CH MFIMNM,CHM FIMTY,CHMF INCT,CHMFI NTC,CHMFIN VD,CHMFINV N K CHMFKI L,CHMFLIST ,CHMFLOC,C HMFNMPG,CH MFOUT,CHMF PGCT,CHMFP GNM K CHMF PLAC,CHMFP LPT,CHMFPR CT,CHMFPS, CHMFPSBN,C HMFREDO,CH MFREF,CHMF SAME K CHM FSVTY,CHMF TERM,CHMFT MBG,CHMFTY PE,CHMFQUI T,CHNB,CHS AME,CHSDX, CHSDY K CH T,CHTY,CHU P,DBM,DF,D F1,DFN,DFO UT,DIC,DLA YGO,DR,DTM ,F1,F2,FLA G4,J K K,H DA,HLD,HTY PE,IV,NM,N W,PDIFL,SF L,SURFACE, CHFARM,TOO TH,TY,QU,V EN K VFN,X ,XPLUS,ZCT ,ZICN,CHMC CRFG,CHRXN ,CHNDC,CHR XD,CHRXDP, CHPSN,CHQN T K CHBAMT ,CHICD9,CH GNIND,CHIC DS9,CHDFL, ICD,CHMFGO ,CHLTG,ZY, ZX,DY,DX K CHUP,CHUP S,CHDOWN,C HDOWNS,CHO SEN,CHSAME ,CHOUT,CHS DX,CHSDY,C HANSW,CHLG K CHMFQUI T,CHT,DDOU T,X,Y,ZSTN ,CHREDO,ZS TF,ZTM,ZBM K,CHPTC,CH EKR,CHHDFN K CHHBFN, CHOUTER,CH ENTRE,CHFC T,CHFIFLAG ,CMENTR,CH MFEDIT,CHM FENTR K CH PPX,CHOUTR ,CHGNIND,L 9,M,M1,PRX D,STEFL,Y9 ,TL,FLAG,F LAG1,FLAG2 ,FLAG3 K F LAG4,S1,Y1 ,Y2,AN,L,N ,M9,M8,CHM FCOT,CH9,C H99,CHCTL1 ,CHJ,CHJJ, CHKILR K C HKIR,CHNUM BR,CHP,CHP Z,CHSCT,CH SCTS,CHSCT S1,CHST1,H IP,PCHMFH K CHMFBASC ,PV,CHVENN M,CHBEN,CH BTCHNO,CHT OBIL,A1,AA ,ASKFL,ASS ,BAD,BL K BLNK1,BLNK 2,BN,C,CFL ,CHASSGN,C HCODE,CHCO MFL,CHDEF, CHDTA,CHHD T,CHIBTCH K CHINGOR, CHMCCR,CHF MCLNM,CHMF I,CHMFNEXT ,CHMFPP,CH MFREVS,CHM FRS,CHMFRT N K CHMFSE RV,CHMFSOR T,CHMFSRVC ,CHMFTY,CH MINUS,CHMN EXT,CHMNRT N,CHNOW,CH OICE K CHO RG,CHSUM,C HUPFL,CL,C LT,CHMAC,C NO,CNT,CT, CT1,CTY,D, D0,DA1,DA2 ,DDER K DI ,DN,DOS,DQ ,EX,FIPAY, FKIL,HR,HV FN,HX,HY,I ,ID,IMG,LI NW,LL,LN,M EDPTR K MI N,OHIAMT,O HIDOS,OHII ND,OHINAME ,OHIREC,OH ITOS,OHITY P,PAY,PG,P LS,PS K PT ,PVN,PY,RE C,REC40,RN G,RNGBD,RN GED,SDATE, SN,SP,STR, STR1,SUB,S UB1 K SUB2 ,SUB3,SUB4 ,SUB5,SUB6 ,SVFLD,TAB 1,TAB2,TOT SUM,TSP,VA LOPDI,VDC, VN,VNPG K VREC0,VREC 1,XX,Z,ZZP DI,ZVFNKIL PDI I $D(C HMFPDI),CH MFPDI'="" D .K ^CHMI MAGE(CHMFP DI) ; KILL PDI .K ^C HMIMAGE("A C",CHMFPDI ) ; KILL C ROSS REF . K ^CHMIMAG E(CHMFPDI, "AD") ; KI LL CROSS R EF .K ^CHM IMAGE("B", CHMFPDI) ; KILL CROS S REF .K:C HMFPDI'="" ^CHMIMAGE ("LOCK",CH MFPDI) .S $P(^CHMIMG (CHMFPDI,0 ),"^",6)=0 .S $P(^CH MIMG(CHMFP DI,0),"^", 3)="" .S $ P(^CHMIMG( CHMFPDI,0) ,"^",4)="" I $D(CHBT CHNO) I CH BTCHNO=0 D Q .S:$D( ^CHMDIC(74 1002.21,DU Z,0)) $P(^ (0),"^",6) ="" .S CHB TCHNO="" Q I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0 I $D(CHBT CHNO) I CH BTCHNO'="" D .S X=$$ BTCHST^CHM FABU3(CHBT CHNO) .S X =$$BTCHUP^ CHMFABU3(C HBTCHNO) . I 'X S:$D( ^CHMDIC(74 1002.21,DU Z,0)) $P(^ (0),"^",6) ="" D ..S CHMFI=CHBT CHNO,CHMFP P="BATKILL " D ^CHMFW K03 I $D(C HBTCHNO) I CHBTCHNO' ="" S $P(^ CHMIMPB(CH BTCHNO,0), "^",6)="" QSETPROD ; S SDATE=$ P(($$HTFM^ XLFDT($H)) ,".",1) S TMPTIME=$P (($$HTFM^X LFDT($H)), ".",2) S H R=$E(TMPTI ME,1,2),MI N=$E(TMPTI ME,3,4) I MIN>29 S M IN=30 G PR OD1 S MIN= +(00)PROD1 S TMPDT=+ (SDATE_"." _HR_MIN) S :'$D(FKIL) FKIL=0 S: '$D(PS) PS =0 S:'$D(B AD) BAD=0 S:'$D(FIPA Y) FIPAY=0 S:'$D(^CH MPROD("PRO D-RPT-VE", "OTHER",DT ,DUZ)) ^CH MPROD("PRO D-RPT-VE", "OTHER",TM PDT,DUZ)=0 _"^"_0_"^" _0_"^"_0 I FKIL=1 I $D(CHMFPDI ) I CHMFPD I'="" I $D (^CHMIMAGE (CHMFPDI,0 )) I $P(^C HMIMAGE(CH MFPDI,0)," ^",9)=1 D .S $P(^CHM PROD("PROD -RPT-VE"," OTHER",TMP DT,DUZ),"^ ",3)=$P(^C HMPROD("PR OD-RPT-VE" ,"OTHER",T MPDT,DUZ), "^",3)+FKI L .S CHMFI =CHMFPDI,C HMFPP="SKI L" D ^CHMF WK01 I PS= 1 S $P(^CH MPROD("PRO D-RPT-VE", "OTHER",TM PDT,DUZ)," ^",4)=$P(^ CHMPROD("P ROD-RPT-VE ","OTHER", TMPDT,DUZ) ,"^",4)+PS I FIPAY=1 S $P(^CHM PROD("PROD -RPT-VE"," OTHER",TMP DT,DUZ),"^ ",2)=$P(^C HMPROD("PR OD-RPT-VE" ,"OTHER",T MPDT,DUZ), "^",2)+FIP AY I BAD=1 S $P(^CHM PROD("PROD -RPT-VE"," OTHER",TMP DT,DUZ),"^ ",1)=$P(^C HMPROD("PR OD-RPT-VE" ,"OTHER",T MPDT,DUZ), "^",1)+BAD S (PS,FKI L,FIPAY,BA D)=0 QOCRK IL ;RESETS VE PDI CL OCK WHEN P LACING EDI /OCR CLAIM S IN HOLD Q -- TAB 7 ;AEB ADDE D LOGIC TO SET PDI T O COMPLETE AND ADD P DI COMMENT S 4/20/200 7 I $D(CHM FPDI),CHMF PDI'="" D .D NOW^%DT C I $E(%,1 ,10)'=$E($ P(^CHMIMG( CHMFPDI,0) ,"^",4),1, 10) S $P(^ CHMIMG(CHM FPDI,0),"^ ",4)=% R T MPX:2 .F I =18:1:24 S DX=0,DY=I X XY W @C HEOL .S DX =2,DY=18 X XY W "WAR NING: This process w ill DELETE EDI/OCR P DIs from t he READY q ueue!!" .S DX=2,DY=1 9 X XY W " Do you wan t to set t he PDI sta tus to COM PLETE? YES //" D CSBR S^CHSC2 .S Y=$E(Y,1) S:Y="" Y= "Y" .S Y=$ $UP^XLFSTR (Y) I Y="N " D ..S $P (^CHMIMG(C HMFPDI,0), "^",6)=0 . .S $P(^CHM IMG(CHMFPD I,0),"^",3 )="" ..S $ P(^CHMIMG( CHMFPDI,0) ,"^",4)="" ..S ^CHMI MG("EDI/OC R-HOLD",CH MFPDI)="" ..Q .I Y=" Y" D ..S D X=2,DY=20 X XY W "Th at PDI has been dele ted from t he Ready Q ueue" R X: 1 ..S $P(^ CHMIMG(CHM FPDI,0),"^ ",6)=4 ..D NOW^%DTC S $P(^CHMI MG(CHMFPDI ,0),"^",5) =%,$P(^CHM IMG(CHMFPD I,0),"^",3 )=DUZ ..S $P(^CHMIMA GE(CHMFPDI ,0),"^",9) =1 ..I $D( ^CHMIMG("O CR-READY", CHMFPDI)) K ^CHMIMG( "OCR-READY ",CHMFPDI) ..I $D(^C HMIMG("SBO CR-READY", CHMFPDI)) K ^CHMIMG( "SBOCR-REA DY",CHMFPD I) ..I $D( ^CHMIMG("O CR2-READY" ,CHMFPDI)) K ^CHMIMG ("OCR2-REA DY",CHMFPD I) ..I $D( ^CHMIMG("S BOCR2-READ Y",CHMFPDI )) K ^CHMI MG("SBOCR2 -READY",CH MFPDI) ..I $D(^CHMIM G("OCRR-RE ADY",CHMFP DI)) K ^CH MIMG("OCRR -READY",CH MFPDI) ;CP E005-004 . .I $D(^CHM IMG("SBOCR R-READY",C HMFPDI)) K ^CHMIMG(" SBOCRR-REA DY",CHMFPD I) ;CPE005 -004 ..S F KIL=1 D SE TPROD^CHMF IMG ;GIVE VE CREDIT FOR PDI. A EB 7/24/20 07 - CHANG ED FROM CH MFADR1 TO CHMFIMG TO COUNT AS PROCESSED PDI NOT A 'KILLED' O NE ..Q .; W @IOF D ^ CHMFSET S CHONCE=1,A NS=CHMFPDI D EN1^CHM LCOMM K DI R W @IOF D ^CHMFSET ;SKD 8-24- 07 DEV0030 66 .W @IOF D ^CHMFSE T S CHONCE =1,ANS=CHM FPDI D EN1 ^CHMLCOMM K CHONCE K DIR W @IO F D ^CHMFS ET ;SKD 8- 24-07 DEV0 03066 .Q Q ; SCHK(DU Z) ;SECURI TY CHECK - VALIDATE USER FOR R E-OPEN MEN US ;JSE 10 /06/2017 C PE005-051 I '$D(DUZ) Q 0 N ALL OW,ROLE S ALLOW=0 S ROLE=$P(^V A(200,DUZ, 0),"^",9) ;Secondary programme r access I ROLE=1576 Q 1 ;CHEC K RC -CHAM PVA EDI RE OPEN I Y=" RC" D Q A LLOW .;R&R VEs, PAs, Leads, Su pervisors .I ";18;30 3;785;597; 188;1019;" [(";"_ROLE _";") S AL LOW=1 Q .W !!,*7,?10 ,"Not auth orized to process CH AMVPA EDI Reopen cla ims" R XX: 5 .;CHECK RS- SB EDI REOPEN I Y="RS" D Q ALLOW .; SB VEs, PA s, Leads, and Superv isors .I " ;18;730;78 5;597;188; 1019;"[("; "_ROLE_";" ) S ALLOW= 1 Q .W !!, *7,?10,"No t authoriz ed to proc ess SB EDI Reopen cl aims" R XX :5 ;CHECK ER - MANUA L EDI REOP EN I Y="ER " D Q ALL OW .;R&R V E, SB VE, PSD .I ";7 30;303;"[( ";"_ROLE_" ;") S ALLO W=1 Q .W ! !,*7,?10," Not author ized to pr ocess Manu al EDI Reo pen claims " R XX:5 Q ALLOW | |
12 | ||
13 | ||
14 | ||
15 | Difference s | |
16 | ||
17 | See highli ghted info above. | |
18 | ||
19 | ||
20 | Passed XIN DEX? (Y / N): |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.