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 | CHSPNRPT.m | Mon Nov 5 16:39:42 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHSPNRPT.m | Mon Nov 5 17:55:33 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 264 |
Changed | 3 | 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 | CHSPNRPT ; RFE ;12/2 6/17 | |
2 | ;;1.0;CHA MPVA SYSTE M;; 26 DEC 2017; | |
3 | ; VADIR/C BOPC file exchange, cloned fro m ZZSBBUTL 1 | |
4 | ;; | |
5 | Q | |
6 | ;; | |
7 | MAIN ; | |
8 | I '$G(DUZ ) S DUZ=1 | |
9 | S MMYY="I NITIAL" | |
10 | S CHFIO=" ",ZTDTH=$H | |
11 | S ZTRTN=" GETSPONS^C HSPNRPT",Z TDESC="VAD IR/CBOPC f ile exchan ge" | |
12 | S ZTIO="" ,ZTSAVE("C HFIO")="", ZTSAVE("MM YY")="" | |
13 | D ^%ZTLOA D | |
14 | Q | |
15 | ; | |
16 | GETSPONS ; | |
17 | ; | |
18 | ;set MMYY . | |
19 | N MAXCNT, YY | |
20 | S MAXCNT= 500 | |
21 | D NOW^%DT C | |
22 | S MMYY=$E (X,4,5)_$E (X,2,3),YY =$E(X,1,3) | |
23 | S CURYRBG =YY_"0000" | |
24 | S CURYRBG =+CURYRBG | |
25 | S U="^",C NT=0 | |
26 | S FOLD ER="hac_hf s$:[scr.te mp_files]" | |
27 | S FILENM= "SPONFILE_ "_MMYY_".D AT" | |
28 | S FLDR="/ FS3BIG/" | |
29 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
30 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
31 | ;S FILE=" DISK$SCRAT CH:[TEMP_F ILES]"_FIL ENM | |
32 | S FILE=FO LDER_FILEN M | |
33 | I UCI'="H AC" S FILE ="DHCP$CHA MPVA:"_$P( FILENM,"." )_UCI_"."_ $P(FILENM, ".",2) | |
34 | O FILE:"N WS":2 | |
35 | E U 0 W !,"Can't o pen" Q | |
36 | ;I '$$OPE NFIWR^CHTF LIB9(.FILE ,"FILE") Q | |
37 | ; | |
38 | ;for max count | |
39 | ;S DFN=0 F S DFN=$O(^A HCHVA(DFN) ) Q:('DFN) !(CNT=MAXC NT) D | |
40 | ;for all RET/RES on file. | |
41 | S DFN=0 F S DFN=$O(^A HCHVA(DFN) ) Q:('DFN) D | |
42 | . Q:'$D(^ AHCHVA(DFN ,0)) ;Qu it if no 0 node | |
43 | . Q:($P(^ AHCHVA(DFN ,0),U,5)'= "E") ;Qu it for non eligible sponsors | |
44 | . ;Q:($P( ^AHCHVA(DF N,0),U,25) '=1) ;Q uit for no n RET/RES sponsors | |
45 | . I $D(^A HCHVA(X,15 )),$P(^AHC HVA(X,15), U) Q ;Q uit for Sp ina Bifida sponsors | |
46 | . S (SNAM E,SLNAME,S FNAME,SSSN ,SDOB,ERR) ="" | |
47 | . S RES=$ $GETVALS(. SNAME,.SSS N,.SDOB) | |
48 | . Q:'RES | |
49 | . S SLNAM E=$P(SNAME ,",") | |
50 | . S SFNAM E=$P(SNAME ,",",2) | |
51 | . U FILE W SFNAME_" |"_SLNAME_ "|"_SSSN_" |"_SDOB | |
52 | . U FILE W ! | |
53 | . S CNT=C NT+1 | |
54 | . Q | |
55 | ; | |
56 | /* | |
57 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) | |
58 | D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ","FS3BIG" ,"PUT") | |
59 | */ | |
60 | C FILE | |
61 | D FTPFILE^ CHTFLIB9(F ILE," DNS fs3. DNS ",FLDR,"PU T") | |
62 | W !,"Tota l Records Found : ", CNT | |
63 | I UCI="HA C" D EMAIL | |
64 | Q | |
65 | ; | |
66 | GETVALS(SN AME,SSSN,S DOB) ; | |
67 | N RESULT | |
68 | S RESULT= 0 | |
69 | S RESULT= $$SPONELIG () | |
70 | ; | |
71 | I RESULT S RESULT=0 D | |
72 | . S SNAME =$P(^AHCHV A(DFN,0),U ) Q:SNAME= "" | |
73 | . ; | |
74 | . S SSSN= $P(^AHCHVA (DFN,0),U, 9) | |
75 | . S SSSN= $$LTRIM^CH TFLIB(SSSN ) | |
76 | . S SSSN= $$TRIM^CHT FLIB(SSSN) | |
77 | . I SSSN' ?9N S ^CHM ZHOLD("ZSP ONFILE","E XCEPTION", SNAME,"SSN ")="SSN = "_SSSN S E RR=1 | |
78 | . Q:ERR | |
79 | . ; | |
80 | . S SDOB= $P(^AHCHVA (DFN,0),U, 3) | |
81 | . I SDOB' ?7N S ^CHM ZHOLD("ZSP ONFILE","E XCEPTION", SNAME,"DOB ")="DOB = "_SDOB S E RR=1 | |
82 | . I SDOB= "" S ^CHMZ HOLD("ZSPO NFILE","EX CEPTION",S NAME,"DOB" )="DOB = " _SDOB S ER R=1 | |
83 | . Q:ERR | |
84 | . S SDOB= $$FMTE^XLF DT(SDOB,"5 D") ;m/d /yyyy form at | |
85 | . S SDOB= $$CONVDT5^ CHCMSFFI(S DOB) ;mm/ dd/yyyy fo rmat | |
86 | . ; | |
87 | . S RESUL T=1 | |
88 | . Q | |
89 | Q RESULT | |
90 | ; | |
91 | SPONELIG() ; | |
92 | ; | |
93 | N RESULT, BFN,ELIG,B EBDATE,BEE DATE | |
94 | S (RESULT ,BFN)=0 | |
95 | S (ELIG,B EBDATE,BEE DATE)="" | |
96 | ; | |
97 | F S BFN= $O(^AHCHVA (DFN,100,B FN)) Q:('B FN)!RESULT D | |
98 | . Q:'$D(^ AHCHVA(DFN ,100,BFN,0 )) | |
99 | . Q:$P(^A HCHVA(DFN, 100,BFN,0) ,U,5)'="EA " | |
100 | . I ($P(^ AHCHVA(DFN ,100,BFN,0 ),U,11)<CU RYRBG) S R ESULT=1 Q | |
101 | . Q | |
102 | ; | |
103 | Q RESULT | |
104 | ; | |
105 | EMAIL ; | |
106 | Q:$$ENVIR ^CHTFLIB'= "LIVE" | |
107 | S SUBJECT ="VADIR/CB OPC Sponso r Report" | |
108 | K ZML | |
109 | S ZML(1)= "VADIR/CBO PC Sponsor Report is completed on FS3BIG " | |
110 | S TEXT="Z ML(" | |
111 | K LXMY | |
112 | S LXMY("G .PST")="" | |
113 | S LXMY("
|
|
114 | ;S LXMY(" PII ")="" | |
115 | ;S LXMY(6 98378)="" | |
116 | N DUZ | |
117 | D VMAIL(S UBJECT,TEX T,.LXMY) | |
118 | Q | |
119 | VMAIL(SUBJ ECT,TEXT,L XMY) ; | |
120 | ; SUBJEC T SUBJEC T LINE FOR THE EMAIL | |
121 | ; TEXT TEXT F OR THE EMA IL | |
122 | ; LXMY TARGET ED RECIPIE NTS FOR TH E EMAIL | |
123 | N EMLID | |
124 | S U="^" | |
125 | S XMDUZ=. 5 | |
126 | ; POSTMAN DUZ | |
127 | S XMSUB=S UBJECT | |
128 | ;SUBJECT LINE FOR E MAIL | |
129 | S XMTEXT= TEXT | |
130 | ;TEXT ARR AY FOR BOD Y OF EMAIL | |
131 | S EMLID=0 | |
132 | F S EMLI D=$O(LXMY( EMLID)) Q: EMLID="" D | |
133 | . S XMY($ S(EMLID?1. N:$P(^VA(2 00,EMLID,0 ),"^",1),1 :EMLID))=" " | |
134 | D ^XMD | |
135 | ; SEND IT OFF | |
136 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.