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