260. EPMO Open Source Coordination Office Redaction File Detail Report

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

260.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXWB12.m Mon Nov 5 16:43:29 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXWB12.m Mon Nov 5 17:53:39 2018 UTC

260.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 4 698
Changed 3 12
Inserted 0 0
Removed 0 0

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

260.4 Active regular expressions

No regular expressions were active.

260.5 Comparison detail

  1   CHMXWB12                 ;HAC/RK N;WEB 277  UNSOLICITE D STATUS P ART II;06/ 14/03 0700  AM
  2                   ;;1.0 ;CHAMPVA S YSTEM;;JUL Y 4,1990;
  3                   ;
  4                   ;;CAL LED BY CHM XWB11
  5                   ;;CAL LS NONE
  6                   ;;CAC HE TESTED  AND PASSED  03/14/200 6 @ 1120 A M RKN
  7                   ;;1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC )
  8                   ;;AJM  DEF4399 -  ADD NPI A ND TIN TO  GENERATED  277 (04-JU N-08)
  9                   ;
  10                   ;;HR- COB-Medica re-A/B-Beg in-9372 -  Setting up  blocks fo r new trad ing partne r (09-Mar- 2010)
  11                    ;;
  12                   ;DEF0 16554 - Re placed wit h new open  command i n line tag  VMSFILE -  DRW 01/23 /14
  13   WRGLOB   S  CHBRWCT=C HBRWCT+1
  14                   S CHM AXL=10,CHN UM=CHBRWCT  D STRPDL  D PADZROS  S CHBRWCT= CHX4
  15                   ;
  16   DETAIL   S  CHBDRCID= "DTL",CHMA XL=4,CHXAL =CHBDRCID  D PADBLKS  S CHBDRCID =CHXAL
  17                   S CHB PAYID="002 32",CHMAXL =5,CHXAL=C HBPAYID D  PADBLKS S  CHBPAYID=C HXAL
  18                   S CHB BPFX=$P(^C HMXCLB(CHM XCLB,0),"^ ",2),CHMAX L=9,CHXAL= CHBBPFX D  PADBLKS S  CHBBPFX=CH XAL
  19                   S CHB BPPAN=" ", CHMAXL=20, CHXAL=CHBB PPAN D PAD BLKS S CHB BPPAN=CHXA L
  20                   ;S CH BBPNPI=" " ,CHMAXL=10 ,CHXAL=CHB BPNPI D PA DBLKS S CH BBPNPI=CHX AL
  21                   S CHB BPNPI=$P(^ CHMXCLB(CH MXCLB,0)," ^",13),CHM AXL=10,CHX AL=CHBBPNP I D PADBLK S S CHBBPN PI=CHXAL ; DEV4399 aj m
  22                   S CHB BPLN=$P(^C HMXCLB(CHM XCLB,0),"^ ",3),CHMAX L=35,CHXAL =CHBBPLN D  PADBLKS S  CHBBPLN=C HXAL
  23                   S CHB BPFN=" ",C HMAXL=25,C HXAL=CHBBP FN D PADBL KS S CHBBP FN=CHXAL
  24                   ;S CH BSPFX=" ", CHMAXL=9,C HXAL=CHBSP FX D PADBL KS S CHBSP FX=CHXAL
  25                   S CHB SPFX=$P($G (^CHMXCLB( CHMXCLB,1) ),"^",2),C HMAXL=9,CH XAL=CHBSPF X D PADBLK S S CHBSPF X=CHXAL ;D EF4399 ajm
  26                   S CHB SPPAN=" ", CHMAXL=20, CHXAL=CHBS PPAN D PAD BLKS S CHB SPPAN=CHXA L
  27                   ;S CH BSPNPI=" " ,CHMAXL=10 ,CHXAL=CHB SPNPI D PA DBLKS S CH BSPNPI=CHX AL
  28                   S CHB SPNPI=$P($ G(^CHMXCLB (CHMXCLB,1 )),"^",9), CHMAXL=10, CHXAL=CHBS PNPI D PAD BLKS S CHB SPNPI=CHXA L ;DEF4399  ajm
  29                   ;S CH BSPLN=" ", CHMAXL=35, CHXAL=CHBS PLN D PADB LKS S CHBS PLN=CHXAL
  30                   S CHB SPLN=$P($G (^CHMXCLB( CHMXCLB,1) ),"^",1),C HMAXL=35,C HXAL=CHBSP LN D PADBL KS S CHBSP LN=CHXAL ; DEF4399 aj m
  31                   S CHB SPFN=" ",C HMAXL=25,C HXAL=CHBSP FN D PADBL KS S CHBSP FN=CHXAL
  32                   S CHB SID=$P(^CH MXCLC(CHMX CLC,0),"^" ,4),CHMAXL =30,CHXAL= CHBSID D P ADBLKS S C HBSID=CHXA L
  33                   S CHB LNAM=$P(^C HMXCLC(CHM XCLC,0),"^ ",5),CHMAX L=35,CHXAL =CHBLNAM D  PADBLKS S  CHBLNAM=C HXAL
  34                   S CHB FNAM=$P(^C HMXCLC(CHM XCLC,0),"^ ",6),CHMAX L=25,CHXAL =CHBFNAM D  PADBLKS S  CHBFNAM=C HXAL
  35                   S CHB PSID=" ",C HMAXL=30,C HXAL=CHBPS ID D PADBL KS S CHBPS ID=CHXAL
  36                   S CHB DOB=$P(^CH MXCLC(CHMX CLC,0),"^" ,9) S:CHBD OB="" CHBD OB=1875010 1 S CHMAXL =8,CHNUM=C HBDOB D ST RPDL D PAD ZROS S CHB DOB=CHX4
  37                   S CHB SEX=$P(^CH MXCLC(CHMX CLC,0),"^" ,10)
  38                   I (CH BSEX'="M") &(CHBSEX'= "F") S CHB SEX="U"
  39                   S CHM AXL=1,CHXA L=CHBSEX D  PADBLKS S  CHBSEX=CH XAL
  40                   ;
  41   CHBCSCC1         S CH MAXL=3,CHX AL=CHBCSCC 1 D PADBLK S S CHBCSC C1=CHXAL
  42                   S CHM AXL=3,CHXA L=CHBCSC1  D PADBLKS  S CHBCSC1= CHXAL
  43                   S CHM AXL=2,CHXA L=CHBCSCE1  D PADBLKS  S CHBCSCE 1=CHXAL
  44   CHBCSCC2         S CH MAXL=3,CHX AL=CHBCSCC 2 D PADBLK S S CHBCSC C2=CHXAL
  45                   S CHM AXL=3,CHXA L=CHBCSC2  D PADBLKS  S CHBCSC2= CHXAL
  46                   S CHM AXL=2,CHXA L=CHBCSCE2  D PADBLKS  S CHBCSCE 2=CHXAL
  47   CHBCSCC3         S CH MAXL=3,CHX AL=CHBCSCC 3 D PADBLK S S CHBCSC C3=CHXAL
  48                   S CHM AXL=3,CHXA L=CHBCSC3  D PADBLKS  S CHBCSC3= CHXAL
  49                   S CHM AXL=2,CHXA L=CHBCSCE3  D PADBLKS  S CHBCSCE 3=CHXAL
  50                   ;
  51                   S CUR DT=$H
  52                   S CHB CDTE=$ZDAT E(CURDT,8)
  53                   ;
  54                   S CHB CCAMT=$P(^ CHMXCLE(CH MXCLE,2)," ^",1) D
  55                   .I CH BCCAMT'[". " S CHBCCA MT=CHBCCAM T_".00"
  56                   .S CH MAXL=15,CH NUM=CHBCCA MT D STRPD L D PADZRO S S CHBCCA MT=CHX4
  57                   S X1= $E(CHBCCAM T,2,13),X2 =$E(CHBCCA MT,14,15), CHBCCAMT=X 1_"."_X2
  58                   K X1, X2
  59                   ;
  60                   S CHB BTYPE=" ", CHMAXL=3,C HXAL=CHBBT YPE D PADB LKS S CHBB TYPE=CHXAL
  61                   S CHB PDI=$P(^CH MXCLE(CHMX CLE,100)," ^",2),CHMA XL=20,CHXA L=CHBPDI D  PADBLKS S  CHBPDI=CH XAL
  62                   ;
  63                   ; Com mented off  the follo wing secti on no paym ent inform ation shou ld be sent  to EMDEON
  64                   ; on  acknowledg ement resp onses (A*) .  Saved f or 5010 wh en final r esponses w ill be
  65                   ; sen t also - A JM 02/18/2 010 (DEF00 9102)
  66                   ;
  67                   ; 1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC ) 10/10/06  JPN COMME NTED OUT T HE CODE BE LOW TO
  68                ;NEW COD E FOR MULT IPLE CLAIM S IN A PDI
  69                   ;S (N EWCPAMT,CH ACLM)=0,NE WCHACLM="" ,FLG=""
  70                   ;S CH BCPAMT="0" ,CHMAXL=15 ,CHNUM=CHB CPAMT D ST RPDL D PAD ZROS S CHB CPAMT=CHX4
  71                   ;F  S  CHACLM=$O (^CHMPAY(" C",$E(CHBP DI,1,15),C HACLM))  Q :CHACLM=""   D
  72                   ;. I  $D(^CHMPAY (CHACLM,1) ) S CHBCPA MT=$P(^CHM PAY(CHACLM ,1),"^",14 ) D
  73                   ;.. I  CHBCPAMT' ["." S CHB CPAMT=CHBC PAMT_".00"
  74                   ;.. S  NEWCPAMT= NEWCPAMT+C HBCPAMT
  75                   ;.. I  FLG'=1 S  NEWCHACLM= CHACLM S F LG=1
  76                   ;.. Q
  77                   ;S CH ACLM=NEWCH ACLM
  78                   ;S CH BCPAMT=NEW CPAMT
  79                   ;S CH MAXL=15,CH NUM=CHBCPA MT D STRPD L D PADZRO S S CHBCPA MT=CHX4
  80                   ;S X1 =$E(CHBCPA MT,2,13),X 2=$E(CHBCP AMT,14,15) ,CHBCPAMT= X1_"."_X2
  81                   ;K X1 ,X2
  82                   ; 1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC ) JPN END  OF MODIFIC ATIONS
  83                   ;
  84                   ;S CH BCAPD=" ", CHMAXL=8,C HXAL=CHBCA PD D PADBL KS S CHBCA PD=CHXAL
  85                   ;
  86                   ;I CH ACLM>"1" S  CHBCAPD=$ E($P(^CHMP AY(CHACLM, 0),"^",10) ,1,7) D
  87                   ;.I $ E(CHBCAPD, 1,1)="2" S  CENDTE="1 9"
  88                   ;.I $ E(CHBCAPD, 1,1)="3" S  CENDTE="2 0"
  89                   ;.S C HBCAPD=CEN DTE_$E(CHB CAPD,2,3)_ $E(CHBCAPD ,4,5)_$E(C HBCAPD,6,7 )
  90                   ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S S CHBCAP D=CHXAL
  91                   ;.I $ E(CHBCAPD, 3,3)=" " S  CHBCAPD=C HBCDTE
  92                   ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S S CHBCAP D=CHXAL
  93                   ;.Q
  94                   ;
  95                   ;
  96                   ;I CH BCPAMT<"1"  S CHBCAPD =" ",CHMAX L=8,CHXAL= CHBCAPD D  PADBLKS S  CHBCAPD=CH XAL
  97                   ;
  98                   ;I CH BCPAMT<"1"  S CHBPMC= " ",CHMAXL =3,CHXAL=C HBPMC D PA DBLKS S CH BPMC=CHXAL
  99                   ;I CH BCPAMT>"0"  D
  100                   ;.S C HBPMC="CHK ",CHMAXL=3 ,CHXAL=CHB PMC D PADB LKS S CHBP MC=CHXAL
  101                   ;.I ' $D(^CHMPAY (CHACLM,7) ) Q
  102                   ;.I $ P(^CHMPAY( CHACLM,7), "^",7)>" "  S CHBPMC= "ACH",CHMA XL=3,CHXAL =CHBPMC D  PADBLKS S  CHBPMC=CHX AL
  103                   ;
  104                   ;S CH BEFTD=CHBC APD,CHMAXL =8,CHXAL=C HBEFTD D P ADBLKS S C HBEFTD=CHX AL
  105                   ;
  106                   ; 1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC ) JPN 10/1 0/06 CHANG ED CODE TO  GRAB THE  CORRECT IN FORMATION
  107                   ; FRO M THE GLOB AL CHMPAY  CHBEFTN SH OULD BE GE TTING PIEC E 16 OF NO DE 1 VENDO R TREASURY  CHECK NUM BER
  108                   ;S CH BEFTN=" ", CHMAXL=20, CHXAL=CHBE FTN D PADB LKS S CHBE FTN=CHXAL
  109                   ;I CH BCPAMT>"0"  I CHACLM' =" " I $D( ^CHMPAY(CH ACLM,7)) S  CHBEFTN=$ P(^CHMPAY( CHACLM,7), "^",3) S C HMAXL=20,C HXAL=CHBEF TN D PADBL KS S CHBEF TN=CHXAL
  110                   ;NOT  SURE WHY C HBEFTN WER E BEING SE T TO THE B ELOW PIECE S
  111                   ;I CH BCPAMT>"0"  I CHACLM' =" " I CHB EFTN'>"0"  S CHBEFTN= $P(^CHMPAY (CHACLM,7) ,"^",4) S  CHMAXL=20, CHXAL=CHBE FTN D PADB LKS S CHBE FTN=CHXAL
  112                   ;I CH BCPAMT>"0"  I CHACLM' =" " I CHB EFTN'>"0"  S CHBEFTN= $P(^CHMPAY (CHACLM,7) ,"^",5) S  CHMAXL=20, CHXAL=CHBE FTN D PADB LKS S CHBE FTN=CHXAL
  113                   ;
  114                   ;I CH BCPAMT>"0"  I CHACLM' =" " S CHB EFTN=$P(^C HMPAY(CHAC LM,1),"^", 16) S CHMA XL=20,CHXA L=CHBEFTN  D PADBLKS  S CHBEFTN= CHXAL
  115                   ; 1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC ) JPN END  OF MODIFIC ATIONS
  116                   ;
  117                   ;I (C HBCAPD="") !(CHBEFTD= "")!(CHBEF TN="") D
  118                   ;.S C HBCPAMT="0 ",CHBCAPD= " ",CHBPMC =" ",CHBEF TD=" ",CHB EFTN=" "
  119                   ;.S C HMAXL=15,C HNUM=CHBCP AMT D STRP DL D PADZR OS S CHBCP AMT=CHX4
  120                   ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S S CHBCAP D=CHXAL
  121                   ;.S C HMAXL=3,CH XAL=CHBPMC  D PADBLKS  S CHBPMC= CHXAL
  122                   ;.S C HMAXL=8,CH XAL=CHBEFT D D PADBLK S S CHBEFT D=CHXAL
  123                   ;.S C HMAXL=20,C HXAL=CHBEF TN D PADBL KS S CHBEF TN=CHXAL
  124                   ;.Q
  125                   ;
  126                   ; add ed to repl ace the co mmented se ction abov e
  127                   S CHB CPAMT=" ", CHBCAPD="  ",CHBPMC="  ",CHBEFTD =" ",CHBEF TN=" "
  128                   S CHB CPAMT="000 000000000. 00"
  129                   S CHM AXL=8,CHXA L=CHBCAPD  D PADBLKS  S CHBCAPD= CHXAL
  130                   S CHM AXL=3,CHXA L=CHBPMC D  PADBLKS S  CHBPMC=CH XAL
  131                   S CHM AXL=8,CHXA L=CHBEFTD  D PADBLKS  S CHBEFTD= CHXAL
  132                   S CHM AXL=20,CHX AL=CHBEFTN  D PADBLKS  S CHBEFTN =CHXAL
  133                   ;(DEF 009102)
  134                   ;
  135                   I CHB PDI<"1" S  CHBPDI=$P( ^CHMXCLE(C HMXCLE,100 ),"^",4),C HMAXL=20,C HXAL=CHBPD I D PADBLK S S CHBPDI =CHXAL
  136                   ;
  137                   S CHB MRI=" ",CH MAXL=20,CH XAL=CHBMRI  D PADBLKS  S CHBMRI= CHXAL
  138                   S CHB PAN=" ",CH MAXL=20,CH XAL=CHBPAN  D PADBLKS  S CHBPAN= CHXAL
  139                   ; 1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC ) JPN 10/1 0/06 ADDED  TO GET CL M/PATIENT  CONTROL NU MBER
  140                   I $D( ^CHMXCLE(C HMXCLE,0))  S CHBPAN= $P(^CHMXCL E(CHMXCLE, 0),"^",2)  S CHMAXL=2 0,CHXAL=CH BPAN D PAD BLKS S CHB PAN=CHXAL
  141                   ; 1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC ) JPN END  OF MODIFIC ATION
  142                   I '$D (^CHMXCLE( CHMXCLE,1) ) D ALTDAT E G ALTDTN XT
  143                   S CHB CSDS=$P(^C HMXCLE(CHM XCLE,1),"^ ",1)
  144                   S CHB SES=$P(^CH MXCLE(CHMX CLE,1),"^" ,2)
  145                   I CHB CSDS="" D  ALTDATE G  ALTDTNXT
  146                   I CHB CSDS="" S  CHBCSDS="1 7760704"
  147                   S CHM AXL=8,CHXA L=CHBCSDS  D PADBLKS  S CHBCSDS= CHXAL
  148                   I CHB SES="" S C HBSES="177 60704"
  149                   S CHM AXL=8,CHXA L=CHBSES D  PADBLKS S  CHBSES=CH XAL
  150                   ;
  151   ALTDTNXT         S CH BDFIL1=" " ,CHMAXL=98 ,CHXAL=CHB DFIL1 D PA DBLKS S CH BDFIL1=CHX AL
  152                   ;
  153                   S CHB IUD="L",CH MAXL=1,CHX AL=CHBIUD  D PADBLKS  S CHBIUD=C HXAL
  154                   I '$D (^CHMXCLE( CHMXCLE,3) ) S CHBWCL M="" G SET
  155                   S CHB WCLM=$P(^C HMXCLE(CHM XCLE,3),"^ ",5)
  156                   I ($L (CHBWCLM)' =15)!(CHBW CLM'?15N)  S CHBWCLM= $P(^CHMXCL E(CHMXCLE, 3),"^",6)
  157                   I ($L (CHBWCLM)' =15)!(CHBW CLM'?15N)  S CHBWCLM= ""
  158                   S CHM AXL=15,CHX AL=CHBWCLM  D PADBLKS  S CHBWCLM =CHXAL
  159                   ;
  160   SET          S XCHBCS CC1=CHBCSC C1_CHBCSC1 _CHBCSCE1_ CHBCSCC2_C HBCSC2_CHB CSCE2_CHBC SCC3_CHBCS C3_CHBCSCE 3
  161                   S XCH BDRCID=CHB DRCID_CHBR WCT_CHBPAY ID_CHBBPFX
  162                   S XCH BBP=CHBBPP AN_CHBBPNP I_CHBBPLN_ CHBBPFN_CH BSPFX_CHBS PPAN_CHBSP NPI_CHBSPL N_CHBSPFN_ CHBSID_CHB LNAM_CHBFN AM_CHBPSID _CHBLNAM_C HBFNAM_CHB DOB_CHBSEX _CHBWCLM_X CHBCSCC1_C HBCDTE_CHB CCAMT
  163                   ;
  164                   S ^CH MZHOLD("RK N_W277",$J ,"WEB_277U _UPDT",CHB RWCT,0)=XC HBDRCID_XC HBBP
  165                   S ^CH MZHOLD("RK N_W277",$J ,"WEB_277U _UPDT",CHB RWCT,1)=CH BCPAMT_CHB CAPD_CHBPM C_CHBEFTD_ CHBEFTN_CH BBTYPE_CHB PDI_CHBMRI _CHBPAN_CH BCSDS_CHBS ES_CHBDFIL 1_CHBIUD
  166                   ;
  167                   Q
  168                   ;
  169   VMSFILE S  IO="HAC_HF S$:[KERMIT .WEBMD]"_C HFILE
  170                   S CHV MSFL="HAC_ HFS$:[KERM IT.WEBMD]" _CHFILE
  171                   S (CH DFN,CHBFN) =0,CHRECT1 ="",CHRECT 2=""
  172                   I '$$ OPENFIWR^C HTFLIB9(.I O,"IO") G  VMSERR^CHM XWB12      ;;DEF01655 4 -- New e xtrinsic f unction fo r open --  01/23/2014
  173                   ;O IO :"NWS"  ;; ; RKN 08/0 4/05
  174                   U IO
  175                   ;
  176                   S LDF LG=""   ;  1.0 IS THE  INITIAL V ERSION (HI PAA Ready  LLC) JPN 1 0/10/06 TH IS IS SET  TO NULL HE RE BUT WIL L COME IN
  177                   ; AS  1 IF RUNNI NG THE QUA RTERLY REP ORT
  178                   ;
  179                    ;HR- COB-Medica re-A/B-Beg in-9372 (0 9-Mar-2010 )
  180                    ;HEA DER  S CHB HRCID="HDR ",CHMAXL=4 ,CHXAL=CHB HRCID D PA DBLKS S CH BHRCID=CHX AL
  181   HEADER   N  CHFLG,I,M AX,TXT
  182                    S CH BHRCID="HD R",CHMAXL= 4,CHXAL=CH BHRCID D P ADBLKS S C HBHRCID=CH XAL
  183                    ;HR- COB-Medica re-A/B-End -9372
  184                   S CHB FGSN="01", CHMAXL=2,C HNUM=CHBFG SN D STRPD L D PADZRO S S CHBFGS N=CHX4
  185                   S CHB FGCNT="01" ,CHMAXL=2, CHNUM=CHBF GCNT D STR PDL D PADZ ROS S CHBF GCNT=CHX4
  186                   ;
  187                   S CUR DT=$H
  188                   S CHB CDTE=$ZDAT E(CURDT,8)
  189                   S CHB CTIME=$$GE THHMMSS^CH EDILIB(CUR DT)
  190                   S CHB FGID=CHBCD TE_CHBCTIM E,CHMAXL=2 0,CHXAL=CH BFGID D PA DBLKS S CH BFGID=CHXA L
  191                   S CHB PAYID="002 32",CHMAXL =5,CHXAL=C HBPAYID D  PADBLKS S  CHBPAYID=C HXAL
  192                   S CHB SBNM="VA,  Health Adm in Center" ,CHMAXL=30 ,CHXAL=CHB SBNM D PAD BLKS S CHB SBNM=CHXAL
  193                    ;HR- COB-Medica re-A/B-Beg in-9372 (0 9-Mar-2010 )
  194                   ; 1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC ) 7/31/06B AS SET CHB RCNM BASED  ON TRADIN G PARTNER
  195                   ; S C HBRCNM="WE BMD/Empowe r",CHMAXL= 30,CHXAL=C HBRCNM D P ADBLKS S C HBRCNM=CHX AL
  196                   ;I CH TPABBR="EN V" S CHBRC NM="WEBMD/ Empower",C HMAXL=30,C HXAL=CHBRC NM D PADBL KS S CHBRC NM=CHXAL
  197                   ;I CH TPABBR="MM IACH" S CH BRCNM="MED ICAL MATRI X INC",CHM AXL=30,CHX AL=CHBRCNM  D PADBLKS  S CHBRCNM =CHXAL
  198                   ;1.0  IS THE INI TIAL VERSI ON (HIPAA  Ready LLC)  BAS - END  OF MODIFI CATION
  199                    ;HR- PBM-PHASE  1B-Begin
  200                   ;ENC5 591 - HR -  SXC Iplem entation f or 837P
  201                   ;Adde d line for  seting CH BRCNM for  SXC
  202                   ;I CH TPABBR="SX CACH" S CH BRCNM="SXC  HEALTH SO LUTIONS IN C",CHMAXL= 30,CHXAL=C HBRCNM D P ADBLKS S C HBRCNM=CHX AL
  203                    ;HR- PBM-PHASE  1B-End
  204                   S CHF LG=0
  205                   S TXT ="ENV^WEBM D/Empower; MMIACH^MED ICAL MATRI X INC;SXCA CH^SXC HEA LTH SOLUTI ONS INC;ME DCOB^WEBMD /Empower"
  206                   S MAX =$L(TXT,"; ")
  207                   F I=1 :1:MAX D   Q:CHFLG
  208                   .I $P ($P(TXT,"; ",I),"^",1 )=CHTPABBR  D
  209                   ..S C HBRCNM=$P( $P(TXT,";" ,I),"^",2)
  210                   ..S C HMAXL=30,C HXAL=CHBRC NM D PADBL KS S CHBRC NM=CHXAL
  211                   ..S C HFLG=1
  212                    ;HR- COB-Medica re-A/B-End -9372
  213                             ;
  214                   S CHB LOADT="I"
  215                   I LDF LG=1 S CHB LOADT="F"
  216                   S CHB TRACE=CHBC DTE_CHBCTI ME,CHMAXL= 20,CHXAL=C HBTRACE D  PADBLKS S  CHBTRACE=C HXAL
  217                   S CHB FTYPE="Cst at",CHMAXL =8,CHXAL=C HBFTYPE D  PADBLKS S  CHBFTYPE=C HXAL
  218                   S CHB VERCD="02" ,CHMAXL=2, CHNUM=CHBV ERCD D STR PDL D PADZ ROS S CHBV ERCD=CHX4
  219                   S CHB RELCD="00" ,CHMAXL=2, CHNUM=CHBR ELCD D STR PDL D PADZ ROS S CHBR ELCD=CHX4
  220                   S CHB CPHO=" ",C HMAXL=10,C HXAL=CHBCP HO D PADBL KS S CHBCP HO=CHXAL
  221                   S CHB CEXT=" ",C HMAXL=10,C HXAL=CHBCE XT D PADBL KS S CHBCE XT=CHXAL
  222                   S CHB CNAM=" ",C HMAXL=60,C HXAL=CHBCN AM D PADBL KS S CHBCN AM=CHXAL
  223                   S CHB CEML=" ",C HMAXL=80,C HXAL=CHBCE ML D PADBL KS S CHBCE ML=CHXAL
  224                   ;
  225                   S CON TACT=CHBCN AM_CHBCPHO _CHBCEXT_C HBCEML
  226                   ;
  227                   S CHB HFIL1="",C HMAXL=100, CHXAL=CHBH FIL1 D PAD BLKS S CHB HFIL1=CHXA L
  228                   S CHB HFIL2="",C HMAXL=299, CHXAL=CHBH FIL2 D PAD BLKS S CHB HFIL2=CHXA L
  229                   S CHB EOF="X",CH MAXL=1,CHX AL=CHBEOF  D PADBLKS  S CHBEOF=C HXAL
  230                   ;
  231                   W CHB HRCID_CHBF GID_CHBFGS N_CHBFGCNT _CHBCDTE_C HBCTIME_CH BPAYID_CHB SBNM_CONTA CT_CHBRCNM _CHBLOADT_ CHBTRACE_C HBFTYPE_CH BVERCD_CHB RELCD,!,"~ ",CHBHFIL1 _CHBHFIL2_ CHBEOF,!," ~",!
  232                   ;
  233                   S CHR WCT1=0
  234                   D WRC NT
  235                   D CLO SEF^CHTFLI B9(IO,"IO" )             ;;DEF01 6554
  236                   ;C IO
  237                   Q
  238                   ;
  239   WRCNT      S CHRWCT1= $O(^CHMZHO LD("RKN_W2 77",$J,"WE B_277U_UPD T",CHRWCT1 )) G:'CHRW CT1 TRAILR
  240                   S CHR CT1A=^CHMZ HOLD("RKN_ W277",$J," WEB_277U_U PDT",CHRWC T1,0)
  241                   S CHR CT2A=^CHMZ HOLD("RKN_ W277",$J," WEB_277U_U PDT",CHRWC T1,1)
  242                   W CHR CT1A,!,"~" ,CHRCT2A,!
  243                   G WRC NT
  244                   ;
  245   TRAILR   S  CHBTRCID= "TRLR",CHM AXL=4,CHXA L=CHBTRCID  D PADBLKS  S CHBTRCI D=CHXAL
  246                   S CHB PAYID="002 32"
  247                   S CHB RCCNT=CHBR WCT,CHMAXL =10,CHNUM= CHBRCCNT D  STRPDL D  PADZROS S  CHBRCCNT=C HX4
  248                   S CHB TFIL1=" ", CHMAXL=480 ,CHXAL=CHB TFIL1 D PA DBLKS S CH BTFIL1=CHX AL
  249                   S CHB TFIL2=" ", CHMAXL=200 ,CHXAL=CHB TFIL2 D PA DBLKS S CH BTFIL2=CHX AL
  250                   S CHB EOF="X",CH MAXL=1,CHX AL=CHBEOF  D PADBLKS  S CHBEOF=C HXAL
  251                   W CHB TRCID_CHBP AYID_CHBRC CNT_CHBTFI L1,!,"~",C HBTFIL2_CH BEOF
  252                   Q
  253                   ;
  254                   ;
  255   VMSERR   D  CLOSEF^CH TFLIB9(IO, "IO")             ;;D EF016554
  256                    ;
  257                   S X=$ ZF(-1,"SUB MIT HAC_HF S$:[DSMMAN AG]CHV_DEL ETE_WB_WN. COM /NOPRI NTER/USER  =DSMMANAG/ PARAM="_CH FMDTE)
  258                   ;
  259   ERRMM      ;
  260                   ;S CH ERRMSG=1,C HNB=2,ZML( CHNB)="",Z ML(CHNB)=C HVMSFL,CHN B=CHNB+1,Z ML(CHNB)=" ",CHNB=CHN B+1,ZML(CH NB)="NOTIC E: An erro r has occu rred in wr iting Upda te for the ",CHNB=CHN B+1,ZML(CH NB)=" 277U  WebMD fil e!"
  261                   ;S XM DUZ=.5,XMY ("10722")= "" ;RKN LI VE
  262                   ;S XM TEXT="ZML( ",XMSUB="2 77U WebMD. .Error.."_ FMDATE
  263                   S CHE RRMSG=1,CH NB=2,ZML(C HNB)="",ZM L(CHNB)=CH VMSFL,CHNB =CHNB+1,ZM L(CHNB)="" ,CHNB=CHNB +1,ZML(CHN B)="NOTICE : An error  has occur red in wri ting Updat e for the" ,CHNB=CHNB +1,ZML(CHN B)=" 277U  file!"
  264                    ;S XMDUZ=. 5,XMY(" PII                    ")="" ;RKN  LIVE
  265                   ;S XM Y(" PII                               ")= ""
  266                    S XMDUZ=.5 ,XMY("2745 77")="",XM Y("246183" )="",XMY(" PII                   ")="",XMY( "
P II                   ")=""
  267                   S XMT EXT="ZML(" ,XMSUB="27 7U..Error. ."_FMDATE
  268                   ; BAS  -END MOD
  269                   D ^XM D
  270                   Q
  271   AUTOMM     D NOW^%DTC
  272                   S ZRK DTE=%
  273                   S CHN B=2,ZML(CH NB)="",ZML (CHNB)=CHV MSFL_"  (T otal Recor ds = "_CHB RCCNT_")", CHNB=CHNB+ 1,ZML(CHNB )=""
  274                   ; BAS  - MADE RE FERENCE GE NERIC
  275                   ; S C HNB=CHNB+1 ,ZML(CHNB) ="NOTICE:  Successful  CREATION  WebMD 277U  STAT file !"
  276                   S CHN B=CHNB+1,Z ML(CHNB)=" NOTICE: Su ccessful C REATION 27 7U STAT fi le!"
  277                   ; BAS  -END MOD
  278                   S CHN B=CHNB+1,Z ML(CHNB)=" EDI BATCH  NUMBER ^CH MXCL("_CHM XI_",0)"
  279                   ; BAS  - CHANGED  E-MAIL AN D WEBMD RE FERENCE
  280                    S XMDUZ=.5 ,XMY("2745 77")="",XM Y("246183" )="",XMY(" PII                   ")="",XMY( "
P II                   ")=""
  281                   S XMT EXT="ZML(" ,XMSUB="27 7U WebMD.. Success.." _FMDATE
  282                    ;S XMDUZ=. 5,XMY("107 22")="",XM Y("246183" )="",XMY(" PII                    ")=""
  283                   ;S XM Y(" PII                               ")= ""
  284                   ; BAS  -END MOD
  285                   D ^XM D
  286                   ;
  287                   ;//// //////// U NREMARK FO R PRODUCTI ON /////// ////////// ////
  288                   S ^CH MZHOLD("RK N_W277X",C HMXI,"SENT  MAIL",ZRK DTE)=CHBRC CNT_"^"_DU Z
  289                   K ZRK DTE
  290                   ;//// //////// U NREMARK FO R PRODUCTI ON /////// ////////// ////
  291                   ;
  292                   Q
  293                   ;
  294   END           K CHBDR CID,CHBRWC T,CHBPAYID ,CHBBPFX,C HBBPLN,CHB BPFN,CHBSP FX,CHBSPLN ,CHBSPFN,C HBPSID,CHB SID,CHBLNA M,CHBFNAM, CHBSID,CHB LNAM,CHBFN AM,CHBDOB, CHBSEX,CHB WCLM
  295                   K CHB CSCC1,CHBC SC1,CHBCSC C2,CHBCSC2 ,CHBCSCC3, CHBCSC3
  296                   K CHB CDTE,CHBCC AMT,CHBCPA MT,CHBCAPD ,CHBPMC,CH BEFTD,CHBE FTN,CHBBTY PE,CHBPDI, CHBMRI,CHB CSDS,CHBSE S,CHBDFIL1
  297                   K CHB HRCID,CHBC DTE,CHBCTI ME,CHBPAYI D,CHBSBNM, CHBRCNM,CH BLOADT,CHB TRACE,CHBV ERCD,CHBRE LCD,CHBHFI L1,CHBHFIL 2,CHBTRCID ,CHBPAYID, CHBRCCNT,C HBTFIL1,CH BTFIL2,CHV MSFL
  298                   K CHB FGID,CHBFG SN,CHBFGCN T,CHBBPPAN ,CHBBPNPI, CHBSPPAN,C HBSPNPI,CH BPAN,CHBIU D,CHBEOF,C HACLM
  299                   K ^CH MZHOLD("RK N_W277")
  300                   Q
  301                   ;
  302   STRPIT     S CHNUM2=" "
  303                   F X=1 :1:$L(CHNU M) D
  304                   .S CH AR=$E(CHNU M,X) I CHA R?1N S CHN UM2=CHNUM2 _CHAR
  305                   S CHX 4=CHNUM2
  306                   Q
  307                   ;
  308   STRPDL     I $E(CHNUM ,1,1)=0 D   G STRPIT                     ;s trip leadi ng 0's
  309                   .S $E (CHNUM,1,1 )=""
  310                   I $E( CHNUM,$F(C HNUM,"."), $F(CHNUM," .")+1)=""  D  ;Dec on ly
  311                   .S CH NUM=CHNUM_ "00"
  312                   S CHX 1=$L(CHNUM )
  313                   I '$F (CHNUM,"." ) D  Q                              ;No Dec
  314                   .S CH X4=CHNUM
  315                   .I $D (DOLFLG) S  CHX4=CHNU M_"00"
  316                   .S CH X4=$E(CHX4 ,1,CHMAXL)
  317                   .K DO LFLG
  318                   S CHX 2=$F(CHNUM ,"."),CHX3 =CHX2-2
  319                   S CHX 4=$E(CHNUM ,1,CHX3)_$ E(CHNUM,CH X2,CHX2+1)
  320                   I CHX 1=CHX2 S C HX4=CHX4_" 0"
  321   STRPPH     ;STRIPS PH ONE NUMBER S
  322                   S CHL G1=$L(CHNU M)
  323                   I ($E (CHNUM,1,1 )=0)!($E(C HNUM,1,1)= " ")!($E(C HNUM,1,1)= "(") D  G  STRPPH
  324                   .S $E (CHNUM,1,1 )=""
  325                   I $F( CHNUM,")")  D  G STRP PH
  326                   .S CH LG2=($F(CH NUM,")")-1 )
  327                   .S CH NUM=$E(CHN UM,1,CHLG2 -1)_$E(CHN UM,CHLG2+1 ,CHLG1)
  328                   I $F( CHNUM," ")  D  G STRP PH
  329                   .S CH LG2=($F(CH NUM," ")-1 )
  330                   .S CH NUM=$E(CHN UM,1,CHLG2 -1)_$E(CHN UM,CHLG2+1 ,CHLG1)
  331                   I $F( CHNUM,"-")  D  G STRP PH
  332                   .S CH LG2=($F(CH NUM,"-")-1 )
  333                   .S CH NUM=$E(CHN UM,1,CHLG2 -1)_$E(CHN UM,CHLG2+1 ,CHLG1)
  334                   Q
  335                   ;
  336   PADZROS  F  I=1:1:(CH MAXL-$L(CH X4)) S CHX 4="0"_CHX4
  337                   S CHX 4=$RE($E($ RE(CHX4),1 ,CHMAXL))
  338                   Q
  339                   ;
  340   PADBLKS  F  I=1:1:(CH MAXL-$L(CH XAL)) S CH XAL=CHXAL_ " "
  341                   S CHX AL=$E(CHXA L,1,CHMAXL )
  342                   Q
  343                   ;
  344   PADRZRO  F  I=1:1:(CH MAXL-$L(CH X4)) S CHX 4=CHX4_"0"
  345                   S CHX 4=$RE($E($ RE(CHX4),1 ,CHMAXL))
  346                   Q
  347                   ;
  348   ALTDATE  ; ADDED BY D TP 5-DEC-0 3 TO GET S VC DT FROM  LINE LEVE L FOR PROF . CLMS
  349                   S CHM XCLF=0
  350   ALTDT1     S CHMXCLF= $O(^CHMXCL F("B",CHMX CLE,CHMXCL F)) Q:'CHM XCLF
  351                   G:'$D (^CHMXCLF( CHMXCLF,1) ) ALTDT1
  352                   S CHB CSDS=$P(^C HMXCLF(CHM XCLF,1),"^ ",11),CHBS ES=$P(^(1) ,"^",12)
  353                   G:CHB CSDS="" AL TDT1 S:CHB SES="" CHB SES=CHBCSD S
  354                   Q
  355                   ;