93. EPMO Open Source Coordination Office Redaction File Detail Report

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

93.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMEAG10.m Mon Nov 5 16:38:51 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMEAG10.m Mon Nov 5 17:43:42 2018 UTC

93.2 Comparison summary

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

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

93.4 Active regular expressions

No regular expressions were active.

93.5 Comparison detail

  1   CHMEAG10 ; HAC/JEH MA NUAL OVERR IDE RES/RE T STATUS R EPORT ;5/2 9/2015  09 :10 AM
  2    ;;1.0;CHA MPVA SYSTE M;;JUNE 11 , 2013;Bui ld 1
  3    ;ENC22734  - ENHANCE MENT OF CA CHE SYSTEM S TO SUPPO RT RETIRED  RESERVIST S FUNCTION ALITY
  4   START ;
  5    S DFN=0,O K=1,CHVP=" "
  6    I '$D(DT)  D NOW^%DT C S DT=X
  7    S DIR(0)= "DO" S DIR ("A")="Ent er Start D ate for Ma nual RES/R ET Status  Override R eport (mmd dyyyy)" D  ^DIR S CHB DT=Y W !
  8    I CHBDT=" ^" S QFLG= 1 Q
  9    I CHBDT=" " S CHBDT= 0
  10    S DIR(0)= "DO" S DIR ("A")="Ent er End Dat e for Manu al RES/RET  Status Ov erride Rep ort (mmddy yyy)" D ^D IR S CHEDT =Y
  11    I CHEDT=" ^" S QFLG= 1 Q
  12    I CHEDT=" " S CHEDT= 99999999
  13    I CHBDT'= ""&(CHEDT' ="") I CHE DT<CHBDT W  !!," The  end date m ust not be  prior to  the begin  date. Plea se reenter .",! G STA RT
  14    W !!,"V -  View repo rt on scre en",!,"P -  Printed r eport",!," S - Send R eport to \ \ DNS     fs3\SSD\VA DIR_Report s"
  15    W !!,"SEL ECT: V// "
  16    D CSBRS^C HSC2
  17    I $D(DUOU T)!($D(DFO UT))  S Y= "" G START
  18    I $D(DQOU T) D  S Y= "" D HOME^ %ZIS G STA RT
  19    .W ! S CH VP="*** Pl ease enter  (V)iew re port on sc reen or (P )rint repo rt or (S)e nd report* **"
  20    S:Y="" Y= "V"
  21    I ("pPvVs S"'[Y) G S TART
  22    I (Y=-1)! (X="^") S  Y="" G STA RT
  23    S:("pP"[Y ) CHVP="P"
  24    S:("vV"[Y ) CHVP="V"
  25    S:("sS"[Y ) CHVP="S"
  26    I CHVP="P " D QUEA^C HMEAG10
  27    I CHVP="V " D START^ CHMEAG11
  28    I CHVP="S " D 
  29    .S DIR(0) ="F^3:50"
  30    .S DIR("A ")="Enter  file name"  D ^DIR K  DIR
  31    .Q:$D(DUO UT)
  32    .Q:Y="^"! (Y="")
  33    .S FNAME= Y K DIR
  34    .D QUEB^C HMEAG10
  35    D END
  36    Q
  37    ;
  38   END K CHED T,ANS,CHED T,CHVP
  39    Q
  40    ;
  41   QUEA ;PRIN T FILE
  42    S %ZIS="Q " D ^%ZIS  G END:POP
  43    S ZTRTN=" START^CHME AG11",ZTDE SC="RES/RE T STATUS R EPORT - PR INT"
  44    S ZTSAVE( "CHBDT")=" ",ZTSAVE(" CHEDT")="" ,ZTSAVE("C HVP")=""
  45    D ^%ZTLOA D D HOME^% ZIS K IO(" Q")
  46    ;D START^ CHMEAG11
  47    Q
  48   QUEB ;SEND  REPORT TO  FS3BIG/SS D
  49    W !!,"GAT HERING DAT A...PLEASE  WAIT FOR  MESSAGE LE TTING YOU  KNOW THE F ILE IS REA DY FOR VIE WING...",! !
  50    S ZTRTN=" FILE^CHMEA G10",ZTDES C="RES/RET  STAT RPT  - FILE"
  51    S ZTSAVE( "CHBDT")=" ",ZTSAVE(" CHEDT")="" ,ZTSAVE("C HVP")="",Z TSAVE("FNA ME")=""
  52    S ZTIO=""
  53    D ^%ZTLOA D D HOME^% ZIS K IO(" Q")
  54    ;D FILE^C HMEAG10
  55    W !,"A ME SSAGE WILL  BE SENT W HEN "_FNAM E_" IS REA DY FOR VIE WING"
  56    Q
  57   FILE ;SEND  REPORT TO  FS3BIG\SS D\VADIR_Re ports
  58    D NOW^%DT C
  59    S MMYY=$E (X,4,5)_$E (X,2,3),YY =$E(X,1,3)
  60    S U="^",C NT=0
  61    S FILENM= FNAME_"_"_ MMYY_".TXT "
  62    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  63    S FILE="D HCP$CHAMPV A:"_FILENM
  64    S FLDR="/ FS3BIG/SSD /VADIR_Rep orts"
  65    S POP=0,C NTR=0
  66    S POP=$$O PENFIWR^CH TFLIB9(.FI LE,"FILE")
  67    Q:'POP
  68    D START^C HMEAG11
  69    D CLOSEF^ CHTFLIB9(F ILE,"FILE" )
  70    D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ",FLDR,"PU T")
  71    H 5
  72    Q
  73   MMSG ;GENE RATE GENER ATE MESSAG E LETTING  USER KNOW  REPORT IS  READY ON F S3BIG/SSD/ VADIR_Repo rts
  74    S CNT=1,^ TMP($J,"CH MLRR2",CNT )="",CNT=C NT+1
  75    S ^TMP($J ,"CHMLRR2" ,CNT)="RET IRED RESER VIST STATU S REPORT -  file.",CN T=CNT+1
  76    S ^TMP($J ,"CHMLRR2" ,CNT)="",C NT=CNT+1
  77    S ^TMP($J ,"CHMLRR2" ,CNT)="THI S REPORT I S READY FO R VIEWING. ",CNT=CNT+ 1
  78    S ^TMP($J ,"CHMLRR2" ,CNT)="",C NT=CNT+1
  79    S ^TMP($J ,"CHMLRR2" ,CNT)="PLE ASE REVIEW  FILE:",CN T=CNT+1
  80    S ^TMP($J ,"CHMLRR2" ,CNT)="",C NT=CNT+1
  81    S ^TMP($J ,"CHMLRR2" ,CNT)="    /FS3BIG/SS D/VADIR_Re ports/"_FI LENM,CNT=C NT+1
  82    S ^TMP($J ,"CHMLRR2" ,CNT)="",C NT=CNT+1
  83    S XMTEXT= "^TMP("_$J _",""CHMLR R2"","
  84    S XMDUZ=. 5
  85    S XMY(DUZ )=""
  86    S XMY(" PII                  ")=""    ;PST MAILB OX GROUP
  87    S XMSUB=" VADIR RR S TAT FILE -  FS3BIG" D  ^XMD
  88    Q