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.RO | Thu Dec 7 15:13:24 2017 UTC |
2 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\937657-CPE005-051 Permission Error Message | CHMFADRV.RO | Thu Dec 7 16:23:23 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 554 |
Changed | 1 | 2 |
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 | Cache for OpenVMS/AL PHA V8.x^I NT^WNS^^~F ormat=Cach e.S~^RAW | |
2 | %RO on 15 Nov 2017 1 1:22:24AM | |
3 | CHMFADRV^I NT^1^64589 ,45103.129 687^0 | |
4 | CHMFADRV ; PJU/DEN;MA IN DRIVER CHAMPVA;07 /15/99 10: 42 AM | |
5 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
6 | ;PT 11392 | |
7 | ;TT 11060 JEH 11/26 /10 - ADDI NG USER LO CK | |
8 | ;CFS 08/0 1/2017 CPE 005-004 Mo dify the D oc ID Scre en for CHA MPVA and S B EDI Reop en. | |
9 | ;JSE 10/0 6/2017 CPE 005-051 Re strict use rs to the reopen men us | |
10 | ;LEG 10/1 6/2017 CPE 005-001 ad ded "E-ALL " & "E-FIR ST" proces sing in A5 , PDIFIRST , PDIXREFS and PDICN TS | |
11 | ;JSG2 10/ 20/2017 CP E005-023 C hanged sta tus to EDI -REOPEN | |
12 | Q:$$IPUSR LK^CHMFADR V(0)=1 ;TT 11060 JEH 11/26/10 | |
13 | K VQAURLF G,CHELQFLG | |
14 | N CHMFPDI ,CHMOPDI | |
15 | S PS=0,FK IL=0,FIPAY =0,BAD=0,X =0 | |
16 | ;S X=$ZF( -1,"USERNA ME") | |
17 | S CHSS="" | |
18 | ;;S X=$ZF (-1,X,7),C HSS=X | |
19 | ; Go to C HMFSET and set scree n variable s | |
20 | D ^CHMFSE T | |
21 | ; If ther e is no DU Z info, ou tput an er ror messag e and quit the routi ne. | |
22 | I '$D(^CH MDIC(74100 2.21,DUZ,0 )) D NOUSE ^CHMFADR1 G END | |
23 | ; Determi ne if User has data in piece 1 0. If so, identify I PSUB value and go to CALLSUB o therwise c ontinue. | |
24 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= "" S IPSUB ="" D G:I PSUB'="" C ALLSUB | |
25 | .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 IPSUB="M ANUAL^CHMF ADR4" | |
26 | .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 IPSUB="S CAN^CHMFAD R4" | |
27 | .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 2 IPSUB="O CR^CHMFADR 4" | |
28 | .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 3 IPSUB="S BOCR^CHMFA DR4" | |
29 | .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 IPSUB="O CR2^CHMFAD R4" | |
30 | .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 IPSUB="S BOCR2^CHMF ADR4" | |
31 | .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 6 IPSUB="O CRR^CHMFAD R4" ;CPE0 05-004 | |
32 | .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 IPSUB="S BOCRR^CHMF ADR4" ;CP E005-004 | |
33 | .S:$P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 IPSUB="M ANUALR^CHM FADR4" ;MA NUAL EDI R EOPEN BDB 07262017 | |
34 | W @IOF ;SKD | |
35 | STRT W !!, "Are you e ntering <S >canned, < M>anual, C HAMPVA <E> DI, S<B>/C WVV EDI," | |
36 | W !," CH AMPVA <O>C R, SB/C<W> VV OCR, <R C>REOPEN C HAMPVA EDI ,<RS>REOPE N SB EDI," | |
37 | W !," or <ER> REOP EN Manual EDI submis sions? " | |
38 | D CSBRS^C HSC2 | |
39 | ; If user enters "^ ^", goto E ND and qui t routine | |
40 | G:$D(DUOU T) END | |
41 | G:$D(DFOU T) END | |
42 | ; If user enters no thing and hits retur n, re-writ e to scree n and retu rn to STRT | |
43 | ;CPE005-0 04 Add "RC " and "RS" options t o horizont al menu. | |
44 | I $D(DQOU T) D G ST RT | |
45 | .W !!,"En ter 'S' fo r Scanned, 'M' for M anual, 'E' for CHV E DI, 'B' fo r SB/CWVV EDI," | |
46 | .W !,"'O' for CHV O CR, 'W' fo r SB/CWVV OCR, 'RC' for REOPEN CHAMPVA E DI," | |
47 | .W !,"'RS ' for REOP EN SB EDI submission s, or 'ER' for Manua l EDI ReOp en " | |
48 | ; Y holds the first letter of whatever the user e ntered. If nil, retu rn to STRT | |
49 | G:Y="" ST RT | |
50 | I (Y'="M" )&(Y'="E") &(Y'="S")& (Y'="B")&( Y'="O")&(Y '="W")&(Y' ="RC")&(Y' ="RS")&(Y' ="ER") G S TRT | |
51 | ;CPE005-0 51 Restric t users to reopen me nu | |
52 | I Y="RC"! (Y="RS")!( Y="ER") S MCHK=$$SCH K^CHMFADR1 (DUZ) G:MC HK=0 STRT | |
53 | ; Set the 10th piec e to equal the user' s entry an d set IPSU B to the a ppropriate string. | |
54 | I Y="M" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=0 S IPSUB="MA NUAL^CHMFA DR4" ; MAN UAL | |
55 | I Y="E" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 S IPSUB="OC R^CHMFADR4 " ; CHV ED I | |
56 | I Y="S" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=1 S IPSUB="SC AN^CHMFADR 4" ; SCANN ED | |
57 | I Y="B" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=3 S IPSUB="SB OCR^CHMFAD R4" ; SB/C WVV EDI | |
58 | I Y="O" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=4 S IPSUB="OC R2^CHMFADR 4" ; CHV O CR | |
59 | I Y="W" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=5 S IPSUB="SB OCR2^CHMFA DR4" ; SB/ CWVV OCR | |
60 | I Y="RC" S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=6 S IPSUB="O CRR^CHMFAD R4" ; CHV EDI REOPEN CPE005-00 4 | |
61 | I Y="RS" S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=7 S IPSUB="S BOCRR^CHMF ADR4" ; SB /CWVV EDI REOPEN CPE 005-004 | |
62 | I Y="ER" S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=8 S IPSUB="M ANUALR^CHM FADR4" ; M ANUAL EDI REOPEN | |
63 | ; | |
64 | CALLSUB ; | |
65 | ; Do the routine na med in the variable IPSUB. | |
66 | D @IPSUB | |
67 | G:$D(CHQU IT) END | |
68 | G:$D(CHMF PAUS) END | |
69 | G:$D(CHMF KIL) END | |
70 | G:$D(CHMF EXIT) END | |
71 | G:$D(CHMF PDRV) END | |
72 | G:$D(DUOU T) END | |
73 | G:$D(DFOU T) END | |
74 | ; | |
75 | CHECK ;CHE CK DATA AN D SORT CAL LED IN HER E | |
76 | ; | |
77 | G:CHMFPDI ="" A8 | |
78 | A2 D CMPLT ^CHMFIMG | |
79 | S CHMFPP= "CIP" D ^C HMFWK01 | |
80 | D KLOCK^C HMFADR1 | |
81 | D DELST1^ CHMFADR1 | |
82 | S CHMFPP= "SST" | |
83 | D ^CHMFWK 01 | |
84 | D ^CHMFSR T ;SENDS C LAIMS TO C LAIM SORT | |
85 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0 D | |
86 | .S CHMQNA M="MANUAL( ",CHMOUT=1 ,IPSUB="MA NUAL^CHMFA DR4" | |
87 | .K CHMIN D ^CHMIS04 1 | |
88 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=1 D | |
89 | .S CHMQNA M="IMAGE(" ,CHMOUT=1, IPSUB="SCA N^CHMFADR4 " | |
90 | .K CHMIN D ^CHMIS04 1 | |
91 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=2 D | |
92 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCR^C HMFADR4" | |
93 | .K CHMIN D ^CHMIS04 1 | |
94 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3 D | |
95 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR ^CHMFADR4" | |
96 | .K CHMIN D ^CHMIS04 1 | |
97 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4 D | |
98 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCR2^ CHMFADR4" | |
99 | .K CHMIN D ^CHMIS04 1 | |
100 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5 D | |
101 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR 2^CHMFADR4 " | |
102 | .K CHMIN D ^CHMIS04 1 | |
103 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=6 D ;CPE00 5-004 | |
104 | .; CPE005 -023 Chang e status t o EDI-REOP EN | |
105 | .;S CHMQN AM="OCR(", CHMOUT=1,I PSUB="OCRR ^CHMFADR4" | |
106 | .S CHMQNA M="EDI-REO PEN",CHMOU T=1,IPSUB= "OCRR^CHMF ADR4" | |
107 | .; | |
108 | .K CHMIN D ^CHMIS04 1 | |
109 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=7 D ;CPE00 5-004 | |
110 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR R^CHMFADR4 " | |
111 | .K CHMIN D ^CHMIS04 1 | |
112 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8 D | |
113 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="MANUA LR^CHMFADR 4" | |
114 | .K CHMIN D ^CHMIS04 1 | |
115 | S CHMFPP= "CST" | |
116 | D ^CHMFWK 01 | |
117 | S $P(^CHM IMAGE(CHMF PDI,0),"^" ,10)=1 | |
118 | K CHMFCLM S,CHMFCL,C HMFREJ | |
119 | D SORT^CH FCDUTL | |
120 | D ^CHFCDD RV ;CALLS CLAIM EDIT UTILITY ^ CHMFA801 | |
121 | I $G(CHMO PDI) D ;b db 1004201 7 original pdi bene- calc | |
122 | . NEW CHO SEN | |
123 | . S CHOSE N=$P(^CHMD IC(741002. 21,DUZ,0), "^",10) I CHOSEN=6!( CHOSEN=7)! (CHOSEN=8) D | |
124 | .. S DIE= 741000.2,D A=CHMOPDI, DR=".06/// 11;.22///" _DT D ^DIE K DIE | |
125 | .. N CHMF PDI | |
126 | .. S CHMF PDI=CHMOPD I | |
127 | .. D SORT ^CHFCDUTL | |
128 | .. D QUE1 ^CHFCDUTL ;queue the bene chec k and bene calc | |
129 | I $D(CHNE WPG) D G CALLSUB | |
130 | .D NEWPG^ CHMFADR1 | |
131 | .S $P(^CH MIMG(CHMFP DI,0),"^", 6)=1 | |
132 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 D | |
133 | ..S IPSUB ="MANUAL^C HMFADR4" | |
134 | ..D PDIUP ^CHMFABU3( CHMFPDI,$P (^CHMIMG(C HMFPDI,0), "^",6)) | |
135 | ..S CHMQN AM="MANUAL (",CHMIN=1 | |
136 | ..K CHMOU T D ^CHMIS 041 | |
137 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 D | |
138 | ..S IPSUB ="SCAN^CHM FADR4" | |
139 | ..S CHMQN AM="IMAGE( ",CHMIN=1 | |
140 | ..K CHMOU T D ^CHMIS 041 | |
141 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 2 D | |
142 | ..S IPSUB ="OCR^CHMF ADR4" | |
143 | ..S CHMQN AM="OCR(", CHMIN=1 | |
144 | ..K CHMOU T D ^CHMIS 041 | |
145 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 3 D | |
146 | ..S IPSUB ="SBOCR^CH MFADR4" | |
147 | ..S CHMQN AM="OCR(", CHMIN=1 | |
148 | ..K CHMOU T D ^CHMIS 041 | |
149 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 D | |
150 | ..S IPSUB ="OCR2^CHM FADR4" | |
151 | ..S CHMQN AM="OCR(", CHMIN=1 | |
152 | ..K CHMOU T D ^CHMIS 041 | |
153 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 D | |
154 | ..S IPSUB ="SBOCR2^C HMFADR4" | |
155 | ..S CHMQN AM="OCR(", CHMIN=1 | |
156 | ..K CHMOU T D ^CHMIS 041 | |
157 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 6 D ;CPE0 05-004 | |
158 | ..S IPSUB ="OCRR^CHM FADR4" | |
159 | ..; CPE00 5-023 Chan ge status to EDI-REO PEN | |
160 | ..; S CHM QNAM="OCR( ",CHMIN=1 | |
161 | ..S CHMQN AM="EDI-RE OPEN",CHMI N=1 | |
162 | ..K CHMOU T D ^CHMIS 041 | |
163 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 D ;CPE0 05-004 | |
164 | ..S IPSUB ="SBOCRR^C HMFADR4" | |
165 | ..S CHMQN AM="OCR(", CHMIN=1 | |
166 | ..K CHMOU T D ^CHMIS 041 | |
167 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 D | |
168 | ..S IPSUB ="MANUALR^ CHMFADR4" | |
169 | ..S CHMQN AM="OCR(", CHMIN=1 | |
170 | ..K CHMOU T D ^CHMIS 041 | |
171 | .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",5)=C HMFPDI | |
172 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= 0,$P(^CHMD IC(741002. 21,DUZ,0), "^",10)'=8 D REMV1^C HMFADR1 | |
173 | A5 D NOW^% DTC | |
174 | N CHOSEN | |
175 | S $P(^CHM IMAGE(CHMF PDI,0),"^" ,5)=% | |
176 | S CHOSEN= $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10) | |
177 | I CHOSEN= 6!(CHOSEN= 7)!(CHOSEN =8) D ;CP E005-004, CPE005-069 | |
178 | .I $G(CHM OPDI)'="" D | |
179 | ..I $D(^C HMPAY("C", CHMFPDI)) D ;Set ED I Reopen f lag. CPE00 5-004 | |
180 | ...S $P(^ CHMIMG(CHM FPDI,"E-RE OPEN"),"^" )=CHMOPDI, $P(^CHMIMG (CHMFPDI," E-REOPEN") ,"^",3)=1 | |
181 | ...S $P(^ CHMIMG(CHM OPDI,"E-RE OPEN"),"^" ,2)=CHMFPD I,$P(^CHMI MG(CHMOPDI ,"E-REOPEN "),"^",3)= 1 | |
182 | ...; add ReOpen xre fs: a) "E- FIRST" set s 1st Orig inal for e ach given subsequent ReOpen | |
183 | ...; b) " E-ALL" set s all ReOp ens xrefed to 1st Or iginal occ urrence | |
184 | ...D PDIF IRST^CHMFU TLE(CHMFPD I) ; (CPE0 05-001) | |
185 | ...Q | |
186 | A8 D KILAL L^CHMFADR1 | |
187 | G:$D(CHRS TSRT) END | |
188 | D BATCH^C HMFADR1 | |
189 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0 IPSUB="MA NUAL^CHMFA DR4" | |
190 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=2 IPSUB="OC R^CHMFADR4 " | |
191 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=1 IPSUB="SC AN^CHMFADR 4" | |
192 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3 IPSUB="SB OCR^CHMFAD R4" | |
193 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4 IPSUB="OC R2^CHMFADR 4" | |
194 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5 IPSUB="SB OCR2^CHMFA DR4" | |
195 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=6 IPSUB="OC RR^CHMFADR 4" ;CPE00 5-004 | |
196 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=7 IPSUB="SB OCRR^CHMFA DR4" ;CPE 005-004 | |
197 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8 IPSUB="MA NUALR^CHMF ADR4" | |
198 | G CALLSUB | |
199 | ; | |
200 | END I $D(^ CHMDIC(741 002.21,DUZ ,0)) D | |
201 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)' =0,$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= 8 D REMV^C HMFADR1 | |
202 | X CHRESET | |
203 | I $D(CHMF PDI) K:CHM FPDI'="" ^ CHMIMAGE(" LOCK",CHMF PDI) | |
204 | I '$D(CHM FPAUS) D | |
205 | .D KILALL ^CHMFADR1 | |
206 | .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",2)=" " | |
207 | .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",5)=" " | |
208 | .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= "" | |
209 | QUIT K CHB OFF,CHBON, CHEBOL,CHE EL,CHEOL,C HMAR,CHMAR ESET,CHMFU SER | |
210 | K CHREVOF F,CHREVON, CHULOFF,CH ULON,OUTFL G,IPSUB L | |
211 | Q:$$IPUSR LK^CHMFADR V(1)=1 ;TT 11060 JEH 11/26/10 | |
212 | Q | |
213 | ; | |
214 | ;SUBROUTI NES CALLED IN DRIVER | |
215 | ; | |
216 | ERR1 S DY= 5,DX=10 X XY W "User is unknow n to syste m",@CHEOL | |
217 | S DY=6,DX =10 X XY W "Please L og onto te rminal aga in",@CHEOL | |
218 | R RD:2 Q | |
219 | Q | |
220 | IPUSRLK(IP FLG) ;USER LOCK TO P REVENT MUL TIPLE SESS IONS ;TT 1 1060 JEH 1 1/26/10 | |
221 | Q: $$ENVIR^CH TFLIB()'=" LIVE" 0 ;F OR LIVE US E ONLY | |
222 | N IPLCK ;S ETTING LOC K TO ALLOW USER TO R UN IP 0=UN LOCKED/1=L OCKED | |
223 | N IPMSG ;L OCKING MES SAGE | |
224 | S IPLCK=0 | |
225 | I IPFLG=0 D | |
226 | .I $P(^CHMDI C(741002.2 1,DUZ,0)," ^",22)=1 D | |
227 | .. S IPMSG="* ** IMAGE P ROCESSING (IP) IS CU RRENTLY IN USE, ONLY 1 SESSION IS ALLOWE D ***" | |
228 | .. S IPMSG2=" Please con tact your Supervisor for help. " | |
229 | .. W @IOF,!!, ?(80-$L(IP MSG)/2),IP MSG,!!,IPM SG2,! H 3 | |
230 | .. S IPLCK=1 | |
231 | .E D | |
232 | .. S $P(^CHMD IC(741002. 21,DUZ,0), "^",22)=1 | |
233 | .. S IPLCK=0 | |
234 | I IPFLG=1 D | |
235 | .S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",22)=0 | |
236 | .S IPLCK=1 | |
237 | Q IPLCK | |
238 | IPHLPDSK ; ALLOW OCIO HELPDESK TO LOCK/UN LOCK IP FO R USER ;TT 11060 JEH 11/26/10 | |
239 | N IPHMSG,TMP Y,IPDUZ | |
240 | S IPHMSG="LO CK/UNLOCK IMAGE PROC ESSING (IP ) SCREEN F OR USER" | |
241 | W #,!!,?(80- $L(IPHMSG) /2),IPHMSG ,!! | |
242 | S DIR(0)="PO ^741002.21 :EMZ",DIR( "A")="User to unlock " D ^DIR K DIR | |
243 | Q: $D(DIRUT) | |
244 | Q: Y=-1 | |
245 | S IPDUZ=+Y | |
246 | I $P(^CHMDIC (741002.21 ,+Y,0),"^" ,22)=0&($P (^CHMDIC(7 41002.21,+ Y,0),"^",5 )="") D Q | |
247 | .W !!,$P(^VA (200,+Y,0) ,"^",1)," DOES NOT H AVE AN OPE N IMAGE PR OCESSING ( IP) SESSIO N TO UNLOC K." H 2 | |
248 | I $P(^CHMDIC (741002.21 ,+Y,0),"^" ,5)'="" W !!,"USER H AS SESSION OPEN WITH AN ACTIVE PDI, DOUB LE CHECK B EFORE UNLO CKING.",! | |
249 | S TMPY=+Y | |
250 | W ! | |
251 | S DIR(0)="Y" ,DIR("B")= "NO",DIR(" A")="OK TO UNLOCK" D ^DIR K DI R | |
252 | I Y=1 D | |
253 | .S $P(^CHMDI C(741002.2 1,TMPY,0), "^",22)=0 | |
254 | .D MMMSG | |
255 | K DIE,DR,DA, Y | |
256 | Q | |
257 | MMMSG ;GEN ERATE MM M ESSAGE TO CPD TOP 4 SPECIALIST AND USER NEEDING UN LOCKED | |
258 | Q: '$D(IPDUZ) | |
259 | N USRNM,UNLD T | |
260 | D NOW^%DTC S UNLDT=$$F MTE^XLFDT( %) | |
261 | S USRNM=$P(^ VA(200,IPD UZ,0),"^", 1) | |
262 | S CNT=1,^TMP ($J,"CHMIP LK",CNT)=" ",CNT=CNT+ 1 | |
263 | S ^TMP($J,"C HMIPLK",CN T)="User " _USRNM_" h as been un locked fro m Image Pr ocessing ( IP).",CNT= CNT+1 | |
264 | S ^TMP($J,"C HMIPLK",CN T)="",CNT= CNT+1 | |
265 | S ^TMP($J,"C HMIPLK",CN T)="Unlock was done: "_UNLDT,C NT=CNT+1 | |
266 | S ^TMP($J,"C HMIPLK",CN T)="",CNT= CNT+1 | |
267 | S XMTEXT="^T MP($J,""CH MIPLK""," | |
268 | S XMDUZ=.5 | |
269 | S XMY(IPDUZ) ="" ;COU RTESY COPY FOR USER NEEDING UN LOCKED | |
270 | S XMY(DUZ)=" " ;COPY FO R USER UNL OCKING VE | |
271 | ;S XMY("
|
|
272 | S XMSUB="IP UNLOCKED F OR "_USRNM D ^XMD | |
273 | Q | |
274 | ; | |
275 | . | |
276 | ||
277 | ||
278 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.