Produced by Araxis Merge on 11/9/2018 12:33:58 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 | CHMKFMPC.m | Mon Nov 5 16:42:09 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKFMPC.m | Mon Nov 5 17:48:56 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 334 |
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 | CHMKFMPC ; AHJ/PD;FMP WITH CLAI MS | |
2 | ;V1.0;TRC 026 ; 20 Mar 2008 1 :46 PM | |
3 | ;SELECT F MP WITH CL AIMS | |
4 | ;OUTPUT F ILE INPUT TO ZALFMP0 8 CREATES FILE FOR P RINTING wi th | |
5 | ;Routine ZALFMP13 A ND TEXT FI LE FMPFY03 .TXT FOR B URNING CD | |
6 | ;SELECT C OMPLETED C LAIMS BY S ERVICE DAT E | |
7 | ;Calc por tion of CH FMPRCC | |
8 | ;INPUT = ^CHFMPCL | |
9 | ;OUTPUT = ^CHMZHOLD ("FMP926", CHVET,CHVE TPRT) = ZA LFMP08 | |
10 | ; | |
11 | S (CHCTY, CHCTYPTR,C HVENPTR,CH CSDATE,CL1 ,VE,DI,CT) ="",(CHVEC T,CHVTCT,C HTO,PDCL,C HTOPDVE,CH SERV,CHSV1 ,CHSV2,CHS V3,CHSV4,C HSV5,CHSV6 )=0 | |
12 | S CTR=0,S W=0,CNT=0, FMPCTR=0,C HLINE=26,C I=0,CJ=0,C TR1=0,GI=1 ,CHSTATUS= 4,CHRFG=1 | |
13 | ;W #,!!!, "Searching for compl eted claim s." | |
14 | K ^CHMZHO LD("FMP926 ") | |
15 | K ^CHMZHO LD("NOFMP9 26") | |
16 | S ^CHMZHO LD("FMP-CO UNT-CLAIMS ")="" | |
17 | K ^CHMZHO LD("FMP-CL AIMS-DAYS" ) | |
18 | ||
19 | DAYS ; | |
20 | W !!,"Ent er Number of days of past clai ms (365=1 YR) (Enter ""END"" t o Quit: " | |
21 | D CSBRS^C HSC2 | |
22 | ;G:$D(DFO UT) END G: $D(DUOUT) ESSN | |
23 | I $D(DQOU T) D G DA YS | |
24 | .W !," days input must be n umeric num ber." | |
25 | Q:Y="END" | |
26 | I Y="" D G DAYS | |
27 | .W !," The days i nput Numbe r is manda tory." | |
28 | .W " You may not p roceed wit hout it." | |
29 | I (Y?1N)! (Y?2N)!(Y? 3N)!(Y?4N) S DAYSNUM =Y G OKDAY S | |
30 | G DAYS | |
31 | OKDAYS ; | |
32 | D NOW^%DT C S RUNTIM E=% | |
33 | S Y=$E(RU NTIME,1,7) | |
34 | S CHDATE= Y | |
35 | ; USE D AYS | |
36 | S X1=CHDA TE S X2=-D AYSNUM D C ^%DTC S ST RDAT=X | |
37 | ; STRDAT = Start D ate | |
38 | ; CHDATE = Todays Date | |
39 | S TODAY=C HDATE | |
40 | ;S STRDAT =3030314 | |
41 | S ENDDAT= TODAY | |
42 | OKMOS ; | |
43 | W !!,"PL EASE SELEC T DEVICE F OR PRINTOU T OR ""FIL E"" FOR EX CEL FILE O N FS3BIG: " ;TLH 4/ 21/08 DEV0 04416 | |
44 | K %IS,IO( "Q") D ^%Z IS Q:POP S CHFILE=" " | |
45 | I ION="FI LE" D ;TL H 4/21/08 DEV004416 | |
46 | .W !!,?24 ,"COPY YOU R QUEUED F ILE TO FS3 BIG" ;TLH 4/21/08 D EV004416 | |
47 | A .W !!,"E nter the n ew 1-8 cha racter fil e name EXI T// " ;TL H 4/21/08 DEV004416 | |
48 | .D CSBRS^ CHSC2 ;TL H 4/21/08 DEV004416 | |
49 | .Q:$D(DFO UT) Q:$D( DTOUT) G: $D(DQOUT) A ;TLH 4/2 1/08 DEV00 4416 | |
50 | .S CHFILE =Y ;TLH 4 /21/08 DEV 004416 | |
51 | .I Y["." W !,"DO NO T ENTER AN EXTENTION . EXTENTIO N WILL BE '.XLS'" G A | |
52 | .Q:Y="" ;TLH 4/21/ 08 DEV0044 16 | |
53 | .G:Y'?1.8 AN A ;TLH 4/21/08 D EV004416 | |
54 | .W !!,"Yo ur file wi ll now be copied to FS3BIG: " ;TLH 4/21 /08 DEV004 416 | |
55 | .W "\\ DNS FS3\FS3BIG \",CHFILE, ".XLS" ;TLH 4/21/ 08 DEV0044 16 | |
56 | .Q ;TLH 4/21/08 DE V004416 | |
57 | G:$D(IO(" Q"))!(IO'= IO(0)) QUE UEIT | |
58 | STARTIT ; | |
59 | D MAIN,EN D,ENDIT | |
60 | Q | |
61 | ;S CI=227 74 | |
62 | MAIN ; | |
63 | F S CI=$ O(^CHFMPCL (CI)),CJ=0 Q:'CI D | |
64 | .Q:'$D(^C HFMPCL(CI, 100)) | |
65 | .;I CTR=4 S CHLINE= CHLINE+1 W ?CHLINE," ." H .5 S CTR=0 | |
66 | .S CTR=CT R+1 | |
67 | .F S CJ= $O(^CHFMPC L(CI,100,C J)) Q:'CJ D | |
68 | ..Q:'$D(^ CHFMPCL(CI ,100,CJ,0) ) | |
69 | ..S CL=^C HFMPCL(CI, 100,CJ,0) | |
70 | ..Q:$P(CL ,U,2)="" | |
71 | ..Q:$P(CL ,U,6)="" | |
72 | ..S CHSTA TUS=$P(CL, U,2) | |
73 | ..S CHCLM NUM=$P(CL, U,1) | |
74 | ..;Check for status 4 (comple ted) claim s | |
75 | ..Q:(CHST ATUS'=4) | |
76 | ..;*** Be low are co mpleted cl aims | |
77 | ..;Test c riteria of specific flags | |
78 | ..;W !,$P (^CHFMPCL( CI,0),U,2) | |
79 | ..S CIDAT =$P(CL,U,6 ) | |
80 | ..S CHVET PRT=$P(^CH FMPCL(CI,0 ),U,2) | |
81 | ..Q:'$D(^ AHCHVA(CHV ETPRT,0)) | |
82 | ..S CHVET =$P(^AHCHV A(CHVETPRT ,0),U,1) | |
83 | ..;W !,CI DAT | |
84 | ..I CIDAT <STRDAT S ^CHMZHOLD( "NOFMP926" ,CHVET,CID AT,CHCLMNU M)="" Q | |
85 | ..I CIDAT >ENDDAT S ^CHMZHOLD( "NOFMP926" ,CHVET,CID AT,CHCLMNU M)="" Q | |
86 | ..;W !," ",CIDAT | |
87 | ..S CHVET PRT=$P(^CH FMPCL(CI,0 ),U,2) | |
88 | ..S CHVET =$P(^AHCHV A(CHVETPRT ,0),U,1) | |
89 | ..;W !,CH VET," ",CH VETPRT," ",CI," ",CJ," ",CNT | |
90 | ..S FMPCT R=FMPCTR+1 | |
91 | ..S ^CHMZ HOLD("FMP- CLAIMS-DAY S",CHVET,C HVETPRT)=" " | |
92 | ..Q | |
93 | ..;W !!!! ,"END OF B ENE" | |
94 | ;D TASKMA N | |
95 | Q | |
96 | END ; | |
97 | D ^CHMKFM PP | |
98 | S Y=CHDAT E D DD^%DT S PTODAYD T=Y | |
99 | ;K ADDRLA B,BFN,CHDA TE,CHDFNI, CHDFNJ,CHD FNK,DFN,DF NDATA,FIO, J1,J2 | |
100 | ;K NAMELA B,PCNT,PDI J,PG,RUNTI ME,STATE,S TRDAT,T,TF MDT,TMPS,U | |
101 | S CNTZ=1, ^CHMZHOLD( $J,"FMP1-F MPMESS1",C NTZ)="",CN TZ=CNTZ+1 | |
102 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="* ********** ********** ********** ********** *********" ,CNTZ=CNTZ +1 | |
103 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)=" FMP NAME AND ADDRES S LIST ",CNT Z=CNTZ+1 | |
104 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)=" HAS COMP LETED ", CNTZ=CNTZ+ 1 | |
105 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)=" ",CNTZ=CNT Z+1 | |
106 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="T ODAYS DATE ="_PTODAYD T,CNTZ=CNT Z+1 | |
107 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="F MP NAME CO UNT="_FMPC NT,CNTZ=CN TZ+1 | |
108 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="( OUTPUT FIL E NAMES ) ",CNTZ=CNT Z+1 | |
109 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="F MP FILE NA ME ON FS3B IG=FMP-CLA IMS-NA08.T XT",CNTZ=C NTZ+1 | |
110 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="Y OU MUST IM MEDIATELY CHANGE FIL E NAMES ON FS3BIG ",CNTZ=CNT Z+1 | |
111 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="* ********** ********** ********** ********** *********" ,CNTZ=CNTZ +1 | |
112 | S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="" | |
113 | S XMTEXT= "^CHMZHOLD ($J,""FMP1 -FMPMESS1" "," | |
114 | S XMDUZ=. 5 | |
115 | S XMY(DUZ )="" | |
116 | S XMSUB=" FMP NAME A ND ADDRESS " D ^XMD | |
117 | ; | |
118 | K ^CHMZHO LD("FMP-CO UNT-CLAIMS ") | |
119 | Q | |
120 | Q | |
121 | BADIT ; | |
122 | Q | |
123 | QUEUEIT ; | |
124 | S ZTDTH=$ H | |
125 | S ZTRTN=" STARTIT^CH MKFMPC" | |
126 | S ZTDESC= "Print FMP BENE name and addre ss" | |
127 | S ZTSAVE( "*")="" | |
128 | D ^%ZTLOA D | |
129 | W !!?5,"R eport Queu ed!" | |
130 | D HOME^%Z IS Q | |
131 | Q | |
132 | ENDIT ; | |
133 | I ION="FI LE" D MOVE ;TLH 4/2 1/08 DEV00 4416 | |
134 | ; | |
135 | Q | |
136 | ;;TLH 4/2 1/08 DEV00 4416 | |
137 | MOVE | |
138 | S ZTRTN=" COPY^CHMKF MPC",ZTDES C="COPY TE XT FILE TO PC DISK" | |
139 | S ZTSAVE( "CHFILE")= "",ZTIO="" D ^%ZTLOA D | |
140 | ;W !!,"Yo ur file wi ll now be copied to FS3BIG: " | |
141 | ;W "\\ DNS FS3\FS3BIG \",CHFILE, ".TXT" Q | |
142 | COPY S CHC OM="HAC_HF S$:[DSMMAN AG]DHCPCOP Y.COM" | |
143 | S CHVAL=" /NOLOG/QUE UE=SYS$BAT CH" | |
144 | S CHPAR=C HFILE_".XL S" | |
145 | ;S X=$ZF( -1,"SUBMIT CHCOM,CHV AL,CHPAR") | |
146 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG] DHCPCOPY.C OM /NOLOG/ QUEUE=SCRA TCH$/PARAM ="_CHPAR) ;SKD | |
147 | S CHPAR=" HACFS3"" DNS COLEDEC We lcome1!"": :d:[FS3BIG ]"_$G(CHPA R) ;SKD | |
148 | S X=$ZF(- 1,"COPY HA C_HFS$:[TM P]TEMP.TMP "_CHPAR) | |
149 | S X=$ZF(- 1,"DELE HA C_HFS$:[TM P]TEMP.TMP ;*") | |
150 | Q | |
151 | ;;TLH 4/2 1/08 DEV00 4416 | |
152 | ; DEVICE | |
153 | ;W !," COUNT=",CN T | |
154 | Q | |
155 | Q ; | |
156 | Q | |
157 | ;OUTPUT F ILE INPUT TO ZALFMP0 8 CREATES FILE FOR P RINTING wi th | |
158 | ;Routine ZALFMP13 ( sticky lab els) AND T EXT FILE F MPFY05.TXT FOR | |
159 | ;BURNING CD. | |
160 | ;SELECT C OMPLETED C LAIMS BY S ERVICE DAT E | |
161 | ;Calc por tion of CH FMPRCC | |
162 | ;INPUT = ^CHFMPCL | |
163 | ;OUTPUT = ^CHMZHOLD ("FMP926", CHVET,CHVE TPRT) = ZA LFMP08 | |
164 | ; | |
165 | ; QA OUTP UT FILES A REAS FOLLO WS: | |
166 | ; CHMZHOL D("FMP-FY0 3" = Mirro r image of file to b urn CD FMP HANDBOOK.T XT | |
167 | ; CHMZHOL D("NOFMP92 6" = List of claims past date user selec ted. | |
168 | ; CHMZHOL D("FMP926" = List of N&A sel ected from date sele cted. | |
169 | Q | |
170 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.