Produced by Araxis Merge on 7/27/2018 11:09:38 AM Central Daylight 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 | Build 7 - Sprint 19\CPE-SNF | CRU_SNF_S19 Developer Form.docx | Thu Jul 26 17:18:03 2018 UTC |
2 | Build 7 - Sprint 19\CPE-SNF | CRU_SNF_S19 Developer Form.docx | Fri Jul 27 15:24:23 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 814 |
Changed | 0 | 0 |
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: CHMXF 004_______ _________ | |
2 | Developer Name(s): __Bellamko nda,Subbar ao_____ | |
3 | Associated User Stor y/Stories: ______ _CRU_SNF_3 *_5* stori es________ _______ | |
4 | Current ve rsion (Por tions that are added to, modif ied or del eted [Matc h up with New Versio n section) | |
5 | ||
6 | I1 S CHFI= $O(^CHMXCL F("B",CHEI ,CHFI)) G: 'CHFI END | |
7 | G:'$D(^CH MXCLF(CHFI ,1)) I1 | |
8 | S CHREV=$ P(^CHMXCLF (CHFI,1)," ^"),CHARGE =$P(^(1)," ^",6),CHUN TS=+$P(^(1 ),"^",8) | |
9 | … | |
10 | S:CHUNTS=" " CHUNTS=1 S:CHUNTS= 0 CHUNTS=1 | |
11 | … | |
12 | S ^CHMIMAG E(CHMFPDI, 1,CHTOSJ,2 ,1,"INP-NS ",1,102,CH EJJ,0)=CHR EV_"^"_CHA RGE_"^"_CH LINE_"^"_C HUNTS | |
13 | … | |
14 | Q LICTRL | |
15 | ||
16 | ||
17 | New versio n (New or changed po rtions; Hi ghlight al l of the f ollowing: New - Bol d, Deleted – Strike thru, Chan ged - Ital ics) | |
18 | ;SBB 05/18 /2018 CRU_ SNF update s | |
19 | ;I1 S CHF I=$O(^CHMX CLF("B",CH EI,CHFI)) G:'CHFI EN D | |
20 | I1 S CHFI= $O(^CHMXCL F("B",CHEI ,CHFI)) G: 'CHFI I2 | |
21 | G:'$D(^CH MXCLF(CHFI ,1)) I1 | |
22 | ;SBB 05/1 6/2018 CRU _SNF updat e | |
23 | S CHHPCD= "" | |
24 | S CHREV=$ P(^CHMXCLF (CHFI,1)," ^"),CHARGE =$P(^(1)," ^",6),CHUN TS=+$P(^(1 ),"^",8) | |
25 | ;SBB 05/1 6/2018 CRU _SNF updat e | |
26 | S CHHPCD= $P(^(1),"^ ",3) | |
27 | N TMP | |
28 | I CHHPCD' ="" D | |
29 | . S TMP=C HHPCD | |
30 | . I $D(^C HMXDIC(741 201.86,"B" ,TMP)) S C HHPCD=$O(^ CHMXDIC(74 1201.86,"B ",TMP,"")) | |
31 | . Q | |
32 | … | |
33 | ;SBB 05/16 /2018 CRU_ SNF update | |
34 | ;S:CHUNTS ="" CHUNTS =1 S:CHUNT S=0 CHUNTS =1 | |
35 | S:CHUNTS= "" CHUNTS= 0 | |
36 | … | |
37 | ;SBB 05/16 /2018 CRU_ SNF update | |
38 | ;S ^CHMIM AGE(CHMFPD I,1,CHTOSJ ,2,1,"INP- NS",1,102, CHEJJ,0)=C HREV_"^"_C HARGE_"^"_ CHLINE_"^" _CHUNTS | |
39 | S ^CHMIMA GE(CHMFPDI ,1,CHTOSJ, 2,1,"INP-N S",1,102,C HEJJ,0)=CH REV_"^"_CH ARGE_"^"_C HLINE_"^"_ CHUNTS_"^^ "_CHHPCD | |
40 | … | |
41 | ; | |
42 | ;SBB 05/1 8/2018 CRU _SNF updat es | |
43 | ;Adding n odes 103 a nd 104 und er INP-NS to transfe r Occurren ce and spa n codes an d dates | |
44 | ; | |
45 | I2; | |
46 | D SPANOCC R | |
47 | ; | |
48 | … | |
49 | Q LICTRL | |
50 | ; | |
51 | ;SBB | |
52 | SPANOCCR ; | |
53 | ; | |
54 | N CIX,TMP ,CBIJS,CBI JO | |
55 | S (TMP)=" ",(CIX,CBI JS,CBIJO)= 0 | |
56 | S CIX="" F S CIX=$ O(^CHMXCLE (CHEI,43,C IX)) Q:CIX ="" D | |
57 | . Q:'$D(^ CHMXCLE(CH EI,43,CIX, 0)) | |
58 | . S TMP=^ CHMXCLE(CH EI,43,CIX, 0),TMP(1)= $P(TMP,"^" ),TMP(2)=$ P(TMP,"^", 2),TMP(3)= $P(TMP,"^" ,3) | |
59 | . I TMP(1 )="" Q | |
60 | . I $D(^C HMXDIC(741 201.42,"B" ,TMP(1))) D INPNOCCR (.TMP) Q | |
61 | . I $D(^C HMXDIC(741 201.43,"B" ,TMP(1))) D INPNSPAN (.TMP) Q | |
62 | . Q | |
63 | Q | |
64 | ;SBB 05/1 8/2018 CRU _SNF updat es | |
65 | ;Adding n ode 104 un der INP-NS to transf er span co des and da tes | |
66 | INPNSPAN(C ODE) ; | |
67 | ; | |
68 | N SPNCD,S PNDT1,SPND T2,X,Y | |
69 | S CBIJS=C BIJS+1,(SP NCD,SPNDT1 ,SPNDT2,X, Y)="" | |
70 | ;Translat e code int o IEN | |
71 | S SPNCD=$ O(^CHMXDIC (741201.43 ,"B",CODE( 1),"")) | |
72 | ;convert CCYYMMDD i nto Filema n date | |
73 | S X=CODE( 2) D ^%DT S SPNDT1=Y I Y=-1 S SPNDT1="" | |
74 | S X=CODE( 3) D ^%DT S SPNDT2=Y I Y=-1 S SPNDT2="" | |
75 | S ^CHMIMA GE(CHMFPDI ,1,CHTOSJ, 2,1,"INP-N S",1,104,C BIJS,0)=SP NCD_"^"_SP NDT1_"^"_S PNDT2 | |
76 | Q | |
77 | ; | |
78 | ;SBB 05/1 8/2018 CRU _SNF updat es | |
79 | ;Adding n ode 103 IN P-NS to tr ansfer Occ urrence co des and da te | |
80 | INPNOCCR(C ODE) ; | |
81 | ; | |
82 | N OCRCD,O CRDT,X,Y | |
83 | S CBIJO=C BIJO+1,(OC RCD,OCRDT, X,Y)="" | |
84 | ;Translat e code int o IEN | |
85 | S OCRCD=$ O(^CHMXDIC (741201.42 ,"B",CODE( 1),"")) | |
86 | ;convert CCYYMMDD i nto Filema n date | |
87 | S X=CODE( 2) D ^%DT S OCRDT=Y I Y=-1 S O CRDT="" | |
88 | S ^CHMIMA GE(CHMFPDI ,1,CHTOSJ, 2,1,"INP-N S",1,103,C BIJO,0)=OC RCD_"^"_OC RDT | |
89 | Q | |
90 | ; | |
91 | ||
92 | Difference s | |
93 | ||
94 | See highl ighted inf o above. | |
95 | ||
96 | ||
97 | Passed XIN DEX? (Y / N): N/A | |
98 | ||
99 | Routine Na me: CHMFS R09_______ _________ | |
100 | Developer Name(s): __Bellamko nda,Subbar ao_____ | |
101 | Associated User Stor y/Stories: ______ _CRU_SNF_3 *_5* stori es________ _______ | |
102 | Current ve rsion (Por tions that are added to, modif ied or del eted [Matc h up with New Versio n section) | |
103 | ||
104 | I46 S JJ=$ O(^UTILITY ("CLAIMS", $J,TY,DFN, BFN,VN,DOS ,"REV",JJ) ) G:'JJ I5 | |
105 | … | |
106 | G I46 | |
107 | ||
108 | New versio n (New or changed po rtions; Hi ghlight al l of the f ollowing: New - Bol d, Deleted – Strike thru, Chan ged - Ital ics) | |
109 | ;CRU_SNF03 * SBB 05/1 8/2018 | |
110 | ;I46 S JJ =$O(^UTILI TY("CLAIMS ",$J,TY,DF N,BFN,VN,D OS,"REV",J J)) G:'JJ I5 | |
111 | I46 S JJ=$ O(^UTILITY ("CLAIMS", $J,TY,DFN, BFN,VN,DOS ,"REV",JJ) ) G:'JJ O4 5 | |
112 | … | |
113 | G I46 | |
114 | ;CRU_SNF0 3* SBB 05/ 18/2018 | |
115 | O45 S JJ=0 | |
116 | O46 S JJ=$ O(^UTILITY ("CLAIMS", $J,TY,DFN, BFN,VN,DOS ,"OCCR",JJ )) G:'JJ S 45 | |
117 | S IP25=^U TILITY("CL AIMS",$J,T Y,DFN,BFN, VN,DOS,"OC CR",JJ) | |
118 | G:$D(@(GL PAY_"DA(1) ,""INP-OCC R"",0)")) O47 | |
119 | S FNUM=$S (GLPAY="^C HMPAY(":"7 41000.0157 PA",GLPAY= "^CHNVPAY( ":"7413001 .0157PA",1 :1) | |
120 | S @(GLPAY _"DA(1),"" INP-OCCR"" ,0)")="^"_ FNUM_"^0^0 " | |
121 | O47 L +@(G LPAY_"DA(1 ),""INP-OC CR"",0)") | |
122 | S J=$P(^( 0),"^",3)+ 1,$P(^(0), "^",3)=J L -@(GLPAY_ "DA(1),""I NP-OCCR"", 0)") | |
123 | S:$P(IP25 ,U,1)'="" @(GLPAY_"D A(1),""INP -OCCR"",J, 0)")=IP25 | |
124 | S:$P(IP25 ,U,1)'="" @(GLPAY_"D A(1),""INP -OCCR"","" B"",$P(IP2 5,U,1),J)" )="" | |
125 | G O46 | |
126 | ;CRU_SNF0 3* SBB 05/ 18/2018 | |
127 | S45 S JJ=0 | |
128 | S46 S JJ=$ O(^UTILITY ("CLAIMS", $J,TY,DFN, BFN,VN,DOS ,"SPAN",JJ )) G:'JJ I 5 | |
129 | S IP25=^U TILITY("CL AIMS",$J,T Y,DFN,BFN, VN,DOS,"SP AN",JJ) | |
130 | G:$D(@(GL PAY_"DA(1) ,""INP-SPA N"",0)")) S47 | |
131 | S FNUM=$S (GLPAY="^C HMPAY(":"7 41000.0158 PA",GLPAY= "^CHNVPAY( ":"7413001 .0158PA",1 :1) | |
132 | S @(GLPAY _"DA(1),"" INP-SPAN"" ,0)")="^"_ FNUM_"^0^0 " | |
133 | S47 L +@(G LPAY_"DA(1 ),""INP-SP AN"",0)") | |
134 | S J=$P(^( 0),"^",3)+ 1,$P(^(0), "^",3)=J L -@(GLPAY_ "DA(1),""I NP-SPAN"", 0)") | |
135 | S:$P(IP25 ,U,1)'="" @(GLPAY_"D A(1),""INP -SPAN"",J, 0)")=IP25 | |
136 | S:$P(IP25 ,U,1)'="" @(GLPAY_"D A(1),""INP -SPAN"","" B"",$P(IP2 5,U,1),J)" )="" | |
137 | G S46 | |
138 | ||
139 | ||
140 | Difference s | |
141 | ||
142 | See highl ighted inf o above. | |
143 | ||
144 | ||
145 | Passed XIN DEX? (Y / N): N/A | |
146 | ||
147 | Routine Na me: CHMFS R05_______ _________ | |
148 | Developer Name(s): __Bellamko nda,Subbar ao_____ | |
149 | Associated User Stor y/Stories: ______ _CRU_SNF_3 *_5* stori es________ _______ | |
150 | Current ve rsion (Por tions that are added to, modif ied or del eted [Matc h up with New Versio n section) | |
151 | I32 S M=$O (^CHMIMAGE (PDI,1,J,2 ,K,SUB,L,1 02,M)) G:' M I4 S X=^ (M,0) | |
152 | … | |
153 | S N=HN+1,^ UTILITY("C LAIMS",$J, TS,DFN,BFN ,VN,AD,"RE V",N)=X G I32 | |
154 | ||
155 | ||
156 | New versio n (New or changed po rtions; Hi ghlight al l of the f ollowing: New - Bol d, Deleted – Strike thru, Chan ged - Ital ics) | |
157 | ;CRU_SNF03 * SBB 05/1 8/2018 | |
158 | ;I32 S M= $O(^CHMIMA GE(PDI,1,J ,2,K,SUB,L ,102,M)) G :'M I4 S X =^(M,0) | |
159 | I32 S M=$O (^CHMIMAGE (PDI,1,J,2 ,K,SUB,L,1 02,M)) G:' M I33 S X= ^(M,0) | |
160 | … | |
161 | S N=HN+1,^ UTILITY("C LAIMS",$J, TS,DFN,BFN ,VN,AD,"RE V",N)=X G I32 | |
162 | ;CRU_SNF03 * SBB 05/1 8/2018 | |
163 | I33 S M=$O (^CHMIMAGE (PDI,1,J,2 ,K,SUB,L,1 03,M)) G:' M I34 S X= ^(M,0) | |
164 | I '$D(^UT ILITY("CLA IMS",$J,TS ,DFN,BFN,V N,AD,"OCCR ")) S ^UTI LITY("CLAI MS",$J,TS, DFN,BFN,VN ,AD,"OCCR" ,1)=X G I3 3 | |
165 | S N=0,HN= 0 F NN=1:1 S N=$O(^U TILITY("CL AIMS",$J,T S,DFN,BFN, VN,AD,"OCC R",N)) Q:' N S HN=N | |
166 | S N=HN+1, ^UTILITY(" CLAIMS",$J ,TS,DFN,BF N,VN,AD,"O CCR",N)=X G I33 | |
167 | ;CRU_SNF0 3* SBB 05/ 18/2018 | |
168 | I34 S M=$O (^CHMIMAGE (PDI,1,J,2 ,K,SUB,L,1 04,M)) G:' M I4 S X=^ (M,0) | |
169 | I '$D(^UT ILITY("CLA IMS",$J,TS ,DFN,BFN,V N,AD,"SPAN ")) S ^UTI LITY("CLAI MS",$J,TS, DFN,BFN,VN ,AD,"SPAN" ,1)=X G I3 4 | |
170 | S N=0,HN= 0 F NN=1:1 S N=$O(^U TILITY("CL AIMS",$J,T S,DFN,BFN, VN,AD,"SPA N",N)) Q:' N S HN=N | |
171 | S N=HN+1, ^UTILITY(" CLAIMS",$J ,TS,DFN,BF N,VN,AD,"S PAN",N)=X G I34 | |
172 | ||
173 | Difference s | |
174 | ||
175 | See highl ighted inf o above. | |
176 | ||
177 | ||
178 | Passed XIN DEX? (Y / N): N/A | |
179 | ||
180 | Routine Na me: CHMFA UT8_______ _________ | |
181 | Developer Name(s): __Bellamko nda,Subbar ao_____ | |
182 | Associated User Stor y/Stories: ______ _CRU_SNF_3 *_5* stori es________ _______ | |
183 | Current ve rsion (Por tions that are added to, modif ied or del eted [Matc h up with New Versio n section) | |
184 | ||
185 | … | |
186 | .S REVOUT= $P(REV,"^" )_"^"_$P(R EV,"^",6)_ "^"_$P(REV ,"^",2)_"^ ^"_$P(REV, "^",3)_"^" _EDILID ; JEH 2/1/11 DEV007820 | |
187 | … | |
188 | ||
189 | ||
190 | New versio n (New or changed po rtions; Hi ghlight al l of the f ollowing: New - Bol d, Deleted – Strike thru, Chan ged - Ital ics) | |
191 | ;SBB 05/16 /2018 CRU_ SNF update | |
192 | S L=1 | |
193 | … | |
194 | ...;SBB 5/ 18/18 CRU_ SNF update | |
195 | ...D PREI PTL5 | |
196 | ...D PREI PTL6 | |
197 | … | |
198 | S CHMFINP( SPON,BEN," INP",12)=" " ;SB B 5/18/18 CRU_SNF up date OCCR | |
199 | S CHMFINP (SPON,BEN, "INP",13)= "" ;S BB 5/18/18 CRU_SNF u pdate SPAN | |
200 | … | |
201 | .;SBB 05/1 6/2018 CRU _SNF updat e | |
202 | .N TMP S TMP="",TMP =^CHMIMAGE (CHMFPDI,1 ,CHMFPGNM, 2,CHMFIMAG ,"INP-NS", L,102,M,0) | |
203 | .S REVOUT =$P(REV,"^ ")_"^"_$P( REV,"^",6) _"^"_$P(RE V,"^",2)_" ^^"_$P(REV ,"^",3)_"^ "_EDILID ;JEH 2/1/1 1 DEV00782 0 | |
204 | .;SBB 05/ 16/2018 CR U_SNF upda te | |
205 | .;7th pie ce is hipp s code (wh ich is 6th piece fro m CHMIMAGE ) | |
206 | .S REVOUT =REVOUT_"^ "_$P(TMP," ^",6) | |
207 | .S $P(REV OUT,"^",4) =$P(TMP,"^ ",4) ; passing in the units . | |
208 | … | |
209 | ; | |
210 | ;SBB 5/18 /18 CRU_SN F update | |
211 | PREIPTL5 ; Loads "OCC R" into CH MFINP arra y | |
212 | N N,OCCR, OCCRDT,TMP S M="",TM P="" | |
213 | F S M=$O (^CHMIMAGE (CHMFPDI,1 ,CHMFPGNM, 2,CHMFIMAG ,"INP-NS", L,103,M)) Q:M="" D | |
214 | .S TMP=^C HMIMAGE(CH MFPDI,1,CH MFPGNM,2,C HMFIMAG,"I NP-NS",L,1 03,M,0) | |
215 | .S OCCR=$ P(TMP,"^") ,OCCRDT=$P (TMP,"^",2 ) | |
216 | .S CHMFIN P(SPON,BEN ,"OCCR",M) =OCCR_"^"_ OCCRDT | |
217 | .S CHMFIN P(SPON,BEN ,"INP",12) ="Y" | |
218 | .Q | |
219 | Q | |
220 | ; | |
221 | ;SBB 5/18 /18 CRU_SN F update | |
222 | PREIPTL6 ; Loads "SPA N" into CH MFINP arra y | |
223 | N N,SPAN, SPANDT1,SP ANDT2,TMP S M="",TMP ="" | |
224 | F S M=$O (^CHMIMAGE (CHMFPDI,1 ,CHMFPGNM, 2,CHMFIMAG ,"INP-NS", L,104,M)) Q:M="" D | |
225 | .S TMP=^C HMIMAGE(CH MFPDI,1,CH MFPGNM,2,C HMFIMAG,"I NP-NS",L,1 04,M,0) | |
226 | .S SPAN=$ P(TMP,"^") ,SPANDT1=$ P(TMP,"^", 2),SPANDT2 =$P(TMP,"^ ",3) | |
227 | .S CHMFIN P(SPON,BEN ,"SPAN",M) =SPAN_"^"_ SPANDT1_"^ "_SPANDT2 | |
228 | .S CHMFIN P(SPON,BEN ,"INP",13) ="Y" | |
229 | .Q | |
230 | Q | |
231 | … | |
232 | ;SBB 05/16 /2018 CRU_ SNF update | |
233 | S L=1 | |
234 | ||
235 | Difference s | |
236 | ||
237 | See highl ighted inf o above. | |
238 | ||
239 | ||
240 | Passed XIN DEX? (Y / N): N/A | |
241 | ||
242 | Routine Na me: CHMFA 800_______ _________ | |
243 | Developer Name(s): __Bellamko nda,Subbar ao_____ | |
244 | Associated User Stor y/Stories: ______ _CRU_SNF_3 *_5* stori es________ _______ | |
245 | Current ve rsion (Por tions that are added to, modif ied or del eted [Matc h up with New Versio n section) | |
246 | ||
247 | D POA ;AE B 1/20/201 0 DEV00480 5 ADDED PO A INDICATO R CHECKING | |
248 | G B8A | |
249 | … | |
250 | ||
251 | ||
252 | New versio n (New or changed po rtions; Hi ghlight al l of the f ollowing: New - Bol d, Deleted – Strike thru, Chan ged - Ital ics) | |
253 | D POA ;AE B 1/20/201 0 DEV00480 5 ADDED PO A INDICATO R CHECKING | |
254 | ;SBB 05/1 6/2018 CRU _SNF 03* s eries | |
255 | D SNF | |
256 | G B8A | |
257 | … | |
258 | ; | |
259 | ;SBB 05/16 /2018 CRU_ SNF 03* se ries | |
260 | SNF; new f or SNF D/C checks | |
261 | ; | |
262 | N ISSNF,I SREV22,ISU NITS,ISFDA TE,ISTDATE ,ISHPCD,RE VDAT,SPANI ,SPANTMP | |
263 | ;Quit if not snf cl aim | |
264 | S (ISSNF, ISREV22,IS UNITS,ISFD ATE,ISTDAT E,ISHPCD,S PANI)=0,SP ANTMP="" | |
265 | S ISSNF=$ $ISSNF() | |
266 | I 'ISSNF Q | |
267 | ; | |
268 | ;no reven ue code 00 22 | |
269 | S ISREV22 =$$ISREV22 (.REVDAT) | |
270 | I 'ISREV2 2 S CHREA( 408)=1,FLA G("INP")=1 | |
271 | I ISREV22 D | |
272 | . ;no uni ts for hip ps code | |
273 | . S ISUNI TS=$$ISUNI TS(.REVDAT ) | |
274 | . I 'ISUN ITS S CHRE A(407)=1,F LAG("INP") =1 | |
275 | . ; | |
276 | . ;no hip ps code | |
277 | . S ISHPC D=$$ISHPCD (.REVDAT) | |
278 | . I 'ISHP CD S CHREA (409)=1,FL AG("INP")= 1 | |
279 | . Q | |
280 | ; | |
281 | ;Check fo r Dates on span code s | |
282 | F S SPAN I=$O(^CHMP AY(CI,"INP -SPAN",SPA NI)) Q:'+S PANI D | |
283 | . S SPANT MP=^CHMPAY (CI,"INP-S PAN",SPANI ,0) | |
284 | . ;No Fro m Date che ck | |
285 | . I $P(SP ANTMP,"^", 2)="" S CH REA(410)=1 ,FLAG("INP ")=1 | |
286 | . ;No To/ Through da te | |
287 | . I $P(SP ANTMP,"^", 3)="" S CH REA(411)=1 ,FLAG("INP ")=1 | |
288 | . Q | |
289 | Q | |
290 | ; | |
291 | ;SBB 05/16 /2018 CRU_ SNF 03* se ries | |
292 | ISSNF(); | |
293 | ; | |
294 | N RTN,VISN F,STOB | |
295 | S RTN=0 | |
296 | S STOB=$P( @(GLPAY_"C I,""7"")") ,U,6) | |
297 | I (STOB>2 09)&(STOB< 219) S RTN =1 | |
298 | I 'RTN D | |
299 | . S VISNF =$P(@(GLPA Y_"CI,""0" ")"),U,3) | |
300 | . I '$D(^ CHMVEN(VIS NF,1)) Q | |
301 | . I ($P(^ CHMVEN(VIS NF,1),"^", 7)=9)!($P( ^CHMVEN(VI SNF,1),"^" ,7)=25) S RTN=1 | |
302 | . Q | |
303 | Q RTN | |
304 | ; | |
305 | ;SBB 05/1 6/2018 CRU _SNF 03* s eries | |
306 | ISREV22(RE VDAT); | |
307 | ; | |
308 | N RTN,REVC D,REVI,TMP ,REV22CD | |
309 | S (RTN,REV I)=0,(TMP, REV22CD)=" " | |
310 | S REV22CD= $O(^CHMXDI C(741201.3 9,"B","002 2","")) | |
311 | I $D(@(GLP AY_"CI,""I NP-REV"")" )) D | |
312 | . F S RE VI=$O(^CHM PAY(CI,"IN P-REV",REV I)) Q:'+RE VI D | |
313 | . . Q:'$D (^CHMPAY(C I,"INP-REV ",REVI,0)) | |
314 | . . S TMP =^CHMPAY(C I,"INP-REV ",REVI,0) | |
315 | . . S TMP =$P(TMP,U) | |
316 | . . I TMP =REV22CD S RTN=1,REV DAT(REVI)= "" | |
317 | . . Q | |
318 | . Q | |
319 | Q RTN | |
320 | ; | |
321 | ;SBB 05/1 6/2018 CRU _SNF 03* s eries | |
322 | ISUNITS(RE VDAT); | |
323 | ; | |
324 | N RTN,REVI ,TMP | |
325 | S RTN=1,RE VI=0,TMP=" " | |
326 | I $D(REVDA T) D | |
327 | . F S REV I=$O(REVDA T(REVI)) Q :('+REVI)! ('RTN) D | |
328 | . . S TMP= $P(^CHMPAY (CI,"INP-R EV",REVI,0 ),U,4) | |
329 | . . I +TMP =0 S RTN=0 | |
330 | . . Q | |
331 | . Q | |
332 | Q RTN | |
333 | ; | |
334 | ;SBB 05/1 6/2018 CRU _SNF 03* s eries | |
335 | ISHPCD(REV DAT); | |
336 | ; | |
337 | N RTN,REVI ,TMP | |
338 | S RTN=1,RE VI=0,TMP=" " | |
339 | I $D(REVDA T) D | |
340 | . F S REV I=$O(REVDA T(REVI)) Q :('+REVI)! ('RTN) D | |
341 | . . S TMP= $P(^CHMPAY (CI,"INP-R EV",REVI,0 ),U,6) | |
342 | . . I TMP= "" S RTN=0 Q | |
343 | . . I '$D( ^CHMXDIC(7 41201.86,T MP)) S RTN =0 | |
344 | . . Q | |
345 | . Q | |
346 | Q RTN | |
347 | ; | |
348 | ||
349 | Difference s | |
350 | ||
351 | See highl ighted inf o above. | |
352 | ||
353 | ||
354 | Passed XIN DEX? (Y / N): N/A | |
355 | ||
356 | Routine Na me: CHMFA 113_______ _________ | |
357 | Developer Name(s): __Bellamko nda,Subbar ao_____ | |
358 | Associated User Stor y/Stories: ______ _CRU_SNF_3 *_5* stori es________ _______ | |
359 | Current ve rsion (Por tions that are added to, modif ied or del eted [Matc h up with New Versio n section) | |
360 | ||
361 | D DIAG,PRO C,ROOM,ITE M,OTHER,IN IT,REV G A 2 | |
362 | END Q | |
363 | … | |
364 | S ^CHMIMAG E(CHMFPDI, 1,CHMFPGNM ,2,CHMFIMA G,"INP-NS" ,JJ,102,L, 0)=$P(CHMF INP(I,J,"R EV",K),"^" ,3)_U_$P(C HMFINP(I,J ,"REV",K), "^",5)_U_$ P(CHMFINP( I,J,"REV", K),"^",6) G RV1 ;JE H 2/1/11 D EV007820 | |
365 | … | |
366 | .S $P(^CHM IMAGE(CHMF PDI,1,CHMF PGNM,2,CHM FIMAG,"INP -NS",JJ,20 0,L,0),"^" ,6)=$P(CHM FINP(I,J," ITEM",K)," ^",9) | |
367 | ||
368 | ||
369 | New versio n (New or changed po rtions; Hi ghlight al l of the f ollowing: New - Bol d, Deleted – Strike thru, Chan ged - Ital ics) | |
370 | ;CRU_SNF03 * SBB 05/1 8/2018 | |
371 | ;D DIAG,P ROC,ROOM,I TEM,OTHER, INIT,REV G A2 | |
372 | D DIAG,PR OC,ROOM,IT EM,OTHER,I NIT,REV,OC CR,SPAN G A2 | |
373 | END Q | |
374 | … | |
375 | ;SBB 05/16 /2018 CRU_ SNF update | |
376 | ;S ^CHMIM AGE(CHMFPD I,1,CHMFPG NM,2,CHMFI MAG,"INP-N S",JJ,102, L,0)=$P(CH MFINP(I,J, "REV",K)," ^",3)_U_$P (CHMFINP(I ,J,"REV",K ),"^",5)_U _$P(CHMFIN P(I,J,"REV ",K),"^",6 ) G RV1 ; JEH 2/1/11 DEV007820 | |
377 | N TMPIMG S TMPIMG=" " | |
378 | S TMPIMG= $P(CHMFINP (I,J,"REV" ,K),"^",3) _U_$P(CHMF INP(I,J,"R EV",K),"^" ,5)_U_$P(C HMFINP(I,J ,"REV",K), "^",6) | |
379 | S TMPIMG= TMPIMG_U_$ P(CHMFINP( I,J,"REV", K),"^",4)_ U_U_$P(CHM FINP(I,J," REV",K),"^ ",7) | |
380 | S ^CHMIMA GE(CHMFPDI ,1,CHMFPGN M,2,CHMFIM AG,"INP-NS ",JJ,102,L ,0)=TMPIMG G RV1 | |
381 | … | |
382 | .S $P(^CHM IMAGE(CHMF PDI,1,CHMF PGNM,2,CHM FIMAG,"INP -NS",JJ,20 0,L,0),"^" ,6)=$P(CHM FINP(I,J," ITEM",K)," ^",9) | |
383 | ;CRU_SNF0 3* SBB 05/ 18/2018 | |
384 | OCCR S K=0 | |
385 | OCCR1 S K= $O(CHMFINP (I,J,"OCCR ",K)) Q:'K S HL=999 999 | |
386 | S HL=$O(^ CHMIMAGE(C HMFPDI,1,C HMFPGNM,2, CHMFIMAG," INP-NS",JJ ,103,HL),- 1) | |
387 | S:'HL HL= 0 S L=HL+1 | |
388 | N TMPIMG S TMPIMG=" " | |
389 | S TMPIMG= $P(CHMFINP (I,J,"OCCR ",K),"^")_ U_$P(CHMFI NP(I,J,"OC CR",K),"^" ,2) | |
390 | S ^CHMIMA GE(CHMFPDI ,1,CHMFPGN M,2,CHMFIM AG,"INP-NS ",JJ,103,L ,0)=TMPIMG G OCCR1 | |
391 | ; | |
392 | ;CRU_SNF0 3* SBB 05/ 16/2018 | |
393 | SPAN S K=0 | |
394 | SPAN1 S K= $O(CHMFINP (I,J,"SPAN ",K)) Q:'K S HL=999 999 | |
395 | S HL=$O(^ CHMIMAGE(C HMFPDI,1,C HMFPGNM,2, CHMFIMAG," INP-NS",JJ ,104,HL),- 1) | |
396 | S:'HL HL= 0 S L=HL+1 | |
397 | N TMPIMG S TMPIMG=" " | |
398 | S TMPIMG= $P(CHMFINP (I,J,"SPAN ",K),"^")_ U_$P(CHMFI NP(I,J,"SP AN",K),"^" ,2)_U_$P(C HMFINP(I,J ,"SPAN",K) ,"^",3) | |
399 | S ^CHMIMA GE(CHMFPDI ,1,CHMFPGN M,2,CHMFIM AG,"INP-NS ",JJ,104,L ,0)=TMPIMG G SPAN1 | |
400 | ||
401 | Difference s | |
402 | ||
403 | See highl ighted inf o above. | |
404 | ||
405 | ||
406 | Passed XIN DEX? (Y / N): N/A | |
407 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.