Produced by Araxis Merge on 11/9/2018 12:33:55 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 | CHMFMPRP.m | Mon Nov 5 16:39:34 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMFMPRP.m | Mon Nov 5 17:46:10 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 174 |
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 | CHMFMPRP ; HAC/JPN FM P PROGRAM MANAGER RE PORT ;04/1 8/2008 09 :10 AM | |
2 | ;V1 | |
3 | ; | |
4 | ;CR DEV00 2556-02 | |
5 | ;ROUTINE CREATED FO R FMP PROG RAM MANAGE R | |
6 | ;ISSUE DE SCRIPTION - FOR FMP - I NEED A LIST OF N AMES AND A DRESSES FO R BOTH VET ERANS AND | |
7 | ; PR OVIDERS WH O HAVE SUB MITTED A C LAIM FOR P AYMENT UND ER FMP FOR THE PAST 12 MONTHS | |
8 | S U="^" | |
9 | DATE ; LET S THE USER INPUT A D ATE RANGE | |
10 | D NOW^%DT C | |
11 | S DIR(0)= "D" S DIR( "A")="FROM TODAY, EN TER DAYS B ACK TO STA RT REPORT IN MMDDYY FORMAT " D ^DIR S CH BDT=Y W ! | |
12 | I CHBDT=" ^" S QFLG= 1 Q | |
13 | S BDT=Y(0 ) | |
14 | S DIR(0)= "D" S DIR( "A")="FROM "_Y(0)_" ENTER DAYS FORWARD D O YOU WANT TO RUN IN MMDDYY FO RMAT " D ^ DIR S CHED T=Y | |
15 | I CHEDT=" ^" S QFLG= 1 Q | |
16 | S EDT=Y(0 ) | |
17 | I CHEDT<C HBDT W !!, " The end date must not be pri or to the begin date . Please r eenter.",! G DATE | |
18 | START ;;ST ARTING POI NT | |
19 | K ^CHMZHO LD("FMP") | |
20 | ;D NOW^%D TC S X1=X, X2=-365 | |
21 | ;D C^%DTC | |
22 | S (CHFMPC L,CHFMP0,C HFMPJ,CHFM P100,CHFMP DT,CHMAHC) ="" | |
23 | F S CHFM PCL=$O(^CH FMPCL(CHFM PCL)) Q:CH FMPCL="" D | |
24 | . S CHFMP 0=$G(^CHFM PCL(CHFMPC L,0)) | |
25 | . F S CH FMPJ=$O(^C HFMPCL(CHF MPCL,100,C HFMPJ)) Q: CHFMPJ="" D | |
26 | .. S CHFM P100=$G(^C HFMPCL(CHF MPCL,100,C HFMPJ,0)) | |
27 | .. S CHFM PDT=$P(CHF MP100,"^", 7) | |
28 | .. I CHFM PDT<CHBDT Q | |
29 | .. I CHFM PDT>CHEDT Q | |
30 | .. S CHMA HC=$P(CHFM P0,"^",2) | |
31 | .. D GETI NFO | |
32 | D OUTPUT | |
33 | D CLEANUP | |
34 | Q | |
35 | CLEANUP ;K ILLS ALL T HE LOCAL V ARIABLES | |
36 | K CHFMPCL ,CHFMP0,CH FMPJ,CHFMP 100,CHFMPD T,CHMAHC | |
37 | K CHNAME, CHADD1,CHA DD2,CHCITY ,CHST,CHZI P,CHAHCJ,C HADD,CHAHC 1 | |
38 | K CHMAHC, DATA,NAME, ADD1,ADD2, CITY,ST,ZI P,DATE | |
39 | Q | |
40 | ; | |
41 | GETINFO ; COLLECTS T HE ADDRESS INFORMATI ON FOR TEH REQUEST | |
42 | S (CHNAME ,CHADD1,CH ADD2,CHCIT Y,CHST,CHZ IP,CHAHCJ, CHADD,CHAH C1)="" | |
43 | F S CHAH CJ=$O(^AHC HVA(CHMAHC ,100,CHAHC J)) Q:CHAH CJ="" D | |
44 | . I $D(^A HCHVA(CHMA HC,11))=0 S CHADD=CH MAHC_"^"_" NO ADDRESS " D SAVE Q | |
45 | . S CHAHC 1=$G(^AHCH VA(CHMAHC, 11)) | |
46 | . S CHNAM E=$P(^AHCH VA(CHMAHC, 0),"^",1) | |
47 | . S CHADD 1=$P(CHAHC 1,"^",1) | |
48 | . S CHADD 2=$P(CHAHC 1,"^",2) | |
49 | . S CHCIT Y=$P(CHAHC 1,"^",3) | |
50 | . S CHST= $P(CHAHC1, "^",4) | |
51 | . I CHST= "" D | |
52 | .. S CHST =$P(CHAHC1 ,"^",6) | |
53 | . S CHST= $P(^DIC(5, CHST,0),"^ ",1) | |
54 | . S CHZIP =$P(CHAHC1 ,"^",5) | |
55 | . I CHZIP ="" S CHZI P="NO ZIP" | |
56 | . S CHADD =CHNAME_"^ "_CHADD1_" ^"_CHADD2_ "^"_CHCITY _"^"_CHST_ "^"_CHZIP | |
57 | . D SAVE | |
58 | Q | |
59 | ; | |
60 | SAVE ;SAVE S THE INFO RAMTION IN TO A STORA GE GLOBAL | |
61 | S ^CHMZHO LD("FMP",C HMAHC)=CHA DD | |
62 | Q | |
63 | OUTPUT ;W RITES THE INFORMATIO N TO A FIL E ON FS3BI G | |
64 | D NOW^%DT C S DATE=$ E(X,2,7) | |
65 | S FIO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]FMP_PROGR AM_REPORT_ "_DATE_".T XT" | |
66 | O FIO C F IO:"D" | |
67 | O FIO:"NW S" | |
68 | ;D HEADER | |
69 | S CHMAHC= "",DATA="" | |
70 | F S CHMA HC=$O(^CHM ZHOLD("FMP ",CHMAHC)) Q:CHMAHC= "" D | |
71 | . S (NAME ,ADD1,ADD2 ,CITY,ST,Z IP)="" | |
72 | . S DATA= $G(^CHMZHO LD("FMP",C HMAHC)) | |
73 | . S NAME= $P(DATA,"^ ",1) S NAM E=$P(NAME, ",",2)_" " _$P(NAME," ,",1) | |
74 | . S ADD1= $P(DATA,"^ ",2),ADD2= $P(DATA,"^ ",3) | |
75 | . S CITY= $P(DATA,"^ ",4),ST=$P (DATA,"^", 5),ZIP=$P( DATA,"^",6 ) | |
76 | . U FIO W !,NAME,$C (9),ADD1,$ C(9),ADD2, $C(9),CITY ,$C(9),ST, $C(9),ZIP | |
77 | C FIO | |
78 | Q | |
79 | HEADER ;WR ITES OUT A HEADER LI NE OF INFO RMATION | |
80 | U FIO W ! ,"Name",?3 0,"Address Line 1",? 55,"Addres s Line 2", ?80,"City" ,?98,"Stat e",?119,"Z ip" | |
81 | U FIO W ! !,"------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -" | |
82 | Q | |
83 | ||
84 | ||
85 | ||
86 | ||
87 | ||
88 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.