245. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:11 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.

245.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXMGU1.m Mon Nov 5 16:41:41 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXMGU1.m Mon Nov 5 17:52:56 2018 UTC

245.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 414
Changed 1 8
Inserted 0 0
Removed 0 0

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

245.4 Active regular expressions

No regular expressions were active.

245.5 Comparison detail

  1   CHMXMGU1         ;HAC /RKN;Full  Nightly Up dt MAGELLA N-Queue/DR IVER;05/30 /06  1:58  PM
  2           ;; V1.0;PROJ  # 1490 05/ 30/2006 RK N
  3           ;; TEAM TRACK  # DEV0001 37-01 09/2 5/2006 RKN
  4           ;; CALLS ^CHM XMGU2, ^CH MXMGU3
  5           ;;
  6           ;;
  7               ;;AJM 07- 03-07 DEV0 02659 FIXE D DATE FOR MATTING FO R DATES PA ST 2099
  8               ;;
  9           ;; SCHEDULED  RUN @ 1800  NIGHTLY,  7 DAYS
  10           ;;
  11           ;M TN028772 D PT 7/6/17  REGION 1 D ATA CENTER  LOGICAL N AME CHANGE  LONG LINE S
  12               D NOW^%DT C
  13           K  ^CHMXRX("M AG_NTLY_UP DT"),^CHMX RX("MAG_NT LY_UPDTX")
  14           K  DOLFLG,FMD ATE,FMPDAT E,WRFLAG
  15           K  ^CHMZHOLD( "OHIEXCEP_ TMP")
  16           S  U="^",(CHE RRMSG,CHRE CCNT)=0
  17           S  (CHDT,FMDA TE)=$E(%,1 ,7),CHFMDT E=$E(%,4,7 ),FMPDATE= 9999999
  18           S  FMPDATE=$O (^CHMXRX(" MAG_NTLY_U PDT",FMPDA TE),-1)
  19           D  GETDAT
  20           S  NWGLOB="CH MXMGU2"
  21           D  SGETDAT^CH MXMGU3
  22           D  VMSFILE^CH MXMGU2
  23           I  CHERRMSG'= 1 D
  24           .D  AUTOMM^CH MXMGU2
  25           .I  FMPDATE'= "" K ^CHMX RX("MAG_NT LY_UPDT",F MPDATE)
  26           ;;  EMERGENCY  FIX: COMM ENTED OUT  THE FTP TO  WINDOWS,  SYS ADMINS  REMOVED
  27           ;;  USER.  MO VEIT NOW P ICKS UP FR OM VMS. -  ajm
  28           ;;  D EXFTP
  29           D  SDADM1^CHM XMGU2
  30           D  END^CHMXMG U2
  31           Q
  32           ;
  33   GETDAT   S  CHMXST=0
  34   GETST    S  CHMXST=$O (^AHCHVA(" A-STATE",C HMXST)) Q: 'CHMXST
  35           I  (CHMXST>56 )&(CHMXST< 72) S CHMX ST=72
  36           Q: CHMXST>72
  37           S  CHDFN=0
  38   GETDFN   S  CHDFN=$O( ^AHCHVA("A -STATE",CH MXST,CHDFN )) G:'CHDF N GETST
  39           I  $D(^AHCHVA (CHDFN,0))  I $E($P(^ AHCHVA(CHD FN,0),"^", 9),1,9)'?9 N S ^CHMZH OLD("MAG_N U_BAD_DFNS SN",CHDFN) =" " G GET DFN
  40           S  CHBFN=0
  41   GETBFN   S  CHBFN=$O( ^AHCHVA("A -STATE",CH MXST,CHDFN ,CHBFN)) G :'CHBFN GE TDFN
  42           S  DFNI=0,DFN I=$O(^CHMD FN("B",CHD FN,0)) G:' DFNI GETBF N
  43           S  DFNJ=0,DFN J=$O(^CHMD FN(DFNI,10 0,"B",CHBF N,0)) G:'D FNJ GETBFN
  44           G: ('$D(^AHCH VA("AF","E A",CHDFN,C HBFN))&('$ D(^CHMDFN( DFNI,100,D FNJ,100,1, 0)))) GETB FN
  45           ;
  46           S  CHCSFLAG=" C "
  47           S  CHBADC1="" ,CHBADC2=" ",CHBADC3= "",CHBADC4 ="",CHCCTY =""
  48           S  CHBADR1="" ,CHBADR2=" ",CHRCTY=" ",CHBDED1= 0,CHBDED2= " ",CHBDED A=0
  49           S  CHBDOB="", CHBELDT1=0 ,CHBELDT2= "",CHBELST A="",CHBNA ME="",CHBL NAM=""
  50           S  CHBFNAM="" ,CHBSEX="" ,CHBOSDT=" ",CHBOEDT= "",CHBODES ="",CHBOPH ="NO"
  51           S  CHBCPH="", CHBRPH="", CHBREL="", CHBSSN="", CHBCSTE="" ,CHBRSTE=" "
  52           S  CHBCZIP="" ,CHBRZIP=" ",CHLDT="" ,CHDNAME=" ",CHDLNAM= "",CHDFNAM ="",CHBNST AT=""
  53           S  CHDFSSN="" ,CHFCTCP1= 0,CHFCTCP2 ="",CHFDED 1=0,CHFDED 2="   ",CH BOHIC1="", CHBOHIC2=" ",CHFDEDA= 0,CHFCTCPA =0
  54           S  CHFLDT="", (CHIVL,CHJ VL)=0,CHKV L=99999,CH REC1="",CH REC2="",CH REC3=""
  55           S  CHREC4="", CHRECT1="" ,CHRECT2=" ",CHRECT3= "",CHVMSFL ="",CHLG1= "",CHLG2=" "
  56           ;
  57   ELGSTAT  G :'$D(^AHCH VA(CHDFN,1 00,CHBFN,0 )) GETBFN
  58           S  CHREC1=^AH CHVA(CHDFN ,100,CHBFN ,0)
  59           S: $D(^AHCHVA (CHDFN,100 ,CHBFN,1))  CHREC2=^( 1)
  60           S: $D(^AHCHVA (CHDFN,100 ,CHBFN,9))  CHREC3=^( 9)
  61           S  CHBELDT1=C HDT_".9"
  62           S  CHBSSN=$P( CHREC1,"^" ,9)
  63           I  $E($P(CHRE C1,"^",9), 1,9)'?9N S  ^CHMZHOLD ("MAG_NU_B AD_BFNSSN" ,CHDFN,CHB FN)=" " G  GETBFN
  64           ;
  65   GSTAT   I  '$D(^AHCHV A(CHDFN,10 0,CHBFN,10 9)) S CHBE LSTA="NO", CHBELDT1=0  D  G GSTA T1
  66           .S  CHBNSTAT= $P(CHREC1, "^",5) ; D EERS BYPAS S rkn 09/2 5/2006
  67           .S :(CHBNSTAT ="EA")!(CH BNSTAT="PR ")!(CHBNST AT="PC")!( CHBNSTAT=" T") CHBELS TA="YES"
  68           S  CHBELDT1=$ O(^AHCHVA( CHDFN,100, CHBFN,109, CHBELDT1), -1)
  69           I  'CHBELDT1  S CHBELSTA ="NO" G GS TAT1
  70           S  CHBELDT2=0
  71           S  CHBELDT2=$ O(^AHCHVA( CHDFN,100, CHBFN,109, CHBELDT1,C HBELDT2))
  72           I  (CHBELDT1> CHDT)!(CHB ELDT2<CHDT ) S CHBELS TA="NO" G  GSTAT1
  73           S  CHBELSTA=" YES"
  74   GSTAT1   S  CHMAXL=3, CHXAL=CHBE LSTA D PAD BLKS^CHMXM GU2 S CHBE LSTA=CHXAL
  75           S: $D(CHBELDT 1) CHBELDT 1=$$FMTOYY YYMMDD^CHE DILIB(CHBE LDT1) ;AJM  07-03-07  DEV002659
  76           S: $D(CHBELDT 2) CHBELDT 2=$$FMTOYY YYMMDD^CHE DILIB(CHBE LDT2) ;AJM  07-03-07  DEV002659
  77           S  CHMAXL=8,C HNUM=CHBEL DT1 D STRP IT^CHMXMGU 2 D PADZRO S^CHMXMGU2  S CHBELDT 1=CHX4
  78           S  CHMAXL=8,C HNUM=CHBEL DT2 D STRP IT^CHMXMGU 2 D PADZRO S^CHMXMGU2  S CHBELDT 2=CHX4
  79           ;
  80   OHISTAT  S  CHIVL=$O( ^CHMDFN("B ",CHDFN,0) ) G:'CHIVL  GETBFN
  81           S  CHJVL=$O(^ CHMDFN(CHI VL,100,"B" ,CHBFN,0))  G:'CHJVL  GETBFN
  82           ;
  83   OHIST2   S  CHKVL=$O( ^CHMDFN(CH IVL,100,CH JVL,2,CHKV L),-1) I ' CHKVL D EX CSET  G GE TBFN
  84           G: '$D(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0))  OHIST2
  85           S  CHBOSDT=$E ($P(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)," ^",1),1,7)
  86           S  CHBOEDT=$E ($P(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)," ^",2),1,7)
  87           G: CHDT<CHBOS DT OHIST2
  88           I  CHBOEDT=""  G OHIST3
  89           G: CHDT>CHBOE DT OHIST2
  90           K  ^CHMZHOLD( "MAG_NTLY_ OHI_EXCP", CHDFN,CHBF N)     ;PU RGE CORR'D  OHI'S
  91           ;
  92   OHIST3   
  93           S: $D(CHBOSDT ) CHBOSDT= $$FMTOYYYY MMDD^CHEDI LIB(CHBOSD T) ;AJM 07 -03-07 DEV 002659
  94           S: $D(CHBOEDT ) CHBOEDT= $$FMTOYYYY MMDD^CHEDI LIB(CHBOED T) ;AJM 07 -03-07 DEV 002659
  95           S  CHBODES=$E ($P(^CHMDF N(CHIVL,10 0,CHJVL,2, CHKVL,0)," ^",3),1,25 )
  96           I  CHBODES'=" " D  ;MTN0 28772 DPT
  97           .S  CHBOPH="N O"   ;MTN0 28772 DPT
  98           .F  II=2,3,8, 10,11,13,1 5,17,18,20 ,21,23,24  D   ;MTN02 8772 DPT
  99           .. I CHBODES= II S CHBOP H="YES"    ;MTN028772  DPT
  100           S: CHBODES'=" " CHBODES= $P(^CHMDIC (741002.76 ,CHBODES,0 ),"^",1)
  101           S  CHMAXL=8,C HNUM=CHBOS DT D STRPI T^CHMXMGU2  D PADZROS ^CHMXMGU2  S CHBOSDT= CHX4
  102           S  CHMAXL=8,C HNUM=CHBOE DT D STRPI T^CHMXMGU2  D PADZROS ^CHMXMGU2  S CHBOEDT= CHX4
  103           S  CHMAXL=25, CHXAL=CHBO DES D PADB LKS^CHMXMG U2 S CHBOD ES=CHXAL
  104           S  CHBOPH="    "
  105           S  CHMAXL=3,C HXAL=CHBOP H D PADBLK S^CHMXMGU2  S CHBOPH= CHXAL
  106           ;
  107   BOHIC    S  CHBOHIC1= $P(^CHMDFN (CHIVL,100 ,CHJVL,2,C HKVL,0),"^ ",3) G:CHB OHIC1="" A DDCHK
  108           S  CHBOHIC2=$ P(^CHMDIC( 741002.76, CHBOHIC1,0 ),"^",4)
  109           ;
  110   ADDCHK   D  CORRADD^C HMXMGU2
  111           D  RMITADD^CH MXMGU2
  112           ;
  113   PFDED1     S CHLDT=99 9-$E(CHDT, 1,3)_"0000 "
  114           S  CHLDT=$O(^ CHMDFN(CHI VL,100,CHJ VL,1,CHLDT )) G:CHLDT ="" LYBDTC K
  115           G: (999-$E(CH DT,1,3))'= $E(CHLDT,1 ,3) LYBDTC K
  116           G: '$D(^CHMDF N(CHIVL,10 0,CHJVL,1, CHLDT,0))  PFDED2
  117           ;
  118   LTYRBEN  S  CHLDT=$O( ^CHMDFN(CH IVL,100,CH JVL,1,CHLD T))
  119   LYBDTCK  S  CHBDEDA=" 0000000"
  120           I  (999-($E(C HDT,1,3)-1 ))=$E(CHLD T,1,3) D
  121           .S  CHNUM=CHB DEDA,DOLFL G=1,CHMAXL =7 D STRPD L^CHMXMGU2  D PADZROS ^CHMXMGU2  S CHBDEDA= CHX4
  122           ;
  123   PFDED2 S C HNUM=CHBDE D1,DOLFLG= 1,CHMAXL=7  D STRPDL^ CHMXMGU2 D  PADZROS^C HMXMGU2 S  CHBDED1=CH X4
  124           S  CHMAXL=3,C HXAL=CHBDE D2 D PADBL KS^CHMXMGU 2 S CHBDED 2=CHXAL
  125   FDEDCAT     S CHFLDT= 999-$E(CHD T,1,3)_"00 00"
  126           S  CHFLDT=$O( ^CHMDFN(CH IVL,1,CHFL DT)) G:CHF LDT="" LYF DTCK
  127           G: (999-$E(CH DT,1,3))'= $E(CHFLDT, 1,3) LYFDT CK
  128           ;
  129           G: '$D(^CHMDF N(CHIVL,1, CHFLDT,0))  FDEDC1
  130           S  CHREC4=^CH MDFN(CHIVL ,1,CHFLDT, 0)
  131           ;
  132   LTYRFAM  S  CHFLDT=$O (^CHMDFN(C HIVL,1,CHF LDT))
  133   LYFDTCK  S  CHFDEDA=" 0000000",C HFCTCPA="0 000000"
  134           I  (999-($E(C HDT,1,3)-1 ))=$E(CHFL DT,1,3) D
  135           .S  CHNUM=CHF DEDA,DOLFL G=1,CHMAXL =7 D STRPD L^CHMXMGU2  D PADZROS ^CHMXMGU2  S CHFDEDA= CHX4
  136           .S  CHNUM=CHF CTCPA,DOLF LG=1,CHMAX L=7 D STRP DL^CHMXMGU 2 D PADZRO S^CHMXMGU2  S CHFCTCP A=CHX4
  137           ;
  138   FDEDC1 S C HNUM=CHFDE D1,DOLFLG= 1,CHMAXL=7  D STRPDL^ CHMXMGU2 D  PADZROS^C HMXMGU2 S  CHFDED1=CH X4
  139           S  CHMAXL=3,C HXAL=CHFDE D2 D PADBL KS^CHMXMGU 2 S CHFDED 2=CHXAL,CH MAXL=2,CHX AL=CHBOHIC 1 D PADBLK S^CHMXMGU2  S CHBOHIC 1=CHXAL,CH MAXL=2,CHX AL=CHBOHIC 2 D PADBLK S^CHMXMGU2  S CHBOHIC 2=CHXAL
  140           ;
  141           S  CHNUM=CHFC TCP1,DOLFL G=1,CHMAXL =7 D STRPD L^CHMXMGU2  D PADZROS ^CHMXMGU2  S CHFCTCP1 =CHX4
  142           S  CHMAXL=3,C HXAL=CHFCT CP2 D PADB LKS^CHMXMG U2 S CHFCT CP2=CHXAL
  143           ;
  144           D  WRGLOB^CHM XMGU2
  145           ;
  146           G  GETBFN
  147           ;
  148   EXFTP    S  CHFILE="M G"_CHFMDTE _".DAT"
  149           ;
  150           S  CHFTPMSG=0
  151           ;
  152           ;/ ////////// / UNREMARK /REMARK OU T CODE FOR  PRODUCTIO N //////// // rkn 09/ 25/2006
  153   XCOM    S  X=$ZF(-1," SUBMIT HAC _HFS$:[DSM MANAG]MAG_ NU_FTP.COM /NAME=MAG_ NU_FTP_JOB .LOG/NOPRI NTER/USER= HACCACHEMG R/PARAM="_ CHFILE)
  154           ;/ ////////// / UNREMARK /REMARK OU T CODE FOR  PRODUCTIO N //////// // rkn 09/ 25/2006
  155           ;
  156           H  600
  157   FTPCK    S  RD="HAC_H FS$:[DSMMA NAG]MAG_NU _FTP_JOB.L OG"    ;LI VE
  158           C  RD
  159           K  CHFTPTIM,C HFTPWT S Z E="",QFLAG =0,CHFTPWT =$P(^CHMDI C(741002.1 7,1,2),"^" ,10)
  160           F  CHFTPTIM=1 :1:CHFTPWT  H 60  O R D:"R":10   D  Q:(QFLA G=1)
  161           .I  '$T C RD  Q
  162           .F   U RD R R DLINE  D   Q:(QFLAG=1 )!($ZE["EN DOFILE")
  163           .. I (RDLINE[ "226 Trans fer comple te") S CHF TPMSG=1,QF LAG=1 Q
  164           .. I (RDLINE[ "Charged C PU time:")  S QFLAG=1  Q
  165           ;
  166   FTPERR   C  RD
  167           S  CHNB=2
  168           S  ZML(CHNB)= ""
  169           S  ZML(CHNB)= CHVMSFL
  170           S  CHNB=CHNB+ 1
  171           S  ZML(CHNB)= ""
  172           S  CHNB=CHNB+ 1
  173           ;I  (CHFTPMSG =0)  D
  174           ;. S ZML(CHNB )="FTP UNS UCCESSFUL. ..Ntly HAC MAG.DAT FU LL file to  MAG."
  175           ;. S CHNB=CHN B+1,ZML(CH NB)="CHFTP TIM = "_CH FTPTIM
  176           ;. S CHNB=CHN B+1,ZML(CH NB)="CHFTP WT = "_CHF TPWT
  177           ;. S CHNB=CHN B+1,ZML(CH NB)="CHFTP MSG = "_CH FTPMSG
  178           ;. S CHNB=CHN B+1,ZML(CH NB)="QFLAG  = "_QFLAG
  179           ;. S CHNB=CHN B+1,ZML(CH NB)="$ZE =  "_$ZE
  180           ;. S CHNB=CHN B+1,ZML(CH NB)="RDLIN E = "_RDLI NE
  181           ;I  (CHFTPMSG =1)  D
  182           ;. S ZML(CHNB )="FTP Suc cessful... Ntly HACMA G.DAT FULL  file to M AG."
  183           ;S  XMDUZ=.5, XMY("G.MAG ELLAN")=""   ;MAGELLA N VISTA MA IL GROUP L IVE
  184             ;S XMY(" PII                       ")=""
  185             ;S XMY("
P II                       ")=""
  186             ;S XMY("
P II                          ")=""
  187             ;S XMY(" P I
I                              ")=""
  188           ;S  XMTEXT="Z ML("
  189           ;I  (CHFTPMSG =1)  D
  190           ;. S XMSUB="S UCC  Ntly  FTP MAG.." _FMDATE
  191           ;I  (CHFTPMSG =0)  D
  192           ;. S XMSUB="U NSUC Ntly  FTP MAG.." _FMDATE
  193           ;D  ^XMD
  194           K  CHFTPMSG,R D,RDLINE
  195           ;
  196   DOLDFLS  D  NOW^%DTC
  197           S  X1=X,X2=-9 0
  198           D  C^%DTC
  199           D  YX^%DTC
  200           S  DELDTE=Y
  201           Q
  202           ;
  203   EXCSET   K  TDFNNAM,T DFNSSN,TBF NNAM,TBFNS SN
  204           S  TDFNNAM=$P (^AHCHVA(C HDFN,0),"^ ",1),TDFNS SN=$P(^AHC HVA(CHDFN, 0),"^",9)
  205           S  TBFNNAM=$P (^AHCHVA(C HDFN,100,C HBFN,0),"^ ",1),TBFNS SN=$P(^AHC HVA(CHDFN, 100,CHBFN, 0),"^",9)
  206           I  '$D(^CHMZH OLD("MAG_N TLY_OHI_EX CP",CHDFN, CHBFN))  D
  207           .S  ^CHMZHOLD ("MAG_NTLY _OHI_EXCP" ,CHDFN,CHB FN)=CHIVL_ "^"_CHJVL_ "^"_TBFNNA M_"^"_TBFN SSN_"^"_TD FNNAM_"^"_ TDFNSSN
  208           .S  ^CHMZHOLD ("OHIEXCEP _TMP",TBFN NAM)=CHIVL _"^"_CHJVL _"^"_TBFNN AM_"^"_TBF NSSN_"^"_T DFNNAM_"^" _TDFNSSN                   ;sort  by bene n ame
  209           Q
  210    
  211