14. EPMO Open Source Coordination Office Redaction File Detail Report

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

14.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 CHMFADR1 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 CHMFADR1 Developer Form.docx Thu Dec 7 20:54:52 2017 UTC

14.2 Comparison summary

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

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

14.4 Active regular expressions

No regular expressions were active.

14.5 Comparison detail

  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):