Produced by Araxis Merge on 12/7/2017 6:27:23 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\937657-CPE005-051 Permission Error Message | CHMFADRV 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 | CHMFADRV Developer Form.docx | Thu Dec 7 21:02:22 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 36 |
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 | Routine Na me: _____ __CHMFADRV _______ | |
2 | Developer Name(s): __________ Cindy Stil es____ | |
3 | Associated User Stor y/Stories: ______ CPE005-051 | |
4 | ||
5 | Current ve rsion (Por tions that are added to, modif ied or del eted [Matc h up with New Versio n section) | |
6 | ||
7 | 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 Q:$$IP USRLK^CHMF ADRV(0)=1 ;TT 11060 JEH 11/26/ 10 K CHMFP DI,VQAURLF G,CHELQFLG S PS=0,FK IL=0,FIPAY =0,BAD=0,X =0 ;S X=$Z F(-1,"USER NAME") S C HSS="" ;;S X=$ZF(-1, X,7),CHSS= X ; Go to CHMFSET an d set scre en variabl es D ^CHMF SET ; If t here is no DUZ info, output an error mes sage and q uit the ro utine. I ' $D(^CHMDIC (741002.21 ,DUZ,0)) D NOUSE^CHM FADR1 G EN D ; Determ ine if Use r has data in piece 10. If so, identify IPSUB valu e and go t o CALLSUB otherwise continue. I $P(^CHMD IC(741002. 21,DUZ,0), "^",10)'=" " S IPSUB= "" 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 " W @IOF ;SKD ;W @I OFSTRT W ! !,"Are you entering <S>canned, <M>anual, CHAMPVA < E>DI, S<B> /CWVV EDI, CHAMPVA < O>CR, or S B/C<W>VV O CR submiss ions? " D CSBRS^CHSC 2 ; If use r enters " ^^", goto END and qu it routine G:$D(DUOU T) END G:$ D(DFOUT) E ND ; If us er enters nothing an d hits ret urn, re-wr ite to scr een and re turn to ST RT I $D(DQ OUT) D G STRT .W !!,"Ent er 'S' for Scanned, 'M' for Ma nual, or ' E' for CHV EDI, 'B' for SB/CWV V EDI",!," 'O' for CH V OCR, or 'W' for SB /CWVV OCR" ; Y holds the first letter of whatever t he user en tered. If nil, retur n to STRT G:Y="" STR T S Y=$E(Y ,1) ; If Y does not contain an y letter i n SMEBOW, return to STRT G:"SM EBOW"'[Y S TRT ; Set the 10th p iece to eq ual the us er's entry and set I PSUB to th e appropri ate string . I Y="M" S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=0 S IPSUB="M ANUAL^CHMF ADR4" ; MA NUAL I Y=" E" S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =2 S IPSUB ="OCR^CHMF ADR4" ; CH V EDI I Y= "S" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=1 S IPSU B="SCAN^CH MFADR4" ; SCANNED I Y="B" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=3 S IP SUB="SBOCR ^CHMFADR4" ; SB/CWVV EDI I Y=" O" S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =4 S IPSUB ="OCR2^CHM FADR4" ; C HV OCR I Y ="W" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=5 S IPS UB="SBOCR2 ^CHMFADR4" ; SB/CWVV OCR ;CALL SUB ; ; Do the routi ne named i n the vari able IPSUB . D @IPSUB G:$D(CHQU IT) END G: $D(CHMFPAU S) END G:$ D(CHMFKIL) END G:$D( CHMFEXIT) END G:$D(C HMFPDRV) E ND G:$D(DU OUT) END G :$D(DFOUT) END ;CHEC K ;CHECK D ATA AND SO RT CALLED IN HERE ; G:CHMFPDI= "" A8A2 D CMPLT^CHMF IMG S CHMF PP="CIP" D ^CHMFWK01 D KLOCK^C HMFADR1 D DELST1^CHM FADR1 S CH MFPP="SST" D ^CHMFWK 01 D ^CHMF SRT ;SENDS CLAIMS TO CLAIM SOR T I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 D .S CHM QNAM="MANU AL(",CHMOU T=1,IPSUB= "MANUAL^CH MFADR4" .K CHMIN D ^ CHMIS041 I $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=1 D .S CHMQNA M="IMAGE(" ,CHMOUT=1, IPSUB="SCA N^CHMFADR4 " .K CHMIN D ^CHMIS0 41 I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =2 D .S CH MQNAM="OCR (",CHMOUT= 1,IPSUB="O CR^CHMFADR 4" .K CHMI N D ^CHMIS 041 I $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=3 D .S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" SBOCR^CHMF ADR4" .K C HMIN D ^CH MIS041 I $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=4 D . S CHMQNAM= "OCR(",CHM OUT=1,IPSU B="OCR2^CH MFADR4" .K CHMIN D ^ CHMIS041 I $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=5 D .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR 2^CHMFADR4 " .K CHMIN D ^CHMIS0 41 S CHMFP P="CST" D ^CHMFWK01 S $P(^CHMI MAGE(CHMFP DI,0),"^", 10)=1 K CH MFCLMS,CHM FCL,CHMFRE J D SORT^C HFCDUTL D ^CHFCDDRV ;CALLS CLA IM EDIT UT ILITY ^CHM FA801 I $D (CHNEWPG) D G CALLSUB .D NEWPG^C HMFADR1 .S $P(^CHMIM G(CHMFPDI, 0),"^",6)= 1 .I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0 D ..S IPS UB="MANUAL ^CHMFADR4" ..D PDIUP ^CHMFABU3( CHMFPDI,$P (^CHMIMG(C HMFPDI,0), "^",6)) .. S CHMQNAM= "MANUAL(", CHMIN=1 .. K CHMOUT D ^CHMIS041 .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 D ..S IP SUB="SCAN^ CHMFADR4" ..S CHMQNA M="IMAGE(" ,CHMIN=1 . .K CHMOUT D ^CHMIS04 1 .I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =2 D ..S I PSUB="OCR^ CHMFADR4" ..S CHMQNA M="OCR(",C HMIN=1 ..K CHMOUT D ^CHMIS041 .I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3 D ..S IPS UB="SBOCR^ CHMFADR4" ..S CHMQNA M="OCR(",C HMIN=1 ..K CHMOUT D ^CHMIS041 .I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4 D ..S IPS UB="OCR2^C HMFADR4" . .S CHMQNAM ="OCR(",CH MIN=1 ..K CHMOUT D ^ CHMIS041 . I $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=5 D ..S IPSU B="SBOCR2^ CHMFADR4" ..S CHMQNA M="OCR(",C HMIN=1 ..K CHMOUT D ^CHMIS041 .S $P(^CHM DIC(741002 .21,DUZ,0) ,"^",5)=CH MFPDI D:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)'=0 REM V1^CHMFADR 1A5 D NOW^ %DTC S $P( ^CHMIMAGE( CHMFPDI,0) ,"^",5)=%A 8 D KILALL ^CHMFADR1 G:$D(CHRST SRT) END D BATCH^CHM FADR1 S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=0 IPSU B="MANUAL^ CHMFADR4" S:$P(^CHMD IC(741002. 21,DUZ,0), "^",10)=2 IPSUB="OCR ^CHMFADR4" S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=1 IPSUB="SC AN^CHMFADR 4" S:$P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =3 IPSUB=" SBOCR^CHMF ADR4" S:$P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=4 IPSU B="OCR2^CH MFADR4" S: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=5 IP SUB="SBOCR 2^CHMFADR4 " G CALLSU B ;END I $ D(^CHMDIC( 741002.21, DUZ,0)) D: $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)'=0 R EMV^CHMFAD R1 X CHRES ET I $D(CH MFPDI) K:C HMFPDI'="" ^CHMIMAGE ("LOCK",CH MFPDI) I ' $D(CHMFPAU S) D .D KI LALL^CHMFA DR1 .S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=""QUIT K CHBOFF,C HBON,CHEBO L,CHEEL,CH EOL,CHMAR, CHMARESET, CHMFUSER K CHREVOFF, CHREVON,CH ULOFF,CHUL ON,OUTFLG, IPSUB L Q:$$IPUSRL K^CHMFADRV (1)=1 ;TT 11060 JEH 11/26/10 Q ; ;SUBROU TINES CALL ED IN DRIV ER ;ERR1 S DY=5,DX=1 0 X XY W " User is un known to s ystem",@CH EOL S DY=6 ,DX=10 X X Y W "Pleas e Log onto terminal again",@CH EOL R RD:2 Q QIPUSRL K(IPFLG) ; USER LOCK TO PREVENT MULTIPLE SESSIONS ; TT 11060 J EH 11/26/1 0Q:$$ENVIR ^CHTFLIB() '="LIVE" 0 ;FOR LIVE USE ONLYN 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 F OR USER UN LOCKING VE ;S XMY("
|
|
8 | ||
9 | 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) | |
10 | ||
11 | 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/2017 CPE005-004 Modify th e Doc ID S creen for CHAMPVA an d SB EDI R eopen. ;JS E 10/06/20 17 CPE005- 051 Restri ct users t o the reop en menus ; LEG 10/16/ 2017 CPE00 5-001 adde d "E-ALL" & "E-FIRST " processi ng in A5, PDIFIRST, PDIXREFS a nd PDICNTS ;JSG2 10/ 19/2017 CP E005-023 C hanged sta tus to EDI -REOPEN Q: $$IPUSRLK^ CHMFADRV(0 )=1 ;TT 11 060 JEH 11 /26/10 K C HMFPDI,VQA URLFG,CHEL QFLG – Rem ove CHMFPD I this var iable is N ewed on th e next lin e. N CHMFP DI,CHMOPDI S PS=0,FK IL=0,FIPAY =0,BAD=0,X =0 ;S X=$Z F(-1,"USER NAME") S C HSS="" ;;S X=$ZF(-1, X,7),CHSS= X ; Go to CHMFSET an d set scre en variabl es D ^CHMF SET ; If t here is no DUZ info, output an error mes sage and q uit the ro utine. I ' $D(^CHMDIC (741002.21 ,DUZ,0)) D NOUSE^CHM FADR1 G EN D ; Determ ine if Use r has data in piece 10. If so, identify IPSUB valu e and go t o CALLSUB otherwise continue. I $P(^CHMD IC(741002. 21,DUZ,0), "^",10)'=" " S IPSUB= "" D G:IP SUB'="" CA LLSUB .S:$ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=0 IPS UB="MANUAL ^CHMFADR4" .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 IPSUB="S CAN^CHMFAD R4" .S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=2 IPSUB ="OCR^CHMF ADR4" .S:$ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=3 IPS UB="SBOCR^ CHMFADR4" .S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4 IPSUB="OC R2^CHMFADR 4" .S:$P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=5 IPSUB= "SBOCR2^CH MFADR4" .S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=6 I PSUB="OCRR ^CHMFADR4" ;CPE005- 004 .S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=7 IPSUB ="SBOCRR^C HMFADR4" ;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 ;SKD | |
12 | ;W @IOF - RemoveSTRT W !!,"Are you enter ing <S>can ned, <M>an ual, CHAMP VA <E>DI, S<B>/CWVV EDI," 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, or '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 ;CPE0 05-051 Res trict user s to reope n menu I Y ="RC"!(Y=" RS")!(Y="E R") S MCHK =$$SCHK^CH MFADR1(DUZ ) G:MCHK=0 STRT ; Se t the 10th piece to equal the user's ent ry and set IPSUB to the approp riate stri ng. I Y="M " S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 S IPSUB= "MANUAL^CH MFADR4" ; MANUAL I Y ="E" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=2 S IPS UB="OCR^CH MFADR4" ; CHV EDI I Y="S" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=1 S IP SUB="SCAN^ CHMFADR4" ; SCANNED I Y="B" S $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=3 S IPSUB="SBO CR^CHMFADR 4" ; SB/CW VV EDI I Y ="O" S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=4 S IPS UB="OCR2^C HMFADR4" ; CHV OCR I Y="W" S $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=5 S I PSUB="SBOC R2^CHMFADR 4" ; SB/CW VV OCR I Y ="RC" S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=6 S IP SUB="OCRR^ CHMFADR4" ; CHV EDI REOPEN CPE 005-004 I Y="RS" S $ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10)=7 S I PSUB="SBOC RR^CHMFADR 4" ; SB/CW VV EDI REO PEN CPE005 -004 I Y=" ER" S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",10 )=8 S IPSU B="MANUALR ^CHMFADR4" ; MANUAL EDI REOPEN ;CALLSUB ; ; Do the routine n amed in th e variable IPSUB. D @IPSUB G:$ D(CHQUIT) END G:$D(C HMFPAUS) E ND G:$D(CH MFKIL) END G:$D(CHMF EXIT) END G:$D(CHMFP DRV) END G :$D(DUOUT) END G:$D( DFOUT) END ;CHECK ;C HECK DATA AND SORT C ALLED IN H ERE ; G:CH MFPDI="" A 8A2 D CMPL T^CHMFIMG S CHMFPP=" CIP" D ^CH MFWK01 D K LOCK^CHMFA DR1 D DELS T1^CHMFADR 1 S CHMFPP ="SST" D ^ CHMFWK01 D ^CHMFSRT ;SENDS CLA IMS TO CLA IM SORT I $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=0 D .S CHMQNAM ="MANUAL(" ,CHMOUT=1, IPSUB="MAN UAL^CHMFAD R4" .K CHM IN D ^CHMI S041 I $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=1 D .S CHMQNAM="I MAGE(",CHM OUT=1,IPSU B="SCAN^CH MFADR4" .K CHMIN D ^ CHMIS041 I $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 D .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCR^C HMFADR4" . K CHMIN D ^CHMIS041 I $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=3 D .S CHMQN AM="OCR(", CHMOUT=1,I PSUB="SBOC R^CHMFADR4 " .K CHMIN D ^CHMIS0 41 I $P(^C HMDIC(7410 02.21,DUZ, 0),"^",10) =4 D .S CH MQNAM="OCR (",CHMOUT= 1,IPSUB="O CR2^CHMFAD R4" .K CHM IN D ^CHMI S041 I $P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=5 D .S CHMQNAM="O CR(",CHMOU T=1,IPSUB= "SBOCR2^CH MFADR4" .K CHMIN D ^ CHMIS041 I $P(^CHMDI C(741002.2 1,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 .; CPE00 5-023 Chan ge status to EDI-REO PEN .; S C HMQNAM="OC R(",CHMOUT =1,IPSUB=" SBOCRR^CHM FADR4" .S CHMQNAM="E DI-REOPEN" ,CHMOUT=1, IPSUB="SBO CRR^CHMFAD R4" .; .K CHMIN D ^C HMIS041 I $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10)=8 D .S CHMQNAM ="OCR(",CH MOUT=1,IPS UB="MANUAL R^CHMFADR4 " .K CHMIN D ^CHMIS0 41 S CHMFP P="CST" D ^CHMFWK01 S $P(^CHMI MAGE(CHMFP DI,0),"^", 10)=1 K CH MFCLMS,CHM FCL,CHMFRE J D SORT^C HFCDUTL D ^CHFCDDRV ;CALLS CLA IM EDIT UT ILITY ^CHM FA801 I $G (CHMOPDI) 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" ..; CPE005 -023 Chang e status t o EDI-REOP EN ..; S C HMQNAM="OC R(",CHMIN= 1 ..S CHMQ NAM="EDI-R EOPEN",CHM IN=1 ..K C HMOUT D ^C HMIS041 .I $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=8 D ..S IPSUB ="MANUALR^ CHMFADR4" ..S CHMQNA M="OCR(",C HMIN=1 ..K CHMOUT D ^CHMIS041 .S $P(^CHM DIC(741002 .21,DUZ,0) ,"^",5)=CH MFPDI I $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)'=0,$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)'=8 D RE MV1^CHMFAD R1A5 D NOW ^%DTC N CH OSEN S $P( ^CHMIMAGE( CHMFPDI,0) ,"^",5)=% S CHOSEN=$ P(^CHMDIC( 741002.21, DUZ,0),"^" ,10) I CHO SEN=6!(CHO SEN=7)!(CH OSEN=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) =1 ...; ad d ReOpen x refs: a) " E-FIRST" s ets 1st Or iginal for each give n subseque nt ReOpen ...; b) "E -ALL" sets all ReOpe ns xrefed to 1st Ori ginal occu rrence ... D PDIFIRST ^CHMFUTLE( CHMFPDI) ; (CPE005-0 01) ...QA8 D KILALL^ CHMFADR1 G :$D(CHRSTS RT) END D BATCH^CHMF ADR1 S:$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)=0 IPSUB ="MANUAL^C HMFADR4" S :$P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 I PSUB="OCR^ CHMFADR4" S:$P(^CHMD IC(741002. 21,DUZ,0), "^",10)=1 IPSUB="SCA N^CHMFADR4 " S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 3 IPSUB="S BOCR^CHMFA DR4" 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 IPS UB="SBOCR2 ^CHMFADR4" S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=6 IPSUB="OC RR^CHMFADR 4" ;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 .I $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)'=0,$P( ^CHMDIC(74 1002.21,DU Z,0),"^",1 0)'=8 D RE MV^CHMFADR 1 X CHRESE T I $D(CHM FPDI) K:CH MFPDI'="" ^CHMIMAGE( "LOCK",CHM FPDI) I '$ D(CHMFPAUS ) D .D KIL ALL^CHMFAD R1 .S $P(^ CHMDIC(741 002.21,DUZ ,0),"^",2) ="" .S $P( ^CHMDIC(74 1002.21,DU Z,0),"^",5 )="" .S $P (^CHMDIC(7 41002.21,D UZ,0),"^", 10)=""QUIT K CHBOFF, CHBON,CHEB OL,CHEEL,C HEOL,CHMAR ,CHMARESET ,CHMFUSER K CHREVOFF ,CHREVON,C HULOFF,CHU LON,OUTFLG ,IPSUB L Q :$$IPUSRLK ^CHMFADRV( 1)=1 ;TT 1 1060 JEH 1 1/26/10 Q ; ;SUBROUT INES CALLE D IN DRIVE R ;ERR1 S DY=5,DX=10 X XY W "U ser is unk nown to sy stem",@CHE OL S DY=6, DX=10 X XY W "Please Log onto terminal a gain",@CHE OL R RD:2 Q QIPUSRLK (IPFLG) ;U SER LOCK T O PREVENT MULTIPLE S ESSIONS ;T T 11060 JE H 11/26/10 Q:$$ENVIR^ CHTFLIB()' ="LIVE" 0 ;FOR LIVE USE ONLYN 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("
|
|
13 | ||
14 | ||
15 | ||
16 | Difference s | |
17 | ||
18 | ||
19 | ||
20 | Passed XIN DEX? (Y / N): |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.