Produced by Araxis Merge on 11/9/2018 12:34:17 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 | CHXPORT2.m | Mon Nov 5 16:39:03 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHXPORT2.m | Mon Nov 5 17:55:52 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 212 |
Changed | 2 | 4 |
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 | CHXPORT2 ; JSG;HMS IN SURANCE VE RIFICATION BENEFICIA RY FILE EX PORT (QUEU ED);09/04/ 08 | |
2 | ; Requiremen ts defined by: DEV00 4972-03 & BAT004972- 01 | |
3 | ; DEV012893 1/14/2014 DGC - MODI FY DECNET WRITE | |
4 | ; MTN024265 09/23/15 S BB - Fix t he DECNET routines t hat have a typo | |
5 | ; | |
6 | ; Keys: HMS, FS3BIG, e xport, ext ract, TOC | |
7 | ; Exports cu rrent CHAM PVA eligib le benefic iaries wit h at least one paid | |
8 | ; claim whos e current OHI type o f coverage is 1 (NO OHI) or 8 (OHI?). | |
9 | ; Called by: CHMHMS01 | |
10 | I HMSXN'>0 D DERR("Ac tivate New Export Fi le.") Q | |
11 | S U="^",DEL =U D NOW^% DTC S TODA Y=X ;Set del imiter, da te | |
12 | S EI=$$FIND X(HMSXN,"H MS_INS_VER ") | |
13 | I EI D DERR ("Export a lready exi sts; Activ ate New Ex port File. ") Q | |
14 | I F $D(^CHMZ HOLD("HMS_ INS_VER",T ODAY)) { | |
15 | D DERR("Ex port for T oday exist s; delete it to reru n.") Q } | |
16 | S ZTRTN="HM S^CHXPORT2 ",ZTDTH=$H D VARSAVE ,^%ZTLOAD ;Que ue | |
17 | S IOP="HOME " D HOME^% ZIS | |
18 | W "uild ini tiated ... ",?53," " R X:5 | |
19 | K %TF D NOW ^%DTC S TO DAY=X Q | |
20 | ; | |
21 | DERR(T) W " ?? ",$ C(7),T H 2 Q ;(Text) Display e rror messa ge | |
22 | FINDX(E,F) ;(Export Index,File heading); Find expor t to delet e: | |
23 | N XF S (X ,XF)=0 | |
24 | F I=1:1 S X=$O(^CHM ZHOLD(F,X) ) Q:X'>0 I I=E S XF =X Q | |
25 | Q XF ;Return subscript , if found | |
26 | VARSAVE ;S ave variab les for qu eued job: | |
27 | S CHFIO=$G(I ON),ZTIO=" ",PAR=$LB( DEL,TODAY) | |
28 | S ZTDESC="HM S Insuranc e Verifica tion File Export" | |
29 | I $D(%TF),%T F S ZTSAVE ("%TF")="" | |
30 | S (ZTSAVE("C HFIO"),ZTS AVE("U"),Z TSAVE("PAR "))="" Q | |
31 | ; | |
32 | HMS ;Scan sponsor/be neficiarie s to find TOCs = 1 o r 8: | |
33 | S DEL= $LI(PAR,1) ,TODAY=$LI (PAR,2) ;Unpa ck | |
34 | K ^CHM ZHOLD("HMS _INS_VER", TODAY),RN | |
35 | IF $D( %TF),%TF { S ^CHMZHO LD("HMS_IN S_VER",TOD AY,0)=1 } | |
36 | DFN ;CHAMP VA Payment Sponsor/B eneficiary | |
37 | S SI=0 ,TWOYRS=TO DAY-20000, SC=0 ;Define 2 years a go | |
38 | H1 S SI=$ O(^CHMDFN( SI)) G HMS IO:SI'>0 ;Spo nsor point er | |
39 | I $D(% TF),%TF G HMSIO:SC>1 999 ;Stop @ 2K , if testi ng | |
40 | G H1:' $D(^CHMDFN (SI,0),DFN ) S DFN=$P (DFN,U) ;Sp onsor numb er | |
41 | G H1:D FN="" S BJ =0 ;Skip, if no sponsor # | |
42 | H2 S BJ=$ O(^CHMDFN( SI,100,BJ) ) G H1:BJ' >0 ; Bene point er | |
43 | G H2:' $D(^CHMDFN (SI,100,BJ ,0),BFN) S BFN=$P(BF N,U) ;Bene numb er | |
44 | G H2:B FN="" ;Wh y? | |
45 | G H2:' $D(^AHCHVA (DFN,100,B FN,0),BR) S BR1=$G(^ (1)) ; Skip, if ' in bene fi le | |
46 | G H2:$ P(BR,U,5)' ="EA" ;Skip, if 'eligib le | |
47 | G H2:' $$PAID ;S kip, if no paid clai m in 2 yea rs | |
48 | G H2:$ $OHI ; Skip, if O HI | |
49 | S $P(^ CHMZHOLD(" HMS_INS_VE R",TODAY), U)=$I(RN) ;Count be ne | |
50 | S ^CHM ZHOLD("HMS _INS_VER", TODAY,RN)= DFN_U_BFN ;Save s ponsor, be ne | |
51 | S TN=$ E(TODAY,2, 7)_$E("000 00",1,5-$L (RN))_RN ;Set tra cking numb er | |
52 | S ^CHM ZHOLD("HMS _INS_VER", TODAY,RN,0 )=TN_DEL_$ $BDATA(BR, BR1,DEL) ;Save reco rd | |
53 | S SC=S C+1 | |
54 | G H2 ;Get anoth er | |
55 | PAID() ;Ha s bene had paid clai m within p ast 2 year s?: | |
56 | S K =999999999 ;St art from e nd | |
57 | P1 S K =$O(^CHMDF N(SI,100,B J,100,K),- 1) Q:K'>0 0 ;Kth cla im, quit F alse if no ne | |
58 | G P 1:'$D(^CHM DFN(SI,100 ,BJ,100,K, 0),CNP) ; Get Claim Number Ind ex | |
59 | G P 1:'$D(^CHM PAY(CNP,0) ,PR0) ;Sk ip, 'in CH AMPVA CLAI MS | |
60 | G P 1:$P(PR0,U ,2)'=4 ;Skip, if 'comple te | |
61 | G P 1:'$D(^CHM PAY(CNP,1) ,PR1) ;Skip , if no pa yment reco rd | |
62 | G P 1:$P(PR1,U )'>0 ;Skip, if nothing pa id | |
63 | Q:$ P(PR1,U,4) >TWOYRS 1 ; True, if p ay date wi thin 2 yea rs | |
64 | G P 1 ;C heck anoth er | |
65 | ; | |
66 | OHI() ;Doe s bene hav e OHI?: | |
67 | N KD | |
68 | Q:'$ D(^CHMDFN( SI,100,BJ, 2,0),K) 0 ;No O HI | |
69 | S KD =$O(^CHMDF N(SI,100,B J,2,"B",99 99999),-1) Q:KD'>0 0 ;No entri es | |
70 | S K= $O(^CHMDFN (SI,100,BJ ,2,"B",KD, 0)) Q:K'>0 0 ;No entri es | |
71 | Q:'$ D(^CHMDFN( SI,100,BJ, 2,K,0),COH I) 0 ;Lates t OHI reco rd | |
72 | S TO C=$P(COHI, U,3) ;Get type of covera ge | |
73 | Q $S (TOC=1:0,T OC=8:0,1:1 ) ;Tr ue = 'OHI, False = O HI | |
74 | ; | |
75 | BDATA(N0,N 1,T) ;(Nod e 0,Node 1 );Pack ben e data: -- ---------- ---------- ---------- -; | |
76 | N L,F ,M,SSN,DOB ,SEX,A1,A2 ,A3,CTY,ST E,ZIP,NAM ; | |
77 | S NAM =$P(N0,U), L=$$LAST(N AM),F=$$FI RST(NAM),M =$$MIDDLE( NAM) ; | |
78 | S SSN =$P(N0,U,9 ),DOB=$P(N 0,U,3),SEX =$P(N0,U,2 ),DOB=$$DF D(DOB,"/") ; | |
79 | S A1= $P(N1,U),A 2=$P(N1,U, 2),A3="",Z IP=$P(N1,U ,5) ; | |
80 | S CTY =$P(N1,U,3 ),CTY=$$TR IM^XLFSTR( CTY,"R"," ") ; | |
81 | S STE =$P(N1,U,4 ) I STE'=" " S STE=$P (^DIC(5,ST E,0),U,2) ; | |
82 | Q L_T _F_T_M_T_S SN_T_DOB_T _SEX_T_A1_ T_A2_T_A3_ T_CTY_T_ST E_T_ZIP ; | |
83 | ;Retu rn packed bene data ---------- ---------- ---------- ---------- -; | |
84 | LAST(N) Q $P(N,",") ; (Name);Par se last na me | |
85 | FIRST(N) Q $P($$TRIM ^XLFSTR($P (N,",",2), "L")," ") ;( Name);Pars e first na me | |
86 | MIDDLE(N) Q $P($$TRI M^XLFSTR($ P(N,",",2) ,"L")," ", 2) ;(N ame);Parse middle na me | |
87 | DFD(D,S) Q $E(D,4,5) _S_$E(D,6, 7)_S_$S($E (D)=2:"19" ,1:"20")_$ E(D,2,3) ;Format da te | |
88 | HMSIO ;Put accumulat ed data to printer o r file: | |
89 | X ^% ZOSF("UCI" ) S CHUCI= $P(Y,",") ;G et namespa ce | |
90 | S IOFIL E="HMSXPOR T_"_$E(TOD AY,2,7)_"_ "_($P($H," ,",2)\60)_ "_"_CHUCI | |
91 | S $P(^C HMZHOLD("H MS_INS_VER ",TODAY),U ,2)=IOFILE ,$P(^(TODA Y),U,5)=DU Z | |
92 | ;S XFILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[Fs3big .HMS_Insur ance_File] " DGC 1/1 4/2014 DEV 012893 - B EGIN | |
93 | ;S XFIL E=XFILE_IO FILE_".TXT " | |
94 | ;O XFIL E:"NWS" | |
95 | X ^%ZOS F("UCI") S UCI=$P(Y ,",",1) | |
96 | X "D $S YSTEM.Proc ess.SetZEO F(1)" ;DGC 7/30/2015 DEV012893 | |
97 | S FILEN M2=XFILE_I OFILE_".TX T" | |
98 | S XFILE ="$DISKSCR ATCH:[TEMP _FILES]"_F ILENM2 | |
99 | I UCI'= "HAC" S XF ILE="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2 | |
100 | I '$$OP ENFIWR^CHT FLIB9(.XFI LE,"XFILE" ) X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93 | |
101 | S RN=$P (^CHMZHOLD ("HMS_INS_ VER",TODAY ),U) ;Ge t number o f records | |
102 | F I= 1:1:RN U X FILE W ^CH MZHOLD("HM S_INS_VER" ,TODAY,I,0 ),! ;W rite recor ds | |
103 | ;C XFIL E | |
104 | D CLOSE F^CHTFLIB9 (XFILE."XF ILE") | |
105 | X "D $S YSTEM.Proc ess.SetZEO F(0)" ;DGC 7/30/2015 DEV012893 | |
106 | D FTPFILE^ CHTFLIB9(X FILE," DNS fs3. DNS ","Fs3big/ HMS_Insura nce_File", "PUT") ;DG C 1/14/13 DEV012893 - END | |
107 | S $P(^C HMZHOLD("H MS_INS_VER ",TODAY),U ,4)=1 ;Status: pending re turn file | |
108 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.