Produced by Araxis Merge on 12/7/2017 6:27:08 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_1\User Story CPE005-032 | CPE Teams 1-3 Developer Form - CPE005-032.docx | Thu Dec 7 15:13:22 2017 UTC |
2 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_1\User Story CPE005-032 | CPE Teams 1-3 Developer Form - CPE005-032.docx | Thu Dec 7 19:07:18 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 24 |
Changed | 2 | 4 |
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 | Developer Name(s): Dennis Bri cker | |
2 | Associated User Stor y/Stories: CPE005-0 32 | |
3 | ||
4 | ORIGINAL C HMFADRV | |
5 | CHMFADRV ; PJU/DEN;MA IN DRIVER CHAMPVA;07 /15/99 10: 42 AM ;;1. 0;CHAMPVA SYSTEM;;JU LY 4, 1990 ; ;PT 1139 2 ;TT 1106 0 JEH 11/2 6/10 - ADD ING USER L OCK ;CFS 0 8/01/2018 CPE005-004 Modify th e Doc ID S creen for CHAMPVA an d SB EDI R eopen. Q:$ $IPUSRLK^C HMFADRV(0) =1 ;TT 110 60 JEH 11/ 26/10 K VQ AURLFG,CHE LQFLG N CH MFPDI,CHMO PDI S PS=0 ,FKIL=0,FI PAY=0,BAD= 0,X=0 ;S X =$ZF(-1,"U SERNAME") S CHSS="" ;;S X=$ZF( -1,X,7),CH SS=X ; Go to CHMFSET and set s creen vari ables D ^C HMFSET ; I f there is no DUZ in fo, output an error message an d quit the routine. I '$D(^CHM DIC(741002 .21,DUZ,0) ) D NOUSE^ CHMFADR1 G END ; Det ermine if User has d ata in pie ce 10. If so, identi fy IPSUB v alue and g o to CALLS UB otherwi se continu e. I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) '="" S IPS UB="" D G:IPSUB'=" " CALLSUB .S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0 IPSUB="MA NUAL^CHMFA DR4" .S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=1 IPSU B="SCAN^CH MFADR4" .S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 I PSUB="OCR^ CHMFADR4" .S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3 IPSUB="SB OCR^CHMFAD R4" .S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=4 IPSUB ="OCR2^CHM FADR4" .S: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=5 IP SUB="SBOCR 2^CHMFADR4 " .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =6 IPSUB=" OCRR^CHMFA DR4" ;CPE005-00 4 .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =7 IPSUB=" SBOCRR^CHM FADR4" ;CPE005-00 4 .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =8 IPSUB=" MANUALR^CH MFADR4" ;M ANUAL EDI REOPEN BDB 07262017 W @IOF ;SKDSTRT W !!,"Are y ou enterin g <S>canne d, <M>anua l, CHAMPVA <E>DI, S< B>/CWVV ED I," W !," CHAM PVA <O>CR, SB/C<W>VV OCR, <RC> REOPEN CHA MPVA EDI,< RS>REOPEN SB EDI," W !," or < ER> REOPEN Manual ED I submissi ons? " D C SBRS^CHSC2 ; If user enters "^ ^", goto E ND and qui t routine G:$D(DUOUT ) END G:$D (DFOUT) EN D ; If use r enters n othing and hits retu rn, re-wri te to scre en and ret urn to STR T ;CPE005- 004 Add "R C" and "RS " options to horizon tal menu. I $D(DQOUT ) D G STRT .W !!,"Enter 'S' for Sc anned, 'M' for Manua l, 'E' for CHV EDI, 'B' for SB /CWVV EDI, " .W !,"'O ' for CHV OCR, 'W' f or SB/CWVV OCR, 'RC' for REOPE N CHAMPVA EDI," .W ! ,"'RS' for REOPEN SB EDI submi ssions, or 'ER' for Manual EDI ReOpen " ; Y holds the first letter of whatever t he user en tered. If nil, retur n to STRT G:Y="" STR T I (Y'="M ")&(Y'="E" )&(Y'="S") &(Y'="B")& (Y'="O")&( Y'="W")&(Y '="RC")&(Y '="RS")&(Y '="ER") G STRT ; Set the 10th piece to e qual the u ser's entr y and set IPSUB to t he appropr iate strin g. I Y="M" S $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0 S IPSUB=" MANUAL^CHM FADR4" ; M ANUAL I Y= "E" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=2 S IPSU B="OCR^CHM FADR4" ; C HV EDI I Y ="S" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=1 S IPS UB="SCAN^C HMFADR4" ; SCANNED I Y="B" S $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=3 S I PSUB="SBOC R^CHMFADR4 " ; SB/CWV V EDI I Y= "O" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=4 S IPSU B="OCR2^CH MFADR4" ; CHV OCR I Y="W" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=5 S IP SUB="SBOCR 2^CHMFADR4 " ; SB/CWV V OCR I Y= "RC" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=6 S IPS UB="OCRR^C HMFADR4" ; CHV EDI R EOPEN CPE0 05-004 I Y ="RS" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=7 S IP SUB="SBOCR R^CHMFADR4 " ; SB/CWV V EDI REOP EN CPE005- 004 I Y="E R" S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =8 S IPSUB ="MANUALR^ CHMFADR4" ; MANUAL E DI REOPEN ;CALLSUB ; ; Do the routine na med in the variable IPSUB. D @ IPSUB G:$D (CHQUIT) E ND G:$D(CH MFPAUS) EN D G:$D(CHM FKIL) END G:$D(CHMFE XIT) END G :$D(CHMFPD RV) END G: $D(DUOUT) END G:$D(D FOUT) END ;CHECK ;CH ECK DATA A ND SORT CA LLED IN HE RE ; G:CHM FPDI="" A8 A2 D CMPLT ^CHMFIMG S CHMFPP="C IP" D ^CHM FWK01 D KL OCK^CHMFAD R1 D DELST 1^CHMFADR1 S CHMFPP= "SST" D ^C HMFWK01 D ^CHMFSRT ; SENDS CLAI MS TO CLAI M SORT I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=0 D . S CHMQNAM= "MANUAL(", CHMOUT=1,I PSUB="MANU AL^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 D .S C HMQNAM="IM AGE(",CHMO UT=1,IPSUB ="SCAN^CHM FADR4" .K CHMIN D ^C HMIS041 I $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=2 D .S CHMQNAM ="OCR(",CH MOUT=1,IPS UB="OCR^CH MFADR4" .K CHMIN D ^ CHMIS041 I $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=3 D .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR ^CHMFADR4" .K CHMIN D ^CHMIS04 1 I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 D .S CHM QNAM="OCR( ",CHMOUT=1 ,IPSUB="OC R2^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=5 D .S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" SBOCR2^CHM FADR4" .K CHMIN D ^C HMIS041 I $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=6 D ;CPE005-00 4 .S CHMQN AM="OCR(", CHMOUT=1,I PSUB="OCRR ^CHMFADR4" .K CHMIN D ^CHMIS04 1 I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 D ;CPE005-00 4 .S CHMQN AM="OCR(", CHMOUT=1,I PSUB="SBOC RR^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=8 D .S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" MANUALR^CH MFADR4" .K CHMIN D ^ CHMIS041 S CHMFPP="C ST" D ^CHM FWK01 S $P (^CHMIMAGE (CHMFPDI,0 ),"^",10)= 1 K CHMFCL MS,CHMFCL, CHMFREJ D SORT^CHFCD UTL D ^CHF CDDRV ;CAL LS CLAIM E DIT UTILIT Y ^CHMFA80 1 I $D(CHN EWPG) D G CALLSUB .D NEWPG^C HMFADR1 .S $P(^CHMIM G(CHMFPDI, 0),"^",6)= 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =0 D ..S I PSUB="MANU AL^CHMFADR 4" ..D PDI UP^CHMFABU 3(CHMFPDI, $P(^CHMIMG (CHMFPDI,0 ),"^",6)) ..S CHMQNA M="MANUAL( ",CHMIN=1 ..K CHMOUT D ^CHMIS0 41 .I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 D ..S IPSUB="SCA N^CHMFADR4 " ..S CHMQ NAM="IMAGE (",CHMIN=1 ..K CHMOU T D ^CHMIS 041 .I $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=2 D ..S IPSUB="OC R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =3 D ..S I PSUB="SBOC R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =4 D ..S I PSUB="OCR2 ^CHMFADR4" ..S CHMQN AM="OCR(", CHMIN=1 .. K CHMOUT D ^CHMIS041 .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 D ..S IP SUB="SBOCR 2^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =6 D ;CPE005-00 4 ..S IPSU B="OCRR^CH MFADR4" .. S CHMQNAM= "OCR(",CHM IN=1 ..K C HMOUT D ^C HMIS041 .I $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=7 D ;CPE005-00 4 ..S IPSU B="SBOCRR^ CHMFADR4" ..S CHMQNA M="OCR(",C HMIN=1 ..K CHMOUT D ^CHMIS041 .I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8 D ..S IPS UB="MANUAL R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT D ^CHMIS04 1 .S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",5)= CHMFPDI D: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)'=0 R EMV1^CHMFA DR1A5 D NO W^%DTC N C HOSEN S $P (^CHMIMAGE (CHMFPDI,0 ),"^",5)=% S CHOSEN= $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10) I CH OSEN=6!(CH OSEN=7)!(C HOSEN=8) D ;CPE005-00 4, CPE005- 069 .I $G( CHMOPDI)'= "" D ..I $ D(^CHMPAY( "C",CHMFPD I)) D ;Set EDI R eopen flag . CPE005-0 04 ...S $P (^CHMIMG(C HMFPDI,"E- REOPEN")," ^")=CHMOPD I,$P(^CHMI MG(CHMFPDI ,"E-REOPEN "),"^",3)= 1 ...S $P( ^CHMIMG(CH MOPDI,"E-R EOPEN"),"^ ",2)=CHMFP DI,$P(^CHM IMG(CHMOPD I,"E-REOPE N"),"^",3) =1A8 D KIL ALL^CHMFAD R1 G:$D(CH RSTSRT) EN D D BATCH^ CHMFADR1 S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=0 I PSUB="MANU AL^CHMFADR 4" S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =2 IPSUB=" OCR^CHMFAD R4" S:$P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 IPSUB= "SCAN^CHMF ADR4" S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=3 IPSU B="SBOCR^C HMFADR4" S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=4 I PSUB="OCR2 ^CHMFADR4" S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5 IPSUB="SB OCR2^CHMFA DR4" S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=6 IPSUB ="OCRR^CHM FADR4" ;CPE005-00 4 S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 IPSUB="S BOCRR^CHMF ADR4" ;CPE005-00 4 S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 IPSUB="M ANUALR^CHM FADR4" G C ALLSUB ;EN D I $D(^CH MDIC(74100 2.21,DUZ,0 )) D:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) '=0 REMV^C HMFADR1 X CHRESET I $D(CHMFPDI ) K:CHMFPD I'="" ^CHM IMAGE("LOC K",CHMFPDI ) I '$D(CH MFPAUS) D .D KILALL^ CHMFADR1 . S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)="" QUIT K CHB OFF,CHBON, CHEBOL,CHE EL,CHEOL,C HMAR,CHMAR ESET,CHMFU SER K CHRE VOFF,CHREV ON,CHULOFF ,CHULON,OU TFLG,IPSUB L Q:$$IPU SRLK^CHMFA DRV(1)=1 ; TT 11060 J EH 11/26/1 0 Q ; ;SUB ROUTINES C ALLED IN D RIVER ;ERR 1 S DY=5,D X=10 X XY W "User is unknown t o system", @CHEOL S D Y=6,DX=10 X XY W "Pl ease Log o nto termin al again", @CHEOL R R D:2 Q QIPU SRLK(IPFLG ) ;USER LO CK TO PREV ENT MULTIP LE SESSION S ;TT 1106 0 JEH 11/2 6/10Q:$$EN VIR^CHTFLI B()'="LIVE " 0 ;FOR L IVE USE ON LYN IPLCK ;SETTING L OCK TO ALL OW USER TO RUN IP 0= UNLOCKED/1 =LOCKEDN I PMSG ;LOCKING M ESSAGES IP LCK=0I IPF LG=0 D.I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,22)=1 D.. S IPMSG="* ** IMAGE P ROCESSING (IP) IS CU RRENTLY IN USE, ONLY 1 SESSION IS ALLOWE D ***"..S IPMSG2="Pl ease conta ct your Su pervisor f or help.". .W @IOF,!! ,?(80-$L(I PMSG)/2),I PMSG,!!,IP MSG2,! H 3 ..S IPLCK= 1.E D..S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",22) =1..S IPLC K=0I IPFLG =1 D.S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",2 2)=0.S IPL CK=1Q IPLC KIPHLPDSK ;ALLOW OCI O HELPDESK TO LOCK/U NLOCK IP F OR USER ;T T 11060 JE H 11/26/10 N IPHMSG,T MPY,IPDUZS IPHMSG="L OCK/UNLOCK IMAGE PRO CESSING (I P) SCREEN FOR USER"W #,!!,?(80 -$L(IPHMSG )/2),IPHMS G,!!S DIR( 0)="PO^741 002.21:EMZ ",DIR("A") ="User to unlock" D ^DIR K DIR Q:$D(DIRUT )Q:Y=-1S I PDUZ=+YI $ P(^CHMDIC( 741002.21, +Y,0),"^", 22)=0&($P( ^CHMDIC(74 1002.21,+Y ,0),"^",5) ="") D Q.W !!,$P( ^VA(200,+Y ,0),"^",1) ," DOES NO T HAVE AN OPEN IMAGE PROCESSIN G (IP) SES SION TO UN LOCK." H 2 I $P(^CHMD IC(741002. 21,+Y,0)," ^",5)'="" W !!,"USER HAS SESSI ON OPEN WI TH AN ACTI VE PDI, DO UBLE CHECK BEFORE UN LOCKING.", !S TMPY=+Y W !S DIR(0 )="Y",DIR( "B")="NO", DIR("A")=" OK TO UNLO CK" D ^DIR K DIRI Y= 1 D.S $P(^ CHMDIC(741 002.21,TMP Y,0),"^",2 2)=0.D MMM SGK DIE,DR ,DA,YQMMMS G ;GENERAT E MM MESSA GE TO CPD TOP 4 SPEC IALIST AND USER NEED ING UNLOCK EDQ:'$D(IP DUZ)N USRN M,UNLDTD N OW^%DTC S UNLDT=$$FM TE^XLFDT(% )S USRNM=$ P(^VA(200, IPDUZ,0)," ^",1)S CNT =1,^TMP($J ,"CHMIPLK" ,CNT)="",C NT=CNT+1S ^TMP($J,"C HMIPLK",CN T)="User " _USRNM_" h as been un locked fro m Image Pr ocessing ( IP).",CNT= CNT+1S ^TM P($J,"CHMI PLK",CNT)= "",CNT=CNT +1S ^TMP($ J,"CHMIPLK ",CNT)="Un lock was d one: "_UNL DT,CNT=CNT +1S ^TMP($ J,"CHMIPLK ",CNT)="", CNT=CNT+1S XMTEXT="^ TMP($J,""C HMIPLK""," S XMDUZ=.5 S XMY(IPDU Z)="" ;COURTESY COPY FOR U SER NEEDIN G UNLOCKED S XMY(DUZ) ="" ;COPY FOR USER U NLOCKING V E;S XMY("
|
|
6 | ||
7 | ||
8 | ||
9 | EDITED CHM FADRV | |
10 | CHMFADRV ; PJU/DEN;MA IN DRIVER CHAMPVA;07 /15/99 10: 42 AM ;;1. 0;CHAMPVA SYSTEM;;JU LY 4, 1990 ; ;PT 1139 2 ;TT 1106 0 JEH 11/2 6/10 - ADD ING USER L OCK ;CFS 0 8/01/2018 CPE005-004 Modify th e Doc ID S creen for CHAMPVA an d SB EDI R eopen. Q:$ $IPUSRLK^C HMFADRV(0) =1 ;TT 110 60 JEH 11/ 26/10 K VQ AURLFG,CHE LQFLG N CH MFPDI,CHMO PDI S PS=0 ,FKIL=0,FI PAY=0,BAD= 0,X=0 ;S X =$ZF(-1,"U SERNAME") S CHSS="" ;;S X=$ZF( -1,X,7),CH SS=X ; Go to CHMFSET and set s creen vari ables D ^C HMFSET ; I f there is no DUZ in fo, output an error message an d quit the routine. I '$D(^CHM DIC(741002 .21,DUZ,0) ) D NOUSE^ CHMFADR1 G END ; Det ermine if User has d ata in pie ce 10. If so, identi fy IPSUB v alue and g o to CALLS UB otherwi se continu e. I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) '="" S IPS UB="" D G:IPSUB'=" " CALLSUB .S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0 IPSUB="MA NUAL^CHMFA DR4" .S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=1 IPSU B="SCAN^CH MFADR4" .S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 I PSUB="OCR^ CHMFADR4" .S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3 IPSUB="SB OCR^CHMFAD R4" .S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=4 IPSUB ="OCR2^CHM FADR4" .S: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=5 IP SUB="SBOCR 2^CHMFADR4 " .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =6 IPSUB=" OCRR^CHMFA DR4" ;CPE005-00 4 .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =7 IPSUB=" SBOCRR^CHM FADR4" ;CPE005-00 4 .S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =8 IPSUB=" MANUALR^CH MFADR4" ;M ANUAL EDI REOPEN BDB 07262017 W @IOF ;SKDSTRT W !!,"Are y ou enterin g <S>canne d, <M>anua l, CHAMPVA <E>DI, S< B>/CWVV ED I," W !," CHAM PVA <O>CR, SB/C<W>VV OCR, <RC> REOPEN CHA MPVA EDI,< RS>REOPEN SB EDI," W !," or < ER> REOPEN Manual ED I submissi ons? " D C SBRS^CHSC2 ; If user enters "^ ^", goto E ND and qui t routine G:$D(DUOUT ) END G:$D (DFOUT) EN D ; If use r enters n othing and hits retu rn, re-wri te to scre en and ret urn to STR T ;CPE005- 004 Add "R C" and "RS " options to horizon tal menu. I $D(DQOUT ) D G STRT .W !!,"Enter 'S' for Sc anned, 'M' for Manua l, 'E' for CHV EDI, 'B' for SB /CWVV EDI, " .W !,"'O ' for CHV OCR, 'W' f or SB/CWVV OCR, 'RC' for REOPE N CHAMPVA EDI," .W ! ,"'RS' for REOPEN SB EDI submi ssions, or 'ER' for Manual EDI ReOpen " ; Y holds the first letter of whatever t he user en tered. If nil, retur n to STRT G:Y="" STR T I (Y'="M ")&(Y'="E" )&(Y'="S") &(Y'="B")& (Y'="O")&( Y'="W")&(Y '="RC")&(Y '="RS")&(Y '="ER") G STRT ; Set the 10th piece to e qual the u ser's entr y and set IPSUB to t he appropr iate strin g. I Y="M" S $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0 S IPSUB=" MANUAL^CHM FADR4" ; M ANUAL I Y= "E" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=2 S IPSU B="OCR^CHM FADR4" ; C HV EDI I Y ="S" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=1 S IPS UB="SCAN^C HMFADR4" ; SCANNED I Y="B" S $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=3 S I PSUB="SBOC R^CHMFADR4 " ; SB/CWV V EDI I Y= "O" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=4 S IPSU B="OCR2^CH MFADR4" ; CHV OCR I Y="W" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=5 S IP SUB="SBOCR 2^CHMFADR4 " ; SB/CWV V OCR I Y= "RC" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=6 S IPS UB="OCRR^C HMFADR4" ; CHV EDI R EOPEN CPE0 05-004 I Y ="RS" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=7 S IP SUB="SBOCR R^CHMFADR4 " ; SB/CWV V EDI REOP EN CPE005- 004 I Y="E R" S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =8 S IPSUB ="MANUALR^ CHMFADR4" ; MANUAL E DI REOPEN ;CALLSUB ; ; Do the routine na med in the variable IPSUB. D @ IPSUB G:$D (CHQUIT) E ND G:$D(CH MFPAUS) EN D G:$D(CHM FKIL) END G:$D(CHMFE XIT) END G :$D(CHMFPD RV) END G: $D(DUOUT) END G:$D(D FOUT) END ;CHECK ;CH ECK DATA A ND SORT CA LLED IN HE RE ; G:CHM FPDI="" A8 A2 D CMPLT ^CHMFIMG S CHMFPP="C IP" D ^CHM FWK01 D KL OCK^CHMFAD R1 D DELST 1^CHMFADR1 S CHMFPP= "SST" D ^C HMFWK01 D ^CHMFSRT ; SENDS CLAI MS TO CLAI M SORT I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=0 D . S CHMQNAM= "MANUAL(", CHMOUT=1,I PSUB="MANU AL^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 D .S C HMQNAM="IM AGE(",CHMO UT=1,IPSUB ="SCAN^CHM FADR4" .K CHMIN D ^C HMIS041 I $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=2 D .S CHMQNAM ="OCR(",CH MOUT=1,IPS UB="OCR^CH MFADR4" .K CHMIN D ^ CHMIS041 I $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=3 D .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR ^CHMFADR4" .K CHMIN D ^CHMIS04 1 I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 D .S CHM QNAM="OCR( ",CHMOUT=1 ,IPSUB="OC R2^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=5 D .S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" SBOCR2^CHM FADR4" .K CHMIN D ^C HMIS041 I $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=6 D ;CPE005-00 4 .S CHMQN AM="OCR(", CHMOUT=1,I PSUB="OCRR ^CHMFADR4" .K CHMIN D ^CHMIS04 1 I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 D ;CPE005-00 4 .S CHMQN AM="OCR(", CHMOUT=1,I PSUB="SBOC RR^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=8 D .S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" MANUALR^CH MFADR4" .K CHMIN D ^ CHMIS041 S CHMFPP="C ST" D ^CHM FWK01 S $P (^CHMIMAGE (CHMFPDI,0 ),"^",10)= 1 K CHMFCL MS,CHMFCL, CHMFREJ D SORT^CHFCD UTL D ^CHF CDDRV ;CAL LS CLAIM E DIT UTILIT Y ^CHMFA80 1 I $G(CHM OPDI) D ;bdb 10042 017 origin al pdi ben e-calc . N EW CHOSEN . S CHOSEN =$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10) I C HOSEN=6!(C HOSEN=7)!( CHOSEN=8) D .. S DIE =741000.2, DA=CHMOPDI ,DR=".06// /11;.22/// "_DT D ^DI E K DIE .. N CHMFPDI .. S CHMF PDI=CHMOPD I .. D SOR T^CHFCDUTL .. D QUE1 ^CHFCDUTL ;queue the bene chec k and bene calc I $D (CHNEWPG) D G CALLSUB .D NEWPG^C HMFADR1 .S $P(^CHMIM G(CHMFPDI, 0),"^",6)= 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =0 D ..S I PSUB="MANU AL^CHMFADR 4" ..D PDI UP^CHMFABU 3(CHMFPDI, $P(^CHMIMG (CHMFPDI,0 ),"^",6)) ..S CHMQNA M="MANUAL( ",CHMIN=1 ..K CHMOUT D ^CHMIS0 41 .I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 D ..S IPSUB="SCA N^CHMFADR4 " ..S CHMQ NAM="IMAGE (",CHMIN=1 ..K CHMOU T D ^CHMIS 041 .I $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=2 D ..S IPSUB="OC R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =3 D ..S I PSUB="SBOC R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =4 D ..S I PSUB="OCR2 ^CHMFADR4" ..S CHMQN AM="OCR(", CHMIN=1 .. K CHMOUT D ^CHMIS041 .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 D ..S IP SUB="SBOCR 2^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =6 D ;CPE005-00 4 ..S IPSU B="OCRR^CH MFADR4" .. S CHMQNAM= "OCR(",CHM IN=1 ..K C HMOUT D ^C HMIS041 .I $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=7 D ;CPE005-00 4 ..S IPSU B="SBOCRR^ CHMFADR4" ..S CHMQNA M="OCR(",C HMIN=1 ..K CHMOUT D ^CHMIS041 .I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8 D ..S IPS UB="MANUAL R^CHMFADR4 " ..S CHMQ NAM="OCR(" ,CHMIN=1 . .K CHMOUT D ^CHMIS04 1 .S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",5)= CHMFPDI D: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)'=0 R EMV1^CHMFA DR1A5 D NO W^%DTC N C HOSEN S $P (^CHMIMAGE (CHMFPDI,0 ),"^",5)=% S CHOSEN= $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10) I CH OSEN=6!(CH OSEN=7)!(C HOSEN=8) D ;CPE005-00 4, CPE005- 069 .I $G( CHMOPDI)'= "" D ..I $ D(^CHMPAY( "C",CHMFPD I)) D ;Set EDI R eopen flag . CPE005-0 04 ...S $P (^CHMIMG(C HMFPDI,"E- REOPEN")," ^")=CHMOPD I,$P(^CHMI MG(CHMFPDI ,"E-REOPEN "),"^",3)= 1 ...S $P( ^CHMIMG(CH MOPDI,"E-R EOPEN"),"^ ",2)=CHMFP DI,$P(^CHM IMG(CHMOPD I,"E-REOPE N"),"^",3) =1A8 D KIL ALL^CHMFAD R1 G:$D(CH RSTSRT) EN D D BATCH^ CHMFADR1 S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=0 I PSUB="MANU AL^CHMFADR 4" S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =2 IPSUB=" OCR^CHMFAD R4" S:$P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 IPSUB= "SCAN^CHMF ADR4" S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=3 IPSU B="SBOCR^C HMFADR4" S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=4 I PSUB="OCR2 ^CHMFADR4" S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5 IPSUB="SB OCR2^CHMFA DR4" S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=6 IPSUB ="OCRR^CHM FADR4" ;CPE005-00 4 S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 IPSUB="S BOCRR^CHMF ADR4" ;CPE005-00 4 S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 IPSUB="M ANUALR^CHM FADR4" G C ALLSUB ;EN D I $D(^CH MDIC(74100 2.21,DUZ,0 )) D:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) '=0 REMV^C HMFADR1 X CHRESET I $D(CHMFPDI ) K:CHMFPD I'="" ^CHM IMAGE("LOC K",CHMFPDI ) I '$D(CH MFPAUS) D .D KILALL^ CHMFADR1 . S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)="" QUIT K CHB OFF,CHBON, CHEBOL,CHE EL,CHEOL,C HMAR,CHMAR ESET,CHMFU SER K CHRE VOFF,CHREV ON,CHULOFF ,CHULON,OU TFLG,IPSUB L Q:$$IPU SRLK^CHMFA DRV(1)=1 ; TT 11060 J EH 11/26/1 0 Q ; ;SUB ROUTINES C ALLED IN D RIVER ;ERR 1 S DY=5,D X=10 X XY W "User is unknown t o system", @CHEOL S D Y=6,DX=10 X XY W "Pl ease Log o nto termin al again", @CHEOL R R D:2 Q QIPU SRLK(IPFLG ) ;USER LO CK TO PREV ENT MULTIP LE SESSION S ;TT 1106 0 JEH 11/2 6/10Q:$$EN VIR^CHTFLI B()'="LIVE " 0 ;FOR L IVE USE ON LYN IPLCK ;SETTING L OCK TO ALL OW USER TO RUN IP 0= UNLOCKED/1 =LOCKEDN I PMSG ;LOCKING M ESSAGES IP LCK=0I IPF LG=0 D.I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,22)=1 D.. S IPMSG="* ** IMAGE P ROCESSING (IP) IS CU RRENTLY IN USE, ONLY 1 SESSION IS ALLOWE D ***"..S IPMSG2="Pl ease conta ct your Su pervisor f or help.". .W @IOF,!! ,?(80-$L(I PMSG)/2),I PMSG,!!,IP MSG2,! H 3 ..S IPLCK= 1.E D..S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",22) =1..S IPLC K=0I IPFLG =1 D.S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",2 2)=0.S IPL CK=1Q IPLC KIPHLPDSK ;ALLOW OCI O HELPDESK TO LOCK/U NLOCK IP F OR USER ;T T 11060 JE H 11/26/10 N IPHMSG,T MPY,IPDUZS IPHMSG="L OCK/UNLOCK IMAGE PRO CESSING (I P) SCREEN FOR USER"W #,!!,?(80 -$L(IPHMSG )/2),IPHMS G,!!S DIR( 0)="PO^741 002.21:EMZ ",DIR("A") ="User to unlock" D ^DIR K DIR Q:$D(DIRUT )Q:Y=-1S I PDUZ=+YI $ P(^CHMDIC( 741002.21, +Y,0),"^", 22)=0&($P( ^CHMDIC(74 1002.21,+Y ,0),"^",5) ="") D Q.W !!,$P( ^VA(200,+Y ,0),"^",1) ," DOES NO T HAVE AN OPEN IMAGE PROCESSIN G (IP) SES SION TO UN LOCK." H 2 I $P(^CHMD IC(741002. 21,+Y,0)," ^",5)'="" W !!,"USER HAS SESSI ON OPEN WI TH AN ACTI VE PDI, DO UBLE CHECK BEFORE UN LOCKING.", !S TMPY=+Y W !S DIR(0 )="Y",DIR( "B")="NO", DIR("A")=" OK TO UNLO CK" D ^DIR K DIRI Y= 1 D.S $P(^ CHMDIC(741 002.21,TMP Y,0),"^",2 2)=0.D MMM SGK DIE,DR ,DA,YQMMMS G ;GENERAT E MM MESSA GE TO CPD TOP 4 SPEC IALIST AND USER NEED ING UNLOCK EDQ:'$D(IP DUZ)N USRN M,UNLDTD N OW^%DTC S UNLDT=$$FM TE^XLFDT(% )S USRNM=$ P(^VA(200, IPDUZ,0)," ^",1)S CNT =1,^TMP($J ,"CHMIPLK" ,CNT)="",C NT=CNT+1S ^TMP($J,"C HMIPLK",CN T)="User " _USRNM_" h as been un locked fro m Image Pr ocessing ( IP).",CNT= CNT+1S ^TM P($J,"CHMI PLK",CNT)= "",CNT=CNT +1S ^TMP($ J,"CHMIPLK ",CNT)="Un lock was d one: "_UNL DT,CNT=CNT +1S ^TMP($ J,"CHMIPLK ",CNT)="", CNT=CNT+1S XMTEXT="^ TMP($J,""C HMIPLK""," S XMDUZ=.5 S XMY(IPDU Z)="" ;COURTESY COPY FOR U SER NEEDIN G UNLOCKED S XMY(DUZ) ="" ;COPY FOR USER U NLOCKING V E;S XMY("
|
|
11 | ||
12 | ||
13 | ||
14 | Passed XIN DEX? (Y / N): N/A |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.