Produced by Araxis Merge on 11/9/2018 12:34:17 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 | CHVMC101.m | Mon Nov 5 16:40:43 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHVMC101.m | Fri Nov 9 03:51:32 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 164 |
Changed | 0 | 0 |
Inserted | 1 | 1 |
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 | CHVMC101 ; CVA/JLR;VA MC ACCESS - CALC/PRI NT PRT LIS TING;03/06 /98 9:06 AM | |||||
2 | ;V1.0 | |||||
3 | K NODOMFG | |||||
4 | D DOMAIN^ CHVMCUTL | |||||
5 | Q:$D(NODO MFG) | |||||
6 | K NOZIPFG | |||||
7 | D ZIPCD^C HVMCUTL | |||||
8 | Q:$D(NOZI PFG) | |||||
9 | S CT=0,TA B=0,PG=1 | |||||
10 | K CHX | |||||
11 | ;S CHDOM= CHDOM_".VA .GOV" | |||||
12 | S X=DT D DTPRT S DA TE=Y,PG=1 S X=$P($H, ",",2),H=X \3600,M=X# 3600\60 | |||||
13 | S:M<10 M= 0_M S:H<10 H=0_H S T IME=H_M | |||||
14 | I '$D(^CH MDIC(74100 2.4,"B",CH ZIP)) S ^C HMZHOLD("B ADZIP",PT) ="" G END | |||||
15 | S VC=$O(^ CHMDIC(741 002.4,"B", CHZIP,0)) | |||||
16 | G END:'$D (^CHMDIC(7 41002.4,VC ,0)) S CHL DT=$O(^CHM DIC(741002 .4,VC,1,0) ) | |||||
17 | G END:'$D (^CHMDIC(7 41002.4,VC ,1,CHLDT,0 )) S CHLOC =$P(^(0)," ^",2) | |||||
18 | S CHCCPT4 ="" D TEXT ,HEAD S TA B=0,X="",C NT=0 | |||||
19 | A1 S CHCCP T4=$O(^CHM CPF("B",CH CCPT4)) G: CHCCPT4="" END | |||||
20 | S I=0 S ( CHA,CHB,CH C,CHD,CHE, CHF,CHG,CH H,CHI,CHJ, CHK)="" | |||||
21 | S CHMSPN= $O(^CHMCPF ("B",CHCCP T4,0)) G A 1:'CHMSPN | |||||
22 | D:'$D(CHX ) POINT G: 'CHX END | |||||
23 | A3 S CHCMD T=$O(^CHMC PF(CHMSPN, CHX,0)) G A1:'CHCMDT | |||||
24 | G A1:'$D( ^CHMCPF(CH MSPN,CHX,C HCMDT,0)) | |||||
25 | S CHLNM=C HLOC#8 S:C HLOC#8=0 C HLNM=8 | |||||
26 | S CHMREC= $P(^CHMCPF (CHMSPN,CH X,CHCMDT,0 ),"^",2) | |||||
27 | S CHPNM=$ P(CHMREC," ,",CHLNM) | |||||
28 | S CHMPF1= $P(CHPNM," ;",1) S CT =CT+1 I CT =5 S CT=1 D BUILD S X="" | |||||
29 | S X=X_CHC CPT4_" "_ $J(CHMPF1, 8) S:CT'=4 X=X_" " G A1 | |||||
30 | END D MAIL K CHA,CHB ,CHC,CHCCP T4,CHCI,CH CLOC,CHCST ,CHZIP | |||||
31 | K CHD,CHE ,CHF,CHG,C HH,CHI,CHJ ,CHK,CHPVF ,I,J,K,X,Y Q | |||||
32 | POINT S CH X=0 | |||||
33 | P2 S CHX=$ O(^CHMCPF( CHMSPN,CHX )) Q:'CHX Q:CHX+8>C HLOC | |||||
34 | G P2 | |||||
35 | MAIL S XMS UB="CITI P revailing Rate Table ",XMDUZ=DU Z | |||||
36 | S XMTEXT= "^UTILITY( $J,""W"",1 ,",XMY(CHD OM)="",U=" ^" D ^XMD | |||||
37 | ;S XMTEXT ="^UTILITY ($J,""W"", 1,",XMY(DU Z)="",U="^ " D ^XMD | |||||
38 | S $P(^OA( 120750.3,P T,741001), "^",1)=1 Q | |||||
39 | HEAD S TL= "CITI Prev ailing Rat e Table (P RT)" | |||||
40 | S X=" CITI Preva iling Rate Table (PR T)" D BUIL D | |||||
41 | S TL="For " S TL=TL _CHFAC S T AB=(80-$L( TL))/2 | |||||
42 | S PTAB="" F II=1:1: TAB S PTAB =PTAB_" " | |||||
43 | S X=PTAB_ TL D BUILD S X="" D BUILD S X= "" D BUILD | |||||
44 | S TAB="" F II=1:1:8 S TAB=TAB _" " | |||||
45 | S X="" S COL="Code Rate" F II=1:1:4 S X=X_COL S :II'=4 X=X _TAB | |||||
46 | D BUILD S TAB=" " S COL="- ---- ---- ----",X="" | |||||
47 | F II=1:1: 4 S X=X_CO L S:II'=4 X=X_TAB | |||||
48 | D BUILD Q | |||||
49 | TEXT S LNC NT=1,CHNAM =$P(CHDOM, "@",1) | |||||
50 | 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 | |||||
51 | F I=LNCNT :1:58 S X= "" D BUILD | |||||
52 | Q | |||||
53 | DTPRT S Y= "" Q:X'?7N S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7) | |||||
54 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y | |||||
55 | Q | |||||
56 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC | |||||
57 | BUILD D SP ACE I '$D( ^UTILITY($ J,"W",1)) S HOLDJ=0 | |||||
58 | S JJ=HOLD J+1 S ^UTI LITY($J,"W ",1,JJ,0)= X,HOLDJ=JJ Q | |||||
59 | SPACE S LE N=$L(X) S TIMES=74-L EN,SPACE=" " F II=1:1 :TIMES S SPACE=SPAC E_" " | |||||
60 | S X=X_SPA CE Q | |||||
61 | TXT ; | |||||
62 | ;From: C HAMPVA Cen ter | |||||
63 | ; | |||||
64 | ;Subj: C ITI Prevai ling Rate Tables | |||||
65 | ; | |||||
66 | ; To: | |||||
67 | ; | |||||
68 | ; | |||||
69 | ; 1 . As prev iously ann ounced by VA Central Office, | |||||
70 | ; a ttached is a localit y-specific prevailin g rate | |||||
71 | ; t able (PRT) for outpa tient prof essional | |||||
72 | ; s ervices/pr ocedures. These rat es are to be used in | |||||
73 | ; a ll future CITI billi ngs. | |||||
74 | ; | |||||
75 | ; 2 . Service s/procedur es that do not appea r on the P RT | |||||
76 | ; s hould be b illed as p reviously instructed , using | |||||
77 | ; l ocally dev eloped usu al and cus tomary fee s. | |||||
78 | ; | |||||
79 | ; 3 . As alwa ys, questi ons are to be forwar ded to | |||||
80 | ; K elley Cole man, Healt h Administ ration Cen ter, | |||||
81 | ; ( 303) 331-7 521. | |||||
82 | ;END | |||||
83 | T |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.