Produced by Araxis Merge on 11/9/2018 12:33:56 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 | CHMHMS11.m | Mon Nov 5 16:45:16 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMHMS11.m | Mon Nov 5 17:47:47 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 5 | 226 |
Changed | 4 | 8 |
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 | CHMHMS11 ; HAC/JSG;HM S INSURANC E VERIFICA TION (RETU RN FILE NA ME);09/09/ 08 10:10AM | |
2 | ; DEV004972- 03;Add HMS Return Fi le name. T he File na me is nece ssary to | |
3 | ; process th e Return F ile to pri nt the dis crepancy r eport: HMS Insurance | |
4 | ; Verificati on Report (CHMHMS05) . | |
5 | ; If %BTF is defined & true, the routine b ranches to BTF and c onstructs | |
6 | ; a test (du mmy) HMS R eturn file . Only a valid opti on in DEV and TST. | |
7 | ; Called by: CHMHMS01 | |
8 | ; DEV005641- 01;JSG;HMS Return Fi le process ing & test return fi le build. | |
9 | ADD(XN) ;( Xport Numb er); | |
10 | I XN'>0 D DE RR("Activa ted export required. ") Q | |
11 | S EI=$$FINDX (XN,"HMS_I NS_VER") | |
12 | I '$D(^CHMZH OLD("HMS_I NS_VER",EI ),X) D DER R("Not a v alid expor t.") Q | |
13 | I $P(X,U,2)= "" D DERR( "Build in progress." ) Q | |
14 | I $P(X,U,4)= 4 D DERR(" Processing in progre ss.") Q | |
15 | A5 D SCROLL S D TM=8,DBM=2 1 X CHMAR S DY=7,DX= 1 X XY | |
16 | S HMSXC=$P(X ,U),HMSXF= $P(X,U,2) | |
17 | I $D(%BTF),% BTF D BTF G U1 ;Go buil d a test r eturn file | |
18 | S HMS XR=$P(X,U, 3),HMSXS=$ P(X,U,4) | |
19 | W !,$ J(XN,2),?4 ,$$SLASH(E I),?14,$J( HMSXC,5) | |
20 | S HMSXS=$P(" PRF^PDR^CO M",U,HMSXS ) | |
21 | W ?21,HMSXF, ?49,HMSXS, ?55,$E(HMS XR,1,25) | |
22 | A7 W !!," CORRECT E XPORT?: Y // " D CSB RS^CHSC2 | |
23 | Q: $D(DFOUT)! $D(DUOUT) U I Y="" S Y="Y" W Y G A8 | |
24 | G A7:"YyNn"' [Y S:$A(Y) '<96 Y=$C( $A(Y)-32) Q:Y'="Y" | |
25 | A8 W !!,"ENTER RETURN FIL E NAME: ", HMSXR," // " D CSBRS ^CHSC2 | |
26 | Q: $D(DFOUT)! $D(DUOUT) U S:Y="" Y =HMSXR | |
27 | G A8:Y="" | |
28 | ;S XFILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[Fs3big .HMS_Insur ance_File] " | |
29 | ;S XFILE=XFI LE_Y | |
30 | ;O XFILE:"R" | |
31 | ;U XFILE R Z C XFILE | |
32 | X ^%ZOSF("UC I") S UCI= $P(Y,",",1 ) | |
33 | S FILENM2=Y | |
34 | S FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2 | |
35 | I UCI'="HAC" S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2 | |
36 | D FTPFILE^ CHTFLIB9(F IO," DNS fs3. DNS ","/FS3BIG .HMS_Insur ance_File" ,"GET") | |
37 | X "D $SYSTEM.Pr ocess.SetZ EOF(1)" | |
38 | I '$$ OPENFIRD^C HTFLIB9(.F IO,"FIO") Q | |
39 | U FIO R Z G: $$STATUS^% ZISH A8END | |
40 | A8END D CLOSEF^CHT FLIB9(FIO, "FIO") | |
41 | X "D $SYSTEM .Process.S etZEOF(0)" | |
42 | I $E(^CHMZHO LD("HMS_IN S_VER",EI, 1,0),1,6)' =$E(Z,1,6) D H 2 G A5 | |
43 | .W !!,"The t racking nu mbers in t he records in the sp ecified fi le do not" | |
44 | .W !,"match those of t he selecte d Export." | |
45 | S HMSXR=Y | |
46 | D SCROLL S D TM=8,DBM=2 1 X CHMAR S DY=7,DX= 1 X XY | |
47 | W !,$J(XN,2) ,?4,$$SLAS H(EI),?14, $J(HMSXC,5 ) | |
48 | W ?21,HMSXF, ?49,HMSXS, ?55,$E(HMS XR,1,25) | |
49 | A9 W !!,"UPDATE EXPORT WI TH RETURN FILENAME?: Y // " D CSBRS^CHSC 2 | |
50 | Q: $D(DFOUT)! $D(DUOUT) U I Y="" S Y="Y" W Y G UPDATE | |
51 | G A9:"YyNn"' [Y S:$A(Y) '<96 Y=$C( $A(Y)-32) G A9:Y'="Y " | |
52 | UPDATE S $P(^CHMZHO LD("HMS_IN S_VER",EI) ,U,3)=HMSX R | |
53 | S $P(^CHMZHO LD("HMS_IN S_VER",EI) ,U,4)=2 | |
54 | W !!,"Export updated." | |
55 | U1 K %BTF R !!, "Type <Ent er> to con tinue: ",X :600 Q | |
56 | ;- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ; | |
57 | DERR(T) ;( Text) Disp lay error message: | |
58 | W " ?? ",$ C(7),T,?50 ," " H 2 Q | |
59 | FINDX(E,F) ;(Export Index,File heading); Find expor t to delet e: | |
60 | N XF S (X ,XF)=0 | |
61 | F I=1:1 S X=$O(^CHM ZHOLD(F,X) ) Q:X'>0 I I=E S XF =X Q | |
62 | Q XF ;Return subscript , if found | |
63 | PXY(R,C) ; Position c urser | |
64 | S DY=R,(DX, $X)=C X XY Q 1 | |
65 | SCROLL ;Bl ank area; | |
66 | S D TM=9,DBM=2 1 X CHMAR D RNGECLR^ CHSC1(8,20 ,XY,CHEOL) Q | |
67 | SLASH(D) ; Format dat e with "/" s | |
68 | Q $S(D<1:"" ,1:$E(D,4, 5)_"/"_$E( D,6,7)_"/" _$E(D,2,3) ) | |
69 | ;- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ; | |
70 | BTF ;B uild test HMS return file base d on curre ntly activ ated expor t ; | |
71 | ;C an only be called fr om DEV or TST namesp aces ; | |
72 | OHI ;L ist of tes t Other He alth Insur ance provi ders ; | |
73 | ;A ETNA; | |
74 | ;B C/BS; | |
75 | ;A MERICAN PO STAL WORKE RS UNION; | |
76 | ;M VP HEALTHC ARE; | |
77 | ;U NITED HEAL THCARE; | |
78 | ;A NTHEM BC/B S KYO; | |
79 | ;A ARP - UNIT ED HEALTHC ARE; | |
80 | ;A MERICAN RE PUBLIC INS URANCE; | |
81 | ;P RINCIPAL M UTUAL; | |
82 | ;M AILHANDLER S INSURANC E; | |
83 | ;C IGNA; | |
84 | ;H UMANA; | |
85 | TOC ;H MO|PPO|MED ICARE SUPP LEMENT|POS |MAJOR MED ICAL; | |
86 | N TFILE,RFIL E,XST,OHI, TOC,ED,XD, NTC | |
87 | ;S TFILE="HM S_REPLY_"_ $E(TODAY,2 ,7)_"_"_CH UCI_".TXT" | |
88 | W !!,"Creati ng test (d ummy) HMS Return Fil e: ",TFILE | |
89 | ;S RFILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[Fs3big .HMS_Insur ance_File] " | |
90 | ;S RFILE=RFI LE_TFILE | |
91 | ;O RFILE:"NW S" | |
92 | ;O FIO C FIO :"D" | |
93 | ;O FIO:"NWV" | |
94 | X ^%ZOSF("UC I") S UCI= $P(Y,",",1 ) | |
95 | S FILENM2="H MS_REPLY_" _$E(TODAY, 2,7)_"_"_C HUCI_".TXT " | |
96 | S FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2 | |
97 | I UCI'="HAC" S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2 | |
98 | X "D $SYSTEM .Process.S etZEOF(1)" | |
99 | I '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") Q | |
100 | F I=1:10:HMS XC D | |
101 | .S X=^CHMZHO LD("HMS_IN S_VER",EI, I,0) | |
102 | .S XST=$P(X, U,12),X=$P (X,U,1,6) | |
103 | .S OHI=$P($T (OHI+($R(1 2)+1)),";" ,2) I $E(O HI,1,2)="B C" S OHI=O HI_" "_XST | |
104 | .S TOC=$P($P ($T(TOC)," ;",2),"|", $R(5)+1) | |
105 | .S ED=$$FMAD D^DILIBF(T ODAY,-$R(3 65*3)+1)\1 ;Fake cov erage effe ctive date | |
106 | .S XD=$$FMAD D^DILIBF(T ODAY,$R(36 5*2)+1)\1 ;Fake cove rage expir ation date | |
107 | .S ED=$E(ED, 4,5)_"/"_$ E(ED,6,7)_ "/20"_$E(E D,2,3) | |
108 | .S XD=$E(XD, 4,5)_"/"_$ E(XD,6,7)_ "/20"_$E(X D,2,3) | |
109 | .S :$I(NTC) X =X_U_OHI_U _ED_U_XD_U _TOC | |
110 | .U FIO W X,! | |
111 | D CLOSEF^CHT FLIB9(FIO, "FIO") | |
112 | X "D $SYSTEM .Process.S etZEOF(0)" | |
113 | D FTPFILE^ CHTFLIB9(F IO," DNS fs3. DNS ","/FS3BIG .HMS_Insur ance_File" ,"PUT") | |
114 | ;C RFILE | |
115 | W !!,"Return file plac ed in the HMS_Insura nce_File f older on F s3big." | |
116 | W !,"Number of test re turn recor ds created : ",NTC | |
117 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.