89. EPMO Open Source Coordination Office Redaction File Detail Report

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.

89.1 Files compared

# 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

89.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 6 250
Changed 5 14
Inserted 0 0
Removed 0 0

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

89.4 Active regular expressions

No regular expressions were active.

89.5 Comparison detail

  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