Produced by Araxis Merge on 11/9/2018 12:34:12 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 | CHMXQRPT.m | Mon Nov 5 16:40:22 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXQRPT.m | Mon Nov 5 17:53:17 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 918 |
Changed | 2 | 6 |
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 | CHMXQRPT ;JPN /HAC X12 R EPORT QUAR TERLY REPO RT ;10/10/ 06 4:23 | |
2 | ;;1. 0;CHAMPVA SYSTEM;;JU LY 4,1990; | |
3 | ;THIS REPORT WIL L BE SET T O RUN VIA THE SCHEDU LER AND WI LL RUN FRO M THE DATE THE REPOR T IS RUN T O 90 DAYS BACK | |
4 | ;THE R EPORT CHEC K THE GLOB AL CHMXCL AND USES T HE BATCH D ATE THAT T HE ORIGION AL REPORTS WERE RUN AND USES | |
5 | ;THAT DATE FOR I TS SEARCH AND ONLY T HOSE BATCH NUMBERS A ND WILL NO T INCLUDE "OCR" FILE S. THE RE PORT GETS THE | |
6 | ;POINT ER THEN ST ARTS TO PR OCESS NORM ALLY THROU GH THE X12 PROCESS. | |
7 | ; | |
8 | ; AJM 02/18/2010 (DEF00910 2) | |
9 | ;DEV01 2893 1/16/2014 DGC - MODI FY IO | |
10 | ; | |
11 | DATE ;ENT ER HERE TO USE DATE RANGE | |
12 | K DIR | |
13 | S QFLG =0 | |
14 | D NOW^ %DTC | |
15 | S DIR( 0)="D" S D IR("A")="F ROM TODAY, ENTER DAY S BACK TO START REPO RT IN MMDD YY FORMAT " D ^DIR S CHBDT=Y W ! | |
16 | I CHBD T="^" S QF LG=1 Q | |
17 | S BDT= Y(0) | |
18 | S DIR( 0)="D" S D IR("A")="F ROM "_Y(0) _" ENTER D AYS FORWAR D DO YOU W ANT TO RUN IN MMDDYY FORMAT " D ^DIR S C HEDT=Y | |
19 | I CHED T="^" S QF LG=1 Q | |
20 | S EDT= Y(0) | |
21 | I CHED T<CHBDT W !!," The e nd date mu st not be prior to t he begin d ate. Pleas e reenter. ",! G DATE | |
22 | R !!," ENTER A TR ADING PART NER ID: "" 1"" FOR EM DEON : ""2 "" FOR MMI ",TPID | |
23 | I TPID =2 S CHTP= "403400000 " | |
24 | E S C HTP="13305 2274" | |
25 | I $D(D FOUT)!($D( DUOUT)) S QFLG=1 Q | |
26 | W !!," THE DATE R ANGE IS FR OM "_BDT_" TO "_EDT_ " FOR TRAD ING PARTNE R "_CHTP | |
27 | S CHBD T=CHBDT-1 | |
28 | S CHED T=CHEDT+1 | |
29 | G STAR T | |
30 | ; | |
31 | SCHED ;ENT ER HERE FO R THE SCHE DULER TO R UN FOR 90 FROM THE D ATE REPORT RUNS | |
32 | D NO W^%DTC S X 1=X,X2=-90 | |
33 | D C^%D TC ;CODE USED TO GET X IN VA FILE FORMAT TO SUBTRACT THE 30 DAY S FROM ABO VE | |
34 | S CH BDT=X ;J PN ADDED T HE ABOVE 3 LINES OF CODE TO FI X THE DATE ISSUES | |
35 | D NOW^ %DTC | |
36 | S CHED T=X+1 ; JPN ADDE D LINE OF CODE TO GE T CORRECT END DATE | |
37 | ;S CHB DT=X-299,C HEDT=X+1 ; 298 IS EQUAL TO 9 0 DAYS BAC K JPN COMM ENTED OUT LINE FOR D ATE | |
38 | S CHTP ="13305227 4" | |
39 | START ;ENT RY POINT | |
40 | S (CHM XCLB,CHMXC LC,CHMXCLE ,DTCMP,CHB CCAMT,CHMX IO,EFTNTST )="" | |
41 | S (CHB RWCT,CHRWC T1,PDI,PTR )=0 | |
42 | S CHTP ABBR="ENV" | |
43 | S CHMX I=0 | |
44 | K ^CHM ZHOLD("QRT _W277"),^T MP($J) | |
45 | K ^CHM ZHOLD("QRT _W277X") | |
46 | K ^CHM ZHOLD("PDI ") | |
47 | ;GETS THE DATE R ANGE FROM THE CHMXCL BATCH GLO BAL | |
48 | F S C HMXI=$O(^C HMXCL(CHMX I)) Q:CHMX I="" D | |
49 | . I '$ D(^CHMXCL( CHMXI,0)) Q | |
50 | . S CH MXCLA=0 S CHMXCLA=$O (^CHMXCLE( "A",CHMXI, 2,CHMXCLA) ) Q:CHMXCL A="" | |
51 | . I $P (^CHMXCLA( CHMXCLA,1) ,"^",1)'=" 133052274" Q | |
52 | . S DT CMP=$P(^CH MXCL(CHMXI ,0),"^",1) | |
53 | . I (D TCMP>CHBDT )&(DTCMP<C HEDT) W ! ,CHMXI S ^ TMP($J,CHM XI)="" | |
54 | . Q | |
55 | D IN FO | |
56 | D FILE | |
57 | Q ; END OF ROU TINE | |
58 | ; | |
59 | INFO ; CO LLECTS THE REST OF T HE INFORMA TION FOR R OUTINE WB1 2 ABD PROC ESSES WITH DATE RANG E | |
60 | F S C HMXI=$O(^T MP($J,CHMX I)) Q:CHMX I="" D | |
61 | .F S PTR=$O(^CH MXCLE("A", CHMXI,PTR) ) Q:PTR="" D | |
62 | .. S C HMXIO=CHMX I | |
63 | .. I P TR=2 D GET ST4 ;COPP IED FROM C HMXWB11 BU T WILL CAL L LINE TAG S IN THIS ROUTINE | |
64 | .. I P TR=6 D GET ST6 ; COPPIED FR OM CHMXWB1 1 BUT WILL CALL LINE TAGS IN T HIS ROUTIN E | |
65 | .. Q | |
66 | .Q | |
67 | Q | |
68 | FILE ; | |
69 | S CHMX I=CHMXIO | |
70 | D NOW^ %DTC | |
71 | S LDFL G=1 ;SETS THE LOAD TYPE FLAG TO FULL " F " INSTEA D OF INCRE MENTAL | |
72 | S XMSU B="QUARTER LY REPORT" ,FMDATE=$E (%,1,7) | |
73 | S CMMD D=$E(%,4,7 ),CHHMMSS= $E(%,9,14) | |
74 | I $L(C HHMMSS)<6 S CHHMMSS= CHHMMSS_"1 11111",CHH MMSS=$E(CH HMMSS,1,6) | |
75 | S CHFI LE="HAC277 U_"_CHTP_" _"_CMMDD_C HHMMSS_".D AT" | |
76 | S IO=" HAC_HFS$:[ KERMIT.WEB MD]"_CHFIL E | |
77 | S CHVM SFL="HAC_H FS$:[KERMI T.WEBMD]"_ CHFILE | |
78 | S (C HDFN,CHBFN )=0,CHRECT 1="",CHREC T2="" | |
79 | D CLOS EF^CHTFLIB 9(IO,"IO") ;C IO - D GC 1/16/20 14 DEV0128 93 | |
80 | I '$$O PENFIWR^CH TFLIB9(.IO ,"IO") Q ; O IO:"NWS" ; RKN 08 /04/05 - D GC 1/16/20 14 DEV0128 93 | |
81 | U IO | |
82 | D HEAD ER | |
83 | D AUTO MM | |
84 | D EXFT P^CHMXWB11 | |
85 | D END | |
86 | ;1.0 I S THE INIT IAL VERSIO N (HIPAA R eady LLC) FOR THE QU ARTERLY RE PORT CHANG ED THE GLO BAL FROM R KN TO QRT | |
87 | ;12/4/ 06 JPN | |
88 | ;K ^CH MZHOLD("RK N_W277"),^ TMP($J) | |
89 | K ^CHM ZHOLD("QRT _W277"),^T MP($J) | |
90 | K ^CHM ZHOLD("QRT _W277X") | |
91 | K ^CHM ZHOLD("PDI ") | |
92 | Q | |
93 | GETST4 S CHMXCLA=0 | |
94 | CLA4 S CHMXCLA =$O(^CHMXC LE("A",CHM XI,2,CHMXC LA)) Q:'CH MXCLA | |
95 | S CHR EFNO=0 | |
96 | REFNO4 S CHREFNO=$ O(^CHMXCLE ("A",CHMXI ,2,CHMXCLA ,CHREFNO)) G:'CHREFN O CLA4 | |
97 | S CHM XALLI=0,CH MXALLI=$O( ^CHMXCLE(" A",CHMXI,2 ,CHMXCLA,C HREFNO,"") ) | |
98 | S CHM XCLB=$P(CH MXALLI,"*" ,1),CHMXCL C=$P(CHMXA LLI,"*",2) ,CHMXCLE=$ P(CHMXALLI ,"*",3) | |
99 | S CHB CSCC1="A2" ,CHBCSC1=" 20",CHBCSC E1="",CHBC SCC2="",CH BCSC2="",C HBCSCE2="" ,CHBCSCC3= "",CHBCSC3 ="",CHBCSC E3="" | |
100 | D WRG LOB | |
101 | G REF NO4 | |
102 | Q | |
103 | ; | |
104 | GETST6 S CHMXCLA=0 | |
105 | CLA6 S CHMXCLA =$O(^CHMXC LE("A",CHM XI,6,CHMXC LA)) Q:'CH MXCLA | |
106 | S CHR EFNO=0 | |
107 | REFNO6 S CHREFNO=$ O(^CHMXCLE ("A",CHMXI ,6,CHMXCLA ,CHREFNO)) G:'CHREFN O CLA6 | |
108 | S CHM XALLI=0,CH MXALLI=$O( ^CHMXCLE(" A",CHMXI,6 ,CHMXCLA,C HREFNO,"") ) | |
109 | S CHM XCLB=$P(CH MXALLI,"*" ,1),CHMXCL C=$P(CHMXA LLI,"*",2) ,CHMXCLE=$ P(CHMXALLI ,"*",3) | |
110 | S CHM XCLCJ=0,CH MXCLEJ=0,C HMXCLFJ=0, CHMXCLF=0 | |
111 | ; | |
112 | S ZCN T=0 | |
113 | S CHM XCLCJ=0 | |
114 | ; | |
115 | ;1.0 IS THE INI TIAL VERSI ON (HIPAA Ready LLC) ADDED PRO VIDER LEVE L EDITS JP N 10/10/06 | |
116 | ; | |
117 | PROVLEV S CHMXCLCJ=$ O(^CHMXCLB (CHMXCLB,1 01,CHMXCLC J)) G:'CHM XCLCJ WRPR OV | |
118 | S CH MXERRI=$P( ^CHMXCLB(C HMXCLB,101 ,CHMXCLCJ, 0),"^",1) | |
119 | S CH MXERR=+$E( $P(^CHMXDI C(741201.3 2,CHMXERRI ,0),"^",1) ,2,999) | |
120 | S CH MXPTER(CHM XERR)=CHMX ERRI | |
121 | G PR OVLEV | |
122 | WRPROV I '$D(CHMXPT ER) K CHMX ERRI,CHMXE RR,CHMXPTE R S CHMXCL CJ=0 G PAT LEV | |
123 | S CHM X1ER=0,CHM X1ER=$O(CH MXPTER(CHM X1ER)) | |
124 | S CHM XERRI=$P(C HMXPTER(CH MX1ER),"^" ,1) | |
125 | ; | |
126 | I ZCN T=0 S CHMX 12SC=$P($P (^CHMXDIC( 741201.32, CHMXERRI,0 ),"^",4)," *",1),CHBC SCC1=CHMX1 2SC,CHMX12 ST=$P($P(^ CHMXDIC(74 1201.32,CH MXERRI,0), "^",4),"*" ,2),CHBCSC 1=CHMX12ST ,CHMX12SE= $P($P(^CHM XDIC(74120 1.32,CHMXE RRI,0),"^" ,4),"*",3) ,CHBCSCE1= CHMX12SE | |
127 | I ZCN T=1 S CHMX 12SC=$P($P (^CHMXDIC( 741201.32, CHMXERRI,0 ),"^",4)," *",1),CHBC SCC2=CHMX1 2SC,CHMX12 ST=$P($P(^ CHMXDIC(74 1201.32,CH MXERRI,0), "^",4),"*" ,2),CHBCSC 2=CHMX12ST ,CHMX12SE= $P($P(^CHM XDIC(74120 1.32,CHMXE RRI,0),"^" ,4),"*",3) ,CHBCSCE2= CHMX12SE | |
128 | I ZCN T=2 S CHMX 12SC=$P($P (^CHMXDIC( 741201.32, CHMXERRI,0 ),"^",4)," *",1),CHBC SCC3=CHMX1 2SC,CHMX12 ST=$P($P(^ CHMXDIC(74 1201.32,CH MXERRI,0), "^",4),"*" ,2),CHBCSC 3=CHMX12ST ,CHMX12SE= $P($P(^CHM XDIC(74120 1.32,CHMXE RRI,0),"^" ,4),"*",3) ,CHBCSCE3= CHMX12SE | |
129 | ; | |
130 | K CHM XPTER(CHMX 1ER) | |
131 | I $D( CHMXPTER) S ZCNT=ZCN T+1 G WRPR OV | |
132 | I '$D (CHBCSCC2) S (CHBCSC C2,CHBCSC2 ,CHBCSCE2) ="" | |
133 | I '$D (CHBCSCC3) S (CHBCSC C3,CHBCSC3 ,CHBCSCE3) ="" | |
134 | G WRI TERR | |
135 | ;1.0 IS THE INI TIAL VERSI ON (HIPAA Ready LLC) END OF MO DIFICATION S JPN 10/1 0/06 | |
136 | ; | |
137 | PATLEV S CHMXCLCJ= $O(^CHMXCL C(CHMXCLC, 101,CHMXCL CJ)) G:'CH MXCLCJ WRP AT | |
138 | S CHM XERRI=$P(^ CHMXCLC(CH MXCLC,101, CHMXCLCJ,0 ),"^",1) | |
139 | S CHM XERR=+$E($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",1), 2,999) | |
140 | S CHM XPTER(CHMX ERR)=CHMXE RRI | |
141 | G PAT LEV | |
142 | WRPAT I '$D(CHMX PTER) K CH MXERRI,CHM XERR,CHMXP TER S CHMX CLEJ=0 G C LMLEV | |
143 | S CHM X1ER=0,CHM X1ER=$O(CH MXPTER(CHM X1ER)) | |
144 | S CHM XERRI=$P(C HMXPTER(CH MX1ER),"^" ,1) | |
145 | ; | |
146 | S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",4), "*",1),CHB CSCC1=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",4),"* ",2),CHBCS C1=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",4),"*",3 ),CHBCSCE1 =CHMX12SE | |
147 | S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",5), "*",1),CHB CSCC2=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",5),"* ",2),CHBCS C2=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",5),"*",3 ),CHBCSCE2 =CHMX12SE | |
148 | S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",6), "*",1),CHB CSCC3=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",6),"* ",2),CHBCS C3=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",6),"*",3 ),CHBCSCE3 =CHMX12SE | |
149 | ; | |
150 | K CHM XPTER | |
151 | G WRI TERR | |
152 | ; | |
153 | CLMLEV S CHMXCLEJ= $O(^CHMXCL E(CHMXCLE, 101,CHMXCL EJ)) G:'CH MXCLEJ WRC LM | |
154 | S CHM XERRI=$P(^ CHMXCLE(CH MXCLE,101, CHMXCLEJ,0 ),"^",1) | |
155 | S CHM XERR=+$E($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",1), 2,999) | |
156 | S CHM XPTER(CHMX ERR)=CHMXE RRI | |
157 | G CLM LEV | |
158 | WRCLM I '$D(CHMX PTER) K CH MXERRI,CHM XERR,CHMXP TER G SVRL EV | |
159 | S CHM X1ER=0,CHM X1ER=$O(CH MXPTER(CHM X1ER)) | |
160 | S CHM XERRI=$P(C HMXPTER(CH MX1ER),"^" ,1) | |
161 | ; | |
162 | S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",4), "*",1),CHB CSCC1=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",4),"* ",2),CHBCS C1=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",4),"*",3 ),CHBCSCE1 =CHMX12SE | |
163 | S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",5), "*",1),CHB CSCC2=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",5),"* ",2),CHBCS C2=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",5),"*",3 ),CHBCSCE2 =CHMX12SE | |
164 | S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",6), "*",1),CHB CSCC3=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",6),"* ",2),CHBCS C3=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",6),"*",3 ),CHBCSCE3 =CHMX12SE | |
165 | ; | |
166 | G WRI TERR | |
167 | ; | |
168 | SVRLEV S CHMXCLF=$ O(^CHMXCLF ("B",CHMXC LE,CHMXCLF )) G:'CHMX CLF WRSVR | |
169 | ;1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) 11/15/06 JPN ADDED THE FOLLO WING 2 LIN ES OF CODE | |
170 | ;TO ALLOW FOR THE FALSE GOTO STATE MENT IF TH E VALUE=0 CODE WOUL D NOT DROP DOWN BECA USE OF THI S | |
171 | ;S CH MXCLFJ=$O( ^CHMXCLF(C HMXCLF,101 ,CHMXCLFJ) ) G:'CHMXC LFJ SVRLEV | |
172 | SVRLEVL S CHMXCLFJ=$ O(^CHMXCLF (CHMXCLF,1 01,CHMXCLF J)) I CHMX CLFJ="" G SVRLEV | |
173 | I (CH MXCLFJ=0)! (CHMXCLFJ' ?1N) G SVR LEVL | |
174 | S CHM XERRI=$P(^ CHMXCLF(CH MXCLF,101, CHMXCLFJ,0 ),"^",1) | |
175 | S CHM XERR=+$E($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",1), 2,999) | |
176 | S CHM XPTER(CHMX ERR)=CHMXE RRI | |
177 | G SVR LEV | |
178 | WRSVR I '$D(CHMX PTER) K CH MXERRI,CHM XERR,CHMXP TER S (CHB CSCC1,CHBC SCC2,CHBCS CC3,CHBCSC 1,CHBCSC2, CHBCSC3,CH BCSCE1,CHB CSCE2,CHBC SCE3)="" G WRITERR | |
179 | S CHM X1ER=0,CHM X1ER=$O(CH MXPTER(CHM X1ER)) | |
180 | S CHM XERRI=$P(C HMXPTER(CH MX1ER),"^" ,1) | |
181 | ; | |
182 | S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",4), "*",1),CHB CSCC1=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",4),"* ",2),CHBCS C1=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",4),"*",3 ),CHBCSCE1 =CHMX12SE | |
183 | S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",5), "*",1),CHB CSCC2=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",5),"* ",2),CHBCS C2=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",5),"*",3 ),CHBCSCE2 =CHMX12SE | |
184 | S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",6), "*",1),CHB CSCC3=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",6),"* ",2),CHBCS C3=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",6),"*",3 ),CHBCSCE3 =CHMX12SE | |
185 | ; | |
186 | G WRI TERR | |
187 | ; | |
188 | WRITERR D WRGLOB | |
189 | G REF NO6 | |
190 | Q | |
191 | ; | |
192 | ; | |
193 | WRGLOB S CHBRWCT=C HBRWCT+1 | |
194 | S CHM AXL=10,CHN UM=CHBRWCT D STRPDL^ CHMXWB12 D PADZROS^C HMXWB12 S CHBRWCT=CH X4 | |
195 | ; | |
196 | DETAIL S CHBDRCID= "DTL",CHMA XL=4,CHXAL =CHBDRCID D PADBLKS^ CHMXWB12 S CHBDRCID= CHXAL | |
197 | S CHB PAYID="002 32",CHMAXL =5,CHXAL=C HBPAYID D PADBLKS^CH MXWB12 S C HBPAYID=CH XAL | |
198 | S CHB BPFX=$P(^C HMXCLB(CHM XCLB,0),"^ ",2),CHMAX L=9,CHXAL= CHBBPFX D PADBLKS^CH MXWB12 S C HBBPFX=CHX AL | |
199 | S CHB BPPAN=" ", CHMAXL=20, CHXAL=CHBB PPAN D PAD BLKS^CHMXW B12 S CHBB PPAN=CHXAL | |
200 | S CHB BPNPI=" ", CHMAXL=10, CHXAL=CHBB PNPI D PAD BLKS^CHMXW B12 S CHBB PNPI=CHXAL | |
201 | S CHB BPLN=$P(^C HMXCLB(CHM XCLB,0),"^ ",3),CHMAX L=35,CHXAL =CHBBPLN D PADBLKS^C HMXWB12 S CHBBPLN=CH XAL | |
202 | S CHB BPFN=" ",C HMAXL=25,C HXAL=CHBBP FN D PADBL KS^CHMXWB1 2 S CHBBPF N=CHXAL | |
203 | S CHB SPFX=" ",C HMAXL=9,CH XAL=CHBSPF X D PADBLK S^CHMXWB12 S CHBSPFX =CHXAL | |
204 | S CHB SPPAN=" ", CHMAXL=20, CHXAL=CHBS PPAN D PAD BLKS^CHMXW B12 S CHBS PPAN=CHXAL | |
205 | S CHB SPNPI=" ", CHMAXL=10, CHXAL=CHBS PNPI D PAD BLKS^CHMXW B12 S CHBS PNPI=CHXAL | |
206 | S CHB SPLN=" ",C HMAXL=35,C HXAL=CHBSP LN D PADBL KS^CHMXWB1 2 S CHBSPL N=CHXAL | |
207 | S CHB SPFN=" ",C HMAXL=25,C HXAL=CHBSP FN D PADBL KS^CHMXWB1 2 S CHBSPF N=CHXAL | |
208 | S CHB SID=$P(^CH MXCLC(CHMX CLC,0),"^" ,4),CHMAXL =30,CHXAL= CHBSID D P ADBLKS^CHM XWB12 S CH BSID=CHXAL | |
209 | S CHB LNAM=$P(^C HMXCLC(CHM XCLC,0),"^ ",5),CHMAX L=35,CHXAL =CHBLNAM D PADBLKS^C HMXWB12 S CHBLNAM=CH XAL | |
210 | S CHB FNAM=$P(^C HMXCLC(CHM XCLC,0),"^ ",6),CHMAX L=25,CHXAL =CHBFNAM D PADBLKS^C HMXWB12 S CHBFNAM=CH XAL | |
211 | S CHB PSID=" ",C HMAXL=30,C HXAL=CHBPS ID D PADBL KS^CHMXWB1 2 S CHBPSI D=CHXAL | |
212 | S CHB DOB=$P(^CH MXCLC(CHMX CLC,0),"^" ,9) S:CHBD OB="" CHBD OB=1875010 1 S CHMAXL =8,CHNUM=C HBDOB D ST RPDL^CHMXW B12 D PADZ ROS^CHMXWB 12 S CHBDO B=CHX4 | |
213 | S CHB SEX=$P(^CH MXCLC(CHMX CLC,0),"^" ,10) | |
214 | I (CH BSEX'="M") &(CHBSEX'= "F") S CHB SEX="U" | |
215 | S CHM AXL=1,CHXA L=CHBSEX D PADBLKS^C HMXWB12 S CHBSEX=CHX AL | |
216 | ; | |
217 | CHBCSCC1 S CH MAXL=3,CHX AL=CHBCSCC 1 D PADBLK S^CHMXWB12 S CHBCSCC 1=CHXAL | |
218 | S CHM AXL=3,CHXA L=CHBCSC1 D PADBLKS^ CHMXWB12 S CHBCSC1=C HXAL | |
219 | S CHM AXL=2,CHXA L=CHBCSCE1 D PADBLKS ^CHMXWB12 S CHBCSCE1 =CHXAL | |
220 | CHBCSCC2 S CH MAXL=3,CHX AL=CHBCSCC 2 D PADBLK S^CHMXWB12 S CHBCSCC 2=CHXAL | |
221 | S CHM AXL=3,CHXA L=CHBCSC2 D PADBLKS^ CHMXWB12 S CHBCSC2=C HXAL | |
222 | S CHM AXL=2,CHXA L=CHBCSCE2 D PADBLKS ^CHMXWB12 S CHBCSCE2 =CHXAL | |
223 | CHBCSCC3 S CH MAXL=3,CHX AL=CHBCSCC 3 D PADBLK S^CHMXWB12 S CHBCSCC 3=CHXAL | |
224 | S CHM AXL=3,CHXA L=CHBCSC3 D PADBLKS^ CHMXWB12 S CHBCSC3=C HXAL | |
225 | S CHM AXL=2,CHXA L=CHBCSCE3 D PADBLKS ^CHMXWB12 S CHBCSCE3 =CHXAL | |
226 | ; | |
227 | D NOW ^%DTC S CH DRT=$E(%,1 ,7) | |
228 | I $E( CHDRT,1,1) ="2" S CEN DTE="19" | |
229 | I $E( CHDRT,1,1) ="3" S CEN DTE="20" | |
230 | S CHB CDTE=CENDT E_$E(CHDRT ,2,3)_$E(C HDRT,4,5)_ $E(CHDRT,6 ,7) | |
231 | S CHM AXL=8,CHXA L=CHBCDTE D PADBLKS^ CHMXWB12 S CHBCDTE=C HXAL | |
232 | ; | |
233 | S CHB CCAMT=$P(^ CHMXCLE(CH MXCLE,2)," ^",1) D | |
234 | .I CH BCCAMT'[". " S CHBCCA MT=CHBCCAM T_".00" | |
235 | .S CH MAXL=15,CH NUM=CHBCCA MT D STRPD L^CHMXWB12 D PADZROS ^CHMXWB12 S CHBCCAMT =CHX4 | |
236 | S X1= $E(CHBCCAM T,2,13),X2 =$E(CHBCCA MT,14,15), CHBCCAMT=X 1_"."_X2 | |
237 | K X1, X2 | |
238 | ; | |
239 | S CHB BTYPE=" ", CHMAXL=3,C HXAL=CHBBT YPE D PADB LKS^CHMXWB 12 S CHBBT YPE=CHXAL | |
240 | S CHB PDI=$P(^CH MXCLE(CHMX CLE,100)," ^",2),CHMA XL=20,CHXA L=CHBPDI D PADBLKS^C HMXWB12 S CHBPDI=CHX AL | |
241 | ;N PD IFLG,VERPD I INFO T O STOP DUP LICATE PDI S TAKEN OU T TO MAKE ROUTINE RU N FASTER | |
242 | ;S (P DIFLG,VERP DI)="" N EED TO SEE ABOUT SOR TING WITH ONLY 1 GLO BAL | |
243 | ;D PD ITST | |
244 | ;I PD IFLG=1 Q | |
245 | ; | |
246 | ; Com mented off the follo wing secti on no paym ent inform ation shou ld be sent to EMDEON | |
247 | ; on acknowledg ement resp onses (A*) . Saved f or 5010 wh en final r esponses w ill be | |
248 | ; sen t also - A JM 02/18/2 010 (DEF00 9102) | |
249 | ;S (N EWCPAMT,CH ACLM)=0,NE WCHACLM="" ,FLG="" | |
250 | ;S CH BCPAMT=" " ,CHMAXL=15 ,CHNUM=CHB CPAMT D ST RPDL^CHMXW B12 D PADZ ROS^CHMXWB 12 S CHBCP AMT=CHX4 | |
251 | ;S CH BCPAMT="0" ,CHMAXL=15 ,CHNUM=CHB CPAMT D ST RPDL^CHMXW B12 D PADZ ROS^CHMXWB 12 S CHBCP AMT=CHX4 | |
252 | ;F S CHACLM=$O (^CHMPAY(" C",$E(CHBP DI,1,15),C HACLM)) Q :CHACLM="" D | |
253 | ;. I $D(^CHMPAY (CHACLM,1) ) S CHBCPA MT=$P(^CHM PAY(CHACLM ,1),"^",14 ) D | |
254 | ;.. I CHBCPAMT' ["." S CHB CPAMT=CHBC PAMT_".00" | |
255 | ;.. S NEWCPAMT= NEWCPAMT+C HBCPAMT | |
256 | ;.. I FLG'=1 S NEWCHACLM= CHACLM S F LG=1 | |
257 | ;.. Q | |
258 | ;S CH ACLM=NEWCH ACLM | |
259 | ;S CH BCPAMT=NEW CPAMT | |
260 | ;S CH MAXL=15,CH NUM=CHBCPA MT D STRPD L^CHMXWB12 D PADZROS ^CHMXWB12 S CHBCPAMT =CHX4 | |
261 | ;S X1 =$E(CHBCPA MT,2,13),X 2=$E(CHBCP AMT,14,15) ,CHBCPAMT= X1_"."_X2 | |
262 | ;K X1 ,X2 | |
263 | ;S CH BCAPD=" ", CHMAXL=8,C HXAL=CHBCA PD D PADBL KS^CHMXWB1 2 S CHBCAP D=CHXAL | |
264 | ;I CH ACLM>"1" S CHBCAPD=$ E($P(^CHMP AY(CHACLM, 0),"^",10) ,1,7) D | |
265 | ;.I $ E(CHBCAPD, 1,1)="2" S CENDTE="1 9" | |
266 | ;.I $ E(CHBCAPD, 1,1)="3" S CENDTE="2 0" | |
267 | ;.S C HBCAPD=CEN DTE_$E(CHB CAPD,2,3)_ $E(CHBCAPD ,4,5)_$E(C HBCAPD,6,7 ) | |
268 | ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S^CHMXWB12 S CHBCAPD =CHXAL | |
269 | ;.I $ E(CHBCAPD, 3,3)=" " S CHBCAPD=C HBCDTE | |
270 | ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S^CHMXWB12 S CHBCAPD =CHXAL | |
271 | ;.Q | |
272 | ;S CH BCAPD=" ", CHMAXL=8,C HXAL=CHBCA PD D PADBL KS^CHMXWB1 2 S CHBCAP D=CHXAL | |
273 | ;I CH BCPAMT<"1" S CHBCAPD =" ",CHMAX L=8,CHXAL= CHBCAPD D PADBLKS^CH MXWB12 S C HBCAPD=CHX AL | |
274 | ;I CH BCPAMT>"0" D | |
275 | ;.S C HBPMC="CHK ",CHMAXL=3 ,CHXAL=CHB PMC D PADB LKS^CHMXWB 12 S CHBPM C=CHXAL | |
276 | ;.I ' $D(^CHMPAY (CHACLM,7) ) Q | |
277 | ;.I $ P(^CHMPAY( CHACLM,7), "^",7)>" " S CHBPMC= "ACH",CHMA XL=3,CHXAL =CHBPMC D PADBLKS^CH MXWB12 S C HBPMC=CHXA L | |
278 | ;I CH BCPAMT<"1" S CHBPMC= "NON",CHMA XL=3,CHXAL =CHBPMC D PADBLKS^CH MXWB12 S C HBPMC=CHXA L | |
279 | ;S CH BEFTD=CHBC APD,CHMAXL =8,CHXAL=C HBEFTD D P ADBLKS^CHM XWB12 S CH BEFTD=CHXA L | |
280 | ;S CH BEFTN=" ", CHMAXL=20, CHXAL=CHBE FTN D PADB LKS^CHMXWB 12 S CHBEF TN=CHXAL | |
281 | ;I CH BCPAMT>"0" I CHACLM' =" " I $D( ^CHMPAY(CH ACLM,7)) S CHBEFTN=$ P(^CHMPAY( CHACLM,7), "^",3) S C HMAXL=20,C HXAL=CHBEF TN D PADBL KS^CHMXWB1 2 S CHBEFT N=CHXAL | |
282 | ;I CH BCPAMT>"0" I CHACLM' =" " S CHB EFTN=$P(^C HMPAY(CHAC LM,1),"^", 16) S CHMA XL=20,CHXA L=CHBEFTN D PADBLKS^ CHMXWB12 S CHBEFTN=C HXAL | |
283 | ;EFTN TST IS VAR IABLE USED TO DETERM INE IF THE RE IS VALU E IN CHBEF TN JPN 1 1/16/06 | |
284 | ;S EF TNTST=$E(C HBEFTN,1,1 ) I EFTNTS T'?1N S CH BEFTN="000 000000 " | |
285 | ;TOOK OUT CODE AT BOTTOM AFTER D BE LOW | |
286 | ;I CH BCPAMT="00 0000000000 .00" D | |
287 | ;.S C HBPMC=" ", CHMAXL=3,C HXAL=CHBPM C D PADBLK S^CHMXWB12 S CHBPMC= CHXAL | |
288 | ;.I P TR=6 S CHB PMC="NON" | |
289 | ;.S C HBEFTN=" " ,CHMAXL=20 ,CHXAL=CHB EFTN D PAD BLKS^CHMXW B12 S CHBE FTN=CHXAL | |
290 | ;I CH BPMC="NON" S CHBEFTN =" " | |
291 | ;I (C HBCAPD="") !(CHBEFTD= "")!(CHBEF TN="") D | |
292 | ;.S C HBCPAMT="0 ",CHBCAPD= " ",CHBPMC =" ",CHBEF TD=" ",CHB EFTN=" " | |
293 | ;.S C HMAXL=15,C HNUM=CHBCP AMT D STRP DL^CHMXWB1 2 D PADZRO S^CHMXWB12 S CHBCPAM T=CHX4 | |
294 | ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S^CHMXWB12 S CHBCAPD =CHXAL | |
295 | ;.S C HMAXL=3,CH XAL=CHBPMC D PADBLKS ^CHMXWB12 S CHBPMC=C HXAL | |
296 | ;.S C HMAXL=8,CH XAL=CHBEFT D D PADBLK S^CHMXWB12 S CHBEFTD =CHXAL | |
297 | ;.S C HMAXL=20,C HXAL=CHBEF TN D PADBL KS^CHMXWB1 2 S CHBEFT N=CHXAL | |
298 | ;.Q | |
299 | ; | |
300 | ; Fol lowing sec tion added to mainta in files f ixed lengt h. | |
301 | S CHB CPAMT=" ", CHBCAPD=" ",CHBPMC=" ",CHBEFTD =" ",CHBEF TN=" " | |
302 | S CHB CPAMT="000 000000000. 00" | |
303 | S CHM AXL=8,CHXA L=CHBCAPD D PADBLKS^ CHMXWB12 S CHBCAPD=C HXAL | |
304 | S CHM AXL=3,CHXA L=CHBPMC D PADBLKS^C HMXWB12 S CHBPMC=CHX AL | |
305 | S CHM AXL=8,CHXA L=CHBEFTD D PADBLKS^ CHMXWB12 S CHBEFTD=C HXAL | |
306 | S CHM AXL=20,CHX AL=CHBEFTN D PADBLKS ^CHMXWB12 S CHBEFTN= CHXAL | |
307 | I CHB PDI<"1" S CHBPDI=$P( ^CHMXCLE(C HMXCLE,100 ),"^",4),C HMAXL=20,C HXAL=CHBPD I D PADBLK S^CHMXWB12 S CHBPDI= CHXAL | |
308 | ; (DE F009102) | |
309 | S CHB MRI=" ",CH MAXL=20,CH XAL=CHBMRI D PADBLKS ^CHMXWB12 S CHBMRI=C HXAL | |
310 | S CHB PAN=" ",CH MAXL=20,CH XAL=CHBPAN D PADBLKS ^CHMXWB12 S CHBPAN=C HXAL | |
311 | ; 1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) JPN 10/1 0/06 ADDED TO GET CL M/PATIENT CONTROL NU MBER | |
312 | I $D( ^CHMXCLE(C HMXCLE,0)) S CHBPAN= $P(^CHMXCL E(CHMXCLE, 0),"^",2) S CHMAXL=2 0,CHXAL=CH BPAN D PAD BLKS^CHMXW B12 S CHBP AN=CHXAL | |
313 | ; 1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) JPN END OF MODIFIC ATION | |
314 | S CHB CSDS="",CH BSES="" | |
315 | I '$D (^CHMXCLE( CHMXCLE,1) ) D ALTDAT E^CHMXWB12 G CHSED | |
316 | S CHB CSDS=$P(^C HMXCLE(CHM XCLE,1),"^ ",1) | |
317 | S CHB SES=$P(^CH MXCLE(CHMX CLE,1),"^" ,2) | |
318 | I CHB CSDS="" D ALTDATE^CH MXWB12 G C HSED | |
319 | CHSED I CHBCSDS= "" S CHBCS DS="177607 04" | |
320 | S CHM AXL=8,CHXA L=CHBCSDS D PADBLKS^ CHMXWB12 S CHBCSDS=C HXAL | |
321 | I CHB SES="" & CHBCSDS'=" " S CHBSES =CHBCSDS | |
322 | I CHB SES="" S C HBSES="177 60704" | |
323 | S CHM AXL=8,CHXA L=CHBSES D PADBLKS^C HMXWB12 S CHBSES=CHX AL | |
324 | ; | |
325 | ALTDTNXT S CH BDFIL1=" " ,CHMAXL=98 ,CHXAL=CHB DFIL1 D PA DBLKS^CHMX WB12 S CHB DFIL1=CHXA L | |
326 | ; | |
327 | S CHB IUD="L",CH MAXL=1,CHX AL=CHBIUD D PADBLKS^ CHMXWB12 S CHBIUD=CH XAL | |
328 | I '$D (^CHMXCLE( CHMXCLE,3) ) S CHBWCL M="" G SET | |
329 | S CHB WCLM=$P(^C HMXCLE(CHM XCLE,3),"^ ",5) | |
330 | I ($L (CHBWCLM)' =15)!(CHBW CLM'?15N) S CHBWCLM= $P(^CHMXCL E(CHMXCLE, 3),"^",6) | |
331 | I ($L (CHBWCLM)' =15)!(CHBW CLM'?15N) S CHBWCLM= "" | |
332 | S CHM AXL=15,CHX AL=CHBWCLM D PADBLKS ^CHMXWB12 S CHBWCLM= CHXAL | |
333 | ; | |
334 | SET S XCHBCS CC1=CHBCSC C1_CHBCSC1 _CHBCSCE1_ CHBCSCC2_C HBCSC2_CHB CSCE2_CHBC SCC3_CHBCS C3_CHBCSCE 3 | |
335 | S XCH BDRCID=CHB DRCID_CHBR WCT_CHBPAY ID_CHBBPFX | |
336 | S XCH BBP=CHBBPP AN_CHBBPNP I_CHBBPLN_ CHBBPFN_CH BSPFX_CHBS PPAN_CHBSP NPI_CHBSPL N_CHBSPFN_ CHBSID_CHB LNAM_CHBFN AM_CHBPSID _CHBLNAM_C HBFNAM_CHB DOB_CHBSEX _CHBWCLM_X CHBCSCC1_C HBCDTE_CHB CCAMT | |
337 | ; | |
338 | ;S ^C HMZHOLD("R KN_W277",$ J,"WEB_277 U_UPDT",CH BRWCT,0)=X CHBDRCID_X CHBBP | |
339 | ;S ^C HMZHOLD("R KN_W277",$ J,"WEB_277 U_UPDT",CH BRWCT,1)=C HBCPAMT_CH BCAPD_CHBP MC_CHBEFTD _CHBEFTN_C HBBTYPE_CH BPDI_CHBMR I_CHBPAN_C HBCSDS_CHB SES_CHBDFI L1_CHBIUD | |
340 | S ^CH MZHOLD("QR T_W277",$J ,"WEB_277U _UPDT",CHB RWCT,0)=XC HBDRCID_XC HBBP | |
341 | S ^CH MZHOLD("QR T_W277",$J ,"WEB_277U _UPDT",CHB RWCT,1)=CH BCPAMT_CHB CAPD_CHBPM C_CHBEFTD_ CHBEFTN_CH BBTYPE_CHB PDI_CHBMRI _CHBPAN_CH BCSDS_CHBS ES_CHBDFIL 1_CHBIUD | |
342 | ; | |
343 | Q | |
344 | ; | |
345 | ;BROU GHT IN THI S SECTION TO DIFFERE NTUATE BET WEEN THE Q UARTERLY R EPORT AND THE REGULA R REPORT | |
346 | ; | |
347 | HEADER S CHBHRCID= "HDR",CHMA XL=4,CHXAL =CHBHRCID D PADBLKS^ CHMXWB12 S CHBHRCID= CHXAL | |
348 | S CHB FGSN="01", CHMAXL=2,C HNUM=CHBFG SN D STRPD L^CHMXWB12 D PADZROS ^CHMXWB12 S CHBFGSN= CHX4 | |
349 | S CHB FGCNT="01" ,CHMAXL=2, CHNUM=CHBF GCNT D STR PDL^CHMXWB 12 D PADZR OS^CHMXWB1 2 S CHBFGC NT=CHX4 | |
350 | ; | |
351 | S CUR DT=$H | |
352 | S CHB CDTE=$ZDAT E(CURDT,8) | |
353 | S CHB CTIME=$$GE THHMMSS^CH EDILIB(CUR DT) | |
354 | S CHB FGID=CHBCD TE_CHBCTIM E,CHMAXL=2 0,CHXAL=CH BFGID D PA DBLKS^CHMX WB12 S CHB FGID=CHXAL | |
355 | S CHB PAYID="002 32",CHMAXL =5,CHXAL=C HBPAYID D PADBLKS^CH MXWB12 S C HBPAYID=CH XAL | |
356 | S CHB SBNM="VA, Health Adm in Center" ,CHMAXL=30 ,CHXAL=CHB SBNM D PAD BLKS^CHMXW B12 S CHBS BNM=CHXAL | |
357 | ; 1.0 IS THE IN ITIAL VERS ION (HIPAA Ready LLC ) 7/31/06B AS SET CHB RCNM BASED ON TRADIN G PARTNER | |
358 | ; S C HBRCNM="WE BMD/Empowe r",CHMAXL= 30,CHXAL=C HBRCNM D P ADBLKS S C HBRCNM=CHX AL | |
359 | I CHT PABBR="ENV " S CHBRCN M="WEBMD/E mpower",CH MAXL=30,CH XAL=CHBRCN M D PADBLK S^CHMXWB12 S CHBRCNM =CHXAL | |
360 | I CHT PABBR="MMI ACH" S CHB RCNM="MEDI CAL MATRIX INC",CHMA XL=30,CHXA L=CHBRCNM D PADBLKS^ CHMXWB12 S CHBRCNM=C HXAL | |
361 | ;1.0 IS THE INI TIAL VERSI ON (HIPAA Ready LLC) BAS - END OF MODIFI CATION | |
362 | S CHB LOADT="I" | |
363 | I LDF LG=1 S CHB LOADT="F" | |
364 | S CHB TRACE=CHBC DTE_CHBCTI ME,CHMAXL= 20,CHXAL=C HBTRACE D PADBLKS^CH MXWB12 S C HBTRACE=CH XAL | |
365 | S CHB FTYPE="Cst at",CHMAXL =8,CHXAL=C HBFTYPE D PADBLKS^CH MXWB12 S C HBFTYPE=CH XAL | |
366 | S CHB VERCD="02" ,CHMAXL=2, CHNUM=CHBV ERCD D STR PDL^CHMXWB 12 D PADZR OS^CHMXWB1 2 S CHBVER CD=CHX4 | |
367 | S CHB RELCD="00" ,CHMAXL=2, CHNUM=CHBR ELCD D STR PDL^CHMXWB 12 D PADZR OS^CHMXWB1 2 S CHBREL CD=CHX4 | |
368 | S CHB CPHO=" ",C HMAXL=10,C HXAL=CHBCP HO D PADBL KS^CHMXWB1 2 S CHBCPH O=CHXAL | |
369 | S CHB CEXT=" ",C HMAXL=10,C HXAL=CHBCE XT D PADBL KS^CHMXWB1 2 S CHBCEX T=CHXAL | |
370 | S CHB CNAM=" ",C HMAXL=60,C HXAL=CHBCN AM D PADBL KS^CHMXWB1 2 S CHBCNA M=CHXAL | |
371 | S CHB CEML=" ",C HMAXL=80,C HXAL=CHBCE ML D PADBL KS^CHMXWB1 2 S CHBCEM L=CHXAL | |
372 | ; | |
373 | S CON TACT=CHBCN AM_CHBCPHO _CHBCEXT_C HBCEML | |
374 | ; | |
375 | S CHB HFIL1="",C HMAXL=100, CHXAL=CHBH FIL1 D PAD BLKS^CHMXW B12 S CHBH FIL1=CHXAL | |
376 | S CHB HFIL2="",C HMAXL=299, CHXAL=CHBH FIL2 D PAD BLKS^CHMXW B12 S CHBH FIL2=CHXAL | |
377 | S CHB EOF="X",CH MAXL=1,CHX AL=CHBEOF D PADBLKS^ CHMXWB12 S CHBEOF=CH XAL | |
378 | ; | |
379 | W CHB HRCID_CHBF GID_CHBFGS N_CHBFGCNT _CHBCDTE_C HBCTIME_CH BPAYID_CHB SBNM_CONTA CT_CHBRCNM _CHBLOADT_ CHBTRACE_C HBFTYPE_CH BVERCD_CHB RELCD,!,"~ ",CHBHFIL1 _CHBHFIL2_ CHBEOF,!," ~",! | |
380 | ; | |
381 | S CHR WCT1=0 | |
382 | D WRC NT | |
383 | D CLO SEF^CHTFLI B9(IO,"IO" ) ;C IO - DGC 1/16/2 014 DEV012 893 | |
384 | Q | |
385 | ; | |
386 | WRCNT ;S CHRWCT1 =$O(^CHMZH OLD("RKN_W 277",$J,"W EB_277U_UP DT",CHRWCT 1)) G:'CHR WCT1 TRAIL R | |
387 | ;S CH RCT1A=^CHM ZHOLD("RKN _W277",$J, "WEB_277U_ UPDT",CHRW CT1,0) | |
388 | ;S CH RCT2A=^CHM ZHOLD("RKN _W277",$J, "WEB_277U_ UPDT",CHRW CT1,1) | |
389 | S CHR WCT1=$O(^C HMZHOLD("Q RT_W277",$ J,"WEB_277 U_UPDT",CH RWCT1)) G: 'CHRWCT1 T RAILR | |
390 | S CHR CT1A=^CHMZ HOLD("QRT_ W277",$J," WEB_277U_U PDT",CHRWC T1,0) | |
391 | S CHR CT2A=^CHMZ HOLD("QRT_ W277",$J," WEB_277U_U PDT",CHRWC T1,1) | |
392 | W CHR CT1A,!,"~" ,CHRCT2A,! | |
393 | G WRC NT | |
394 | ; | |
395 | TRAILR S CHBTRCID= "TRLR",CHM AXL=4,CHXA L=CHBTRCID D PADBLKS ^CHMXWB12 S CHBTRCID =CHXAL | |
396 | S CHB PAYID="002 32" | |
397 | S CHB RCCNT=CHBR WCT,CHMAXL =10,CHNUM= CHBRCCNT D STRPDL^CH MXWB12 D P ADZROS^CHM XWB12 S CH BRCCNT=CHX 4 | |
398 | S CHB TFIL1=" ", CHMAXL=480 ,CHXAL=CHB TFIL1 D PA DBLKS^CHMX WB12 S CHB TFIL1=CHXA L | |
399 | S CHB TFIL2=" ", CHMAXL=200 ,CHXAL=CHB TFIL2 D PA DBLKS^CHMX WB12 S CHB TFIL2=CHXA L | |
400 | S CHB EOF="X",CH MAXL=1,CHX AL=CHBEOF D PADBLKS^ CHMXWB12 S CHBEOF=CH XAL | |
401 | W CHB TRCID_CHBP AYID_CHBRC CNT_CHBTFI L1,!,"~",C HBTFIL2_CH BEOF | |
402 | Q | |
403 | ; | |
404 | ;TRA ILR S CHB TRCID="TRL R",CHMAXL= 4,CHXAL=CH BTRCID D P ADBLKS^CHM XWB12 S CH BTRCID=CHX AL | |
405 | ;S CH BPAYID="00 232" | |
406 | ;S CH BRCCNT=CHB RWCT,CHMAX L=10,CHNUM =CHBRCCNT D STRPDL^C HMXWB12 D PADZROS^CH MXWB12 S C HBRCCNT=CH X4 | |
407 | ;S CH BTFIL1=" " ,CHMAXL=48 0,CHXAL=CH BTFIL1 D P ADBLKS^CHM XWB12 S CH BTFIL1=CHX AL | |
408 | ;S CH BTFIL2=" " ,CHMAXL=20 0,CHXAL=CH BTFIL2 D P ADBLKS^CHM XWB12 S CH BTFIL2=CHX AL | |
409 | ;S CH BEOF="X",C HMAXL=1,CH XAL=CHBEOF D PADBLKS ^CHMXWB12 S CHBEOF=C HXAL | |
410 | ;W CH BTRCID_CHB PAYID_CHBR CCNT_CHBTF IL1,!,"~", CHBTFIL2_C HBEOF | |
411 | ;Q | |
412 | ; | |
413 | ; | |
414 | ; | |
415 | AUTOMM D NOW^%DTC | |
416 | S ZRK DTE=% | |
417 | S CHN B=2,ZML(CH NB)="",ZML (CHNB)=CHV MSFL_" (T otal Recor ds = "_CHB RCCNT_")", CHNB=CHNB+ 1,ZML(CHNB )="" | |
418 | ; BAS - MADE RE FERENCE GE NERIC | |
419 | ; S C HNB=CHNB+1 ,ZML(CHNB) ="NOTICE: Successful CREATION WebMD 277U STAT file !" | |
420 | S CHN B=CHNB+1,Z ML(CHNB)=" NOTICE: Su ccessful C REATION 27 7U STAT fi le!" | |
421 | ; BAS -END MOD | |
422 | S CHN B=CHNB+1,Z ML(CHNB)=" EDI BATCH NUMBER ^CH MXCL("_CHM XI_",0)" | |
423 | ; BAS - CHANGED E-MAIL AN D WEBMD RE FERENCE | |
424 | S XMDUZ=.5 ,XMY("2745 77")="",XM Y("246183" )="",XMY(" PII ")="",XMY( "
|
|
425 | S XMT EXT="ZML(" ,XMSUB="27 7U WebMD.. Success.." _FMDATE | |
426 | ;S XMDUZ=. 5,XMY("107 22")="",XM Y("246183" )="",XMY(" PII ")="" | |
427 | ;S XM Y(" PII ")= "" | |
428 | ; BAS -END MOD | |
429 | D ^XM D | |
430 | ; | |
431 | ;//// //////// U NREMARK FO R PRODUCTI ON /////// ////////// //// | |
432 | ;S ^C HMZHOLD("R KN_W277X", CHMXI,"SEN T MAIL",ZR KDTE)=CHBR CCNT_"^"_D UZ | |
433 | S ^CH MZHOLD("QR T_W277X",C HMXI,"SENT MAIL",ZRK DTE)=CHBRC CNT_"^"_DU Z | |
434 | K ZRK DTE | |
435 | ;//// //////// U NREMARK FO R PRODUCTI ON /////// ////////// //// | |
436 | ; | |
437 | Q | |
438 | ; | |
439 | END K CHBDR CID,CHBRWC T,CHBPAYID ,CHBBPFX,C HBBPLN,CHB BPFN,CHBSP FX,CHBSPLN ,CHBSPFN,C HBPSID,CHB SID,CHBLNA M,CHBFNAM, CHBSID,CHB LNAM,CHBFN AM,CHBDOB, CHBSEX,CHB WCLM | |
440 | K CHB CSCC1,CHBC SC1,CHBCSC C2,CHBCSC2 ,CHBCSCC3, CHBCSC3 | |
441 | K CHB CDTE,CHBCC AMT,CHBCPA MT,CHBCAPD ,CHBPMC,CH BEFTD,CHBE FTN,CHBBTY PE,CHBPDI, CHBMRI,CHB CSDS,CHBSE S,CHBDFIL1 | |
442 | K CHB HRCID,CHBC DTE,CHBCTI ME,CHBPAYI D,CHBSBNM, CHBRCNM,CH BLOADT,CHB TRACE,CHBV ERCD,CHBRE LCD,CHBHFI L1,CHBHFIL 2,CHBTRCID ,CHBPAYID, CHBRCCNT,C HBTFIL1,CH BTFIL2,CHV MSFL | |
443 | K CHB FGID,CHBFG SN,CHBFGCN T,CHBBPPAN ,CHBBPNPI, CHBSPPAN,C HBSPNPI,CH BPAN,CHBIU D,CHBEOF,C HACLM | |
444 | ;K ^C HMZHOLD("R KN_W277") | |
445 | K ^CH MZHOLD("QR T_W277") | |
446 | Q | |
447 | ; | |
448 | PDITST ;T EST TO SEE IF DUP PD IS | |
449 | S VE RPDI=0 | |
450 | F S VERPDI=$O (^CHMZHOLD ("PDI",VER PDI)) Q:VE RPDI="" D | |
451 | . I VERPDI=CHB PDI S PDIF LG=1 | |
452 | . Q | |
453 | I PD IFLG'=1 S ^CHMZHOLD( "PDI",CHBP DI)="" | |
454 | Q | |
455 | ; | |
456 | ; | |
457 | ; | |
458 | ; | |
459 | ;12/6 /06 6:44PM | |
460 | ; | |
461 | ||
462 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.