204. EPMO Open Source Coordination Office Redaction File Detail Report

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

204.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMNVS03.m Mon Nov 5 16:44:40 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMNVS03.m Mon Nov 5 17:50:58 2018 UTC

204.2 Comparison summary

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

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

204.4 Active regular expressions

No regular expressions were active.

204.5 Comparison detail

  1   CHMNVS03 ; HAC/JFQ -  SEND NVA A UTH TO FTH  NETWORK A UTH OFFICE
  2    ;;1.0;NVA ;5/6/98
  3   MAIL ; - S end report  to NAO an d local us er, called  by form
  4    N L,T
  5    S L=1,TX= "NVA-AUTH- MAIL",SUBF ILE=741000 0001.01
  6    I $D(^TMP ("NVA-FORM -LOAD",$J, "DOSI")) S  CHMDOS=^( "DOSI") D
  7    .S CHMDAA B=$O(^CHMN VAUT(74100 00001,CHMD AA,1,"B",^ TMP("NVA-F ORM-LOAD", $J,"DOSI") ,0)) S:CHM DAAB="" CH MDAAB=-1
  8    .D DD^CHM NVS02(SUBF ILE) ; Set  Up Field  X-Ref
  9    .S CHMN0= $G(^CHMNVA UT(7410000 001,CHMDAA ,1,CHMDAAB ,0)) F I=1 :1:$L(CHMN 0,U) D
  10    ..S ^TMP( "NVA CHMN0 ",$J,I)=$$ EXTERNAL^C HMNVS02(SU BFILE,$P(C HMN0,U,I), 0,I)
  11    .; - Word  Processin g Field on  node 1
  12    .I $D(^CH MNVAUT(741 0000001,CH MDAA,1,CHM DAAB,1)) D
  13    ..S CHMDA AC=0 F  S  CHMDAAC=$O (^CHMNVAUT (741000000 1,CHMDAA,1 ,CHMDAAB,1 ,CHMDAAC))  Q:'+CHMDA AC  D
  14    ...S ^TMP ("NVA CHMN 1",$J,CHMD AAC)=$G(^C HMNVAUT(74 10000001,C HMDAA,1,CH MDAAB,1,CH MDAAC,0))
  15    .S CHMN2= $G(^CHMNVA UT(7410000 001,CHMDAA ,1,CHMDAAB ,2)) F I=1 :1:$L(CHMN 2,U) D
  16    ..S ^TMP( "NVA CHMN2 ",$J,I)=$$ EXTERNAL^C HMNVS02(SU BFILE,$P(C HMN2,U,I), 2,I)
  17    .S CHMN3= $G(^CHMNVA UT(7410000 001,CHMDAA ,1,CHMDAAB ,3)) F I=1 :1:$L(CHMN 3,U) D
  18    ..S ^TMP( "NVA CHMN3 ",$J,I)=$$ EXTERNAL^C HMNVS02(SU BFILE,$P(C HMN3,U,I), 3,I)
  19    .; - Word  Processin g Field on  node 4
  20    .I $D(^CH MNVAUT(741 0000001,CH MDAA,1,CHM DAAB,4)) D
  21    ..S CHMDA AC=0 F  S  CHMDAAC=$O (^CHMNVAUT (741000000 1,CHMDAA,1 ,CHMDAAB,4 ,CHMDAAC))  Q:'+CHMDA AC  D
  22    ...S ^TMP ("NVA CHMN 4",$J,CHMD AAC)=$G(^C HMNVAUT(74 10000001,C HMDAA,1,CH MDAAB,4,CH MDAAC,0))
  23    .S CHMN5= $G(^CHMNVA UT(7410000 001,CHMDAA ,1,CHMDAAB ,5)) F I=1 :1:$L(CHMN 5,U) D
  24    ..S ^TMP( "NVA CHMN5 ",$J,I)=$$ EXTERNAL^C HMNVS02(SU BFILE,$P(C HMN5,U,I), 5,I)
  25    .S CHMN6= $G(^CHMNVA UT(7410000 001,CHMDAA ,1,CHMDAAB ,6)) F I=1 :1:$L(CHMN 6,U) D
  26    ..S ^TMP( "NVA CHMN6 ",$J,I)=$$ EXTERNAL^C HMNVS02(SU BFILE,$P(C HMN6,U,I), 6,I)
  27    S %=$P($G (^XTV(8989 .3,1,0)),U ,1) I %'=" " D
  28    .S %1=$G( ^DIC(4.2,% ,0)) S:'$D (%1) %1=""
  29    .S CHMNSI TE=$P($P(% 1,U),".VA" )
  30    .S CHMNSN UM=$P(%1,U ,13)
  31    K ^TMP(TX ,$J),%,%1
  32    S G="^TMP (""NVA-FOR M-LOAD""," _$J_")"
  33    S ^TMP(TX ,$J,L)="Pu rpose Of V isit: "_$S ($D(@G@("P OV")):^("P OV"),1:$G( ^TMP("NVA  CHMN0",$J, 5))),L=L+1
  34    S ^TMP(TX ,$J,L)=CHM NSITE_" re quests car e for the  following  veteran:", L=L+1
  35    S ^TMP(TX ,$J,L)=" " ,L=L+1
  36    S ^TMP(TX ,$J,L)="Ve t Name: "_ CHMNVET,L= L+1
  37    S ^TMP(TX ,$J,L)="SS N:      "_ CHMNSSN,L= L+1
  38    S ^TMP(TX ,$J,L)="DO B:      "_ CHMNDOB,L= L+1
  39    S ^TMP(TX ,$J,L)="Ad d1:     "_ CHMNADD1,L =L+1
  40    S ^TMP(TX ,$J,L)="Ad d2:     "_ CHMNADD2,L =L+1
  41    S ^TMP(TX ,$J,L)="Ci ty:     "_ CHMNCITY,L =L+1
  42    S ^TMP(TX ,$J,L)="St ate:    "_ CHMNSTF,L= L+1
  43    S ^TMP(TX ,$J,L)="Zi p:      "_ $S(($L(CHM NZIP)=9&(C HMNZIP'["- ")):$E(CHM NZIP,1,5)_ "-"_$E(CHM NZIP,6,9), 1:CHMNZIP) ,L=L+1
  44    S ^TMP(TX ,$J,L)=" " ,L=L+1
  45    D ELIG^CH MNVS05 ; - Get Eligib ility data  from DPT  and load i nto mail m essage.
  46    D MAILC^C HMNVS04
  47    S ^TMP(TX ,$J,L)="VA MC~DFN: "_ CHMNSNUM_" ~"_CHMNDFN ,L=L+1
  48    D NOW^%DT C S CHMNNO W1=%
  49    S XMSUB=" NAO AUTH:  "_CHMNSITE _" / "_CHM NNOW
  50    S XMDUZ=D UZ
  51    S XMTEXT= "^TMP("""_ TX_""","_$ J_","
  52    S XMY(DUZ )=""
  53    S XMY(" PII                     ")=""
  54    S XMCHAN= 1
  55    D ^XMD K  XMCHAN
  56   FILE ; - S ave who se nt message  to NAO fo r filing o nce Screen Man files  entry
  57    Q:CHMDOS= ""
  58    S ^TMP("N VA-FORM-SE NT",$J,CHM NDFN,CHMDO S)=DUZ_U_C HMNNOW1_U_ XMZ
  59    K CHMN,^T MP(TX,$J), @G F I=0:1 :6 K ^TMP( "NVA CHMN" _I,$J),CHM DAAB
  60    K CHMDOS, XMY,XMZ,CH MNSITE,CHM NSNUM
  61    Q