Produced by Araxis Merge on 11/9/2018 12:33:53 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 | CHMCPDR1.m | Mon Nov 5 16:45:09 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMCPDR1.m | Mon Nov 5 17:42:34 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 6 | 250 |
Changed | 5 | 14 |
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 | CHMCPDR1 ;HAC /RKN;CMOP LKUP DRUG W/BENE REP ORT;01/31/ 05 | |
2 | ;; V1.0;;RKN | |
3 | ;; CALLED BY BUSINESS O FFICE USER FROM MENU OPTION | |
4 | ;; CALLS NONE | |
5 | ; | |
6 | K ^CHMZHOLD( "CMOP_DRUG LK"),DFN,D CNT,DRUG,D RUGNUM,DLD F,BZIP,BST ATE,BCITY, BSTREET1,B SSN,BLNAME ,BFNAME,PN AME,IVAL,D FN,JVAL,FR DATE,STDAT E,BPHONE,T B,IO,FIO,X DATE,DIC | |
7 | ; | |
8 | SVARS S DFN=0,DCNT =0,DRUG="" ,DRUGNUM=" ",DLDF="", BZIP="",BS TATE="",BC ITY="",BST REET1="",B SSN="",BLN AME="",BFN AME="",PNA ME="",IVAL =0,DFN=0,J VAL=0,FRDA TE="",BPHO NE="",ECHF ILE1=0,ECH FILE2=0 | |
9 | ; | |
10 | S TB=$C(9) ;TAB DE LIMITER | |
11 | ; | |
12 | GCURDT D NOW^%DTC | |
13 | S CMMDD=$E(% ,4,7),CHHM MSS=$E(%,9 ,14) | |
14 | I $L(CHHMMSS )<6 S CHHM MSS=CHHMMS S_"111111" ,CHHMMSS=$ E(CHHMMSS, 1,6) | |
15 | S X1=X,X2=-1 20 | |
16 | D C^%DTC | |
17 | ; | |
18 | ;F ILL/REFILL DATE WITH IN THREE M ONTHS TO B E CURRENT RX | |
19 | S FRDATE=X,S TDATE=X | |
20 | ; | |
21 | IDRUG ;L OOKUP DRUG GEN NAME/ NDC, ^PSDR UG..DRUG F ILE #50 | |
22 | W @IOF | |
23 | S DIC=50 ,DIC(0)="A EQMN" D ^D IC | |
24 | I Y=-1 G END ALL | |
25 | I (X="^")!(X ="^^") G E NDALL | |
26 | I (X=" ") G ENDALL | |
27 | S DRUGNUM=$P (Y,"^",1), DRUG=$P(^P SDRUG(DRUG NUM,0),"^" ,1) | |
28 | W !!,"Is thi s the drug you want? Y/N " R X X | |
29 | ; | |
30 | I (XX="Y")!( XX="y") G CURRX | |
31 | I (XX="N")!( XX="n") G IDRUG | |
32 | ; | |
33 | CURRX W @IOF | |
34 | ;Fs3big on ' DNS fs3'\MBMCM OP\CACHE | |
35 | W !!,"Creati ng CMOPTRA CK*.TXT & CMOPMAIL*. TXT text r eport file s" | |
36 | W !,"on se rver Fs3bi g on ' DNS fs3'\MBMCM OP\CACHE\C MOPTRACK*. TXT & CMOP MAIL*.TXT" | |
37 | W !!,"for dr ug: "_DRUG _", please wait!!" | |
38 | CURRX2 ;F IND FILL/R EFILL DATE FOR LAST 3 MONTHS & DFN, ^PSR X..RX FILE # 52 | |
39 | S FRDATE=$O( ^PSRX("AD" ,FRDATE)) G:FRDATE=" " END1 | |
40 | S IVAL=0 | |
41 | GIVAL S IVAL=$O(^P SRX("AD",F RDATE,IVAL )) G:IVAL= "" CURRX2 | |
42 | GDFN S DFN=$P(^PS RX(IVAL,0) ,"^",2) | |
43 | ; | |
44 | ;G ET BENE IN FO, ^DPT.. PATIENT FI LE #52 | |
45 | SVALS S BFNAME=$P( $P(^DPT(DF N,0),"^",1 ),",",2),B LNAME=$P($ P(^DPT(DFN ,0),"^",1) ,",",1),BS SN=$P(^DPT (DFN,0),"^ ",9) | |
46 | S BSTREET1=$ P(^DPT(DFN ,.11),"^", 1),BSTREET 2=$P(^DPT( DFN,.11)," ^",2),BSTR EET3=$P(^D PT(DFN,.11 ),"^",3),B CITY=$P(^D PT(DFN,.11 ),"^",4),B STATE=$P(^ DPT(DFN,.1 1),"^",5), BSTATE=$P( ^DIC(5,BST ATE,0),"^" ,2),BZIP=$ P(^DPT(DFN ,.11),"^", 6) | |
47 | ; | |
48 | ADDCK1 I $P(^DPT(DF N,.11),"^" ,16)>"" S BSTREET1=" BAD",BSTRE ET2="BAD", BSTREET3=" BAD",BCITY ="BAD",BST ATE="BD",B ZIP="BAD" | |
49 | ; | |
50 | I $D(^DPT(DF N,.13)) S BPHONE=$P( ^DPT(DFN,. 13),"^",1) | |
51 | S NDC=$P(^PS RX(IVAL,2) ,"^",07),P ENAME=$P(^ PSRX(IVAL, 0),"^",16) | |
52 | ; | |
53 | ;G ET DRUG # (NDC), ^PS RX..RX FII LE #52 | |
54 | I $D(^PSRX(" AD",FRDATE ,IVAL)) D | |
55 | .I $P(^PSRX( IVAL,0),"^ ",6)=DRUGN UM D | |
56 | DUPECK .. S XDATE=0, XDATE=$O(^ CHMZHOLD(" CMOP_DRUGL K",DFN,XDA TE)) | |
57 | .. I $D(XDATE ) I XDATE> "1" I XDAT E<FRDATE K ^CHMZHOLD ("CMOP_DRU GLK",DFN,X DATE),XDAT E | |
58 | .. I $D(XDATE ) I XDATE> FRDATE K X DATE Q | |
59 | .. S DCNT=DCN T+1 | |
60 | .. S ^CHMZHOL D("CMOP_DR UGLK",DFN, FRDATE)=BF NAME_"^"_B LNAME_"^"_ BSSN_"^"_B STREET1_"^ "_BSTREET2 _"^"_BSTRE ET3_"^"_BC ITY_"^"_BS TATE_"^"_B ZIP_"^"_BP HONE_"^"_F RDATE_"^"_ DRUG_"^"_D RUGNUM_"^" _NDC_"^"_P ENAME_"^"_ DCNT | |
61 | .. Q | |
62 | .Q | |
63 | ; | |
64 | ;/ ////////// ////////// ////////// ////////// ////////// ////// | |
65 | ;I DCNT>5 G END1 ; REMARK OUT OR DELETE FOR PRODU CTION | |
66 | ;/ ////////// ////////// ////////// ////////// ////////// ////// | |
67 | ; | |
68 | G GIVAL | |
69 | ; | |
70 | END1 D NOW^%DTC | |
71 | ; | |
72 | TRACK S CHFILE1="C MOPTRACK"_ CMMDD_CHHM MSS_".TXT" | |
73 | ;S IO="HAC FS3"" DNS coledec We lcome1!"": :d:[FS3BIG .MBMCMOP.L IVE]"_CHFI LE1 | |
74 | S IO="HACF S3"" DNS coledec We lcome1!"": :d:[FS3BIG .MBMCMOP.C ACHE]"_CHF ILE1 | |
75 | C IO | |
76 | O IO ;;:(N EW:PROTECT ION=(W:RWE D)) | |
77 | U IO | |
78 | ; | |
79 | S DFN=0 | |
80 | GTRACK S ECHFILE1=0 ,DFN=$O(^C HMZHOLD("C MOP_DRUGLK ",DFN)) I DFN="" D C IO G MA IL | |
81 | .I DCNT=0 W "NO RECORD S FOUND" S ECHFILE1= 1 | |
82 | .Q | |
83 | ; | |
84 | S FRDATE="" | |
85 | GFRDTE1 S FRDATE=$O( ^CHMZHOLD( "CMOP_DRUG LK",DFN,FR DATE)) G:F RDATE="" G TRACK | |
86 | S BFNAME=$P( ^CHMZHOLD( "CMOP_DRUG LK",DFN,FR DATE),"^", 1),BLNAME= $P(^CHMZHO LD("CMOP_D RUGLK",DFN ,FRDATE)," ^",2),BSSN =$P(^CHMZH OLD("CMOP_ DRUGLK",DF N,FRDATE), "^",3) | |
87 | S BSTREET1=$ P(^CHMZHOL D("CMOP_DR UGLK",DFN, FRDATE),"^ ",4),BSTRE ET2=$P(^CH MZHOLD("CM OP_DRUGLK" ,DFN,FRDAT E),"^",5), BSTREET3=$ P(^CHMZHOL D("CMOP_DR UGLK",DFN, FRDATE),"^ ",6),BCITY =$P(^CHMZH OLD("CMOP_ DRUGLK",DF N,FRDATE), "^",7) | |
88 | S BSTATE=$P( ^CHMZHOLD( "CMOP_DRUG LK",DFN,FR DATE),"^", 8),BZIP=$P (^CHMZHOLD ("CMOP_DRU GLK",DFN,F RDATE),"^" ,9),BPHONE =$P(^CHMZH OLD("CMOP_ DRUGLK",DF N,FRDATE), "^",10),FR DATE=$P(^C HMZHOLD("C MOP_DRUGLK ",DFN,FRDA TE),"^",11 ) | |
89 | ; | |
90 | W BFNAME_TB_ BLNAME_TB_ BSSN_TB_BP HONE_TB_BS TREET1_TB_ BSTREET2_T B_BSTREET3 _TB_BCITY_ TB_BSTATE_ TB_BZIP_TB _FRDATE,! | |
91 | ; | |
92 | G GFRDTE1 | |
93 | ; | |
94 | MAIL D NOW^%DTC | |
95 | S CHFILE2="C MOPMAIL"_C MMDD_CHHMM SS_".TXT" | |
96 | ;S IO="HAC FS3"" DNS coledec We lcome1!"": :d:[FS3BIG .MBMCMOP.L IVE]"_CHFI LE2 | |
97 | S IO="HACF S3"" DNS coledec We lcome1!"": :d:[FS3BIG .MBMCMOP.C ACHE]"_CHF ILE2 | |
98 | C IO | |
99 | O IO ;;:(NE W:PROTECTI ON=(W:RWED )) | |
100 | U IO | |
101 | ; | |
102 | S DFN=0 | |
103 | GMAIL S ECHFILE2=0 ,DFN=$O(^C HMZHOLD("C MOP_DRUGLK ",DFN)) I DFN="" D C IO G EN D2 | |
104 | .I DCNT=0 W "NO RECORD S FOUND" S ECHFILE2= 1 | |
105 | .Q | |
106 | ; | |
107 | S FRDATE="" | |
108 | GFRDTE2 S FRDATE=$O( ^CHMZHOLD( "CMOP_DRUG LK",DFN,FR DATE)) G:F RDATE="" G MAIL | |
109 | ; | |
110 | ADDCK2 I $P(^CHMZHO LD("CMOP_D RUGLK",DFN ,FRDATE)," ^",4)="BAD " G GFRDTE 2 | |
111 | ; | |
112 | S BFNAME=$P( ^CHMZHOLD( "CMOP_DRUG LK",DFN,FR DATE),"^", 1),BLNAME= $P(^CHMZHO LD("CMOP_D RUGLK",DFN ,FRDATE)," ^",2),BSSN =$P(^CHMZH OLD("CMOP_ DRUGLK",DF N,FRDATE), "^",3) | |
113 | S BSTREET1=$ P(^CHMZHOL D("CMOP_DR UGLK",DFN, FRDATE),"^ ",4),BSTRE ET2=$P(^CH MZHOLD("CM OP_DRUGLK" ,DFN,FRDAT E),"^",5), BSTREET3=$ P(^CHMZHOL D("CMOP_DR UGLK",DFN, FRDATE),"^ ",6),BCITY =$P(^CHMZH OLD("CMOP_ DRUGLK",DF N,FRDATE), "^",7) | |
114 | S BSTATE=$P( ^CHMZHOLD( "CMOP_DRUG LK",DFN,FR DATE),"^", 8),BZIP=$P (^CHMZHOLD ("CMOP_DRU GLK",DFN,F RDATE),"^" ,9),BPHONE =$P(^CHMZH OLD("CMOP_ DRUGLK",DF N,FRDATE), "^",10),FR DATE=$P(^C HMZHOLD("C MOP_DRUGLK ",DFN,FRDA TE),"^",11 ) | |
115 | ; | |
116 | W BFNAME_TB_ BLNAME_TB_ BSTREET1_T B_BSTREET2 _TB_BSTREE T3_TB_BCIT Y_TB_BSTAT E_TB_BZIP, ! | |
117 | ; | |
118 | G GFRDTE2 | |
119 | Q | |
120 | ; | |
121 | END2 ;F TP FILES ( TRACK & MA IL) TO FS3 BIG | |
122 | C IO | |
123 | W !!,"Finish ed!!",!,"f iles "_CHF ILE1_" and "_CHFILE2 | |
124 | W !,"are o n Fs3big o n ' DNS fs3'\MBMCM OP\CACHE a nd ready f or importa tion into MS-Excel s preadsheet s",!! | |
125 | ; | |
126 | I ECHFILE1=1 W !!," No records f ound in "_ CHFILE1_" ...file is empty!" | |
127 | I ECHFILE2=1 W !!," No records f ound in "_ CHFILE2_" ...file i s empty!", !! | |
128 | ; | |
129 | ENDALL K XDATE,DFN, DCNT,DRUG, DRUGNUM,DL DF,BZIP,BS TATE,BCITY ,BSTREET1, BSSN,BLNAM E,BFNAME,P NAME,IVAL, DFN,JVAL,F RDATE,STDA TE,BPHONE, TB,IO,FIO | |
130 | Q | |
131 | ||
132 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.