177. 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.

177.1 Files compared

# 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

177.2 Comparison summary

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

177.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

177.4 Active regular expressions

No regular expressions were active.

177.5 Comparison detail

  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="
P II A@"_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