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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 74 |
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: 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): |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.