103. EPMO Open Source Coordination Office Redaction File Detail Report

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.

103.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMERSN1.m Mon Nov 5 16:43:02 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMERSN1.m Mon Nov 5 17:44:29 2018 UTC

103.2 Comparison summary

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

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

103.4 Active regular expressions

No regular expressions were active.

103.5 Comparison detail

  1   CHMERSN1 ; HAC/SKD; G enerates t he Stubbed  Named ben e/sponsor  report; 10 -6-08
  2    ;;V1.0
  3    ;;new rou tine per D EV004340-0 2/DEV00582 2-01: Repo rt request ed for (SN ) records 
  4    ;;Generat es the rep ort that l ists all S N records  that have  any claims  paid.
  5    ;;
  6    ;;Format  for SN rec ords: the  last name  is 5 chara cters, fir st name, m iddle init ial if the re is one
  7    ;;and (SN ) is the n ame line a nd the sta tus is ine ligible.   For exampl es:
  8    ;;Name:   LEILA SMIT H  (SN) 
  9    ;;Name:   G T SMITH   (SN)
  10    ;;
  11    D ZSET
  12    D QUE1
  13   END 
  14    Q
  15    ; 
  16   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  17    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  18    I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS
  19    Q
  20    ;
  21   QUE1 ;
  22    S ZTRTN=" START^CHME RSN1",ZTDE SC="Listin g of (SN)  records (s ort)"
  23    S ZTIO="" ,CHFIO="", ZTDTH=$H
  24    S ZTSAVE( "DUZ")="", ZTSAVE("CH *")="",ZTS AVE("FILE* ")="" 
  25    D ^%ZTLOA D
  26    W !,"The  task numbe r for the  SN report  is: ",ZTSK  H 3
  27    Q
  28    ;
  29   START ;
  30    K ^CHMZHO LD("SN_REP ORT",DUZ)
  31    S CHDFN=0
  32    F  S CHDF N=$O(^AHCH VA(CHDFN))  Q:'CHDFN   D  
  33    .Q:'$D(^A HCHVA(CHDF N,0))
  34    .S (CHSNA ME,CHSSSN, CHSELG)=""
  35    .S CHSNAM E=$P($G(^A HCHVA(CHDF N,0)),"^", 1) Q:CHSNA ME'["(SN)"
  36    .S CHSELG =$P($G(^AH CHVA(CHDFN ,0)),"^",5 )
  37    .S CHSELG =$S($E(CHS ELG,1)="E" :"E",1:"I" )
  38    .S CHSSSN =$P($G(^AH CHVA(CHDFN ,0)),"^",9 )
  39    .S CHBEXI ST=0
  40    .S CHBFN= 0
  41    .F  S CHB FN=$O(^AHC HVA(CHDFN, 100,CHBFN) ) Q:'CHBFN   D
  42    ..Q:'$D(^ AHCHVA(CHD FN,100,CHB FN,0))
  43    ..S (CHBN AME,CHBSSN ,CHBELG)=" ",(CHCLCT, CHTPAID)=0
  44    ..S CHBNA ME=$P($G(^ AHCHVA(CHD FN,100,CHB FN,0)),"^" ,1) Q:CHBN AME=""
  45    ..S CHBSS N=$P($G(^A HCHVA(CHDF N,100,CHBF N,0)),"^", 9) 
  46    ..S CHBSS N=$$LTRIM^ CHTFLIB(CH BSSN)
  47    ..S CHBSS N=$$TRIM^C HTFLIB(CHB SSN)
  48    ..S CHBEL G=$P($G(^A HCHVA(CHDF N,100,CHBF N,0)),"^", 5)
  49    ..S CHBEL G=$S($E(CH BELG,1)="E ":"E",1:"I ")
  50    ..D GETCL DAT(CHDFN, CHBFN)
  51    ..S ^CHMZ HOLD("SN_R EPORT",DUZ ,CHSELG,CH SNAME,CHDF N,CHBNAME) =CHSSSN_U_ CHBSSN_U_C HBELG_U_CH CLCT_U_CHT PAID
  52    ..S CHBEX IST=1
  53    .I 'CHBEX IST S ^CHM ZHOLD("SN_ REPORT",DU Z,CHSELG,C HSNAME,CHD FN,"A")=CH SSSN_U_U_U _0_U_0
  54    D PRINT
  55    C FILEE,F ILEI 
  56    D KILLVAR  
  57    Q
  58    ;
  59   GETCLDAT(D ,B) ;get t otal numbe r of claim s submitte d and tota l paid amo unt
  60    S (CHCLCT ,CHTPAID)= 0
  61    Q:'$G(D)   Q:'$G(B)
  62    S (SN,BN) =0
  63    S SN=0,SN =$O(^CHMDF N("B",D,SN )) Q:'SN 
  64    Q:'$D(^CH MDFN(SN,0)
  65    S BN=0,BN =$O(^CHMDF N(SN,100," B",B,BN))  Q:'BN 
  66    Q:'$D(^CH MDFN(SN,10 0,BN,100))  
  67    S K=0
  68    F  S K=$O (^CHMDFN(S N,100,BN,1 00,K)) Q:' K  D
  69    .S CL=0,C L=$P($G(^C HMDFN(SN,1 00,BN,100, K,0)),"^", 1) 
  70    .Q:'CL
  71    .Q:'$D(^C HMPAY(CL))
  72    .Q:'$D(^C HMPAY(CL,0 ))
  73    .Q:$P($G( ^CHMPAY(CL ,0)),"^",2 )=0
  74    .Q:$P($G( ^CHMPAY(CL ,0)),"^",2 )=10
  75    .Q:'$D(^C HMPAY(CL,1 ))
  76    .Q:$P($G( ^CHMPAY(CL ,1)),"^",1 )=""
  77    .S CHCLCT =CHCLCT+1
  78    .S CHTPAI D=CHTPAID+ $P($G(^CHM PAY(CL,1)) ,"^",1)
  79    Q
  80    ;
  81   PRINT
  82    D FILE
  83    S (IOF,IO ZF)="#,*27 ,*91,*50,* 74,*27,*91 ,*72"
  84    I '$G(DT)  D NOW^%DT C S DT=X
  85    S X=DT D  DTPRT S CH DT=Y
  86    S H=$P($H ,",",2)\36 00,M=$P($H ,",",2)#36 00\60 S:H< 10 H=0_H S :M<10 M=0_ M
  87    S CHTIME= CHDT_" at  "_H_":"_M
  88    F CHSELG= "E","I" D
  89    .S @("CHS "_CHSELG_" CT")=0
  90    .S @("CHB "_CHSELG_" CT")=0
  91    .S @("CHB "_CHSELG_" PAY")=0
  92    .S CHCT=0 ,CHPG=1
  93    .S FILEIO =$S(CHSELG ="E":FILEE ,1:FILEI)
  94    .D HEAD
  95    .;S ^CHMZ HOLD("SN_R EPORT",DUZ ,SELG,SNAM E,BNAME)=S SSN_U_BSSN _U_BELG_U_ CHCLCT_U_C HTPAID
  96    .S CHSNAM E="" F  S  CHSNAME=$O (^CHMZHOLD ("SN_REPOR T",DUZ,CHS ELG,CHSNAM E)) Q:CHSN AME=""  D   
  97    ..S @("CH S"_CHSELG_ "CT")=@("C HS"_CHSELG _"CT")+1
  98    ..S CHDFN =0 F  S CH DFN=$O(^CH MZHOLD("SN _REPORT",D UZ,CHSELG, CHSNAME,CH DFN)) Q:'C HDFN  D
  99    ...S CHBN AME="",CHF G=0 
  100    ...F  S C HBNAME=$O( ^CHMZHOLD( "SN_REPORT ",DUZ,CHSE LG,CHSNAME ,CHDFN,CHB NAME)) Q:C HBNAME=""   D     ;W: CHBNAME=""  ! Q:BNAME =""  D  
  101    ....S CHC T=CHCT+1 I  $Y>56 W ! !,# D HEAD
  102    ....S (CH SSSN,CHBSS N,CHBELG)= "",(CHCLCT ,CHTPAID)= 0
  103    ....S CHS SSN=$P(^CH MZHOLD("SN _REPORT",D UZ,CHSELG, CHSNAME,CH DFN,CHBNAM E),U,1)
  104    ....S CHB SSN=$P(^CH MZHOLD("SN _REPORT",D UZ,CHSELG, CHSNAME,CH DFN,CHBNAM E),U,2)
  105    ....S CHB ELG=$P(^CH MZHOLD("SN _REPORT",D UZ,CHSELG, CHSNAME,CH DFN,CHBNAM E),U,3)
  106    ....S CHB ELG=$S(CHB ELG="E":"Y ",1:"")
  107    ....S CHC LCT=$P(^CH MZHOLD("SN _REPORT",D UZ,CHSELG, CHSNAME,CH DFN,CHBNAM E),U,4)
  108    ....S @(" CHB"_CHSEL G_"CT")=@( "CHB"_CHSE LG_"CT")+1
  109    ....S CHT PAID=$P(^C HMZHOLD("S N_REPORT", DUZ,CHSELG ,CHSNAME,C HDFN,CHBNA ME),U,5) Q :'CHTPAID
  110    ....S @(" CHB"_CHSEL G_"PAY")=@ ("CHB"_CHS ELG_"PAY") +CHTPAID
  111    ....U FIL EIO W:'CHF G !,$E(CHS NAME,1,28) ,?31,CHSSS N,?42,$S(C HSELG="E": "Y",1:"")  W:CHFG !
  112    ....U FIL EIO W ?47, $E($S(CHBN AME="A":"" ,1:CHBNAME ),1,28),?7 7,CHBSSN,? 88,CHBELG, ?93,CHCLCT ,?104,$J(C HTPAID,9,2 )
  113    ....S CHF G=1 
  114    .D FOOT
  115    Q
  116    ;
  117   FILE ;
  118    D UCI^%ZO SV 
  119    I $P(Y,", ",1)="HAC"  S FILENME ="E_SNRECO RDS.TXT",F ILENMI="I_ SNRECORDS. TXT"
  120    E  S FILE NME="E_SNR ECORDS_"_$ P(Y,",",1) _".TXT",FI LENMI="I_S NRECORDS_" _$P(Y,",", 1)_".TXT"
  121    S FILEE=" HACFS3"" DNS     COLEDEC We lcome1!"": :e:[CMS]"_ FILENME O  FILEE C FI LEE:"D"
  122    S FILEI=" HACFS3"" DNS     COLEDEC We lcome1!"": :e:[CMS]"_ FILENMI O  FILEE C FI LEE:"D"
  123    O FILEE:" NWS":5 I ' $T Q
  124    O FILEI:" NWS":5 I ' $T Q
  125    Q
  126    ; 
  127   HEAD ;
  128    U FILEIO 
  129    S CHTITLE 1="VA HEAL TH ADMINST RATION CEN TER"
  130    S CHTITLE 2="REPORT  OF STUB NA ME RECORDS "
  131    S CHTITLE 3="ELIGIBI LITY STATU S: "_$S(CH SELG="E":" ELIGIBLE", CHSELG="I" :"INELIGIB LE",1:"")
  132    W #,!,CHT IME,?55,CH TITLE1,?12 3,"page: " ,CHPG
  133    W !,DUZ,? 56,CHTITLE 2
  134    W !,?55,C HTITLE3
  135    W !!,"VET ERAN NAME" ,?31,"SSN" ,?42,"ELG" ,?47,"BENE  NAME",?77 ,"SSN",?88 ,"ELG",?93 ,"CLMS SUB M",?104,"T OTAL PAID"
  136    W !,"---- ---------- -----",?31 ,"-------- -",?42,"-- -",?47,"-- ---------- -------",? 77,"------ ---",?88," ---",?93," ---------" ,?104,"--- -------"
  137    S CHPG=CH PG+1
  138    Q
  139    ;
  140   FOOT ;
  141    U FILEIO
  142    W !,?104, "--------- "
  143    W !,?104, $J(@("CHB" _CHSELG_"P AY"),9,2)
  144    W !!,"TOT AL VETERAN S "_$S(CHS ELG="E":"E LIGIBLE",C HSELG="I": "INELIGIBL E",1:"")_" : ",$FN(@( "CHS"_CHSE LG_"CT")," ,")
  145    W !,"TOTA L BENEFICI ARIES: ",$ FN(@("CHB" _CHSELG_"C T"),",")
  146    Q
  147    ;
  148   DTPRT ;
  149    S Y="" Q: X'?7N  S Y =$E(X,1,3) +1700,%M=+ $E(X,4,5), %D=+$E(X,6 ,7)
  150    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y
  151    Q
  152   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC
  153    Q
  154    ;
  155   KILLVAR ;
  156    K X,Y,CHD FN,CHBFN,C HSNAME,CHS SSN,CHSELG ,CHBEXIST, CHBNAME,CH BSSN,CHBEL G,CHCLCT,C HTPAID
  157    K FILEE,F ILEI,D,G,S N,BN,CL,K, CHDT,CHTIM E,H,M,CHSI CT,CHSECT, CHBICT,CHB ECT,CHCT,C HPG,FILEIO
  158    K FILENME ,FILENMI,F ILEE,FILEI ,CHTITLE1, CHTITLE2,C HTITLE3,^C HMZHOLD("S N_REPORT", DUZ),CHBEP AY,CHBIPAY
  159    Q
  160    ;
  161