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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 120 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.