178. EPMO Open Source Coordination Office Redaction File Detail Report

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.

178.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMP2.m Mon Nov 5 16:39:54 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCMP2.m Fri Nov 9 03:10:46 2018 UTC

178.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 172
Changed 1 2
Inserted 0 0
Removed 0 0

178.3 Comparison options

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

178.4 Active regular expressions

No regular expressions were active.

178.5 Comparison detail

  1   CHMLCMP2 ; CR/DEN;PRI NT CMAC LI STING FOR  SPECIFIC V AMC;01/05/ 94  9:18 A M
  2    ;V1.0
  3    ;CONVERTE D TO NEW T ASKMAN/KER NEL 7.1 BY  DTP ON 1/ 4/94
  4    ;CALLED B Y CHMLCMAQ  WHICH ERR ORED IN FI LEMAN LOOK -UP.
  5    ;CR MC215  JEH 8/21/ 06 - Modif ied to acc ept new CM AC file fo rmat
  6    S PT=$O(^ OA(120750. 3,"B",NAME ,0)) G:'PT  END
  7    G:'$D(^OA (120750.3, PT,0)) END
  8    S CHCZIP= $P(^(0),"^ ",4),CHFAC =$P(^(0)," ^",1),CT=0 ,TAB=0,PG= 1
  9    S CHDOM=" " S CHCZIP =$P(CHCZIP ,"-",1)
  10    I $D(^OA( 120750.3,P T,0)) S CH DOM=$P(^(0 ),"^",1),C HDOM=$P(CH DOM,",",1) ,CHDOM="
P II @"_CHDOM
  11    G:CHDOM=" " END K CH X 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 CZIP)) S ^ CHMZHOLD(" BADZIP",PT )="" G END
  15    S VC=$O(^ CHMDIC(741 002.4,"B", CHCZIP,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    ;S CHCMDT =9999999-3 00
  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 D MAIL  K CHA,CHB ,CHC,CHCCP T4,CHCI,CH CLOC,CHCST ,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=.5
  39    ;S XMTEXT ="^UTILITY ($J,""W"", 1,",XMY(CH DOM)="",U= "^" D ^XMD
  40    S XMTEXT= "^UTILITY( $J,""W"",1 ,",XMY(DUZ )="",U="^"  D ^XMD
  41    S $P(^OA( 120750.3,P T,741001), "^",1)=1 Q
  42   HEAD S TL= "CITI Prev ailing Rat e Table (P RT)"
  43    S X="                           CITI Preva iling Rate  Table (PR T)" D BUIL D
  44    S TL="For  " S TL=TL _CHFAC S T AB=(80-$L( TL))/2
  45    S PTAB=""  F II=1:1: TAB S PTAB =PTAB_" "
  46    S X=PTAB_ TL D BUILD  S X="" D  BUILD S X= "" D BUILD
  47    S TAB=""  F II=1:1:8  S TAB=TAB _" "
  48    ;S X="" S  COL="Code    Rate" F  II=1:1:4  S X=X_COL  S:II'=4 X= X_TAB
  49    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
  50    D BUILD S  TAB="     " S COL="- ----  ---- ----",X=""
  51    ;F II=1:1 :4 S X=X_C OL S:II'=4  X=X_TAB
  52    F II=1:1: 5 S X=X_CO L S:II'=5  X=X_TAB    ; JEH 8/21 /06
  53    D BUILD Q
  54   TEXT S LNC NT=1,CHNAM =$P(CHDOM, "@",1)
  55   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
  56    F I=LNCNT :1:58 S X= "" D BUILD
  57    Q
  58   DTPRT S Y= "" Q:X'?7N   S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7)
  59    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y
  60    Q
  61   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC
  62   BUILD D SP ACE I '$D( ^UTILITY($ J,"W",1))  S HOLDJ=0
  63    S JJ=HOLD J+1 S ^UTI LITY($J,"W ",1,JJ,0)= X,HOLDJ=JJ  Q
  64   SPACE S LE N=$L(X) S  TIMES=74-L EN,SPACE=" " F II=1:1 :TIMES  S  SPACE=SPAC E_" "
  65    S X=X_SPA CE Q
  66   TXT ;
  67    ;From:  C HAMPVA Cen ter
  68    ;
  69    ;Subj:  C ITI Prevai ling Rate  Tables
  70    ;
  71    ;  To:  
  72    ;
  73    ;
  74    ;       1 .  As prev iously ann ounced by  VA Central  Office,
  75    ;       a ttached is  a localit y-specific  prevailin g rate
  76    ;       t able (PRT)  for outpa tient prof essional
  77    ;       s ervices/pr ocedures.   These rat es are to  be used in
  78    ;       a ll future  CITI billi ngs.
  79    ;
  80    ;       2 .  Service s/procedur es that do  not appea r on the P RT
  81    ;       s hould be b illed as p reviously  instructed , using
  82    ;       l ocally dev eloped usu al and cus tomary fee s.
  83    ;
  84    ;       3 .  As alwa ys, questi ons are to  be forwar ded to
  85    ;       C indi Gramm als-Pellet ier, Healt h Administ ration Cen ter,
  86    ;       ( 303) 331-7 532.
  87    ;END