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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 170 |
Changed | 3 | 6 |
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 | 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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.