Produced by Araxis Merge on 12/7/2017 6:27:11 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 | User Story CPE005-032 Manual EDI Corrected Claim - Back-Out of Original Submission Unit Test.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 | User Story CPE005-032 Manual EDI Corrected Claim - Back-Out of Original Submission Unit Test.docx | Thu Dec 7 20:36:11 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 438 |
Changed | 1 | 3 |
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 | User Story CPE005-03 2 Manual EDI Correc ted Claim – Back-Out of Origin al Submiss ion Unit T est | ||||
2 | |||||
3 | Story Desc ription | ||||
4 | This user story is b ased on th e receipt a letter o r email re questing t o correct a claim. Every time we receiv e a correc ted claim the system will back -out the c harges on the origin al submiss ion. | ||||
5 | This user story desc ribes how the user w ill trigge r this pro cess based on the re ceipt of a letter, e mail reque st, or pho ne call to correct a claim. | ||||
6 | |||||
7 | Acceptance Criteria / Complian ce: | ||||
8 | Once a use r inputs Y in respon se to the prompt ask ing if he/ she wants to continu e, the sys tem will n ot repeat the prompt and will back out t he amounts applied t o annual i ndividual and family deductibl es, catast rophic cap and previ ous paymen ts from th e original PDI submi ssion. | ||||
9 | |||||
10 | |||||
11 | Are you en tering <S> canned, <M >anual, CH AMPVA <E>D I, S<B>/CW VV EDI, | ||||
12 | CHAMPVA < O>CR, SB/C <W>VV OCR, <RC>REOPE N CHAMPVA EDI,<RS>RE OPEN SB ED I, | ||||
13 | or <ER > REOPEN M anual EDI submission s? ER | ||||
14 | |||||
15 | PDI: 20172 3197033726 Page #: 1 Img #: 1 Assign ment: | ||||
16 | Vendor: Ben eficiary: GOWAN,CATH Y C | ||||
17 | [DOCUME NT IDENTIF ICATION SC REEN] | ||||
18 | |||||
19 | O riginal PD I Number: 2015030910 39464 | ||||
20 | Current PD I Number: 2017231970 33726 | ||||
21 | Tot al Pages: 1 | ||||
22 | Pag e Number: 1 of 1 | ||||
23 | Type of Image: BILL/INVOI CE | ||||
24 | Image A vailable: No | ||||
25 | __________ __________ __________ __________ __________ __________ __________ _________ | ||||
26 | |||||
27 | |||||
28 | |||||
29 | |||||
30 | |||||
31 | |||||
32 | |||||
33 | |||||
34 | |||||
35 | 1) Cont Ed t 2) Next Scr 3) S ort PDI 4 ) Kill PDI 5) Not A val 6) Un rd Img | ||||
36 | 7) PDI Rev w 8) Paus e 9) C omments 10 ) Btch Cmp 11) PPR 12) PP Rs-PDI | ||||
37 | |||||
38 | |||||
39 | |||||
40 | Select CHA MPVA CLAIM S CLAIM NU MBER: 2015 0309103946 4 KMU5986 | ||||
41 | Another on e: 2017231 97033726 ? ? | ||||
42 | |||||
43 | Another on e: | ||||
44 | Standard C aptioned O utput? Yes // N (No) | ||||
45 | First Prin t FIELD: . 01 CLAIM NUMBER | ||||
46 | Then Print FIELD: .0 2 CLAIM S TATUS | ||||
47 | Then Print FIELD: 10 00 PDI NU MBER (mul tiple) | ||||
48 | Then Pri nt PDI NUM BER SUB-FI ELD: .01 PDI NUMBER | ||||
49 | Then Pri nt PDI NUM BER SUB-FI ELD: | ||||
50 | Then Print FIELD: | ||||
51 | Heading (S /C): CHAMP VA CLAIMS List// | ||||
52 | STORE PRIN T LOGIC IN TEMPLATE: | ||||
53 | DEVICE: SSH VIRTUA L TERMINAL Right Margin: 80 // | ||||
54 | CHAMPVA CL AIMS List OCT 04, 2017@09:4 9 PAGE 1 | ||||
55 | CLAIM NUMB ER CLAIM ST ATUS PDI NUMBER | ||||
56 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | ||||
57 | |||||
58 | KMU5986 COMPLETE 20150309 1039464 | ||||
59 | |||||
60 | |||||
61 | |||||
62 | CHAMPVA ST ORED IMAGE S List OCT 04, 2017@09:5 2 PAGE 1 | ||||
63 | PRIMARY DO CUMENT DA TE/TIME DATE REVERSE | ||||
64 | INDEX (PDI) CO MPLETED ST ATUS OF PD I COMP LETED | ||||
65 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | ||||
66 | |||||
67 | 201503091 039464 FE B 11,2015@ 15:23:33CO MPLETED | ||||
68 | 201723197 033726 IN PROCESS | ||||
69 | |||||
70 | |||||
71 | |||||
72 | |||||
73 | [ Edit Claim Data Scre en] | ||||
74 | |||||
75 | Original P DI Number: 201503091 039464 | ||||
76 | Current P DI Number: 201723197 033726 | ||||
77 | Related Cl aims: | ||||
78 | |||||
79 | Origi nal Curre nt | ||||
80 | No. Claim # Claim # Bene Typ Vendor D.O.S D/C | ||||
81 | --- ----- -- ----- -- ---- ---------- - --- ---------- ------- --- --- | ||||
82 | |||||
83 | |||||
84 | 1) KMX73 11 GOWA N,CATHY C OUT SAMARITAN 1/8/201 5 | ||||
85 | |||||
86 | |||||
87 | |||||
88 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | ||||
89 | Select: 1 ) Edit | ||||
90 | 2 ) Continue | ||||
91 | 3 ) Process New Page | ||||
92 | |||||
93 | Choose: | ||||
94 | |||||
95 | |||||
96 | [ Edit Claim Data Scre en] | ||||
97 | |||||
98 | Original P DI Number: 201503091 039464 | ||||
99 | Current P DI Number: 201723197 033726 | ||||
100 | Related Cl aims: | ||||
101 | |||||
102 | Origi nal Curre nt | ||||
103 | No. Claim # Claim # Bene Typ Vendor D.O.S D/C | ||||
104 | --- ----- -- ----- -- ---- ---------- - --- ---------- ------- --- --- | ||||
105 | |||||
106 | |||||
107 | 1) KMX73 11 GOWA N,CATHY C OUT SAMARITAN 1/8/201 5 | ||||
108 | |||||
109 | |||||
110 | |||||
111 | |||||
112 | |||||
113 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | ||||
114 | Are you su re you wan t to conti nue? | ||||
115 | |||||
116 | |||||
117 | Answer “Ye s” | ||||
118 | CHAMPVA CL AIMS List OCT 04, 2017@09:5 8 PAGE 1 | ||||
119 | CLAIM NUMB ER CLAIM ST ATUS PDI NUMBER | ||||
120 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | ||||
121 | |||||
122 | KMU5986 COMPLETE 20150309 1039464 | ||||
123 | KMX7311 REJECTED 20172319 7033726 | ||||
124 | |||||
125 | |||||
126 | |||||
127 | CHAMPVA ST ORED IMAGE S List OCT 04, 2017@09:5 9 PAGE 1 | ||||
128 | PRIMARY DO CUMENT DA TE/TIME DATE REVERSE | ||||
129 | INDEX (PDI) CO MPLETED ST ATUS OF PD I COMP LETED | ||||
130 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | ||||
131 | |||||
132 | 201503091 039464 FE B 11,2015@ 15:23:33VO IDED OCT 4,2017 | ||||
133 | 201723197 033726 OC T 4,2017 UN ASSIGNED | ||||
134 | |||||
135 | |||||
136 | |||||
137 | Global ^%Z TSK(527863 -- NOTE: translatio n in effec t | ||||
138 | ^%ZTSK(527 863,0)="ST ART1^CHFCD DRV^588196 ^^64560,35 850^64560, 35850^R^^^ BRICKER,DE | ||||
139 | NNIS^DEV^D OU^ZTDESC^ ^" | ||||
140 | .02)="DE V^DOU^^" | ||||
141 | .03)="Su bmission q ueued for check data and benef it calc" | ||||
142 | .04)=557 8019850 | ||||
143 | .1)="6^ 64560,3585 1^Finished ^541142006 ^^^^^" | ||||
144 | .2)="CH BCRES^CHBC RES^RES^^Q ^" | ||||
145 | .21)=288 1 | ||||
146 | .25)="" | ||||
147 | ^%ZTSK(527 863,.3,"CH MFCLMS("," KMX7311")= 141157311 | ||||
148 | ^%ZTSK(527 863,.3,"CH MFPDI")=20 1723197033 726 | ||||
149 | ^%ZTSK(527 863,.3,"CH MFRS(","KM X7311")="" | ||||
150 | ^%ZTSK(527 863,.3,"DU Z(",0)="@" | ||||
151 | 1)="" | ||||
152 | 2)=741 | ||||
153 | "AG")="V" | ||||
154 | "BUF")=1 | ||||
155 | " LANG")="" | ||||
156 | |||||
157 | |||||
158 | |||||
159 | Global ^%Z TSK(527864 -- NOTE: translatio n in effec t | ||||
160 | ^%ZTSK(527 864,0)="ST ART1^CHFCD DRV^588196 ^^64560,35 850^64560, 35850^R^^^ BRICKER,DE | ||||
161 | NNIS^DEV^D OU^ZTDESC^ ^" | ||||
162 | .02)="DE V^DOU^^" | ||||
163 | .03)="Su bmission q ueued for check data and benef it calc" | ||||
164 | .04)=557 8019850 | ||||
165 | .1)="6^ 64560,3585 1^Finished ^541142006 ^^^^^" | ||||
166 | .2)="CH BCRES^CHBC RES^RES^^Q ^" | ||||
167 | .21)=288 1 | ||||
168 | .25)="" | ||||
169 | ^%ZTSK(527 864,.3,"CH MFCLMS("," KMU5986")= 141125986 | ||||
170 | ^%ZTSK(527 864,.3,"CH MFPDI")=20 1503091039 464 | ||||
171 | ^%ZTSK(527 864,.3,"CH MFRS(","KM X7311")="" | ||||
172 | ^%ZTSK(527 864,.3,"DU Z(",0)="@" | ||||
173 | 1)="" | ||||
174 | 2)=741 | ||||
175 | "AG")="V" | ||||
176 | "BUF")=1 | ||||
177 | " LANG")=""^ %ZTSK(5278 64,.3,"DUZ (",0)="@" | ||||
178 | 1)="" | ||||
179 | 2)=741 | ||||
180 | "AG")="V" | ||||
181 | "BUF")=1 | ||||
182 | " LANG")="" | ||||
183 | |||||
184 | 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("
|
||||
185 | URL")="" ; CPD SUPERV ISORS AND LEADS MAIL GROUP - F OR FUTURE USES XMSUB ="IP UNLOC KED FOR "_ USRNM D ^X MDQ | ||||
186 | |||||
187 | |||||
188 | |||||
189 | |||||
190 | |||||
191 | |||||
192 | |||||
193 | |||||
194 | |||||
195 | |||||
196 | |||||
197 | |||||
198 | |||||
199 | |||||
200 | |||||
201 | |||||
202 | |||||
203 | |||||
204 | |||||
205 | |||||
206 | |||||
207 | |||||
208 | |||||
209 | |||||
210 | |||||
211 | |||||
212 | |||||
213 | |||||
214 | |||||
215 | |||||
216 | |||||
217 | |||||
218 | |||||
219 | |||||
220 | |||||
221 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.