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 | CHMHMS05.m | Mon Nov 5 16:41:52 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMHMS05.m | Mon Nov 5 17:47:47 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 5 | 380 |
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 | CHMHMS05 ; HAC/JSG;HM S INSURANC E VERIFICA TION CONTR OL (PROCES S RETURNS) ;09/10/08 10:10AM | |
2 | ; DEV004972- 03;Process es HMS Ret urn Files located in Fs3big in the folde r named | |
3 | ; HMS Insura nce File. The Return File name s are ente red into t he Control list | |
4 | ; in routine ^CHMHMS11 . The ente red file n ame is use d to proce ss the Ret urn | |
5 | ; and genera te the HMS Insurance Verificat ion Report . | |
6 | ; Called by: CHMHMS01 | |
7 | ; DEV005641- 01;JSG;HMS Return Fi le process ing & test return fi le build. | |
8 | PROCESS(XN ) ;(Export Number);P rocess Ret urn File & print rep ort: | |
9 | ;D DERR( "Process A ction not currently available. ") Q | |
10 | I XN'>0 D DERR("Ac tivated ex port requi red.") Q | |
11 | S EI=$$F INDX(XN,"H MS_INS_VER ") | |
12 | I '$D(^C HMZHOLD("H MS_INS_VER ",EI),X) D DERR("Not a valid e xport.") Q | |
13 | I $P(X,U ,2)="" D D ERR("Build in progre ss.") Q | |
14 | S HMSRF= $P(X,U,3) I HMSRF="" D DERR("N o Return F ile Specif ied.") Q | |
15 | S HMSXF= $P(X,U,2) I HMSXF="" D DERR("N o Export F ile Specif ied.") Q | |
16 | I $P(X,U ,4)=4 D DE RR("Proces sing in pr ogress.") Q | |
17 | S X="Pre paring to Process Re turn File: "_HMSRF | |
18 | W:$$PXY( 5,0) !,?80 | |
19 | W:$$PXY( 6,40-($L(X )\2)+1) @C HBON,X,@CH BOFF,!,CHL | |
20 | D SCROLL ("B") ;B lank scrol l area | |
21 | S QED=0, XDUZ=DUZ G :"^^@"[$$P ARAM PEND ;Get run time para meters | |
22 | I '$$OPE N(HMSRF) D DERR("Can 't open Re turn File. ") G PEND | |
23 | I $D(IO( "Q"))!(TYP E="E") S Q ED=1 ;2 Q!'2Q? | |
24 | S TAB=$S (DEL'="":D EL,1:U) | |
25 | IF 'QED { D PRINTQ } ;If 'Qing | |
26 | ELSE { S CHFIO=$G( ION),ZTIO= "" ;I f Qing | |
27 | I TYPE ="E" S IOP =0 | |
28 | E S % ZIS="Q",IO P="Q;"_CHF IO D ^%ZIS K ZTIO | |
29 | S ZTRT N="PRINTQ^ CHMHMS05" D VARSAVE D ^%ZTLOAD | |
30 | S IOP= "HOME" D H OME^%ZIS | |
31 | W !,"Y our Task N umber is: ",$G(ZTSK) | |
32 | R !!," Type <Ente r> to cont inue: ",X: 300 } | |
33 | PEND D SCROLL ("R") Q ;Re -display s creen | |
34 | DERR(T) ;( Text) Disp lay error message: | |
35 | W " ?? ",$ C(7),T,?50 ," " H 3 Q | |
36 | FINDX(E,F) ;(Export Index,File heading); Find expor t to delet e: | |
37 | N XF S (X ,XF)=0 | |
38 | F I=1:1 S X=$O(^CHM ZHOLD(F,X) ) Q:X'>0 I I=E S XF =X Q | |
39 | Q XF ;Retu rn subscri pt, if fou nd | |
40 | PXY(R,C) ; Position c urser | |
41 | S DY=R,(DX, $X)=C X XY Q 1 | |
42 | SCROLL(A) ;(Action); Blank, Re- display; | |
43 | IF A="B" { S DTM=9,D BM=21 X CH MAR | |
44 | D RNGEC LR^CHSC1(8 ,21,XY,CHE OL) | |
45 | W:$$PXY (8,1) ?0 } | |
46 | ELSEIF A=" R" { S DTM =9,DBM=21 X CHMAR | |
47 | F EP="HEAD ER","FOOTE R","COLUMN S","LXPORT S" D @(EP_ "^CHMHMS02 ") } | |
48 | Q | |
49 | VARSAVE ;S ave variab les for qu eued job: ; | |
50 | S PAR=$$VPAC K,(ZTSAVE( "CHFIO"),Z TSAVE("U") ,ZTSAVE("P AR"))="" | |
51 | S (ZTSAVE("H MSRF"),ZTS AVE("HMSXF "))="",ZTD ESC="HMS I ns Ver Rep " | |
52 | Q ;--------- ---------- ---------- ---------- ---------- ---------- -; | |
53 | VPACK() Q $LB(TYPE,E I,DEL,XN,Q ED,TAB,TOD AY,IOFILE, CHUCI) | |
54 | ;R eturn all variables needed for next job packed --- ---------- -; | |
55 | VSET(P) S TYPE=$LI(P ,1),EI=$LI (P,2),DEL= $LI(P,3),X N=$LI(P,4) ,QED=$LI(P ,5) | |
56 | S TAB=$LI(P, 6),TODAY=$ LI(P,7),IO FILE=$LI(P ,8),CHUCI= $LI(P,9) Q | |
57 | PRINTQ ;No claims qu eue proces sing: ; | |
58 | ;S RTNFILE=$$ VOLUME_HMS RF | |
59 | X ^ %ZOSF("UCI ") S UCI=$ P(Y,",",1) | |
60 | S F ILENM2=HMS RF | |
61 | S R TNFILE="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
62 | I U CI'="HAC" S FIO="HAC _HFS$:[DSM MANAG.CHAM PVA]"_FILE NM2 | |
63 | D FTPFILE^ CHTFLIB9(R TNFILE," DNS fs3. DNS ","/FS3BIG .HMS_Insur ance_File" ,"GET") | |
64 | X " D $SYSTEM. Process.Se tZEOF(1)" | |
65 | I ' $$OPENFIRD ^CHTFLIB9( .RTNFILE," RTNFILE") Q | |
66 | D:' $D(QED) VS ET(PAR) | |
67 | S T S=$S(CHUCI ="HAC":5,1 :0) ;If 'p roduction, make room 4 debug c ol | |
68 | S $ P(^CHMZHOL D("HMS_INS _VER",EI), U,4)=4 ; Mark expor t Processi ng | |
69 | O:$ ZUTIL(68,4 0,1)!1 RTN FILE:"R":5 ;Turn of f EOF erro r, open fi le | |
70 | I ' $T S $P(^C HMZHOLD("H MS_INS_VER ",EI),U,4) ="ERR" H ;No fi le | |
71 | S $ Y=80 H 2 | |
72 | IF TYPE="E" { | |
73 | ;S REPFILE ="HMSRTNRE P_"_DUZ_"_ "_TODAY_"_ " | |
74 | ;S REPFILE =REPFILE_( $P($H,",", 2)\60)_"_" _CHUCI_".T XT" | |
75 | ;S REPFILE =$$VOLUME_ REPFILE | |
76 | ;O REPFILE:"N WS" | |
77 | ;C REPFILE | |
78 | X ^ %ZOSF("UCI ") S UCI=$ P(Y,",",1) | |
79 | S FILENM2= "HMSRTNREP _"_DUZ_"_" _TODAY_"_" | |
80 | S FILENM2= FILENM2_($ P($H,",",2 )\60)_"_"_ CHUCI_".TX T" | |
81 | S FIO="HAC _HFS$:[SCR .TEMP_FILE S]"_FILENM 2 | |
82 | I UCI'="HA C" S FIO=" HAC_HFS$:[ DSMMANAG.C HAMPVA]"_F ILENM2 | |
83 | I '$$OPENF IWR^CHTFLI B9(.FIO,"F IO") Q | |
84 | D I NIT(1,TAB) ,HEADER(1) ,DETAIL | |
85 | D C LOSEF^CHTF LIB9(FIO," FIO") | |
86 | D FTPFILE^ CHTFLIB9(F IO," DNS fs3. DNS ","/FS3BIG .HMS_Insur ance_File" ,"PUT") } | |
87 | ELSE { D INIT(0) ,DETAIL U IO W !!,"E nd of Repo rt ;s&" } | |
88 | D CLOS EF^CHTFLIB 9(.RTNFILE ,"RTNFILE" ) | |
89 | X "D $ SYSTEM.Pro cess.SetZE OF(0)" | |
90 | ;C RTN FILE | |
91 | S $P(^ CHMZHOLD(" HMS_INS_VE R",EI),U,4 )=3 ;M ark export Complete | |
92 | Q ;--- ---------- ---------- ---------- ---------- ---------- --------; | |
93 | DETAIL ;Pa ss through Return Fi le, get it em, send f or printin g | |
94 | S E OF=0 | |
95 | WHI LE 'EOF { S HMSREC=$ $READRTN(R TNFILE) | |
96 | IF HMSREC= "" { S EOF =1 } | |
97 | ELSE { S H MSTN=$P(HM SREC,U),DO B=$P(HMSRE C,U,6) | |
98 | S LST=$ P(HMSREC,U ,2),FST=$P (HMSREC,U, 3),MI=$P(H MSREC,U,4) | |
99 | S OHINA ME=$E($P(H MSREC,U,7) ,1,30),OHI TOC=$P(HMS REC,U,10) | |
100 | S OHIEF F=$P(HMSRE C,U,8),OHI EXP=$P(HMS REC,U,9) | |
101 | S ACARD =$P(HMSREC ,U,5),EIN= +$E(HMSTN, 7,11) | |
102 | IF $D(^ CHMZHOLD(" HMS_INS_VE R",EI,EIN) ,X) { | |
103 | S DFN=$ P(X,U),BFN =$P(X,U,2) | |
104 | S BNAM= $E(LST_"," _FST_" "_M I,1,30) | |
105 | S ACARD =$E(ACARD, 1,3)_"-"_$ E(ACARD,4, 5)_"-"_$E( ACARD,6,9) | |
106 | D LINE( TAB) } } } | |
107 | Q ; ---------- ---------- ---------- ---------- ---------- ---------- -; | |
108 | READRTN(F) ;Get a re cord from the Return File: | |
109 | N SFR U F R SFR Q $ S('$ZEOF:S FR,1:"") | |
110 | LINE(T) ;( Tab charac ter);Get d ata to go out | |
111 | IF TYPE'="P" { U REPFI LE | |
112 | W BNAM_T_ ACARD_T_OH INAME_T_OH IEFF_T_OHI EXP_T_OHIT OC,! } | |
113 | EL SE { U IO D:($Y>57) HEADER(0) W ! | |
114 | W $E(BNAM ,1,30+TS), ?32+TS,ACA RD,?45+TS, OHINAME,?7 7+TS,OHIEF F | |
115 | W ?89+TS, OHIEXP,?10 1+TS,OHITO C | |
116 | W:CHUCI'= "HAC" ?126 ,EIN } | |
117 | Q ;--------- ---------- ---------- ---------- ---------- ---------- -; | |
118 | HEADER(EF) ;Print or export he ader (EF=E xport Flag ): | |
119 | IF EF { U REPFILE W HDR,! } | |
120 | ELSE { W @IOF,DUZ,? TT,TITLE,? 122,"Page: ",$J(PG,3 ) | |
121 | W !,DA TE,?ST,SUB ,!,TIME,?R TPT,RTPARA M,! | |
122 | W !,"B eneficiary Name",?32 +TS," ACa rd #",?45+ TS,"OHI Na me" | |
123 | W ?77+ TS," Eff D ate",?89+T S," Exp Da te",?101+T S,"OHI Typ e of Cover age" | |
124 | W !,$E ("-------- ---------- ---------- -------",1 ,30+TS) | |
125 | W ?32+ TS,"------ -----" | |
126 | W ?45+ TS,"------ ---------- ---------- ----",?77+ TS,"------ ----" | |
127 | W ?89+ TS,"------ ----",?101 +TS,"----- ---------- -----" | |
128 | S PG=P G+1 } | |
129 | Q ;------ ---------- ---------- ---------- ---------- ---------- ; | |
130 | INIT(EF,T) ;Set up p rint or ex port heade r (EF=Expo rt Flag): | |
131 | IF EF { S HDR="Bene ficiary"_T _"A Card # "_T_"OHI N ame"_T | |
132 | S HDR= HDR_"Effec tive"_T_"E xpiration" _T_"Type o f Coverage " } | |
133 | ELSE { S DATE=$$FI X($$FMTE^D ILIBF(TODA Y,6)) | |
134 | S TIME =$$HTIM^AC KQUTL($H,0 ) | |
135 | S TITL E="HEALTH ADMINISTRA TION CENTE R" | |
136 | S TT=6 6-($L(TITL E)\2) | |
137 | S SUB= "HMS INSUR ANCE VERIF ICATION RE PORT",ST=6 6-($L(SUB) \2) | |
138 | S RTPA RAM="Expor t File: "_ HMSXF_"; " | |
139 | S RTPA RAM=RTPARA M_"Return File: "_HM SRF | |
140 | S RTPT =66-($L(RT PARAM)\2), PG=1 } | |
141 | Q ;------ ---------- ---------- ---------- ---------- ---------- ; | |
142 | FIX(D) ;(D ate); ; | |
143 | Q $ TR(D,"-"," /") ;< Replace "- " with "/" ; | |
144 | ;Re turn date with slash es ------- ---------- ---------- ---------- ; | |
145 | OPEN(RF) ; (Return Fi le);Check to see if Return Fil e can be o pened: | |
146 | ; N IOF,Z S IOF=$$VOLU ME_RF O IO F:"R":5 I '$T Q 0 | |
147 | ; U IOF R Z C IOF Q 1 | |
148 | X ^%ZOSF("U CI") S UCI =$P(Y,",", 1) | |
149 | S FILENM2=R F | |
150 | S FIO="HAC_ HFS$:[SCR. TEMP_FILES ]"_FILENM2 | |
151 | I UCI'="HAC " S FIO="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FI LENM2 | |
152 | D FTPFILE^ CHTFLIB9(F IO," DNS fs3. DNS ","/FS3BIG .HMS_Insur ance_File" ,"GET") | |
153 | X "D $SYSTE M.Process. SetZEOF(1) " | |
154 | I '$$OPENFI RD^CHTFLIB 9(.FIO,"FI O") Q 0 | |
155 | U FIO R Z G :$$STATUS^ %ZISH OPEN C | |
156 | OPENC D CLOSEF^CH TFLIB9(FIO ,"FIO") | |
157 | X "D $SYSTE M.Process. SetZEOF(0) " | |
158 | Q 1 | |
159 | VOLUME() ; Return Fs3 big file p ath: | |
160 | Q | |
161 | Q "HACFS3" " DNS decnet HAC dec741!"": :D:[Fs3big .HMS_Insur ance_File] " | |
162 | PARAM() ;T YPE=P!E;DE L=delimite r ; | |
163 | S (TYPE,DEL, IOFILE,CHU CI)="" | |
164 | S TYPE=$$Por E() Q:TYPE =U U ;Print or export ? | |
165 | X ^%ZOSF("UC I") S CHUC I=$P(Y,"," ) | |
166 | IF TYPE="P" { | |
167 | W !!,"Report does requ ire a ""WI DE"" print er.",!! | |
168 | S IOP="Q" D ^%ZIS Q :POP U ;If printing, get device | |
169 | W !,"Prin ting HMS R eturn Repo rt to: ",I O,ION,".", ! } | |
170 | EL SE { | |
171 | S DEL=$$DCha r() Q:DEL= "@" U S:DE L="<Tab>" DEL=$C(9) | |
172 | S IOFILE="HM SRTNRPT_"_ DUZ_"_"_TO DAY_"_"_($ P($H,",",2 )\60) | |
173 | S IOFILE=IOF ILE_"_"_CH UCI_".TXT" | |
174 | W !!,"Exp orting HMS Return Re port to:" | |
175 | W !!,?20, "Data shar e: Fs3big" | |
176 | W !,?24," Folder: HM S_Insuranc e_File" | |
177 | W !,?26," File: ",IO FILE,! } | |
178 | Q 1 ;Return true param eters read ; -------- ---------- ---------- ; | |
179 | PorE() ;So licit outp ut destina tion (prin t or expor t): ; | |
180 | K D IR S DIR(0 )="SAB^P:P rint to se lected dev ice;" | |
181 | S D IR(0)=DIR( 0)_"E:Expo rt to deli mited text file" | |
182 | S D IR("A")="( P)rint or (E)xport t he output: ",DIR("B" )="P" | |
183 | S D IR("PRE")= "I X="""" S X=""P"" W X" | |
184 | S D IR("?")="" "P"" uses any printe r, ""E"" c reates a . TXT file." | |
185 | D ^ DIR K DIR Q:"^^@"[X "^" | |
186 | Q Y ;Return E or P; --- ---------- ---------- ---------- ---------- ; | |
187 | DChar() ;S olicit fie ld delimit er: ; | |
188 | K DIR S DIR( 0)="FAU^" | |
189 | S DIR("A")=" Fiel d delimite r for file : ",DIR("B ")="<Tab>" | |
190 | S DIR("PRE") ="I X="""" S X=""<Ta b>"" W X" | |
191 | S DIR("?")=" Enter a ch aracter to placed be tween " | |
192 | S DIR("?")=D IR("?")_"f ields in t he output data file. " | |
193 | D ^DIR K DIR Q:"@"[X " @" | |
194 | Q Y ;Return field deli miter; --- ---------- ---------- ---------; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.