Produced by Araxis Merge on 11/9/2018 12:33:41 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 | CHARZPRT.m | Mon Nov 5 16:43:58 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHARZPRT.m | Tue Nov 6 21:29:10 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 280 |
Changed | 3 | 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 | CHARZPRT ; CVA/TLH RE PORT FOR A CCOUNTS RE CEIVABLE F OR FISCAL TO | |
2 | ;PROVIDE HURRICANE KATRINA BE NES WITH O UTSTANDING DEBTS BY ZIP CODE | |
3 | ;V 1.0 1/ 11/07 10:4 5AM | |
4 | ;DEF01655 4 SBB 10/3 0/13 - Mod ified EOF handling a s per VHA standard. | |
5 | ;DEF01655 4 SBB 11/1 8/13 - add ed POP and IO as per OPEN^%ZIS H API. | |
6 | ;DEF01655 4 SBB 11/2 2/13 - Mod ified Writ ing to a f ile as per VHA stand ard. | |
7 | ;DEF01655 4 SBB 07/3 0/15 - Add ing change s for DECN ET | |
8 | ;VARIBLES | |
9 | ;IVAL = I VALUE WIT HIN THE AR PACKAGE | |
10 | ;CHARDT = DATE BILL PREPARED IN AR PACK AGE | |
11 | ;STDATE = START DAT E TO CHECK FOR BILL PREPARED D ATE | |
12 | ;ENDATE = END DATE TO CHECK F OR BILL PR EPARED DAT E | |
13 | ;CHBLNM = BILL NUMB ER IN AR P ACKAGE | |
14 | ;CHDEBT = DEBTOR PO INTER (^RC D(340,0) | |
15 | ;CHVNPT = VENDOR PO INTER OF D EBTOR | |
16 | ;CHVFL = REFERENECE TO VENDOR FILE (^PR C(440,0) | |
17 | ;TMPVEN = REFERENCE TO VENDOR GLOBAL | |
18 | ;CHDNAM = DEBTOR NA ME | |
19 | ;CHZIP = DEBTOR ZIP CODE | |
20 | ;CHORAMT = ORIGINAL AMOUNT OW ED | |
21 | ;CHCRAMT = CURRENT AMOUNT OWE D | |
22 | START W !, "KATRINA V ICTIMS BY ZIP CODE R EPORT" | |
23 | S1 W !!,"E NTER THE B EGIN DATE FOR SEARCH IN BILL P REPARED DA TE: " D CS BRS^CHSC2 | |
24 | Q:Y="" I $D(DQOUT ) W !,"Ent er first d ate to che ck for Bil l Prepared Date: " G S1 | |
25 | Q:$D(DUO UT) Q:$D( DFOUT) | |
26 | S X=Y,%D T="EPX" D ^%DT I Y=- 1 W !,"Ent er valid d ate " K %D T G S1 | |
27 | S STDATE =Y | |
28 | S2 W !!," ENTER THE END DATE F OR SEARCH IN BILL PR EPARED DAT E: " D CSB RS^CHSC2 | |
29 | Q:Y="" I $D(DQOUT ) W !,"Ent er last da te to chec k for Bill Prepared Date: " G S2 | |
30 | G:$D(DUO UT) S1 Q:$ D(DFOUT) | |
31 | S X=Y,%D T="EPX" D ^%DT I Y=- 1 W !,"Ent er valid d ate " K %D T G S2 | |
32 | S ENDATE =Y | |
33 | S FIO="" | |
34 | S ZTRTN= "CALC^CHAR ZPRT",ZTDE SC="KATRIN A VICTIMS BY ZIP COD E REPORT", ZTIO="",ZT DTH="" | |
35 | S ZTIO=" ",ZTSAVE(" FIO")="",Z TSAVE("STD ATE")="",Z TSAVE("END ATE")="" | |
36 | D ^%ZTLO AD | |
37 | W !!,"Yo ur task nu mber is ", ZTSK | |
38 | ;D CALC^ CHARZPRT | |
39 | R XTEMP: 5 | |
40 | Q | |
41 | CALC ; | |
42 | S IVAL=0 | |
43 | S CHARDT ="" | |
44 | S CHBLNM ="" | |
45 | S CHSTAT ="" | |
46 | S CHORAM T=0 | |
47 | S CHCRAM T=0 | |
48 | D ZIPLOA D | |
49 | S PG=1 | |
50 | D PRINT | |
51 | S3 S IVAL =$O(^PRCA( 430,IVAL)) G END:'IV AL | |
52 | G:'$D(^P RCA(430,IV AL,0)) S3 | |
53 | S CHARDT =$P(^PRCA( 430,IVAL,0 ),"^",10) G:'CHARDT S3 | |
54 | I CHARDT <STDATE G S3 | |
55 | I CHARDT >ENDATE G S3 | |
56 | S4 S CHBL NM=$P(^PRC A(430,IVAL ,0),"^",1) G:'CHBLNM S3 | |
57 | S5 S CHDE BT=$P(^PRC A(430,IVAL ,0),"^",9) G:'CHDEBT S3 | |
58 | G:'$D(^R CD(340,CHD EBT,0)) S3 | |
59 | S CHVNPT =$P(^RCD(3 40,CHDEBT, 0),"^",1) | |
60 | S CHVFL= $P(CHVNPT, ";",2) G:C HVFL="" S3 | |
61 | S CHVFL= "^"_CHVFL | |
62 | S CHVPT= $P(CHVNPT, ";",1) | |
63 | S TMPVEN =CHVFL_CHV PT_",0)" | |
64 | S CHDNAM =$P(@TMPVE N,"^",1) | |
65 | S CHDZIP =$P(@TMPVE N,"^",8) G :'CHDZIP S 3 | |
66 | I '$D(CH ZIP(CHDZIP )) G S3 | |
67 | S CHORAM T=$P(^PRCA (430,IVAL, 0),"^",3) G:'CHORAMT S3 | |
68 | S6 S JVAL= 99999 | |
69 | S JVAL=$ O(^PRCA(43 0,IVAL,2,J VAL),-1) G :'JVAL S3 | |
70 | G:'$D(^P RCA(430,IV AL,2,JVAL, 0)) S6 | |
71 | S CHCRAM T=$P(^PRCA (430,IVAL, 2,JVAL,0), "^",2) G:' CHCRAMT S3 | |
72 | U FIO W !,$$FMTE^X LFDT(CHARD T,"5D")_$C (9)_CHBLNM _$C(9)_CHD NAM_$C(9)_ CHDZIP_$C( 9)_CHORAMT _$C(9)_CHC RAMT | |
73 | G S3 | |
74 | Q | |
75 | ||
76 | ;DEF0165 54, SBB, 1 1/22/13 - Get UCI so this can be tested in all are as. | |
77 | N IOF,UC I | |
78 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
79 | X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) | |
80 | ;SBB 07/ 30/15 DEF0 16554 | |
81 | X "D $SY STEM.Proce ss.SetZEOF (1)" | |
82 | S FIO="H AC_HFS$:[S CR.TEMP_FI LES]KATRIN A_DEBT_BY_ ZIP.DAT" S T=$C(9) ; FOR LIVE ONLY | |
83 | ;S FIO=" HAC_HFS$:[ DSMMANAG.C HAMPVA]TES T_KATRINA_ DEBT_BY_ZI P.DAT" S T =$C(9) ;F OR DEV ONL Y | |
84 | I UCI'=" HAC" S FIO ="HAC_HFS$ :[DSMMANAG .CHAMPVA]T EST_KATRIN A_DEBT_BY_ ZIP_"_UCI_ ".DAT" S T =$C(9) ;F OR ALL ARE AS | |
85 | ;SBB; DE F016554-11 /22/13 - M odified Wr iting to a file as p er VHA sta ndard. | |
86 | ;O FIO:" NWS" | |
87 | I '$$OPE NFIWR^CHTF LIB9(.FIO, "FIO") X " D $SYSTEM. Process.Se tZEOF(0)" Q | |
88 | HEAD | |
89 | S TITLE= "HEALTH AD MINISTRATI ON CENTER" | |
90 | S TAB=(1 32-$L(TITL E))/2 | |
91 | U FIO W DUZ_$C(9)_ TITLE_$C(9 )_"Page: " _PG SET PG =PG+1 | |
92 | HEAD1 | |
93 | S TITLE= "KATRINA V ICTIMS BY ZIP CODE R EPORT" | |
94 | S TAB=(1 32-$L(TITL E))/2 | |
95 | U FIO W !, TITLE | |
96 | HDRS | |
97 | U FIO W !,"DATE BI LL PREPARE D"_$C(9)_" BILL NUMBE R"_$C(9)_" DEBTOR"_$C (9)_"ZIP C ODE"_$C(9) _"ORIGINAL AMT"_$C(9 )_"CURRENT AMT" | |
98 | Q | |
99 | END | |
100 | ;DEF0165 54-11/22/1 3-SBB use CLOSE^%ZIS H to close file | |
101 | ;C FIO | |
102 | D CLOSEF ^CHTFLIB9( FIO,"FIO") | |
103 | ;SBB 07/ 30/15 DEF0 16554 | |
104 | X "D $SY STEM.Proce ss.SetZEOF (0)" | |
105 | K IVAL,C HARDT,STDA TE,ENDATE, CHBLNM,CHD EBT,CHVNPT ,CHVFL,TMP VEN | |
106 | K CHDNAM ,CHZIP,CHD ST,CHORAMT ,CHCRAMT,J VAL | |
107 | ;SBB; DE F016554-11 /22/13 - U sing Stand ard functi on for FTP | |
108 | ;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]DEM O_COPY.COM /PARAM=("_ FIO_")") ;USED FOR LIVE TRANS MISSION | |
109 | D FTPFILE^ CHTFLIB9(F IO," DNS . DNS ","/FS3BIG ","PUT") | |
110 | Q | |
111 | ZIPLOAD ;T HIS SUBROU TINE READS A FILE ON FS3BIG OF ZIP CODES FOR THIS REQUEST | |
112 | N FOLDER ,DEVICE | |
113 | S INNAME ="TEST_ZIP _CODE.TXT" ,DEVICE="" | |
114 | ;S DEVICE= "HACFS3"" DNS HACdec741! ""::D:[FS3 BIG]"_INNA ME | |
115 | ;SBB 07/ 30/15 DEF0 16554 | |
116 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
117 | X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) | |
118 | X "D $SY STEM.Proce ss.SetZEOF (1)" | |
119 | I UCI="H AC" S FOLD ER="HAC_HF S$:[SCR.TE MP_FILES]" | |
120 | I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" | |
121 | S DEVICE =FOLDER_IN NAME | |
122 | D FTPFILE^ CHTFLIB9(D EVICE," DNS . DNS ","/FS3BIG ","GET") | |
123 | X "D $SY STEM.Proce ss.SetZEOF (1)" | |
124 | ;S DEVIC E="HAC_HFS $:[DSMMANA G.CHAMPVA] TEST_ZIP_C ODE.TXT" | |
125 | ;DEF0165 54-10/30/1 3-SBB call OPEN^%ZIS H to open the file | |
126 | ;O DEVIC E:"R":5 | |
127 | I '$$OPE NFIRD^CHTF LIB9(.DEVI CE,"DEVICE ") Q | |
128 | Z1 ; | |
129 | ;DEF0165 54-10/30/1 3-SBB use STATUS^%ZI SH to chec k for EOF | |
130 | ;U DEVIC E R RCD#5 I $E(RCD,1 ,3)="END" G ZEND | |
131 | U DEVICE R RCD#5 I ($E(RCD,1 ,3)="END") !($$STATUS ^%ZISH) G ZEND | |
132 | S CHFZIP =$E(RCD,1, 5) | |
133 | S CHZIP( CHFZIP)="" | |
134 | G Z1 | |
135 | ZEND | |
136 | ;DEF0165 54-10/30/1 3-SBB use CLOSE^%ZIS H to close file | |
137 | ;C DEVIC E | |
138 | D CLOSEF ^CHTFLIB9( DEVICE,"DE VICE") | |
139 | ;SBB 07/ 30/15 DEF0 16554 | |
140 | X "D $SY STEM.Proce ss.SetZEOF (0)" | |
141 | ;SBB 07/ 30/15 DEF0 16554 | |
142 | X "D $SY STEM.Proce ss.SetZEOF (1)" | |
143 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.