Produced by Araxis Merge on 11/9/2018 12:33:55 AM Central 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 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMFADRV.m | Mon Nov 5 16:39:38 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMFADRV.m | Mon Nov 5 17:45:51 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 524 |
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 | CHMFADRV ; PJU/DEN;MA IN DRIVER CHAMPVA;Au g 21, 2018 @14:09:30 | |
2 | ;;1.0;CHA MPVA SYSTE M;**1**;JU LY 4, 1990 ; | |
3 | ;PT 11392 | |
4 | ;TT 11060 JEH 11/26 /10 - ADDI NG USER LO CK | |
5 | ;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. | |
6 | ;JSE 10/0 6/2017 CPE 005-051 Re strict use rs to the reopen men us | |
7 | ;LEG 10/1 6/2017 CPE 005-001 ad ded "A-ALL " & "A-FIR ST" proces sing in A5 , PDIFIRST , PDIXREFS and PDICN TS | |
8 | ;JSG2 10/ 20/2017 CP E005-023 C hanged sta tus to EDI -REOPEN | |
9 | Q:$$IPUSR LK^CHMFADR V(0)=1 ;TT 11060 JEH 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> REOP EN Manual EDI submis sions? " | |
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 | ;CPE005-0 51 Restric t users to reopen me nu | |
49 | I Y="RC"! (Y="RS")!( Y="ER") S MCHK=$$SCH K^CHMFADR1 (DUZ) G:MC HK=0 STRT | |
50 | ; Set the 10th piec e to equal the user' s entry an d set IPSU B to the a ppropriate string. | |
51 | I Y="M" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=0 S IPSUB="MA NUAL^CHMFA DR4" ; MAN UAL | |
52 | I Y="E" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=2 S IPSUB="OC R^CHMFADR4 " ; CHV ED I | |
53 | I Y="S" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=1 S IPSUB="SC AN^CHMFADR 4" ; SCANN ED | |
54 | I Y="B" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=3 S IPSUB="SB OCR^CHMFAD R4" ; SB/C WVV EDI | |
55 | I Y="O" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=4 S IPSUB="OC R2^CHMFADR 4" ; CHV O CR | |
56 | I Y="W" S $P(^CHMDI C(741002.2 1,DUZ,0)," ^",10)=5 S IPSUB="SB OCR2^CHMFA DR4" ; SB/ CWVV OCR | |
57 | 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 | |
58 | 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 | |
59 | I Y="ER" S $P(^CHMD IC(741002. 21,DUZ,0), "^",10)=8 S IPSUB="M ANUALR^CHM FADR4" ; M ANUAL EDI REOPEN | |
60 | ; | |
61 | CALLSUB ; | |
62 | ; Do the routine na med in the variable IPSUB. | |
63 | D @IPSUB | |
64 | G:$D(CHQU IT) END | |
65 | G:$D(CHMF PAUS) END | |
66 | G:$D(CHMF KIL) END | |
67 | G:$D(CHMF EXIT) END | |
68 | G:$D(CHMF PDRV) END | |
69 | G:$D(DUOU T) END | |
70 | G:$D(DFOU T) END | |
71 | ; | |
72 | CHECK ;CHE CK DATA AN D SORT CAL LED IN HER E | |
73 | ; | |
74 | G:CHMFPDI ="" A8 | |
75 | A2 D CMPLT ^CHMFIMG | |
76 | S CHMFPP= "CIP" D ^C HMFWK01 | |
77 | D KLOCK^C HMFADR1 | |
78 | D DELST1^ CHMFADR1 | |
79 | S CHMFPP= "SST" | |
80 | D ^CHMFWK 01 | |
81 | D ^CHMFSR T ;SENDS C LAIMS TO C LAIM SORT | |
82 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0 D | |
83 | .S CHMQNA M="MANUAL( ",CHMOUT=1 ,IPSUB="MA NUAL^CHMFA DR4" | |
84 | .K CHMIN D ^CHMIS04 1 | |
85 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=1 D | |
86 | .S CHMQNA M="IMAGE(" ,CHMOUT=1, IPSUB="SCA N^CHMFADR4 " | |
87 | .K CHMIN D ^CHMIS04 1 | |
88 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=2 D | |
89 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCR^C HMFADR4" | |
90 | .K CHMIN D ^CHMIS04 1 | |
91 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3 D | |
92 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR ^CHMFADR4" | |
93 | .K CHMIN D ^CHMIS04 1 | |
94 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4 D | |
95 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="OCR2^ CHMFADR4" | |
96 | .K CHMIN D ^CHMIS04 1 | |
97 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5 D | |
98 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR 2^CHMFADR4 " | |
99 | .K CHMIN D ^CHMIS04 1 | |
100 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=6 D ;CPE00 5-004 | |
101 | .; CPE005 -023 Chang e status t o EDI-REOP EN | |
102 | .;S CHMQN AM="OCR(", CHMOUT=1,I PSUB="OCRR ^CHMFADR4" | |
103 | .S CHMQNA M="EDI-REO PEN",CHMOU T=1,IPSUB= "OCRR^CHMF ADR4" | |
104 | .; | |
105 | .K CHMIN D ^CHMIS04 1 | |
106 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=7 D ;CPE00 5-004 | |
107 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="SBOCR R^CHMFADR4 " | |
108 | .K CHMIN D ^CHMIS04 1 | |
109 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8 D | |
110 | .S CHMQNA M="OCR(",C HMOUT=1,IP SUB="MANUA LR^CHMFADR 4" | |
111 | .K CHMIN D ^CHMIS04 1 | |
112 | S CHMFPP= "CST" | |
113 | D ^CHMFWK 01 | |
114 | S $P(^CHM IMAGE(CHMF PDI,0),"^" ,10)=1 | |
115 | K CHMFCLM S,CHMFCL,C HMFREJ | |
116 | D SORT^CH FCDUTL | |
117 | D ^CHFCDD RV ;CALLS CLAIM EDIT UTILITY ^ CHMFA801 | |
118 | I $D(CHNE WPG) D G CALLSUB | |
119 | .D NEWPG^ CHMFADR1 | |
120 | .S $P(^CH MIMG(CHMFP DI,0),"^", 6)=1 | |
121 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 0 D | |
122 | ..S IPSUB ="MANUAL^C HMFADR4" | |
123 | ..D PDIUP ^CHMFABU3( CHMFPDI,$P (^CHMIMG(C HMFPDI,0), "^",6)) | |
124 | ..S CHMQN AM="MANUAL (",CHMIN=1 | |
125 | ..K CHMOU T D ^CHMIS 041 | |
126 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 1 D | |
127 | ..S IPSUB ="SCAN^CHM FADR4" | |
128 | ..S CHMQN AM="IMAGE( ",CHMIN=1 | |
129 | ..K CHMOU T D ^CHMIS 041 | |
130 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 2 D | |
131 | ..S IPSUB ="OCR^CHMF ADR4" | |
132 | ..S CHMQN AM="OCR(", CHMIN=1 | |
133 | ..K CHMOU T D ^CHMIS 041 | |
134 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 3 D | |
135 | ..S IPSUB ="SBOCR^CH MFADR4" | |
136 | ..S CHMQN AM="OCR(", CHMIN=1 | |
137 | ..K CHMOU T D ^CHMIS 041 | |
138 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 4 D | |
139 | ..S IPSUB ="OCR2^CHM FADR4" | |
140 | ..S CHMQN AM="OCR(", CHMIN=1 | |
141 | ..K CHMOU T D ^CHMIS 041 | |
142 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 5 D | |
143 | ..S IPSUB ="SBOCR2^C HMFADR4" | |
144 | ..S CHMQN AM="OCR(", CHMIN=1 | |
145 | ..K CHMOU T D ^CHMIS 041 | |
146 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 6 D ;CPE0 05-004 | |
147 | ..S IPSUB ="OCRR^CHM FADR4" | |
148 | ..; CPE00 5-023 Chan ge status to EDI-REO PEN | |
149 | ..; S CHM QNAM="OCR( ",CHMIN=1 | |
150 | ..S CHMQN AM="EDI-RE OPEN",CHMI N=1 | |
151 | ..K CHMOU T D ^CHMIS 041 | |
152 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 7 D ;CPE0 05-004 | |
153 | ..S IPSUB ="SBOCRR^C HMFADR4" | |
154 | ..S CHMQN AM="OCR(", CHMIN=1 | |
155 | ..K CHMOU T D ^CHMIS 041 | |
156 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= 8 D | |
157 | ..S IPSUB ="MANUALR^ CHMFADR4" | |
158 | ..S CHMQN AM="OCR(", CHMIN=1 | |
159 | ..K CHMOU T D ^CHMIS 041 | |
160 | .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",5)=C HMFPDI | |
161 | I $P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= 0,$P(^CHMD IC(741002. 21,DUZ,0), "^",10)'=8 D REMV1^C HMFADR1 | |
162 | A5 D NOW^% DTC | |
163 | N CHOSEN | |
164 | S $P(^CHM IMAGE(CHMF PDI,0),"^" ,5)=% | |
165 | S CHOSEN= $P(^CHMDIC (741002.21 ,DUZ,0),"^ ",10) | |
166 | I CHOSEN= 6!(CHOSEN= 7)!(CHOSEN =8) D ;CP E005-004, CPE005-069 | |
167 | .I $G(CHM OPDI)'="" D | |
168 | ..I $D(^C HMPAY("C", CHMFPDI)) D ;Set ED I Reopen f lag. CPE00 5-004 | |
169 | ...S $P(^ CHMIMG(CHM FPDI,"E-RE OPEN"),"^" )=CHMOPDI, $P(^CHMIMG (CHMFPDI," E-REOPEN") ,"^",3)=0 ;Set flag to 0 to a llow a reo pen of a r eopen. | |
170 | ...S $P(^ CHMIMG(CHM OPDI,"E-RE OPEN"),"^" ,2)=CHMFPD I,$P(^CHMI MG(CHMOPDI ,"E-REOPEN "),"^",3)= 1 | |
171 | ...; add ReOpen xre fs: a) "A- FIRST" set s 1st Orig inal for e ach given subsequent ReOpen | |
172 | ...; b) " A-ALL" set s all ReOp ens xrefed to 1st Or iginal occ urrence | |
173 | ...D PDIF IRST^CHMFU TLE(CHMFPD I) ; (CPE0 05-001) | |
174 | ...Q | |
175 | A8 D KILAL L^CHMFADR1 | |
176 | G:$D(CHRS TSRT) END | |
177 | D BATCH^C HMFADR1 | |
178 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=0 IPSUB="MA NUAL^CHMFA DR4" | |
179 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=2 IPSUB="OC R^CHMFADR4 " | |
180 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=1 IPSUB="SC AN^CHMFADR 4" | |
181 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=3 IPSUB="SB OCR^CHMFAD R4" | |
182 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=4 IPSUB="OC R2^CHMFADR 4" | |
183 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=5 IPSUB="SB OCR2^CHMFA DR4" | |
184 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=6 IPSUB="OC RR^CHMFADR 4" ;CPE00 5-004 | |
185 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=7 IPSUB="SB OCRR^CHMFA DR4" ;CPE 005-004 | |
186 | S:$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)=8 IPSUB="MA NUALR^CHMF ADR4" | |
187 | G CALLSUB | |
188 | ; | |
189 | END I $D(^ CHMDIC(741 002.21,DUZ ,0)) D | |
190 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)' =0,$P(^CHM DIC(741002 .21,DUZ,0) ,"^",10)'= 8 D REMV^C HMFADR1 | |
191 | X CHRESET | |
192 | I $D(CHMF PDI) K:CHM FPDI'="" ^ CHMIMAGE(" LOCK",CHMF PDI) | |
193 | I '$D(CHM FPAUS) D | |
194 | .D KILALL ^CHMFADR1 | |
195 | .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",2)=" " | |
196 | .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",5)=" " | |
197 | .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",10)= "" | |
198 | QUIT K CHB OFF,CHBON, CHEBOL,CHE EL,CHEOL,C HMAR,CHMAR ESET,CHMFU SER | |
199 | K CHREVOF F,CHREVON, CHULOFF,CH ULON,OUTFL G,IPSUB L | |
200 | Q:$$IPUSR LK^CHMFADR V(1)=1 ;TT 11060 JEH 11/26/10 | |
201 | Q | |
202 | ; | |
203 | ;SUBROUTI NES CALLED IN DRIVER | |
204 | ; | |
205 | ERR1 S DY= 5,DX=10 X XY W "User is unknow n to syste m",@CHEOL | |
206 | S DY=6,DX =10 X XY W "Please L og onto te rminal aga in",@CHEOL | |
207 | R RD:2 Q | |
208 | Q | |
209 | IPUSRLK(IP FLG) ;USER LOCK TO P REVENT MUL TIPLE SESS IONS ;TT 1 1060 JEH 1 1/26/10 | |
210 | Q:$$ENVIR ^CHTFLIB() '="LIVE" 0 ;FOR LIVE USE ONLY | |
211 | N IPLCK ;SETTING LOCK TO AL LOW USER T O RUN IP 0 =UNLOCKED/ 1=LOCKED | |
212 | N IPMSG ;LOCKING MESSAGE | |
213 | S IPLCK=0 | |
214 | I IPFLG=0 D | |
215 | .I $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",22)= 1 D | |
216 | ..S IPMSG ="*** IMAG E PROCESSI NG (IP) IS CURRENTLY IN USE, O NLY 1 SESS ION IS ALL OWED ***" | |
217 | ..S IPMSG 2="Please contact yo ur Supervi sor for he lp." | |
218 | ..W @IOF, !!,?(80-$L (IPMSG)/2) ,IPMSG,!!, IPMSG2,! H 3 | |
219 | ..S IPLCK =1 | |
220 | .E D | |
221 | ..S $P(^C HMDIC(7410 02.21,DUZ, 0),"^",22) =1 | |
222 | ..S IPLCK =0 | |
223 | I IPFLG=1 D | |
224 | .S $P(^CH MDIC(74100 2.21,DUZ,0 ),"^",22)= 0 | |
225 | .S IPLCK= 1 | |
226 | Q IPLCK | |
227 | IPHLPDSK ; ALLOW OCIO HELPDESK TO LOCK/UN LOCK IP FO R USER ;TT 11060 JEH 11/26/10 | |
228 | N IPHMSG, TMPY,IPDUZ | |
229 | S IPHMSG= "LOCK/UNLO CK IMAGE P ROCESSING (IP) SCREE N FOR USER " | |
230 | W #,!!,?( 80-$L(IPHM SG)/2),IPH MSG,!! | |
231 | S DIR(0)= "PO^741002 .21:EMZ",D IR("A")="U ser to unl ock" D ^DI R K DIR | |
232 | Q:$D(DIRU T) | |
233 | Q:Y=-1 | |
234 | S IPDUZ=+ Y | |
235 | I $P(^CHM DIC(741002 .21,+Y,0), "^",22)=0& ($P(^CHMDI C(741002.2 1,+Y,0),"^ ",5)="") D Q | |
236 | .W !!,$P( ^VA(200,+Y ,0),"^",1) ," DOES NO T HAVE AN OPEN IMAGE PROCESSIN G (IP) SES SION TO UN LOCK." H 2 | |
237 | I $P(^CHM DIC(741002 .21,+Y,0), "^",5)'="" W !!,"USE R HAS SESS ION OPEN W ITH AN ACT IVE PDI, D OUBLE CHEC K BEFORE U NLOCKING." ,! | |
238 | S TMPY=+Y | |
239 | W ! | |
240 | S DIR(0)= "Y",DIR("B ")="NO",DI R("A")="OK TO UNLOCK " D ^DIR K DIR | |
241 | I Y=1 D | |
242 | .S $P(^CH MDIC(74100 2.21,TMPY, 0),"^",22) =0 | |
243 | .D MMMSG | |
244 | K DIE,DR, DA,Y | |
245 | Q | |
246 | MMMSG ;GEN ERATE MM M ESSAGE TO CPD TOP 4 SPECIALIST AND USER NEEDING UN LOCKED | |
247 | Q:'$D(IPD UZ) | |
248 | N USRNM,U NLDT | |
249 | D NOW^%DT C S UNLDT= $$FMTE^XLF DT(%) | |
250 | S USRNM=$ P(^VA(200, IPDUZ,0)," ^",1) | |
251 | S CNT=1,^ TMP($J,"CH MIPLK",CNT )="",CNT=C NT+1 | |
252 | S ^TMP($J ,"CHMIPLK" ,CNT)="Use r "_USRNM_ " has been unlocked from Image Processin g (IP).",C NT=CNT+1 | |
253 | S ^TMP($J ,"CHMIPLK" ,CNT)="",C NT=CNT+1 | |
254 | S ^TMP($J ,"CHMIPLK" ,CNT)="Unl ock was do ne: "_UNLD T,CNT=CNT+ 1 | |
255 | S ^TMP($J ,"CHMIPLK" ,CNT)="",C NT=CNT+1 | |
256 | S XMTEXT= "^TMP($J," "CHMIPLK"" ," | |
257 | S XMDUZ=. 5 | |
258 | S XMY(IPD UZ)="" ; COURTESY C OPY FOR US ER NEEDING UNLOCKED | |
259 | S XMY(DUZ )="" ;COPY FOR USER UNLOCKING VE | |
260 | ;S XMY("
|
|
261 | S XMSUB=" IP UNLOCKE D FOR "_US RNM D ^XMD | |
262 | Q | |
263 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.