Produced by Araxis Merge on 11/9/2018 12:33:47 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 | CHGPIAN.m | Mon Nov 5 16:43:41 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHGPIAN.m | Mon Nov 5 17:40:17 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 134 |
Changed | 2 | 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 | CHGPIAN ; CVA/DPT SM SA ;;1.0; CHAMPVA SY STEM;;OCT 28,2014; | |
2 | ; LIST a lphanumeri c GPIs and associate d NDCs | |
3 | ;VARIBLES | |
4 | ;G PI - GENER IC PRODUCT IDENTIFIE R | |
5 | ;NDC- PHA RMACY CODE | |
6 | ZSET ; | |
7 | S:'$D(DUZ ) DUZ=1,DU Z(0)="" I '$D(DT) S %DT="",X=" T" D ^%DT S DT=Y | |
8 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
9 | I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS | |
10 | SGPI | |
11 | S IEN=1,G PI="",CTR= 0,G2="" | |
12 | SGPI2 S IE N=$O(^CHMP DX(IEN)) G :'IEN EGPI X | |
13 | I '$D(^CH MPDX(IEN,0 )) G EGPIX | |
14 | G:IEN=741 004.01 EGP IX | |
15 | G:'$D(^CH MPDX(IEN,1 1)) SGPI2 | |
16 | I $D(^CHM PDX(IEN,11 )) S GPI=$ P(^CHMPDX( IEN,11),"^ ",1) S G2= $P(^CHMPDX (IEN,11)," ^",2) | |
17 | S NDC=$P( ^CHMPDX(IE N,1),"^",1 ) | |
18 | I GPI'?.N D | |
19 | .S ^CHMZ HOLD("AN-G PI",GPI,ND C)="" | |
20 | .S CTR=C TR+1 ;W !, GPI," ",G 2 | |
21 | G SGPI2 | |
22 | EGPIX | |
23 | K IEN,GPI | |
24 | D NOW^%DT C S DT=X,T ODAY=$$FMT E^XLFDT(DT ,"7DZ"),TO DAY=$TR(TO DAY,"/","" ) | |
25 | S DTE=$$F MTE^XLFDT( %,5) | |
26 | S TIME=$P ($$NOW^XLF DT,".",2) | |
27 | S FILENM= "ALPHANGPI _"_TODAY_" _"_TIME_". txt" | |
28 | S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" | |
29 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
30 | I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" | |
31 | S FILE=FO LDER_FILEN M | |
32 | I '$$OPEN FIWR^CHTFL IB9(.FILE, "FILE") Q | |
33 | PRGPI | |
34 | S (PG,CNT ,GPICNT)=0 | |
35 | I '$D(^CH MZHOLD("AN -GPI")) U 0 W !,"NO ALPHANUMER IC GPIS FO UND" G END GPI | |
36 | D HEADGPI | |
37 | PRGPI1 | |
38 | S CHGPI=0 | |
39 | PGPI1 S CH GPI=$O(^CH MZHOLD("AN -GPI",CHGP I)) G:'CH GPI ENDGPI | |
40 | S GPICNT= GPICNT+1 | |
41 | S CHNDC=0 | |
42 | PGPI2 S CH NDC=$O(^CH MZHOLD("AN -GPI",CHGP I,CHNDC)) G:'CHNDC P GPI1 | |
43 | I $Y>40 D | |
44 | .U FILE W @IOF | |
45 | .D HEADGP I | |
46 | .Q | |
47 | U FILE W !,?5,CHGPI ,?30,CHNDC | |
48 | G PGPI2 | |
49 | HEADGPI | |
50 | U FILE W !,"LIST OF GPIS THAT ARE ALPHA NUMERIC AN D ASSOCIAT ED NDCS" | |
51 | U FILE W !,$P(DTE," @",1) S DT M=$P(DTE," @",2) W !, $E(DTM,1,5 ) U FILE W !,DUZ | |
52 | U FILE W !,?5,"GPI" ,?30,"NDC" | |
53 | Q | |
54 | ENDGPI | |
55 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) | |
56 | D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ","/FS3BIG ","PUT") | |
57 | D NOTIFYG PI | |
58 | U 0 W !," TOTAL GPIS IN REPORT CONTAININ G ALPHA CO DE = ",GPI CNT | |
59 | U 0 W !," TOTAL ENTR IES IN REP ORT = ",CT R | |
60 | K ^CHMZHO LD("AN-GPI "),PG,CNT, CTR,CHGPI, CHNDC | |
61 | Q | |
62 | NOTIFYGPI | |
63 | S XMY(" PII ")="" | |
64 | ;S XMY("P II ")="" | |
65 | S XMDUZ=D UZ,XMSUB=" ALPHNUMERI C GPI repo rt on "_$$ FMTE^XLFDT (DT,"5D") | |
66 | S TEXT(1) ="LIST OF ALPHANUMER IC GPIS." | |
67 | S TEXT(2) ="and is l ocated on [FS3BIG\]. "_FILE | |
68 | D ^XMD | |
69 | K XMY,XMD UZ,TEXT,XM TEXT,XMSUB | |
70 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.