129. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:58 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.

129.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKFPAA.m Mon Nov 5 16:41:03 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKFPAA.m Mon Nov 5 17:48:57 2018 UTC

129.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 4 462
Changed 3 6
Inserted 0 0
Removed 0 0

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

129.4 Active regular expressions

No regular expressions were active.

129.5 Comparison detail

  1   CHMKFPA ;A HJ/PD;SELE CT FMP WIT H CLAIMS A ND PRINT R EPORT
  2    ;V1.0;TRC  026 ; 20  Mar 2008 1 :46 PM
  3    ;
  4    S (CHCTY, CHCTYPTR,C HVENPTR,CH CSDATE,CL1 ,VE,DI,CT) ="",(CHVEC T,CHVTCT,C HTO,PDCL,C HTOPDVE,CH SERV,CHSV1 ,CHSV2,CHS V3,CHSV4,C HSV5,CHSV6 )=0
  5    S CTR=0,S W=0,CNT=0, FMPCTR=0,C HLINE=26,C I=0,CJ=0,C TR1=0,GI=1 ,CHSTATUS= 4,CHRFG=1
  6    ;W #,!!!, "Searching  for compl eted claim s."
  7    K ^CHMZHO LD("FMP926 ")
  8    K ^CHMZHO LD("NOFMP9 26")
  9    K ^CHMZHO LD("FMP-CL AIMS-DAYS" )
  10    S (CLMCNT ,FMPCNT,TO TCNT,ACNT, BCNT,CCNT, FMPCNT)=0
  11    S (ZIP,SW ,SW1,SW2,S W33,SW4)=0
  12    S U="^"
  13    S PPG=0
  14    S PG=0
  15    S PGCNT=0
  16    S NAME=0
  17    S DFN=0
  18   DAYS ;
  19    W !!,"Ent er Number  of days of  past clai ms (365=1  YR) (Enter  ""END"" t o Quit: "
  20    D CSBRS^C HSC2
  21    ;G:$D(DFO UT) END G: $D(DUOUT)  ESSN
  22    I $D(DQOU T) D  G DA YS
  23    .W !,"    days input  must be n umeric num ber."
  24    Q:Y="END"
  25    I Y="" D   G DAYS
  26    .W !,"    The days i nput Numbe r is manda tory."
  27    .W "  You  may not p roceed wit hout it."
  28    I (Y?1N)! (Y?2N)!(Y? 3N)!(Y?4N)  S DAYSNUM =Y G OKDAY S
  29    G DAYS
  30   OKDAYS ;
  31    D NOW^%DT C S RUNTIM E=%
  32    S Y=$E(RU NTIME,1,7)
  33    S CHDATE= Y
  34    S Y=CHDAT E D DD^%DT  S PDATE=Y  
  35    ;   USE D AYS
  36    S X1=CHDA TE S X2=-D AYSNUM D C ^%DTC S ST RDAT=X
  37    ;  CHDATE  = Todays  Date
  38    S TODAY=C HDATE
  39    S ENDDAT= TODAY
  40   OKMOS ;
  41    W !!,"PLE ASE SELECT  DEVICE FO R PRINTOUT  OR ""FILE "" FOR EXC EL FILE ON  FS3BIG: "   ;TLH 4/2 1/08 DEV00 4416
  42    K %IS,IO( "Q") D ^%Z IS Q:POP   S CHFILE=" "
  43    I ION="FI LE" D  ;TL H 4/21/08  DEV004416
  44    .W !!,?24 ,"COPY YOU R QUEUED F ILE TO FS3 BIG"  ;TLH  4/21/08 D EV004416
  45   A .W !!,"E nter the n ew 1-8 cha racter fil e name EXI T// "  ;TL H 4/21/08  DEV004416
  46    .D CSBRS^ CHSC2  ;TL H 4/21/08  DEV004416
  47    .Q:$D(DFO UT)  Q:$D( DTOUT)  G: $D(DQOUT)  A ;TLH 4/2 1/08 DEV00 4416
  48           .S  CHFILE=Y   ;TLH 4/21 /08 DEV004 416
  49           .I  Y["." W ! ,"DO NOT E NTER AN EX TENTION. E XTENTION W ILL BE '.T XT'" G A
  50           .Q :Y=""  ;TL H 4/21/08  DEV004416
  51           .G :Y'?1.8AN  A  ;TLH 4/ 21/08 DEV0 04416
  52           .W  !!,"Your  file will  now be cop ied to FS3 BIG: "  ;T LH 4/21/08  DEV004416
  53             .W "\\ DNS     FS3\FS3BIG \",CHFILE, ".TXT"    ;TLH 4/21/ 08 DEV0044 16
  54           .Q   ;TLH 4/2 1/08 DEV00 4416
  55           G: $D(IO("Q") )!(IO'=IO( 0)) QUEUEI T
  56           ;
  57    ;
  58    ;K %IS,IO ("Q") D ^% ZIS Q:POP
  59    ;G:$D(IO( "Q"))!(IO' =IO(0)) QU EUEIT
  60    ;
  61    ;
  62   MAJORIT ;
  63    D MAIN1
  64    D PRINTIT
  65    G END
  66    Q
  67   MAIN1 ;
  68    F  S CI=$ O(^CHFMPCL (CI)),CJ=0  Q:'CI  D
  69    .Q:'$D(^C HFMPCL(CI, 100))
  70    .;I CTR=4  S CHLINE= CHLINE+1 W  ?CHLINE," ." H .5 S  CTR=0
  71    .S CTR=CT R+1
  72    .F  S CJ= $O(^CHFMPC L(CI,100,C J)) Q:'CJ   D
  73    ..Q:'$D(^ CHFMPCL(CI ,100,CJ,0) )
  74    ..S CL=^C HFMPCL(CI, 100,CJ,0)
  75    ..Q:$P(CL ,U,2)=""
  76    ..Q:$P(CL ,U,6)=""
  77    ..S CHSTA TUS=$P(CL, U,2)
  78    ..S CHCLM NUM=$P(CL, U,1)
  79    ..;Check  for status  4 (comple ted) claim s
  80    ..Q:(CHST ATUS'=4)
  81    ..S CIDAT =$P(CL,U,6 )
  82    ..S CHVET PRT=$P(^CH FMPCL(CI,0 ),U,2)
  83    ..Q:'$D(^ AHCHVA(CHV ETPRT,0))
  84    ..S CHVET =$P(^AHCHV A(CHVETPRT ,0),U,1)
  85    ..;W !,CI DAT
  86    ..I CIDAT <STRDAT S  ^CHMZHOLD( "NOFMP926" ,CHVET,CID AT,CHCLMNU M)="" Q
  87    ..I CIDAT >ENDDAT S  ^CHMZHOLD( "NOFMP926" ,CHVET,CID AT,CHCLMNU M)="" Q
  88    ..;W !,"     ",CIDAT
  89    ..S CHVET PRT=$P(^CH FMPCL(CI,0 ),U,2)
  90    ..S CHVET =$P(^AHCHV A(CHVETPRT ,0),U,1)
  91    ..;W !,CH VET," ",CH VETPRT,"    ",CI,"     ",CJ,"    ",CNT
  92    ..S FMPCT R=FMPCTR+1
  93    ..S ^CHMZ HOLD("FMP- CLAIMS-DAY S",CHVET,C HVETPRT)=" "
  94    ..Q
  95    Q
  96   PRINTIT ;
  97    D HEADING
  98   L1 ;
  99    S TOTCNT= TOTCNT+1
  100   GETNM ;
  101    S NAME=$O (^CHMZHOLD ("FMP-CLAI MS-DAYS",N AME)) G:NA ME="" END
  102    S DFN=0
  103   GETDFN ;
  104    S DFN=$O( ^CHMZHOLD( "FMP-CLAIM S-DAYS",NA ME,DFN)) G :'DFN GETN M
  105    S ADFN=DF N
  106    ;NEED TO  GET BFN HE RE
  107    S ADFN=$O (^AHCHVA(A DFN,100))
  108    S ABFN=0
  109   L2 S ABFN= $O(^AHCHVA (ADFN,100, ABFN)) G:' ABFN L1
  110    ;      
  111    ;W !," DF N=",DFN,"   BFN=",BFN
  112    G L2:'$D( ^AHCHVA(AD FN,100,ABF N,0)),L2:' $D(^AHCHVA (ADFN,100, ABFN,1))
  113    ;
  114   N22 ;
  115    ;G L1
  116   NEXT1 ;
  117    S NAMELAB =^AHCHVA(D FN,0)
  118    ;******** ********** ******CHEC K FMP ADDR ESS
  119    G:'$D(^AH CHVA(DFN,1 1)) L1
  120    ;I DFN=49 1175 G L1
  121    ;I DFN=48 9887 G L1
  122    S ADDRLAB =^AHCHVA(D FN,11)
  123   N2 ;
  124    S STATE=$ P(ADDRLAB, U,4)
  125    S:STATE S TATE=$P(^D IC(5,STATE ,0),U,2)
  126    ;
  127    S (ADDR1, ADDR2,ADDR 3,ADDR4,AD DR5,ADDR6) =""
  128    S ADDR1=$ P(NAMELAB, U,1)
  129    S ADDR2=$ P(ADDRLAB, U,1)
  130    S ADDR3=$ P(ADDRLAB, U,2)
  131    S ADDR4=$ P(ADDRLAB, U,8)
  132    S ADDR5=$ P(ADDRLAB, U,3)
  133    S ADDR6=" "
  134    S ZIP1=$P (ADDRLAB,U ,5)
  135    S ZIP=ZIP 1
  136    I $L(ZIP1 )>5 S ZIP2 =$E(ZIP1,1 ,5) S ZIP3 =$E(ZIP1,6 ,9) S ZIP= ZIP2_"-"_Z IP3
  137    ;W !,ADDR 1
  138   N3 ;
  139    I STATE=" " D
  140    .S COUNTR Y=$P(ADDRL AB,U,6)
  141    .S:COUNTR Y COUNTRY= $P(^DIC(5, COUNTRY,0) ,U,1)
  142    .S ADDR6= COUNTRY
  143    I $P(ADDR LAB,U,3)=" " G ADD2
  144    S:$P(ADDR LAB,U,3)'= "APO" ADDR 5=$P(ADDRL AB,U,3)_", "_STATE_"  "_ZIP
  145    S:$P(ADDR LAB,U,3)=" APO" ADDR5 =$P(ADDRLA B,U,3)_" " _STATE_" " _ZIP
  146    S:$P(ADDR LAB,U,3)=" FPO" ADDR5 =$P(ADDRLA B,U,3)_" " _STATE_" " _ZIP
  147    ;
  148   ADD2 ;
  149    S T=$C(9)
  150    I STATE'= "" D
  151    .S TMPS=A DDR1_T_ADD R2_T_ADDR3 _T_ADDR4_T _ADDR5
  152    ;
  153    I STATE=" AE" S STAT E=""
  154           I  STATE="AA"  S STATE=" "
  155    S FMPCNT= FMPCNT+1
  156    ;
  157    I PGCNT>5 6 D HEADIN G
  158    W !,ADDR1 ,?30,ADDR2  S PGCNT=  PGCNT+1 ;P RINTER
  159   W1 ;
  160    I ADDR3=" " G W2
  161     W !,?30, ADDR3 S PG CNT=PGCNT+ 1
  162   W2 ;
  163    I ADDR4'= "" W !,?30 ,ADDR4," " ,ADDR5," " ,ADDR6 S P GCNT=PGCNT +1
  164    I ADDR4=" " I ADDR5' ="" W !,?3 0,ADDR5,"  ",ADDR6 S  PGCNT=PGCN T+1
  165    I ADDR4=" " I ADDR5= ""  W !,?3 0,ADDR6 S  PGCNT=PGCN T+1
  166    G L1
  167    Q
  168   ADD1 I $E( ADDR3,1,1) '="" S ADD R2=ADDR3
  169    G ADD2
  170   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  171    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  172   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  173    I IOZFO=Y  W:$D(IOZF ) # S (DFO UT,Y)="" Q
  174    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  175    Q
  176   HEADING ;M AIN HEADIN G
  177    S PPG=PPG +1
  178    D PRT
  179    S TITLE=" HEALTH ADM INISTRATIO N CENTER"
  180    S TAB=80- $L(TITLE)/ 2
  181    ;W #,DUZ, ?TAB,TITLE ,?68,"Page :  ",PPG
  182    W @IOF,DU Z,?TAB,TIT LE,?68,"Pa ge:  ",PPG
  183    S TITLE=" FMP VETERA NS BY NAME  AND ADDRE SS"
  184    W !,PDATE _":"_TIME, ?(80-$L(TI TLE)/2),TI TLE
  185    W !!,"VET ERAN NAME" ,?30,"VETE RAN ADDRES S" ;PRINTE R
  186    W !,"____ __________ _________"
  187    W ?30,"__ __________ __________ __________ __________ _______"
  188    W !
  189    S PGCNT=8
  190    Q
  191    Q
  192    Q
  193   PRT      ;
  194    S X=DT D  DTPRT S DA TE=Y,PG=1, X=$P($H,", ",2),H=X\3 600,M=X#36 00\60
  195    S:M<10 M= 0_M S:H<10  H=0_H S T IME=H_M
  196    S U="^",C NT=0,SCT=0 ,BCT=0
  197   DTPRT    S  Y="" Q:X' ?7N  S Y=$ E(X,1,3)+1 700,%M=+$E (X,4,5),%D =+$E(X,6,7 )
  198    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y
  199    Q
  200   QUEUEIT  ;
  201    S ZTDTH=$ H
  202    S ZTRTN=" MAJORIT^CH MKFPAA"
  203    S ZTDESC= "Print FMP  BENE name  and addre ss"
  204    S ZTSAVE( "*")=""
  205    D ^%ZTLOA D
  206    W !!?5,"R eport Queu ed!"
  207    D HOME^%Z IS Q
  208    Q
  209   END ;
  210           I  ION="FILE"  D MOVE  ; TLH 4/21/0 8 DEV00441 6
  211           ;
  212           Q
  213           ;; TLH 4/21/0 8 DEV00441
  214   MOVE 
  215           S  ZTRTN="COP Y^CHMKFPAA ",ZTDESC=" COPY TEXT  FILE TO PC  DISK"
  216           S  ZTSAVE("CH FILE")="", ZTIO="" D  ^%ZTLOAD
  217           ;W  !!,"Your  file will  now be cop ied to FS3 BIG: "
  218             ;W "\\ DNS     FS3\FS3BIG \",CHFILE, ".TXT" Q
  219   COPY S CHC OM="HAC_HF S$:[DSMMAN AG]DHCPCOP Y.COM"
  220           S  CHVAL="/NO LOG/QUEUE= SYS$BATCH"
  221           S  CHPAR=CHFI LE_".TXT"
  222           ;S  X=$ZF(-1, "SUBMIT CH COM,CHVAL, CHPAR")
  223           ;S  X=$ZF(-1, "SUBMIT HA C_HFS$:[DS MMANAG]DHC PCOPY.COM  /NOLOG/QUE UE=SCRATCH $/PARAM="_ CHPAR)   ; SKD
  224             S CHPAR="H ACFS3"" DNS     COLEDEC We lcome1!"": :d:[FS3BIG ]"_$G(CHPA R)     ;SKD
  225           S  X=$ZF(-1," COPY HAC_H FS$:[TMP]T EMP.TMP "_ CHPAR)
  226           S  X=$ZF(-1," DELE HAC_H FS$:[TMP]T EMP.TMP;*" )
  227           Q
  228           ;; TLH 4/21/0 8 DEV00441 6
  229           ;  DEVICE
  230           ;W  !,"   COU NT=",CNT
  231           Q
  232           Q  ;
  233           Q
  234