27. EPMO Open Source Coordination Office Redaction File Detail Report

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

27.1 Files compared

# Location File Last Modified
1 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\938146-CPE005-023a Daily Hourly Processing Report Menu Option CP&E Teams 1-3 Developer Form CPE001-023a CHMIS023.docx Thu Dec 7 15:13:24 2017 UTC
2 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\938146-CPE005-023a Daily Hourly Processing Report Menu Option CP&E Teams 1-3 Developer Form CPE001-023a CHMIS023.docx Thu Dec 7 22:57:47 2017 UTC

27.2 Comparison summary

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

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

27.4 Active regular expressions

No regular expressions were active.

27.5 Comparison detail

  1   Routine Na me:  CHMIS 023
  2   Developer  Name(s):   Hayes Murd ock
  3   Associated  User Stor y/Stories:   CPE005-0 23a
  4   Current ve rsion (Por tions that  are added  to, modif ied or del eted [Matc h up with  New Versio n section)
  5   CHMIS023 ; JEA/DEN;CH AMPVA SYST EM STATUS  DISPLAY;08 /08/94 11: 15 PM ;;1. 0;CHAMPVA  SYSTEM;;JU LY 4, 1990 ;Build 1 ; ;Called by  ^CHMIS021 , ^CHMIS02 2 ;;Calls  ^CHMIS021   ;; ;YJK 2 /8/2010 -  DEV007247- 03 Vista M enu shows  the bottom  displays  from CHV M onitor dat a when Qui t from the  applicati on. ;JSG2  10/18/2017  - CPE005- 023 Make a llowances  for new ED I RO statu sZSET S:'$ D(DUZ) DUZ =1,DUZ(0)= "" I '$D(D T) S %DT=" ",X="T" D  ^%DT S DT= Y S:'$D(IO ZFO) IOZFO ="^^" S:'$ D(IOZBK) I OZBK="^" S :'$D(DTIME ) DTIME=60  I '$D(IOZ ) S %IS="N ",IOP=$I D  ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOSZNA M ; S RFRE SH=1,NORFR ESH=0,SCRN =RFRESH,SU B=0EN1 ;D  ^CHMGSET D  ^CHMFSET  D NOW^%DTC  S DAYHOLD =XEN2 D TO P D BOTTOM ^CHMIS021: SCRN=RFRES HEN3 D NOW ^%DTC D:X' =DAYHOLD   D DISP S S CRN=NORFRE SH .S DAYH OLD=X,DX=1 2 F DY=3:1 :17,$Y=DY, $X=DX X XY  W $E(CHL, 1,66) ; CP E005-023 M ove <> lin e down one  ; EN4 S D Y=20,DX=1, $Y=DY,$X=D X X XY W @ CHEEL X XY  R "<>",X: 30 G EN3:' $TEN4 S DY =21,DX=1,$ Y=DY,$X=DX  X XY W @C HEEL X XY  R "<>",X:3 0 G EN3:'$ T ; G END: $E(X)="Q", END:$E(X)= "q" I $E(X )="Z"!($E( X)="z") S  SCRN=RFRES H G EN1 I  $E(X)="M"! ($E(X)="m" ) D  D BOT TOM^CHMIS0 21 G EN4 . S MORE=MOR E+12 S:MOR E>LASTNUM  MORE=5 Q I  $E(X)="B"  D  G:'$D( LASTOVER)  EN3  S LAS TOVER=$O(^ CHMSTAT(LA STOVER)) K :'LASTOVER  LASTOVER  S SCRN=RFR ESH G EN3  .I $L(X)=1  D NOW^%DT C S X1=$S( $D(LASTOVE R):+$E(LAS TOVER,1,10 ),1:+$E(%, 1,10)),X2= -1 D C^%DT C S LASTOV ER=X-.0001  Q .I X?1" BA" S STEP =1 D AUTOB CK Q .I X? 1"BA"1.2N  S STEP=$P( X,"BA",2)  D AUTOBCK  Q .I X?1"B "1.3N1"@"1 .2N D  Q . .S X2="-"_ +$P($P(X," B",2),"@", 1) S CHLD= X D NOW^%D TC ..S X1= $S($D(LAST OVER):+$E( LASTOVER,1 ,10),1:+$E (%,1,10))  ..I +$E($P (CHLD,"@", 2))>24 S $ P(CHLD,"@" ,2)="00" . .S $P(X1," .",2)=$P(C HLD,"@",2)  D C^%DTC  S LASTOVER =X-.001 .I  X?1"B"1.3 N D  Q ..S  X2="-"_+$ P(X,"B",2)  S CHLD=X  D NOW^%DTC  ..S X1=$S ($D(LASTOV ER):+$E(LA STOVER,1,1 0),1:+$E(% ,1,10)) .. D C^%DTC S  LASTOVER= X-.001 .K  %DT S %DT= "PT",X=$P( X,"B",2) D  ^%DT D  Q  ..I Y=-1  S DX=3,$Y= DY,$X=DX X  XY W @CHE OL D  Q .. .X XY W @C HBON,"INVA LID BACK D ATE FORMAT ",@CHBOFF  R X:5 ...S :$D(LASTOV ER) LASTOV ER=LASTOVE R-.001 ..S  LASTOVER= Y-.001 Q I  $E(X)="F"  D  G:'$D( LASTOVER)  EN3  S LAS TOVER=$O(^ CHMSTAT(LA STOVER)) K :'LASTOVER  LASTOVER  S SCRN=RFR ESH G EN3  .I $L(X)=1  Q:'$D(LAS TOVER) D N OW^%DTC S  CHLD=% S X 1=$S($D(LA STOVER):+$ E(LASTOVER ,1,10),1:+ $E(%,1,10) ),X2=1 D C ^%DTC K:X' <CHLD LAST OVER Q:'$D (LASTOVER)  S LASTOVE R=X-.0001  Q .I X?1"F "1.3N1"@"1 .2N D  Q . .S X2=+$P( $P(X,"F",2 ),"@",1) S  CHLD=X D  NOW^%DTC S  CHLD2=% . .S X1=$S($ D(LASTOVER ):+$E(LAST OVER,1,10) ,1:+$E(%,1 ,10)) ..I  +$E($P(CHL D,"@",2))> 24 S $P(CH LD,"@",2)= "00" ..S $ P(X1,".",2 )=$P(CHLD, "@",2) D C ^%DTC ..I  X'<CHLD2 K  LASTOVER  Q ..S LAST OVER=X-.00 1 .I X?1"F "1.3N D  Q  ..S X2=+$ P(X,"F",2)  S CHLD=X  D NOW^%DTC  S CHLD2=%  ..S X1=$S ($D(LASTOV ER):+$E(LA STOVER,1,1 0),1:+$E(% ,1,10)) .. D C^%DTC . .I X'<CHLD 2 K LASTOV ER Q ..S L ASTOVER=X- .001 .K %D T S %DT="P T",X=$P(X, "F",2) D ^ %DT D  Q . .I Y=-1 S  DX=3,$Y=DY ,$X=DX X X Y W @CHEOL  D  Q ...X  XY W @CHB ON,"INVALI D BACK DAT E FORMAT", @CHBOFF R  X:5 ...S:$ D(LASTOVER ) LASTOVER =LASTOVER- .001 ..S C HLD=Y D NO W^%DTC I Y '<% K LAST OVER Q ..S  LASTOVER= CHLD-.001  Q I $E(X)= "H"!($E(X) ="h") G:'$ D(LASTOVER ) EN3 S SC RN=RFRESH  K LASTOVER  G EN3 I $ E(X)="" S  SCRN=RFRES H G EN3 I  $E(X)="?"  S DX=3,$Y= DY,$X=DX X  XY W @CHE OL D  G CH MIS023 .D  BOXF^CHSC1 (5,5,75,21 ),CLRBOXI^ CHSC1(5,5, 75,21,XY," ","") .S D Y=6,DX=6,$ Y=DY,$X=DX  X XY W "  Please Sel ect From T he List Be low...or.. ." .S DY=8  X XY W "  Enter: 'M'  for More  Options 'Q ' to Quit. " .S DY=10  X XY W "  To See Pas t Data Ent er: B, B<n um>, B<num >@<time> ( 2 digit)"  .S DY=11 X  XY W " or : B<filema n date for mat>" .S D Y=12 X XY  W " or: BA  to step b ack by 1 d ay/2 secon ds" .S DY= 14 X XY W  " To Go Fo rward Ente r: F, F<nu m>, F<num> @<time> (2  digit)" . S DY=15 X  XY W " or:  F<fileman  date form at>" .S DY =17 X XY W  " Return  to Current  Enter: H"  .S DY=19  X XY W " P ress any k ey to cont inue..." R  X:20 I (X '=+X)!(+X> LASTNUM)!( +X<1)!(X=5 )!(X=6) S  DX=3,$Y=DY ,$X=DX X X Y W @CHEOL  D  G EN4  .S DX=3,$Y =DY,$X=DX  X XY W @CH EOL X XY W  @CHBON,"  PLEASE SEL ECT FROM T HE OPTIONS  BELOW. OR  ENTER '?'  FOR ADDIT IONAL OPTI ONS",@CHBO FF R X:5 S  SCREEN=0  S SNO=+X G  ^CHMIS021 :X=1 I X=2  S SCREEN= 1 D:'$D(IT EM(SCREEN) ) G EN1^CH MIS021 .S  DX=3,$Y=DY ,$X=DX X X Y W @CHEOL  X XY W @C HBON,"CURR ENTLY THER E ARE NOT  ENOUGH ITE MS FOR THI S OPTION", @CHBOFF R  X:5 S SCRE EN=0 I X=3  S SCREEN= 2 D:'$D(IT EM(SCREEN) ) G EN1^CH MIS021 .S  DX=3,$Y=DY ,$X=DX X X Y W @CHEOL  X XY W @C HBON,"CURR ENTLY THER E ARE NOT  ENOUGH ITE MS FOR THI S OPTION", @CHBOFF R  X:5 S SCRE EN=0 I X=4  S SCREEN= 3 D  G EN1 ^CHMIS021  .I '$D(CHD UZ) D WHOR U^CHMIS021  Q .I CHDU Z=1 D WHOR U^CHMIS021  Q .I '$D( ^CHMDIC(74 1002.21,CH DUZ,101,0) ) D NOUSER ^CHMIS021  Q I X'>LAS TNUM S SCR N=RFRESH G  EN3 G EN3  S SNO=+X  S SCRN=RFR ESH G EN3E ND  ;U $I  X ^%ZOSF(" EON") W @C HMARESE,@C HALLOFF S  DY=23,DX=1 ,$Y=DY,$X= DX X XY Q  ;YJK 2/8/2 010 - DEV0 07247-03 U  $I X ^%ZO SF("EON")  W @CHMARES E,@CHALLOF F S DY=23, DX=1,$Y=DY ,$X=DX X X Y W # Q                ;YJK 2/8/ 2010 - DEV 007247-03T OP Q:SCRN= NORFRESH   W @IOF,@CH MARESE K B L,CHL S $P (BL," ",81 )="" S $P( CHL," ",81 )="",DX=10 ,DY=1,$Y=D Y,$X=DX S  UPLINE="W  @CHREVON," " "",@CHRE VOFF" X XY  W @CHREVO N,@CHBON S  DX=25,$Y= DY,$X=DX W  $E(BL,10, 80) S DY=1  X XY W "C HAMPVA PAY MENT CENTE R SYSTEM S TATUS V2.0 " W $C(27) ,"+0" S ZP LINE="W $C (27,79,97) " W @CHBOF F F DX=10, 80 F DY=2: 1:17 S $Y= DY,$X=DX X  XY,UPLINE  S DX=10,D Y=18,$Y=DY ,$X=DX X X Y W @CHREV ON,$E(BL,1 0,80) S CT =5 S DX=15 ,$Y=DY,$X= DX X XY W  "CURRENT:  DAY IN: DA Y OUT:",@C HREVOFF,@C HBON S DY= 19 F DX=12 :5:77 S CT =CT+1 S $Y =DY,$X=DX  X XY W $S( CT<12:CT,C T=12:"NOON ",1:CT-12)  S DY=1,DX =1,$Y=DY,$ X=DX X XY  W "SCALE", @CHBOFF F  DY=13:1:18  X XY X ZP LINE S DX= 2 F DY=12: 1:17 S $Y= DY,$X=DX X  XY W @CHR EVON X UPL INE W @CHR EVOFF S DX =1,DY=19,$ Y=DY,$X=DX  X XY W @C HBON,@CHRE VON,"IN",@ CHREVOFF,@ CHBOFF S D X=2,DY=18, $Y=DY,$X=D X X XY W @ CHREVON,"O UT",@CHREV OFF QDISP  Q:'$D(SNO)  K B S HIG H=0,NAM=$P (A(SNO),"^ "),GLOB=$P (A(SNO),"^ ",2),%DT=" " D NOW^%D TC S X=$S( $D(LASTOVE R):LASTOVE R,1:X) S X =$E(X,4,5) _"-"_$E(X, 6,7)_"-"_$ E(X,2,3) I  GLOB="IMA GE("!(GLOB ="MANUAL(" )!(GLOB="D IST(")!(GL OB="CHMQA1 (")!(GLOB= "CHMQA2(") !(GLOB="CH MEDIQ(")!( GLOB="CHME DIL(")!(GL OB="WAND") !(GLOB="SC AN")!(GLOB ="EDI/OCR" )!(GLOB="C HMASQ1(")  D  S GLOBA LNM=GLOBAL NM_" @ "_X ,L=$L(GLOB ALNM) G DI 1 .S GLOBA LNM="" .S: GLOB="DIST (" GLOBALN M="IMAGES  PENDING MA NID TO PDI  INTEGRATI ON"  .S:GL OB="IMAGE( " GLOBALNM ="IMAGED S UBMISSIONS  AVAILABLE "  .S:GLOB ="MANUAL("  GLOBALNM= "MANUAL SU BMISSIONS  AVAILABLE"   .S:GLOB= "CHMEDIL("  GLOBALNM= "OCR SUBMI SSIONS PRO CESSED"    ;TLH 01/19 /07 .S:GLO B="CHMEDIQ (" GLOBALN M="EDI CLA IMS PENDIN G"  .S:GLO B="CHMQA1( " GLOBALNM ="QUALITY  ASSURANCE  QUEUE/QMD"  .S:GLOB=" CHMASQ1("  GLOBALNM=" AUDIT SUPP ORT QUEUE  CODING QUE UE" .S:GLO B="CHMQA2( " GLOBALNM ="QUALITY  ASSURANCE  QUEUE/CPD"  .S:GLOB=" WAND" GLOB ALNM="SUBM ISSIONS PE NDING PULL " .S:GLOB= "SCAN" GLO BALNM="SUB MISSIONS P ENDING SCA N" .S:GLOB ="EDI/OCR"  GLOBALNM= "EDI SUBMI SSIONS TO  PROCESS"   ; TLH 1/19 /07 .Q I G LOB="CHMAS Q1(" D  G  DI1A .S GL OBAL="^CHM ASQ(0)" .S  GLOBALNM= "ASQ - COD ING QUEUE  @"_X .Q S  GLOBAL="^" _GLOB_"0)"  S GLOBALN M=$P(@GLOB AL,"^")_"  @ "_XDI1A  S L=$L(GLO BALNM)DI1  S DY=2,DX= 12,$Y=DY,$ X=DX X XY  W $E(BL,12 ,78) S DX= 10+((70-L) \2),$Y=DY, $X=DX X XY  W @CHBON, GLOBALNM,@ CHBOFF S X ="T" D ^%D T S DTT=Y  S:$D(LASTO VER) DTT=$ E(LASTOVER ,1,7) S (C HIN,CHOUT, CHTOT)=0 F  TIME=6:1: 19 S T=TIM E S:T<10 T =0_T S T=D TT+(T/100)  D .S B(T, "IN")=0 S: $D(^CHMSTA T(T,GLOB))  B(T,"IN") =+$P(^(GLO B),"^",2), CHIN=CHIN+ B(T,"IN")  .S B(T,"OU T")=0 S:$D (^(GLOB))  B(T,"OUT") =+$P(^(GLO B),"^",3), CHOUT=CHOU T+B(T,"OUT "),CHTOT=$ P(^(GLOB), "^",1) .S: B(T,"IN")> HIGH HIGH= B(T,"IN")  S:B(T,"OUT ")>HIGH HI GH=B(T,"OU T")D3 S:HI GH#75'=0 H IGH=HIGH+( 75-(HIGH#7 5)) S DX=3 ,CT=0,BASE =(HIGH\75) *5,$Y=DY,$ X=DX I SCR N=RFRESH S  DX=12 F D Y=3:1:17 S  $Y=DY,$X= DX X XY W  $E(CHL,1,6 6) I HIGH= 0 S DY=7,D X=21,$Y=DY ,$X=DX X X Y D  Q .W  "There has  been no a ctivity in  this queu e today."  .S DY=18,D X=24,$Y=DY ,$X=DX X X Y W @CHREV ON,@CHBON, " " S DX=4 1,$Y=DY,$X =DX X XY W  " " S DX= 58,$Y=DY,$ X=DX X XY  W " ",@CHR EVOFF,@CHB OFF .S DX= 3 F DY=17: -1:3 S $Y= DY,$X=DX X  XY W " "  S DX=3 F D Y=17:-1:3  S $Y=DY,$X =DX X XY S  CT=CT+1 W  @CHBON,$J ($FN(BASE* CT,","),7) ,@CHBOFF S  T="",CT=0 ,X=" " S D Y=18,DX=24 ,$Y=DY,$X= DX X XY W  @CHREVON,X  S DX=41,$ Y=DY,$X=DX  X XY W X  S DX=59,$Y =DY,$X=DX  X XY W X,@ CHREVOFF S  DX=12,$Y= DY,$X=DX S  DY=18,DX= 24,$Y=DY,$ X=DX X XY  W @CHREVON ,@CHBON,CH TOT S DX=4 1,$Y=DY,$X =DX X XY W  CHIN S DX =59,$Y=DY, $X=DX X XY  W CHOUT,@ CHREVOFF,@ CHBOFF S D X=12,$Y=DY ,$X=DXD4 S  T=$O(B(T) ) Q:T=""   S IN=B(T," IN"),OUT=B (T,"OUT")  S:IN&(IN<B ASE) IN=BA SE S:OUT&( OUT<BASE)  OUT=BASE I  IN F DY=1 7:-1:18-(( (IN/BASE)+ .5)\1) D . X XY X ZPL INE S DX=D X+1 I OUT  F DY=17:-1 :18-(((OUT /BASE)+.5) \1) S $Y=D Y,$X=DX  D  .X XY W @ CHREVON X  UPLINE W @ CHREVOFF S  DX=DX+4,$ Y=DY,$X=DX  G D4AUTOB CK ;GO BAC K 1 DAY EV ERY 2 SECO NDS S DX=3 ,$Y=DY,$X= DX X XY W  @CHEOL D   S ACT=0 .X  XY W @CHB ON," Press  RETURN To  Stop Auto matic Revi ew..",@CHB OFFAUTO1 D  NOW^%DTC  S X1=$S($D (LASTOVER) :+$E(LASTO VER,1,10), 1:+$E(%,1, 10)),X2="- "_STEP D C ^%DTC S LA STOVER=X-. 0001,SCRN= RFRESH D D ISP R X:2  S ACT=ACT+ 1 Q:ACT>30  G:'$T AUT O1 QSBRS S  Y="" U $I  X ^%ZOSF( "EOFF") F  I=1:1 R *X :$S($D(DTI ME):DTIME, 1:60) Q:(X =13)!(X=9) !(X=27) S: X'=127 Y=Y _$C(X) D:X =127 S:I=0  Y="" W $C (X) .S:I=1  I=0 Q:I=0  S:I'=1 I= I-2,Y=$E(Y ,1,I) W *8 ,*27,"[1X"  QSBRS1 K  DFOUT,DUOU T,DQOUT,DD OUT,D1OUT, D2OUT I X= 27 F I=1:1 :2 R *X D: I=2 .S:X=6 5 D1OUT=""  S:X=66 D2 OUT="" S:X =9 DDOUT=" " I Y="^^"  S (DFOUT, Y)="" S:Y= "^" (DUOUT ,Y)="" S:Y ?1"?".E!(Y ["^") (DQO UT,Y)="" U  $I X ^%ZO SF("EON")  QDTPRT S Y ="" Q:X'?7 N  S Y=(+$ E(X,4,5))_ "-"_(+$E(X ,6,7))_"-" _(1700+$E( X,1,3)) Q 
  6  
  7   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)
  8   CHMIS023 ; JEA/DEN;CH AMPVA SYST EM STATUS  DISPLAY;08 /08/94 11: 15 PM ;;1. 0;CHAMPVA  SYSTEM;;JU LY 4, 1990 ;Build 1 ; ;Called by  ^CHMIS021 , ^CHMIS02 2 ;;Calls  ^CHMIS021   ;; ;YJK 2 /8/2010 -  DEV007247- 03 Vista M enu shows  the bottom  displays  from CHV M onitor dat a when Qui t from the  applicati on. ;JSG2  10/18/2017  - CPE005- 023 Make a llowances  for new ED I RO statu sZSET S:'$ D(DUZ) DUZ =1,DUZ(0)= "" I '$D(D T) S %DT=" ",X="T" D  ^%DT S DT= Y S:'$D(IO ZFO) IOZFO ="^^" S:'$ D(IOZBK) I OZBK="^" S :'$D(DTIME ) DTIME=60  I '$D(IOZ ) S %IS="N ",IOP=$I D  ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOSZNA M ; S RFRE SH=1,NORFR ESH=0,SCRN =RFRESH,SU B=0EN1 ;D  ^CHMGSET D  ^CHMFSET  D NOW^%DTC  S DAYHOLD =XEN2 D TO P D BOTTOM ^CHMIS021: SCRN=RFRES HEN3 D NOW ^%DTC D:X' =DAYHOLD   D DISP S S CRN=NORFRE SH .S DAYH OLD=X,DX=1 2 F DY=3:1 :17,$Y=DY, $X=DX X XY  W $E(CHL, 1,66) ; CP E005-023 M ove <> lin e down one  ; EN4 S D Y=20,DX=1, $Y=DY,$X=D X X XY W @ CHEEL X XY  R "<>",X: 30 G EN3:' $TEN4 S DY =21,DX=1,$ Y=DY,$X=DX  X XY W @C HEEL X XY  R "<>",X:3 0 G EN3:'$ T ; G END: $E(X)="Q", END:$E(X)= "q" I $E(X )="Z"!($E( X)="z") S  SCRN=RFRES H G EN1 I  $E(X)="M"! ($E(X)="m" ) D  D BOT TOM^CHMIS0 21 G EN4 . S MORE=MOR E+12 S:MOR E>LASTNUM  MORE=5 Q I  $E(X)="B"  D  G:'$D( LASTOVER)  EN3  S LAS TOVER=$O(^ CHMSTAT(LA STOVER)) K :'LASTOVER  LASTOVER  S SCRN=RFR ESH G EN3  .I $L(X)=1  D NOW^%DT C S X1=$S( $D(LASTOVE R):+$E(LAS TOVER,1,10 ),1:+$E(%, 1,10)),X2= -1 D C^%DT C S LASTOV ER=X-.0001  Q .I X?1" BA" S STEP =1 D AUTOB CK Q .I X? 1"BA"1.2N  S STEP=$P( X,"BA",2)  D AUTOBCK  Q .I X?1"B "1.3N1"@"1 .2N D  Q . .S X2="-"_ +$P($P(X," B",2),"@", 1) S CHLD= X D NOW^%D TC ..S X1= $S($D(LAST OVER):+$E( LASTOVER,1 ,10),1:+$E (%,1,10))  ..I +$E($P (CHLD,"@", 2))>24 S $ P(CHLD,"@" ,2)="00" . .S $P(X1," .",2)=$P(C HLD,"@",2)  D C^%DTC  S LASTOVER =X-.001 .I  X?1"B"1.3 N D  Q ..S  X2="-"_+$ P(X,"B",2)  S CHLD=X  D NOW^%DTC  ..S X1=$S ($D(LASTOV ER):+$E(LA STOVER,1,1 0),1:+$E(% ,1,10)) .. D C^%DTC S  LASTOVER= X-.001 .K  %DT S %DT= "PT",X=$P( X,"B",2) D  ^%DT D  Q  ..I Y=-1  S DX=3,$Y= DY,$X=DX X  XY W @CHE OL D  Q .. .X XY W @C HBON,"INVA LID BACK D ATE FORMAT ",@CHBOFF  R X:5 ...S :$D(LASTOV ER) LASTOV ER=LASTOVE R-.001 ..S  LASTOVER= Y-.001 Q I  $E(X)="F"  D  G:'$D( LASTOVER)  EN3  S LAS TOVER=$O(^ CHMSTAT(LA STOVER)) K :'LASTOVER  LASTOVER  S SCRN=RFR ESH G EN3  .I $L(X)=1  Q:'$D(LAS TOVER) D N OW^%DTC S  CHLD=% S X 1=$S($D(LA STOVER):+$ E(LASTOVER ,1,10),1:+ $E(%,1,10) ),X2=1 D C ^%DTC K:X' <CHLD LAST OVER Q:'$D (LASTOVER)  S LASTOVE R=X-.0001  Q .I X?1"F "1.3N1"@"1 .2N D  Q . .S X2=+$P( $P(X,"F",2 ),"@",1) S  CHLD=X D  NOW^%DTC S  CHLD2=% . .S X1=$S($ D(LASTOVER ):+$E(LAST OVER,1,10) ,1:+$E(%,1 ,10)) ..I  +$E($P(CHL D,"@",2))> 24 S $P(CH LD,"@",2)= "00" ..S $ P(X1,".",2 )=$P(CHLD, "@",2) D C ^%DTC ..I  X'<CHLD2 K  LASTOVER  Q ..S LAST OVER=X-.00 1 .I X?1"F "1.3N D  Q  ..S X2=+$ P(X,"F",2)  S CHLD=X  D NOW^%DTC  S CHLD2=%  ..S X1=$S ($D(LASTOV ER):+$E(LA STOVER,1,1 0),1:+$E(% ,1,10)) .. D C^%DTC . .I X'<CHLD 2 K LASTOV ER Q ..S L ASTOVER=X- .001 .K %D T S %DT="P T",X=$P(X, "F",2) D ^ %DT D  Q . .I Y=-1 S  DX=3,$Y=DY ,$X=DX X X Y W @CHEOL  D  Q ...X  XY W @CHB ON,"INVALI D BACK DAT E FORMAT", @CHBOFF R  X:5 ...S:$ D(LASTOVER ) LASTOVER =LASTOVER- .001 ..S C HLD=Y D NO W^%DTC I Y '<% K LAST OVER Q ..S  LASTOVER= CHLD-.001  Q I $E(X)= "H"!($E(X) ="h") G:'$ D(LASTOVER ) EN3 S SC RN=RFRESH  K LASTOVER  G EN3 I $ E(X)="" S  SCRN=RFRES H G EN3 I  $E(X)="?"  S DX=3,$Y= DY,$X=DX X  XY W @CHE OL D  G CH MIS023 .D  BOXF^CHSC1 (5,5,75,21 ),CLRBOXI^ CHSC1(5,5, 75,21,XY," ","") .S D Y=6,DX=6,$ Y=DY,$X=DX  X XY W "  Please Sel ect From T he List Be low...or.. ." .S DY=8  X XY W "  Enter: 'M'  for More  Options 'Q ' to Quit. " .S DY=10  X XY W "  To See Pas t Data Ent er: B, B<n um>, B<num >@<time> ( 2 digit)"  .S DY=11 X  XY W " or : B<filema n date for mat>" .S D Y=12 X XY  W " or: BA  to step b ack by 1 d ay/2 secon ds" .S DY= 14 X XY W  " To Go Fo rward Ente r: F, F<nu m>, F<num> @<time> (2  digit)" . S DY=15 X  XY W " or:  F<fileman  date form at>" .S DY =17 X XY W  " Return  to Current  Enter: H"  .S DY=19  X XY W " P ress any k ey to cont inue..." R  X:20 I (X '=+X)!(+X> LASTNUM)!( +X<1)!(X=5 )!(X=6) S  DX=3,$Y=DY ,$X=DX X X Y W @CHEOL  D  G EN4  .S DX=3,$Y =DY,$X=DX  X XY W @CH EOL X XY W  @CHBON,"  PLEASE SEL ECT FROM T HE OPTIONS  BELOW. OR  ENTER '?'  FOR ADDIT IONAL OPTI ONS",@CHBO FF R X:5 S  SCREEN=0  S SNO=+X G  ^CHMIS021 :X=1 I X=2  S SCREEN= 1 D:'$D(IT EM(SCREEN) ) G EN1^CH MIS021 .S  DX=3,$Y=DY ,$X=DX X X Y W @CHEOL  X XY W @C HBON,"CURR ENTLY THER E ARE NOT  ENOUGH ITE MS FOR THI S OPTION", @CHBOFF R  X:5 S SCRE EN=0 I X=3  S SCREEN= 2 D:'$D(IT EM(SCREEN) ) G EN1^CH MIS021 .S  DX=3,$Y=DY ,$X=DX X X Y W @CHEOL  X XY W @C HBON,"CURR ENTLY THER E ARE NOT  ENOUGH ITE MS FOR THI S OPTION", @CHBOFF R  X:5 S SCRE EN=0 I X=4  S SCREEN= 3 D  G EN1 ^CHMIS021  .I '$D(CHD UZ) D WHOR U^CHMIS021  Q .I CHDU Z=1 D WHOR U^CHMIS021  Q .I '$D( ^CHMDIC(74 1002.21,CH DUZ,101,0) ) D NOUSER ^CHMIS021  Q I X'>LAS TNUM S SCR N=RFRESH G  EN3 G EN3  S SNO=+X  S SCRN=RFR ESH G EN3E ND  ;U $I  X ^%ZOSF(" EON") W @C HMARESE,@C HALLOFF S  DY=23,DX=1 ,$Y=DY,$X= DX X XY Q  ;YJK 2/8/2 010 - DEV0 07247-03 U  $I X ^%ZO SF("EON")  W @CHMARES E,@CHALLOF F S DY=23, DX=1,$Y=DY ,$X=DX X X Y W # Q                ;YJK 2/8/ 2010 - DEV 007247-03T OP Q:SCRN= NORFRESH   W @IOF,@CH MARESE K B L,CHL S $P (BL," ",81 )="" S $P( CHL," ",81 )="",DX=10 ,DY=1,$Y=D Y,$X=DX S  UPLINE="W  @CHREVON," " "",@CHRE VOFF" X XY  W @CHREVO N,@CHBON S  DX=25,$Y= DY,$X=DX W  $E(BL,10, 80) S DY=1  X XY W "C HAMPVA PAY MENT CENTE R SYSTEM S TATUS V2.0 " W $C(27) ,"+0" S ZP LINE="W $C (27,79,97) " W @CHBOF F F DX=10, 80 F DY=2: 1:17 S $Y= DY,$X=DX X  XY,UPLINE  S DX=10,D Y=18,$Y=DY ,$X=DX X X Y W @CHREV ON,$E(BL,1 0,80) S CT =5 S DX=15 ,$Y=DY,$X= DX X XY W  "CURRENT:  DAY IN: DA Y OUT:",@C HREVOFF,@C HBON S DY= 19 F DX=12 :5:77 S CT =CT+1 S $Y =DY,$X=DX  X XY W $S( CT<12:CT,C T=12:"NOON ",1:CT-12)  S DY=1,DX =1,$Y=DY,$ X=DX X XY  W "SCALE", @CHBOFF F  DY=13:1:18  X XY X ZP LINE S DX= 2 F DY=12: 1:17 S $Y= DY,$X=DX X  XY W @CHR EVON X UPL INE W @CHR EVOFF S DX =1,DY=19,$ Y=DY,$X=DX  X XY W @C HBON,@CHRE VON,"IN",@ CHREVOFF,@ CHBOFF S D X=2,DY=18, $Y=DY,$X=D X X XY W @ CHREVON,"O UT",@CHREV OFF QDISP  Q:'$D(SNO)  K B S HIG H=0,NAM=$P (A(SNO),"^ "),GLOB=$P (A(SNO),"^ ",2),%DT=" " D NOW^%D TC S X=$S( $D(LASTOVE R):LASTOVE R,1:X) S X =$E(X,4,5) _"-"_$E(X, 6,7)_"-"_$ E(X,2,3) ; HM 10/17/2 017 ADDED  EDI REOPEN  I GLOB="I MAGE("!(GL OB="MANUAL (")!(GLOB= "DIST(")!( GLOB="CHMQ A1(")!(GLO B="CHMQA2( ")!(GLOB=" CHMEDIQ(") !(GLOB="CH MEDIL(")!( GLOB="WAND ")!(GLOB=" SCAN")!(GL OB="EDI/OC R")!(GLOB= "CHMASQ1(" )!(GLOB="E DI-REOPEN" ) D  S GLO BALNM=GLOB ALNM_" @ " _X,L=$L(GL OBALNM) G  DI1 .S GLO BALNM="" . S:GLOB="DI ST(" GLOBA LNM="IMAGE S PENDING  MANID TO P DI INTEGRA TION"  .S: GLOB="IMAG E(" GLOBAL NM="IMAGED  SUBMISSIO NS AVAILAB LE"  .S:GL OB="MANUAL (" GLOBALN M="MANUAL  SUBMISSION S AVAILABL E"  .S:GLO B="CHMEDIL (" GLOBALN M="OCR SUB MISSIONS P ROCESSED"    ;TLH 01/ 19/07 .S:G LOB="CHMED IQ(" GLOBA LNM="EDI C LAIMS PEND ING"  .S:G LOB="CHMQA 1(" GLOBAL NM="QUALIT Y ASSURANC E QUEUE/QM D" .S:GLOB ="CHMASQ1( " GLOBALNM ="AUDIT SU PPORT QUEU E CODING Q UEUE" .S:G LOB="CHMQA 2(" GLOBAL NM="QUALIT Y ASSURANC E QUEUE/CP D" .S:GLOB ="WAND" GL OBALNM="SU BMISSIONS  PENDING PU LL" .S:GLO B="SCAN" G LOBALNM="S UBMISSIONS  PENDING S CAN" .S:GL OB="EDI/OC R" GLOBALN M="EDI SUB MISSIONS T O PROCESS"   ; TLH 1/ 19/07 .S:G LOB="EDI-R EOPEN" GLO BALNM="EDI  REOPEN" ; HM 10/17/2 017 .Q I G LOB="CHMAS Q1(" D  G  DI1A .S GL OBAL="^CHM ASQ(0)" .S  GLOBALNM= "ASQ - COD ING QUEUE  @"_X .Q S  GLOBAL="^" _GLOB_"0)"  S GLOBALN M=$P(@GLOB AL,"^")_"  @ "_XDI1A  S L=$L(GLO BALNM)DI1  S DY=2,DX= 12,$Y=DY,$ X=DX X XY  W $E(BL,12 ,78) S DX= 10+((70-L) \2),$Y=DY, $X=DX X XY  W @CHBON, GLOBALNM,@ CHBOFF S X ="T" D ^%D T S DTT=Y  S:$D(LASTO VER) DTT=$ E(LASTOVER ,1,7) S (C HIN,CHOUT, CHTOT)=0 F  TIME=6:1: 19 S T=TIM E S:T<10 T =0_T S T=D TT+(T/100)  D .S B(T, "IN")=0 S: $D(^CHMSTA T(T,GLOB))  B(T,"IN") =+$P(^(GLO B),"^",2), CHIN=CHIN+ B(T,"IN")  .S B(T,"OU T")=0 S:$D (^(GLOB))  B(T,"OUT") =+$P(^(GLO B),"^",3), CHOUT=CHOU T+B(T,"OUT "),CHTOT=$ P(^(GLOB), "^",1) .S: B(T,"IN")> HIGH HIGH= B(T,"IN")  S:B(T,"OUT ")>HIGH HI GH=B(T,"OU T")D3 S:HI GH#75'=0 H IGH=HIGH+( 75-(HIGH#7 5)) S DX=3 ,CT=0,BASE =(HIGH\75) *5,$Y=DY,$ X=DX I SCR N=RFRESH S  DX=12 F D Y=3:1:17 S  $Y=DY,$X= DX X XY W  $E(CHL,1,6 6) I HIGH= 0 S DY=7,D X=21,$Y=DY ,$X=DX X X Y D  Q .W  "There has  been no a ctivity in  this queu e today."  .S DY=18,D X=24,$Y=DY ,$X=DX X X Y W @CHREV ON,@CHBON, " " S DX=4 1,$Y=DY,$X =DX X XY W  " " S DX= 58,$Y=DY,$ X=DX X XY  W " ",@CHR EVOFF,@CHB OFF .S DX= 3 F DY=17: -1:3 S $Y= DY,$X=DX X  XY W " "  S DX=3 F D Y=17:-1:3  S $Y=DY,$X =DX X XY S  CT=CT+1 W  @CHBON,$J ($FN(BASE* CT,","),7) ,@CHBOFF S  T="",CT=0 ,X=" " S D Y=18,DX=24 ,$Y=DY,$X= DX X XY W  @CHREVON,X  S DX=41,$ Y=DY,$X=DX  X XY W X  S DX=59,$Y =DY,$X=DX  X XY W X,@ CHREVOFF S  DX=12,$Y= DY,$X=DX S  DY=18,DX= 24,$Y=DY,$ X=DX X XY  W @CHREVON ,@CHBON,CH TOT S DX=4 1,$Y=DY,$X =DX X XY W  CHIN S DX =59,$Y=DY, $X=DX X XY  W CHOUT,@ CHREVOFF,@ CHBOFF S D X=12,$Y=DY ,$X=DXD4 S  T=$O(B(T) ) Q:T=""   S IN=B(T," IN"),OUT=B (T,"OUT")  S:IN&(IN<B ASE) IN=BA SE S:OUT&( OUT<BASE)  OUT=BASE I  IN F DY=1 7:-1:18-(( (IN/BASE)+ .5)\1) D . X XY X ZPL INE S DX=D X+1 I OUT  F DY=17:-1 :18-(((OUT /BASE)+.5) \1) S $Y=D Y,$X=DX  D  .X XY W @ CHREVON X  UPLINE W @ CHREVOFF S  DX=DX+4,$ Y=DY,$X=DX  G D4AUTOB CK ;GO BAC K 1 DAY EV ERY 2 SECO NDS S DX=3 ,$Y=DY,$X= DX X XY W  @CHEOL D   S ACT=0 .X  XY W @CHB ON," Press  RETURN To  Stop Auto matic Revi ew..",@CHB OFFAUTO1 D  NOW^%DTC  S X1=$S($D (LASTOVER) :+$E(LASTO VER,1,10), 1:+$E(%,1, 10)),X2="- "_STEP D C ^%DTC S LA STOVER=X-. 0001,SCRN= RFRESH D D ISP R X:2  S ACT=ACT+ 1 Q:ACT>30  G:'$T AUT O1 QSBRS S  Y="" U $I  X ^%ZOSF( "EOFF") F  I=1:1 R *X :$S($D(DTI ME):DTIME, 1:60) Q:(X =13)!(X=9) !(X=27) S: X'=127 Y=Y _$C(X) D:X =127 S:I=0  Y="" W $C (X) .S:I=1  I=0 Q:I=0  S:I'=1 I= I-2,Y=$E(Y ,1,I) W *8 ,*27,"[1X"  QSBRS1 K  DFOUT,DUOU T,DQOUT,DD OUT,D1OUT, D2OUT I X= 27 F I=1:1 :2 R *X D: I=2 .S:X=6 5 D1OUT=""  S:X=66 D2 OUT="" S:X =9 DDOUT=" " I Y="^^"  S (DFOUT, Y)="" S:Y= "^" (DUOUT ,Y)="" S:Y ?1"?".E!(Y ["^") (DQO UT,Y)="" U  $I X ^%ZO SF("EON")  QDTPRT S Y ="" Q:X'?7 N  S Y=(+$ E(X,4,5))_ "-"_(+$E(X ,6,7))_"-" _(1700+$E( X,1,3)) Q 
  9  
  10  
  11   Difference s
  12  
  13    ;HM 10/17 /2017 ADDE D EDI REOP EN
  14   (GLOB="EDI -REOPEN")
  15  
  16    .S:GLOB=" EDI-REOPEN " GLOBALNM ="EDI REOP EN" ;HM 10 /17/2017
  17  
  18  
  19  
  20  
  21  
  22  
  23  
  24  
  25  
  26  
  27  
  28  
  29  
  30  
  31  
  32  
  33  
  34  
  35  
  36  
  37   Passed XIN DEX?  (Y /  N):