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

127.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKFMPC.m Mon Nov 5 16:42:09 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKFMPC.m Mon Nov 5 17:48:56 2018 UTC

127.2 Comparison summary

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

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

127.4 Active regular expressions

No regular expressions were active.

127.5 Comparison detail

  1   CHMKFMPC ; AHJ/PD;FMP  WITH CLAI MS
  2    ;V1.0;TRC  026 ; 20  Mar 2008 1 :46 PM
  3    ;SELECT F MP WITH CL AIMS
  4    ;OUTPUT F ILE INPUT  TO ZALFMP0 8 CREATES  FILE FOR P RINTING wi th
  5    ;Routine  ZALFMP13 A ND TEXT FI LE FMPFY03 .TXT FOR B URNING CD
  6    ;SELECT C OMPLETED C LAIMS BY S ERVICE DAT E
  7    ;Calc por tion of CH FMPRCC
  8    ;INPUT =  ^CHFMPCL
  9    ;OUTPUT =  ^CHMZHOLD ("FMP926", CHVET,CHVE TPRT) = ZA LFMP08
  10    ;
  11    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
  12    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
  13    ;W #,!!!, "Searching  for compl eted claim s."
  14    K ^CHMZHO LD("FMP926 ")
  15    K ^CHMZHO LD("NOFMP9 26")
  16    S ^CHMZHO LD("FMP-CO UNT-CLAIMS ")=""
  17    K ^CHMZHO LD("FMP-CL AIMS-DAYS" )
  18    
  19   DAYS ;
  20    W !!,"Ent er Number  of days of  past clai ms (365=1  YR) (Enter  ""END"" t o Quit: "
  21    D CSBRS^C HSC2
  22    ;G:$D(DFO UT) END G: $D(DUOUT)  ESSN
  23    I $D(DQOU T) D  G DA YS
  24    .W !,"    days input  must be n umeric num ber."
  25    Q:Y="END"
  26    I Y="" D   G DAYS
  27    .W !,"    The days i nput Numbe r is manda tory."
  28    .W "  You  may not p roceed wit hout it."
  29    I (Y?1N)! (Y?2N)!(Y? 3N)!(Y?4N)  S DAYSNUM =Y G OKDAY S
  30    G DAYS
  31   OKDAYS ;
  32    D NOW^%DT C S RUNTIM E=%
  33    S Y=$E(RU NTIME,1,7)
  34    S CHDATE= Y
  35    ;   USE D AYS
  36    S X1=CHDA TE S X2=-D AYSNUM D C ^%DTC S ST RDAT=X
  37    ;  STRDAT  = Start D ate
  38    ;  CHDATE  = Todays  Date
  39    S TODAY=C HDATE
  40    ;S STRDAT =3030314
  41    S ENDDAT= TODAY
  42   OKMOS ;
  43     W !!,"PL EASE SELEC T DEVICE F OR PRINTOU T OR ""FIL E"" FOR EX CEL FILE O N FS3BIG:  "  ;TLH 4/ 21/08 DEV0 04416
  44    K %IS,IO( "Q") D ^%Z IS Q:POP   S CHFILE=" "
  45    I ION="FI LE" D  ;TL H 4/21/08  DEV004416
  46    .W !!,?24 ,"COPY YOU R QUEUED F ILE TO FS3 BIG"  ;TLH  4/21/08 D EV004416
  47   A .W !!,"E nter the n ew 1-8 cha racter fil e name EXI T// "  ;TL H 4/21/08  DEV004416
  48    .D CSBRS^ CHSC2  ;TL H 4/21/08  DEV004416
  49    .Q:$D(DFO UT)  Q:$D( DTOUT)  G: $D(DQOUT)  A ;TLH 4/2 1/08 DEV00 4416
  50    .S CHFILE =Y  ;TLH 4 /21/08 DEV 004416
  51    .I Y["."  W !,"DO NO T ENTER AN  EXTENTION . EXTENTIO N WILL BE  '.XLS'" G  A
  52    .Q:Y=""   ;TLH 4/21/ 08 DEV0044 16
  53    .G:Y'?1.8 AN A  ;TLH  4/21/08 D EV004416
  54    .W !!,"Yo ur file wi ll now be  copied to  FS3BIG: "   ;TLH 4/21 /08 DEV004 416
  55    .W "\\ DNS     FS3\FS3BIG \",CHFILE, ".XLS"    ;TLH 4/21/ 08 DEV0044 16
  56    .Q  ;TLH  4/21/08 DE V004416
  57    G:$D(IO(" Q"))!(IO'= IO(0)) QUE UEIT
  58   STARTIT ;
  59    D MAIN,EN D,ENDIT
  60    Q
  61    ;S CI=227 74
  62   MAIN ;
  63    F  S CI=$ O(^CHFMPCL (CI)),CJ=0  Q:'CI  D
  64    .Q:'$D(^C HFMPCL(CI, 100))
  65    .;I CTR=4  S CHLINE= CHLINE+1 W  ?CHLINE," ." H .5 S  CTR=0
  66    .S CTR=CT R+1
  67    .F  S CJ= $O(^CHFMPC L(CI,100,C J)) Q:'CJ   D
  68    ..Q:'$D(^ CHFMPCL(CI ,100,CJ,0) )
  69    ..S CL=^C HFMPCL(CI, 100,CJ,0)
  70    ..Q:$P(CL ,U,2)=""
  71    ..Q:$P(CL ,U,6)=""
  72    ..S CHSTA TUS=$P(CL, U,2)
  73    ..S CHCLM NUM=$P(CL, U,1)
  74    ..;Check  for status  4 (comple ted) claim s
  75    ..Q:(CHST ATUS'=4)
  76    ..;*** Be low are co mpleted cl aims
  77    ..;Test c riteria of  specific  flags
  78    ..;W !,$P (^CHFMPCL( CI,0),U,2)
  79    ..S CIDAT =$P(CL,U,6 )
  80    ..S CHVET PRT=$P(^CH FMPCL(CI,0 ),U,2)
  81    ..Q:'$D(^ AHCHVA(CHV ETPRT,0))
  82    ..S CHVET =$P(^AHCHV A(CHVETPRT ,0),U,1)
  83    ..;W !,CI DAT
  84    ..I CIDAT <STRDAT S  ^CHMZHOLD( "NOFMP926" ,CHVET,CID AT,CHCLMNU M)="" Q
  85    ..I CIDAT >ENDDAT S  ^CHMZHOLD( "NOFMP926" ,CHVET,CID AT,CHCLMNU M)="" Q
  86    ..;W !,"     ",CIDAT
  87    ..S CHVET PRT=$P(^CH FMPCL(CI,0 ),U,2)
  88    ..S CHVET =$P(^AHCHV A(CHVETPRT ,0),U,1)
  89    ..;W !,CH VET," ",CH VETPRT,"    ",CI,"     ",CJ,"    ",CNT
  90    ..S FMPCT R=FMPCTR+1
  91    ..S ^CHMZ HOLD("FMP- CLAIMS-DAY S",CHVET,C HVETPRT)=" "
  92    ..Q
  93    ..;W !!!! ,"END OF B ENE"
  94    ;D TASKMA N
  95    Q
  96   END ;
  97    D ^CHMKFM PP
  98    S Y=CHDAT E D DD^%DT  S PTODAYD T=Y
  99    ;K ADDRLA B,BFN,CHDA TE,CHDFNI, CHDFNJ,CHD FNK,DFN,DF NDATA,FIO, J1,J2
  100    ;K NAMELA B,PCNT,PDI J,PG,RUNTI ME,STATE,S TRDAT,T,TF MDT,TMPS,U
  101    S CNTZ=1, ^CHMZHOLD( $J,"FMP1-F MPMESS1",C NTZ)="",CN TZ=CNTZ+1
  102    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="* ********** ********** ********** ********** *********" ,CNTZ=CNTZ +1
  103    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="   FMP NAME  AND ADDRES S LIST          ",CNT Z=CNTZ+1         
  104    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="   HAS  COMP LETED   ", CNTZ=CNTZ+ 1
  105    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="                                                                                                                ",CNTZ=CNT Z+1
  106    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="T ODAYS DATE ="_PTODAYD T,CNTZ=CNT Z+1
  107    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="F MP NAME CO UNT="_FMPC NT,CNTZ=CN TZ+1
  108    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="( OUTPUT FIL E NAMES )                                                         ",CNTZ=CNT Z+1
  109    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="F MP FILE NA ME ON FS3B IG=FMP-CLA IMS-NA08.T XT",CNTZ=C NTZ+1
  110    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="Y OU MUST IM MEDIATELY  CHANGE FIL E NAMES ON  FS3BIG    ",CNTZ=CNT Z+1
  111    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)="* ********** ********** ********** ********** *********" ,CNTZ=CNTZ +1
  112    S ^CHMZHO LD($J,"FMP 1-FMPMESS1 ",CNTZ)=""
  113    S XMTEXT= "^CHMZHOLD ($J,""FMP1 -FMPMESS1" ","
  114    S XMDUZ=. 5
  115    S XMY(DUZ )=""
  116    S XMSUB=" FMP NAME A ND ADDRESS " D ^XMD
  117    ;
  118    K ^CHMZHO LD("FMP-CO UNT-CLAIMS ")
  119    Q
  120    Q
  121   BADIT ;
  122    Q
  123   QUEUEIT  ;
  124    S ZTDTH=$ H
  125    S ZTRTN=" STARTIT^CH MKFMPC"
  126    S ZTDESC= "Print FMP  BENE name  and addre ss"
  127    S ZTSAVE( "*")=""
  128    D ^%ZTLOA D
  129    W !!?5,"R eport Queu ed!"
  130    D HOME^%Z IS Q
  131    Q
  132   ENDIT ;
  133    I ION="FI LE" D MOVE   ;TLH 4/2 1/08 DEV00 4416
  134    ;
  135    Q
  136    ;;TLH 4/2 1/08 DEV00 4416 
  137   MOVE 
  138    S ZTRTN=" COPY^CHMKF MPC",ZTDES C="COPY TE XT FILE TO  PC DISK"
  139    S ZTSAVE( "CHFILE")= "",ZTIO=""  D ^%ZTLOA D
  140    ;W !!,"Yo ur file wi ll now be  copied to  FS3BIG: "
  141    ;W "\\ DNS     FS3\FS3BIG \",CHFILE, ".TXT" Q
  142   COPY S CHC OM="HAC_HF S$:[DSMMAN AG]DHCPCOP Y.COM"
  143    S CHVAL=" /NOLOG/QUE UE=SYS$BAT CH"
  144    S CHPAR=C HFILE_".XL S"
  145    ;S X=$ZF( -1,"SUBMIT  CHCOM,CHV AL,CHPAR")
  146    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG] DHCPCOPY.C OM /NOLOG/ QUEUE=SCRA TCH$/PARAM ="_CHPAR)    ;SKD
  147    S CHPAR=" HACFS3"" DNS     COLEDEC We lcome1!"": :d:[FS3BIG ]"_$G(CHPA R)     ;SKD
  148    S X=$ZF(- 1,"COPY HA C_HFS$:[TM P]TEMP.TMP  "_CHPAR)
  149    S X=$ZF(- 1,"DELE HA C_HFS$:[TM P]TEMP.TMP ;*")
  150    Q
  151    ;;TLH 4/2 1/08 DEV00 4416
  152    ; DEVICE
  153    ;W !,"    COUNT=",CN T
  154    Q
  155    Q ;
  156    Q
  157    ;OUTPUT F ILE INPUT  TO ZALFMP0 8 CREATES  FILE FOR P RINTING wi th 
  158    ;Routine  ZALFMP13 ( sticky lab els) AND T EXT FILE F MPFY05.TXT  FOR
  159    ;BURNING  CD.
  160    ;SELECT C OMPLETED C LAIMS BY S ERVICE DAT E
  161    ;Calc por tion of CH FMPRCC
  162    ;INPUT =  ^CHFMPCL
  163    ;OUTPUT =  ^CHMZHOLD ("FMP926", CHVET,CHVE TPRT) = ZA LFMP08
  164    ;
  165    ; QA OUTP UT FILES A REAS FOLLO WS:
  166    ; CHMZHOL D("FMP-FY0 3" = Mirro r image of  file to b urn CD FMP HANDBOOK.T XT
  167    ; CHMZHOL D("NOFMP92 6" = List  of claims  past date  user selec ted.
  168    ; CHMZHOL D("FMP926"    = List  of N&A sel ected from  date sele cted.
  169    Q
  170    Q