Produced by Araxis Merge on 11/9/2018 12:34:03 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 | CHMLCMP1.m | Mon Nov 5 16:39:14 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCMP1.m | Fri Nov 9 03:10:20 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 176 |
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 | CHMLCMP1 ; CR/DEN;PRI NT CMAC LI STING FOR ALL VAMC;1 0/19/92 9 :18 AM | |
2 | ;V1.0 | |
3 | ;CR MC215 JEH 8/21/ 06 - Modif ied to acc ept new CM AC file fo rmat | |
4 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
5 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
6 | I '$D(IOZ ) S %IS="N ",IOP=$I D ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS | |
7 | ZNAM ; | |
8 | G:'$D(ZTS K) END G:' $D(^%ZTSK( ZTSK,0)) E ND S DUZ=$ P(^(0),"^" ,3) S PT=0 | |
9 | A0 S PT=$O (^OA(12075 0.3,PT)) G :'PT END G :'$D(^OA(1 20750.3,PT ,0)) A0 | |
10 | S CHCZIP= $P(^(0),"^ ",4),CHFAC =$P(^(0)," ^",1),CT=0 ,TAB=0,PG= 1 | |
11 | S CHDOM=" " | |
12 | I $D(^OA( 120750.3,P T,0)) S CH DOM=$P(^(0 ),"^",1),C HDOM=$P(CH DOM,",",1) ,CHDOM="
|
|
13 | I CHDOM=" " S ^CHMZH OLD("NO-DO MAIN",PT)= "" G A0 | |
14 | S CHDOM=C HDOM_".VA. GOV" G:$P( ^OA(120750 .3,PT,7410 01),"^",1) '=1 A0 | |
15 | I '$D(^CH MDIC(74100 2.4,"B",CH CZIP)) S ^ CHMZHOLD(" BADZIP",PT )="" G A0 | |
16 | S VC=$O(^ CHMDIC(741 002.4,"B", CHCZIP,0)) | |
17 | G A0:'$D( ^CHMDIC(74 1002.4,VC, 0)) S CHLD T=$O(^CHMD IC(741002. 4,VC,1,0)) | |
18 | G A0:'$D( ^CHMDIC(74 1002.4,VC, 1,CHLDT,0) ) S CHLOC= $P(^(0),"^ ",2) | |
19 | S CHCCPT4 ="" D TEXT ,HEAD S TA B=0,X="",C NT=0 K CHX | |
20 | A1 S CHCCP T4=$O(^CHM CPF("B",CH CCPT4)) I CHCCPT4="" D MAIL G A0 | |
21 | S I=0 S ( CHA,CHB,CH C,CHD,CHE, CHF,CHG,CH H,CHI,CHJ, CHK)="" | |
22 | S CHMSPN= $O(^CHMCPF ("B",CHCCP T4,0)) G A 1:'CHMSPN | |
23 | D:'$D(CHX ) POINT G: 'CHX A0 | |
24 | A3 S CHCMD T=$O(^CHMC PF(CHMSPN, CHX,0)) G A1:'CHCMDT | |
25 | G A1:'$D( ^CHMCPF(CH MSPN,CHX,C HCMDT,0)) | |
26 | S CHLNM=C HLOC#8 S:C HLOC#8=0 C HLNM=8 | |
27 | S CHMREC= $P(^CHMCPF (CHMSPN,CH X,CHCMDT,0 ),"^",2) | |
28 | S CHPNM=$ P(CHMREC," ,",CHLNM) | |
29 | ;S CHMPF1 =$P(CHPNM, ";",1) S C T=CT+1 I C T=5 S CT=1 D BUILD S X="" | |
30 | S CHMPF1= $P(CHPNM," ;",1) S CT =CT+1 I CT =6 S CT=1 D BUILD S X="" ; J EH 8/21/06 | |
31 | ;S X=X_CH CCPT4_" " _$J(CHMPF1 ,8) S:CT'= 4 X=X_" " G A1 | |
32 | S X=X_CHC CPT4_" "_ $J(CHMPF1, 8) S:CT'=5 X=X_" " G A1 ; JEH 8/21/ 06 | |
33 | END K CHA, CHB,CHC,CH CCPT4,CHCI ,CHCLOC,CH CST,CHCZIP | |
34 | K CHD,CHE ,CHF,CHG,C HH,CHI,CHJ ,CHK,CHPVF ,I,J,K,X,Y Q | |
35 | POINT S CH X=0 | |
36 | P2 S CHX=$ O(^CHMCPF( CHMSPN,CHX )) Q:'CHX Q:CHX+8>C HLOC | |
37 | G P2 | |
38 | MAIL S XMS UB="CITI P revailing Rate Table ",XMDUZ=DU Z | |
39 | ;S XMTEXT ="^UTILITY ($J,""W"", 1,",XMY(CH DOM)="",U= "^" D ^XMD | |
40 | S XMTEXT= "^UTILITY( $J,""W"",1 ,",XMY(249 7)="",U="^ " D ^XMD | |
41 | S $P(^OA( 120750.3,P T,741001), "^",1)=1 | |
42 | S ^CHMZHO LD("CMAC-P RT-LIST",C HFAC)="" | |
43 | K ^UTILIT Y($J),X,XM TEXT,XMY Q | |
44 | HEAD S TL= "CITI Prev ailing Rat e Table (P RT)" | |
45 | S X=" CITI Preva iling Rate Table (PR T)" D BUIL D | |
46 | S TL="For " S TL=TL _CHFAC S T AB=(80-$L( TL))/2 | |
47 | S PTAB="" F II=1:1: TAB S PTAB =PTAB_" " | |
48 | S X=PTAB_ TL D BUILD S X="" D BUILD S X= "" D BUILD | |
49 | S TAB="" F II=1:1:8 S TAB=TAB _" " | |
50 | ;S X="" S COL="Code Rate" F II=1:1:4 S X=X_COL S:II'=4 X= X_TAB | |
51 | S X="" S COL="Code Rate" F II=1:1:5 S X=X_COL S :II'=5 X=X _TAB ; J EH 8/21/06 | |
52 | D BUILD S TAB=" " S COL="- ---- ---- ----",X="" | |
53 | ;F II=1:1 :4 S X=X_C OL S:II'=4 X=X_TAB | |
54 | F II=1:1: 5 S X=X_CO L S:II'=5 X=X_TAB ; JEH 8/21 /06 | |
55 | D BUILD Q | |
56 | TEXT S LNC NT=1,CHNAM =$P(CHDOM, "@",1) | |
57 | T1 F I=1:1 S X=$P($T (TXT+I),"; ",2) Q:X=" END" S:$E (X,1,5)=" To:" X=X_ $P(CHNAM," .",2)_" "_ $P(CHNAM," .",1) S LN CNT=LNCNT+ 1 D BUILD | |
58 | F I=LNCNT :1:58 S X= "" D BUILD | |
59 | Q | |
60 | DTPRT S Y= "" Q:X'?7N S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7) | |
61 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y | |
62 | Q | |
63 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC | |
64 | BUILD D SP ACE I '$D( ^UTILITY($ J,"W",1)) S HOLDJ=0 | |
65 | S JJ=HOLD J+1 S ^UTI LITY($J,"W ",1,JJ,0)= X,HOLDJ=JJ Q | |
66 | SPACE S LE N=$L(X) S TIMES=74-L EN,SPACE=" " F II=1:1 :TIMES S SPACE=SPAC E_" " | |
67 | S X=X_SPA CE Q | |
68 | TXT ; | |
69 | ;From: C HAMPVA Cen ter | |
70 | ; | |
71 | ;Subj: C ITI Prevai ling Rate Tables | |
72 | ; | |
73 | ; To: | |
74 | ; | |
75 | ; | |
76 | ; 1 . As prev iously ann ounced by VA Central Office, | |
77 | ; a ttached is a localit y-specific prevailin g rate | |
78 | ; t able (PRT) for outpa tient prof essional | |
79 | ; s ervices/pr ocedures. These rat es are to be used in | |
80 | ; a ll future CITI billi ngs. | |
81 | ; | |
82 | ; 2 . Service s/procedur es that do not appea r on the P RT | |
83 | ; s hould be b illed as p reviously instructed , using | |
84 | ; l ocally dev eloped usu al and cus tomary fee s. | |
85 | ; | |
86 | ; 3 . As alwa ys, questi ons are to be forwar ded to | |
87 | ; S tuart Moun t, VACO (1 61) via th e establis hed CITI | |
88 | ; m ailgroup i n FORUM. | |
89 | ;END |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.