Produced by Araxis Merge on 11/9/2018 12:33:40 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 | CHARSTRT.m | Mon Nov 5 16:40:45 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHARSTRT.m | Tue Nov 6 21:28:22 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 232 |
Changed | 1 | 2 |
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 | CHARSTRT ; CVA/TLH RE PORT FOR A CCOUNTS RE CEIVABLE F OR FISCAL TO | |
2 | ;PROVIDE HURRICANE KATRINA BE NES WITH O UTSTANDING DEBTS BY STATE | |
3 | ;V 1.0 1/ 8/07 12:30 PM | |
4 | ;DEF01655 4, SBB, 11 /22/13 - M odified Wr iting to a file as p er VHA sta ndard. | |
5 | ;DEF01655 4, SBB, 07 /30/15 - A dding chan ges for DE CNET. | |
6 | ;VARIBLES | |
7 | ;IVAL = I VALUE WIT HIN THE AR PACKAGE | |
8 | ;CHARDT = DATE BILL PREPARED IN AR PACK AGE | |
9 | ;STDATE = START DAT E TO CHECK FOR BILL PREPARED D ATE | |
10 | ;ENDATE = END DATE TO CHECK F OR BILL PR EPARED DAT E | |
11 | ;CHBLNM = BILL NUMB ER IN AR P ACKAGE | |
12 | ;CHDEBT = DEBTOR PO INTER (^RC D(340,0) | |
13 | ;CHVNPT = VENDOR PO INTER OF D EBTOR | |
14 | ;CHVFL = REFERENECE TO VENDOR FILE (^PR C(440,0) | |
15 | ;TMPVEN = REFERENCE TO VENDOR GLOBAL | |
16 | ;CHDNAM = DEBTOR NA ME | |
17 | ;CHSTAT = STATE OF DEBTOR | |
18 | ;CHORAMT = ORIGINAL AMOUNT OW ED | |
19 | ;CHCRAMT = CURRENT AMOUNT OWE D | |
20 | ;STATE(1) = ALABAMA | |
21 | ;STATE(22 ) = LOUISI ANA | |
22 | ;STATE(28 ) = MISSIS SIPPI | |
23 | START W !, "KATRINA V ICTIMS BY STATE REPO RT" | |
24 | S1 W !!,"E NTER THE B EGIN DATE FOR SEARCH IN BILL P REPARED DA TE: " D CS BRS^CHSC2 | |
25 | Q:Y="" I $D(DQOUT ) W !,"Ent er first d ate to che ck for Bil l Prepared Date: " G S1 | |
26 | Q:$D(DUO UT) Q:$D( DFOUT) | |
27 | S X=Y,%D T="EPX" D ^%DT I Y=- 1 W !,"Ent er valid d ate " K %D T G S1 | |
28 | S STDATE =Y | |
29 | S2 W !!," ENTER THE END DATE F OR SEARCH IN BILL PR EPARED DAT E: " D CSB RS^CHSC2 | |
30 | Q:Y="" I $D(DQOUT ) W !,"Ent er last da te to chec k for Bill Prepared Date: " G S2 | |
31 | G:$D(DUO UT) S1 Q:$ D(DFOUT) | |
32 | S X=Y,%D T="EPX" D ^%DT I Y=- 1 W !,"Ent er valid d ate " K %D T G S2 | |
33 | S ENDATE =Y | |
34 | S FIO="" | |
35 | S ZTRTN= "CALC^CHAR STRT",ZTDE SC="KATRIN A VICTIMS BY STATE R EPORT",ZTI O="",ZTDTH ="" | |
36 | S ZTIO=" ",ZTSAVE(" FIO")="",Z TSAVE("STD ATE")="",Z TSAVE("END ATE")="" | |
37 | D ^%ZTLO AD | |
38 | W !!,"Yo ur task nu mber is ", ZTSK | |
39 | ;D CALC^ CHARSTRT | |
40 | R XTEMP: 5 | |
41 | Q | |
42 | CALC ; | |
43 | S IVAL=0 | |
44 | S CHARDT ="" | |
45 | S CHBLNM ="" | |
46 | S CHSTAT ="" | |
47 | S CHORAM T=0 | |
48 | S CHCRAM T=0 | |
49 | S CHSTAT (1)="" | |
50 | S CHSTAT (22)="" | |
51 | S CHSTAT (28)="" | |
52 | S PG=1 | |
53 | D PRINT | |
54 | S3 S IVAL =$O(^PRCA( 430,IVAL)) G END:'IV AL | |
55 | G:'$D(^P RCA(430,IV AL,0)) S3 | |
56 | S CHARDT =$P(^PRCA( 430,IVAL,0 ),"^",10) G:'CHARDT S3 | |
57 | I CHARDT <STDATE G S3 | |
58 | I CHARDT >ENDATE G S3 | |
59 | S4 S CHBL NM=$P(^PRC A(430,IVAL ,0),"^",1) G:'CHBLNM S3 | |
60 | S5 S CHDE BT=$P(^PRC A(430,IVAL ,0),"^",9) G:'CHDEBT S3 | |
61 | G:'$D(^R CD(340,CHD EBT,0)) S3 | |
62 | S CHVNPT =$P(^RCD(3 40,CHDEBT, 0),"^",1) | |
63 | S CHVFL= $P(CHVNPT, ";",2) G:C HVFL="" S3 | |
64 | S CHVFL= "^"_CHVFL | |
65 | S CHVPT= $P(CHVNPT, ";",1) | |
66 | S TMPVEN =CHVFL_CHV PT_",0)" | |
67 | S CHDNAM =$P(@TMPVE N,"^",1) | |
68 | S CHDST= $P(@TMPVEN ,"^",7) G: 'CHDST S3 | |
69 | I '$D(CH STAT(CHDST )) G S3 | |
70 | S CHSTP= $P(^DIC(5, CHDST,0)," ^",2) | |
71 | S CHORAM T=$P(^PRCA (430,IVAL, 0),"^",3) G:'CHORAMT S3 | |
72 | S6 S JVAL= 99999 | |
73 | S JVAL=$ O(^PRCA(43 0,IVAL,2,J VAL),-1) G :'JVAL S3 | |
74 | G:'$D(^P RCA(430,IV AL,2,JVAL) ) S6 | |
75 | S CHCRAM T=$P(^PRCA (430,IVAL, 2,JVAL,0), "^",2) G:' CHCRAMT S3 | |
76 | U FIO W !,$$FMTE^X LFDT(CHARD T,"5D")_$C (9)_CHBLNM _$C(9)_CHD NAM_$C(9)_ CHSTP_$C(9 )_CHORAMT_ $C(9)_CHCR AMT | |
77 | G S3 | |
78 | Q | |
79 | ||
80 | ;DEF0165 54, SBB, 1 1/22/13 - Get UCI so this can be tested in all are as. | |
81 | N IOF,UC I | |
82 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
83 | X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) | |
84 | ;SBB 07/ 30/15 DEF0 16554 | |
85 | X "D $SY STEM.Proce ss.SetZEOF (1)" | |
86 | S FIO="H AC_HFS$:[S CR.TEMP_FI LES]KATRIN A_DEBT_BY_ STATE.DAT" S T=$C(9) ; FOR LI VE ONLY | |
87 | ;S FIO=" HAC_HFS$:[ DSMMANAG.C HAMPVA]TES T_KATRINA_ DEBT_BY_ST ATE.DAT" S T=$C(9) ;FOR DEV O NLY | |
88 | I UCI'=" HAC" S FIO ="HAC_HFS$ :[DSMMANAG .CHAMPVA]T EST_KATRIN A_DEBT_BY_ STATE_"_UC I_".DAT" S T=$C(9) ;FOR ALL A REAS | |
89 | ;SBB; DE F016554-11 /22/13 - M odified Wr iting to a file as p er VHA sta ndard. | |
90 | ;O FIO:" NWS" | |
91 | I '$$OPE NFIWR^CHTF LIB9(.FIO, "FIO") X " D $SYSTEM. Process.Se tZEOF(0)" Q | |
92 | HEAD | |
93 | S TITLE= "HEALTH AD MINISTRATI ON CENTER" | |
94 | S TAB=(1 32-$L(TITL E))/2 | |
95 | U FIO W DUZ_$C(9)_ TITLE_$C(9 )_"Page: " _PG SET PG =PG+1 | |
96 | HEAD1 | |
97 | S TITLE= "KATRINA V ICTIMS BY STATE REPO RT" | |
98 | S TAB=(1 32-$L(TITL E))/2 | |
99 | U FIO W !, TITLE | |
100 | HDRS | |
101 | U FIO W !!,"DATE B ILL PREPAR ED"_$C(9)_ "BILL NUMB ER"_$C(9)_ "DEBTOR"_$ C(9)_"STAT E"_$C(9)_" ORIGINAL A MT"_$C(9)_ "CURRENT A MT" | |
102 | Q | |
103 | END | |
104 | ;DEF0165 54-11/22/1 3-SBB use CLOSE^%ZIS H to close file | |
105 | ;C FIO | |
106 | D CLOSEF ^CHTFLIB9( FIO,"FIO") | |
107 | ;SBB 07/ 30/15 DEF0 16554 | |
108 | X "D $SY STEM.Proce ss.SetZEOF (0)" | |
109 | K IVAL,C HARDT,STDA TE,ENDATE, CHBLNM,CHD EBT,CHVNPT ,CHVFL,TMP VEN | |
110 | K CHDNAM ,CHSTAT,CH STP,CHDST, CHORAMT,CH CRAMT,JVAL | |
111 | ;SBB; DE F016554-11 /22/13 - U sing Stand ard functi on for FTP | |
112 | ;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]DEM O_COPY.COM /PARAM=("_ FIO_")") ;USED FOR LIVE TRANS MISSION | |
113 | D FTPFILE^ CHTFLIB9(F IO," DNS . DNS ","/FS3BIG ","PUT") | |
114 | Q | |
115 | ||
116 | ||
117 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.