251. EPMO Open Source Coordination Office Redaction File Detail Report

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

251.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXQRPT.m Mon Nov 5 16:40:22 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXQRPT.m Mon Nov 5 17:53:17 2018 UTC

251.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 918
Changed 2 6
Inserted 0 0
Removed 0 0

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

251.4 Active regular expressions

No regular expressions were active.

251.5 Comparison detail

  1   CHMXQRPT         ;JPN /HAC X12 R EPORT QUAR TERLY REPO RT ;10/10/ 06 4:23
  2                    ;;1. 0;CHAMPVA  SYSTEM;;JU LY 4,1990;
  3                             ;THIS  REPORT WIL L BE SET T O RUN VIA  THE SCHEDU LER AND WI LL RUN FRO M THE DATE  THE REPOR T IS RUN T O 90 DAYS  BACK
  4                             ;THE R EPORT CHEC K THE GLOB AL CHMXCL  AND USES T HE BATCH D ATE THAT T HE ORIGION AL REPORTS  WERE RUN  AND USES
  5                             ;THAT  DATE FOR I TS SEARCH  AND ONLY T HOSE BATCH  NUMBERS A ND WILL NO T INCLUDE  "OCR" FILE S.  THE RE PORT GETS  THE
  6                             ;POINT ER THEN ST ARTS TO PR OCESS NORM ALLY THROU GH THE X12  PROCESS.
  7                             ;
  8                             ; AJM  02/18/2010  (DEF00910 2) 
  9                             ;DEV01 2893       1/16/2014  DGC - MODI FY IO
  10                             ;
  11   DATE             ;ENT ER HERE TO  USE DATE  RANGE
  12                             K DIR
  13                             S QFLG =0
  14                             D NOW^ %DTC
  15                             S DIR( 0)="D" S D IR("A")="F ROM TODAY,  ENTER DAY S BACK TO  START REPO RT IN MMDD YY FORMAT  " D ^DIR S  CHBDT=Y W  !
  16                             I CHBD T="^" S QF LG=1 Q
  17                             S BDT= Y(0)
  18                             S DIR( 0)="D" S D IR("A")="F ROM "_Y(0) _" ENTER D AYS FORWAR D DO YOU W ANT TO RUN  IN MMDDYY  FORMAT "  D ^DIR S C HEDT=Y
  19                             I CHED T="^" S QF LG=1 Q
  20                             S EDT= Y(0)
  21                             I CHED T<CHBDT W  !!," The e nd date mu st not be  prior to t he begin d ate. Pleas e reenter. ",! G DATE
  22                             R !!," ENTER A TR ADING PART NER ID: "" 1"" FOR EM DEON : ""2 "" FOR MMI  ",TPID
  23                             I TPID =2 S CHTP= "403400000 "
  24                             E  S C HTP="13305 2274"
  25                             I $D(D FOUT)!($D( DUOUT)) S  QFLG=1 Q
  26                             W !!," THE DATE R ANGE IS FR OM "_BDT_"  TO "_EDT_ " FOR TRAD ING PARTNE R "_CHTP
  27                             S CHBD T=CHBDT-1
  28                             S CHED T=CHEDT+1
  29                             G STAR T
  30                             ;
  31   SCHED            ;ENT ER HERE FO R THE SCHE DULER TO R UN FOR 90  FROM THE D ATE REPORT  RUNS
  32                    D NO W^%DTC S X 1=X,X2=-90
  33                             D C^%D TC         ;CODE USED  TO GET X  IN VA FILE  FORMAT TO  SUBTRACT  THE 30 DAY S FROM ABO VE
  34                    S CH BDT=X   ;J PN ADDED T HE ABOVE 3  LINES OF  CODE TO FI X THE DATE  ISSUES
  35                             D NOW^ %DTC
  36                             S CHED T=X+1      ; JPN ADDE D LINE OF  CODE TO GE T CORRECT  END DATE
  37                             ;S CHB DT=X-299,C HEDT=X+1   ;  298 IS  EQUAL TO 9 0 DAYS BAC K JPN COMM ENTED OUT  LINE FOR D ATE
  38                             S CHTP ="13305227 4"
  39   START            ;ENT RY POINT
  40                             S (CHM XCLB,CHMXC LC,CHMXCLE ,DTCMP,CHB CCAMT,CHMX IO,EFTNTST )=""
  41                             S (CHB RWCT,CHRWC T1,PDI,PTR )=0
  42                             S CHTP ABBR="ENV"
  43                             S CHMX I=0
  44                             K ^CHM ZHOLD("QRT _W277"),^T MP($J)
  45                             K ^CHM ZHOLD("QRT _W277X")
  46                             K ^CHM ZHOLD("PDI ")
  47                             ;GETS  THE DATE R ANGE FROM  THE CHMXCL  BATCH GLO BAL
  48                             F  S C HMXI=$O(^C HMXCL(CHMX I)) Q:CHMX I=""  D
  49                             . I '$ D(^CHMXCL( CHMXI,0))  Q
  50                             . S CH MXCLA=0 S  CHMXCLA=$O (^CHMXCLE( "A",CHMXI, 2,CHMXCLA) ) Q:CHMXCL A=""
  51                             . I $P (^CHMXCLA( CHMXCLA,1) ,"^",1)'=" 133052274"  Q
  52                             . S DT CMP=$P(^CH MXCL(CHMXI ,0),"^",1)
  53                             . I (D TCMP>CHBDT )&(DTCMP<C HEDT)  W ! ,CHMXI S ^ TMP($J,CHM XI)=""
  54                             . Q
  55                    D IN FO
  56                             D FILE
  57                    Q  ; END OF ROU TINE
  58                             ;
  59   INFO             ; CO LLECTS THE  REST OF T HE INFORMA TION FOR R OUTINE WB1 2 ABD PROC ESSES WITH  DATE RANG E
  60                             F  S C HMXI=$O(^T MP($J,CHMX I)) Q:CHMX I=""  D
  61                             .F  S  PTR=$O(^CH MXCLE("A", CHMXI,PTR) ) Q:PTR=""   D
  62                             .. S C HMXIO=CHMX I
  63                             .. I P TR=2 D GET ST4  ;COPP IED FROM C HMXWB11 BU T WILL CAL L LINE TAG S IN THIS  ROUTINE
  64                             .. I P TR=6 D GET ST6      ; COPPIED FR OM CHMXWB1 1 BUT WILL  CALL LINE  TAGS IN T HIS ROUTIN E
  65                             .. Q
  66                             .Q
  67                             Q
  68   FILE     ;
  69                             S CHMX I=CHMXIO
  70                             D NOW^ %DTC
  71                             S LDFL G=1  ;SETS  THE LOAD  TYPE FLAG  TO FULL "  F " INSTEA D OF INCRE MENTAL
  72                             S XMSU B="QUARTER LY REPORT" ,FMDATE=$E (%,1,7)
  73                             S CMMD D=$E(%,4,7 ),CHHMMSS= $E(%,9,14)
  74                             I $L(C HHMMSS)<6  S CHHMMSS= CHHMMSS_"1 11111",CHH MMSS=$E(CH HMMSS,1,6)
  75                             S CHFI LE="HAC277 U_"_CHTP_" _"_CMMDD_C HHMMSS_".D AT"
  76                             S IO=" HAC_HFS$:[ KERMIT.WEB MD]"_CHFIL E
  77                             S CHVM SFL="HAC_H FS$:[KERMI T.WEBMD]"_ CHFILE
  78                    S (C HDFN,CHBFN )=0,CHRECT 1="",CHREC T2=""
  79                             D CLOS EF^CHTFLIB 9(IO,"IO")  ;C IO - D GC 1/16/20 14 DEV0128 93
  80                             I '$$O PENFIWR^CH TFLIB9(.IO ,"IO") Q ; O IO:"NWS"   ; RKN 08 /04/05 - D GC 1/16/20 14 DEV0128 93
  81                             U IO
  82                             D HEAD ER
  83                             D AUTO MM
  84                             D EXFT P^CHMXWB11
  85                             D END
  86                             ;1.0 I S THE INIT IAL VERSIO N (HIPAA R eady LLC)  FOR THE QU ARTERLY RE PORT CHANG ED THE GLO BAL FROM R KN TO QRT
  87                             ;12/4/ 06 JPN
  88                             ;K ^CH MZHOLD("RK N_W277"),^ TMP($J)
  89                             K ^CHM ZHOLD("QRT _W277"),^T MP($J)
  90                             K ^CHM ZHOLD("QRT _W277X")
  91                             K ^CHM ZHOLD("PDI ")
  92                             Q
  93   GETST4   S  CHMXCLA=0
  94   CLA4        S CHMXCLA =$O(^CHMXC LE("A",CHM XI,2,CHMXC LA)) Q:'CH MXCLA
  95                   S CHR EFNO=0
  96   REFNO4   S  CHREFNO=$ O(^CHMXCLE ("A",CHMXI ,2,CHMXCLA ,CHREFNO))  G:'CHREFN O CLA4
  97                   S CHM XALLI=0,CH MXALLI=$O( ^CHMXCLE(" A",CHMXI,2 ,CHMXCLA,C HREFNO,"") )
  98                   S CHM XCLB=$P(CH MXALLI,"*" ,1),CHMXCL C=$P(CHMXA LLI,"*",2) ,CHMXCLE=$ P(CHMXALLI ,"*",3)
  99                   S CHB CSCC1="A2" ,CHBCSC1=" 20",CHBCSC E1="",CHBC SCC2="",CH BCSC2="",C HBCSCE2="" ,CHBCSCC3= "",CHBCSC3 ="",CHBCSC E3=""
  100                   D WRG LOB
  101                   G REF NO4
  102                   Q
  103                   ;
  104   GETST6   S  CHMXCLA=0
  105   CLA6        S CHMXCLA =$O(^CHMXC LE("A",CHM XI,6,CHMXC LA)) Q:'CH MXCLA
  106                   S CHR EFNO=0
  107   REFNO6   S  CHREFNO=$ O(^CHMXCLE ("A",CHMXI ,6,CHMXCLA ,CHREFNO))  G:'CHREFN O CLA6
  108                   S CHM XALLI=0,CH MXALLI=$O( ^CHMXCLE(" A",CHMXI,6 ,CHMXCLA,C HREFNO,"") )
  109                   S CHM XCLB=$P(CH MXALLI,"*" ,1),CHMXCL C=$P(CHMXA LLI,"*",2) ,CHMXCLE=$ P(CHMXALLI ,"*",3)
  110                   S CHM XCLCJ=0,CH MXCLEJ=0,C HMXCLFJ=0, CHMXCLF=0
  111                   ;
  112                   S ZCN T=0
  113                   S CHM XCLCJ=0
  114                   ;
  115                   ;1.0  IS THE INI TIAL VERSI ON (HIPAA  Ready LLC)  ADDED PRO VIDER LEVE L EDITS JP N 10/10/06
  116                   ;
  117   PROVLEV S  CHMXCLCJ=$ O(^CHMXCLB (CHMXCLB,1 01,CHMXCLC J)) G:'CHM XCLCJ WRPR OV
  118                    S CH MXERRI=$P( ^CHMXCLB(C HMXCLB,101 ,CHMXCLCJ, 0),"^",1)
  119                    S CH MXERR=+$E( $P(^CHMXDI C(741201.3 2,CHMXERRI ,0),"^",1) ,2,999)
  120                    S CH MXPTER(CHM XERR)=CHMX ERRI
  121                    G PR OVLEV
  122   WRPROV  I  '$D(CHMXPT ER) K CHMX ERRI,CHMXE RR,CHMXPTE R S CHMXCL CJ=0 G PAT LEV
  123                   S CHM X1ER=0,CHM X1ER=$O(CH MXPTER(CHM X1ER))
  124                   S CHM XERRI=$P(C HMXPTER(CH MX1ER),"^" ,1)
  125                   ;
  126                   I ZCN T=0 S CHMX 12SC=$P($P (^CHMXDIC( 741201.32, CHMXERRI,0 ),"^",4)," *",1),CHBC SCC1=CHMX1 2SC,CHMX12 ST=$P($P(^ CHMXDIC(74 1201.32,CH MXERRI,0), "^",4),"*" ,2),CHBCSC 1=CHMX12ST ,CHMX12SE= $P($P(^CHM XDIC(74120 1.32,CHMXE RRI,0),"^" ,4),"*",3) ,CHBCSCE1= CHMX12SE
  127                   I ZCN T=1 S CHMX 12SC=$P($P (^CHMXDIC( 741201.32, CHMXERRI,0 ),"^",4)," *",1),CHBC SCC2=CHMX1 2SC,CHMX12 ST=$P($P(^ CHMXDIC(74 1201.32,CH MXERRI,0), "^",4),"*" ,2),CHBCSC 2=CHMX12ST ,CHMX12SE= $P($P(^CHM XDIC(74120 1.32,CHMXE RRI,0),"^" ,4),"*",3) ,CHBCSCE2= CHMX12SE
  128                   I ZCN T=2 S CHMX 12SC=$P($P (^CHMXDIC( 741201.32, CHMXERRI,0 ),"^",4)," *",1),CHBC SCC3=CHMX1 2SC,CHMX12 ST=$P($P(^ CHMXDIC(74 1201.32,CH MXERRI,0), "^",4),"*" ,2),CHBCSC 3=CHMX12ST ,CHMX12SE= $P($P(^CHM XDIC(74120 1.32,CHMXE RRI,0),"^" ,4),"*",3) ,CHBCSCE3= CHMX12SE
  129                   ;
  130                   K CHM XPTER(CHMX 1ER)
  131                   I $D( CHMXPTER)  S ZCNT=ZCN T+1 G WRPR OV
  132                   I '$D (CHBCSCC2)  S (CHBCSC C2,CHBCSC2 ,CHBCSCE2) =""
  133                   I '$D (CHBCSCC3)  S (CHBCSC C3,CHBCSC3 ,CHBCSCE3) =""
  134                   G WRI TERR
  135                   ;1.0  IS THE INI TIAL VERSI ON (HIPAA  Ready LLC)  END OF MO DIFICATION S JPN 10/1 0/06
  136                   ;
  137   PATLEV   S  CHMXCLCJ= $O(^CHMXCL C(CHMXCLC, 101,CHMXCL CJ)) G:'CH MXCLCJ WRP AT
  138                   S CHM XERRI=$P(^ CHMXCLC(CH MXCLC,101, CHMXCLCJ,0 ),"^",1)
  139                   S CHM XERR=+$E($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",1), 2,999)
  140                   S CHM XPTER(CHMX ERR)=CHMXE RRI
  141                   G PAT LEV
  142   WRPAT      I '$D(CHMX PTER) K CH MXERRI,CHM XERR,CHMXP TER S CHMX CLEJ=0 G C LMLEV
  143                   S CHM X1ER=0,CHM X1ER=$O(CH MXPTER(CHM X1ER))
  144                   S CHM XERRI=$P(C HMXPTER(CH MX1ER),"^" ,1)
  145                   ;
  146                   S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",4), "*",1),CHB CSCC1=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",4),"* ",2),CHBCS C1=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",4),"*",3 ),CHBCSCE1 =CHMX12SE
  147                   S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",5), "*",1),CHB CSCC2=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",5),"* ",2),CHBCS C2=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",5),"*",3 ),CHBCSCE2 =CHMX12SE
  148                   S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",6), "*",1),CHB CSCC3=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",6),"* ",2),CHBCS C3=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",6),"*",3 ),CHBCSCE3 =CHMX12SE
  149                   ;
  150                   K CHM XPTER
  151                   G WRI TERR
  152                   ;
  153   CLMLEV   S  CHMXCLEJ= $O(^CHMXCL E(CHMXCLE, 101,CHMXCL EJ)) G:'CH MXCLEJ WRC LM
  154                   S CHM XERRI=$P(^ CHMXCLE(CH MXCLE,101, CHMXCLEJ,0 ),"^",1)
  155                   S CHM XERR=+$E($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",1), 2,999)
  156                   S CHM XPTER(CHMX ERR)=CHMXE RRI
  157                   G CLM LEV
  158   WRCLM      I '$D(CHMX PTER) K CH MXERRI,CHM XERR,CHMXP TER G SVRL EV
  159                   S CHM X1ER=0,CHM X1ER=$O(CH MXPTER(CHM X1ER))
  160                   S CHM XERRI=$P(C HMXPTER(CH MX1ER),"^" ,1)
  161                   ;
  162                   S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",4), "*",1),CHB CSCC1=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",4),"* ",2),CHBCS C1=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",4),"*",3 ),CHBCSCE1 =CHMX12SE
  163                   S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",5), "*",1),CHB CSCC2=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",5),"* ",2),CHBCS C2=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",5),"*",3 ),CHBCSCE2 =CHMX12SE
  164                   S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",6), "*",1),CHB CSCC3=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",6),"* ",2),CHBCS C3=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",6),"*",3 ),CHBCSCE3 =CHMX12SE
  165                   ;
  166                   G WRI TERR
  167                   ;
  168   SVRLEV   S  CHMXCLF=$ O(^CHMXCLF ("B",CHMXC LE,CHMXCLF )) G:'CHMX CLF WRSVR
  169                    ;1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC ) 11/15/06  JPN ADDED  THE FOLLO WING 2 LIN ES OF CODE
  170                    ;TO  ALLOW FOR  THE FALSE  GOTO STATE MENT IF TH E VALUE=0   CODE WOUL D NOT DROP  DOWN BECA USE OF THI S
  171                   ;S CH MXCLFJ=$O( ^CHMXCLF(C HMXCLF,101 ,CHMXCLFJ) ) G:'CHMXC LFJ SVRLEV
  172   SVRLEVL S  CHMXCLFJ=$ O(^CHMXCLF (CHMXCLF,1 01,CHMXCLF J)) I CHMX CLFJ="" G  SVRLEV
  173                   I (CH MXCLFJ=0)! (CHMXCLFJ' ?1N) G SVR LEVL
  174                   S CHM XERRI=$P(^ CHMXCLF(CH MXCLF,101, CHMXCLFJ,0 ),"^",1)
  175                   S CHM XERR=+$E($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",1), 2,999)
  176                   S CHM XPTER(CHMX ERR)=CHMXE RRI
  177                   G SVR LEV
  178   WRSVR      I '$D(CHMX PTER) K CH MXERRI,CHM XERR,CHMXP TER S (CHB CSCC1,CHBC SCC2,CHBCS CC3,CHBCSC 1,CHBCSC2, CHBCSC3,CH BCSCE1,CHB CSCE2,CHBC SCE3)="" G  WRITERR
  179                   S CHM X1ER=0,CHM X1ER=$O(CH MXPTER(CHM X1ER))
  180                   S CHM XERRI=$P(C HMXPTER(CH MX1ER),"^" ,1)
  181                   ;
  182                   S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",4), "*",1),CHB CSCC1=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",4),"* ",2),CHBCS C1=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",4),"*",3 ),CHBCSCE1 =CHMX12SE
  183                   S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",5), "*",1),CHB CSCC2=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",5),"* ",2),CHBCS C2=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",5),"*",3 ),CHBCSCE2 =CHMX12SE
  184                   S CHM X12SC=$P($ P(^CHMXDIC (741201.32 ,CHMXERRI, 0),"^",6), "*",1),CHB CSCC3=CHMX 12SC,CHMX1 2ST=$P($P( ^CHMXDIC(7 41201.32,C HMXERRI,0) ,"^",6),"* ",2),CHBCS C3=CHMX12S T,CHMX12SE =$P($P(^CH MXDIC(7412 01.32,CHMX ERRI,0),"^ ",6),"*",3 ),CHBCSCE3 =CHMX12SE
  185                   ;
  186                   G WRI TERR
  187                   ;
  188   WRITERR D  WRGLOB
  189                   G REF NO6
  190                   Q
  191                   ;
  192                   ;
  193   WRGLOB   S  CHBRWCT=C HBRWCT+1
  194                   S CHM AXL=10,CHN UM=CHBRWCT  D STRPDL^ CHMXWB12 D  PADZROS^C HMXWB12 S  CHBRWCT=CH X4
  195                   ;
  196   DETAIL   S  CHBDRCID= "DTL",CHMA XL=4,CHXAL =CHBDRCID  D PADBLKS^ CHMXWB12 S  CHBDRCID= CHXAL
  197                   S CHB PAYID="002 32",CHMAXL =5,CHXAL=C HBPAYID D  PADBLKS^CH MXWB12 S C HBPAYID=CH XAL
  198                   S CHB BPFX=$P(^C HMXCLB(CHM XCLB,0),"^ ",2),CHMAX L=9,CHXAL= CHBBPFX D  PADBLKS^CH MXWB12 S C HBBPFX=CHX AL
  199                   S CHB BPPAN=" ", CHMAXL=20, CHXAL=CHBB PPAN D PAD BLKS^CHMXW B12 S CHBB PPAN=CHXAL
  200                   S CHB BPNPI=" ", CHMAXL=10, CHXAL=CHBB PNPI D PAD BLKS^CHMXW B12 S CHBB PNPI=CHXAL
  201                   S CHB BPLN=$P(^C HMXCLB(CHM XCLB,0),"^ ",3),CHMAX L=35,CHXAL =CHBBPLN D  PADBLKS^C HMXWB12 S  CHBBPLN=CH XAL
  202                   S CHB BPFN=" ",C HMAXL=25,C HXAL=CHBBP FN D PADBL KS^CHMXWB1 2 S CHBBPF N=CHXAL
  203                   S CHB SPFX=" ",C HMAXL=9,CH XAL=CHBSPF X D PADBLK S^CHMXWB12  S CHBSPFX =CHXAL
  204                   S CHB SPPAN=" ", CHMAXL=20, CHXAL=CHBS PPAN D PAD BLKS^CHMXW B12 S CHBS PPAN=CHXAL
  205                   S CHB SPNPI=" ", CHMAXL=10, CHXAL=CHBS PNPI D PAD BLKS^CHMXW B12 S CHBS PNPI=CHXAL
  206                   S CHB SPLN=" ",C HMAXL=35,C HXAL=CHBSP LN D PADBL KS^CHMXWB1 2 S CHBSPL N=CHXAL
  207                   S CHB SPFN=" ",C HMAXL=25,C HXAL=CHBSP FN D PADBL KS^CHMXWB1 2 S CHBSPF N=CHXAL
  208                   S CHB SID=$P(^CH MXCLC(CHMX CLC,0),"^" ,4),CHMAXL =30,CHXAL= CHBSID D P ADBLKS^CHM XWB12 S CH BSID=CHXAL
  209                   S CHB LNAM=$P(^C HMXCLC(CHM XCLC,0),"^ ",5),CHMAX L=35,CHXAL =CHBLNAM D  PADBLKS^C HMXWB12 S  CHBLNAM=CH XAL
  210                   S CHB FNAM=$P(^C HMXCLC(CHM XCLC,0),"^ ",6),CHMAX L=25,CHXAL =CHBFNAM D  PADBLKS^C HMXWB12 S  CHBFNAM=CH XAL
  211                   S CHB PSID=" ",C HMAXL=30,C HXAL=CHBPS ID D PADBL KS^CHMXWB1 2 S CHBPSI D=CHXAL
  212                   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^CHMXW B12 D PADZ ROS^CHMXWB 12 S CHBDO B=CHX4
  213                   S CHB SEX=$P(^CH MXCLC(CHMX CLC,0),"^" ,10)
  214                   I (CH BSEX'="M") &(CHBSEX'= "F") S CHB SEX="U"
  215                   S CHM AXL=1,CHXA L=CHBSEX D  PADBLKS^C HMXWB12 S  CHBSEX=CHX AL
  216                   ;
  217   CHBCSCC1         S CH MAXL=3,CHX AL=CHBCSCC 1 D PADBLK S^CHMXWB12  S CHBCSCC 1=CHXAL
  218                   S CHM AXL=3,CHXA L=CHBCSC1  D PADBLKS^ CHMXWB12 S  CHBCSC1=C HXAL
  219                   S CHM AXL=2,CHXA L=CHBCSCE1  D PADBLKS ^CHMXWB12  S CHBCSCE1 =CHXAL
  220   CHBCSCC2         S CH MAXL=3,CHX AL=CHBCSCC 2 D PADBLK S^CHMXWB12  S CHBCSCC 2=CHXAL
  221                   S CHM AXL=3,CHXA L=CHBCSC2  D PADBLKS^ CHMXWB12 S  CHBCSC2=C HXAL
  222                   S CHM AXL=2,CHXA L=CHBCSCE2  D PADBLKS ^CHMXWB12  S CHBCSCE2 =CHXAL
  223   CHBCSCC3         S CH MAXL=3,CHX AL=CHBCSCC 3 D PADBLK S^CHMXWB12  S CHBCSCC 3=CHXAL
  224                   S CHM AXL=3,CHXA L=CHBCSC3  D PADBLKS^ CHMXWB12 S  CHBCSC3=C HXAL
  225                   S CHM AXL=2,CHXA L=CHBCSCE3  D PADBLKS ^CHMXWB12  S CHBCSCE3 =CHXAL
  226                   ;
  227                   D NOW ^%DTC S CH DRT=$E(%,1 ,7)
  228                   I $E( CHDRT,1,1) ="2" S CEN DTE="19"
  229                   I $E( CHDRT,1,1) ="3" S CEN DTE="20"
  230                   S CHB CDTE=CENDT E_$E(CHDRT ,2,3)_$E(C HDRT,4,5)_ $E(CHDRT,6 ,7)
  231                   S CHM AXL=8,CHXA L=CHBCDTE  D PADBLKS^ CHMXWB12 S  CHBCDTE=C HXAL
  232                   ;
  233                   S CHB CCAMT=$P(^ CHMXCLE(CH MXCLE,2)," ^",1) D
  234                   .I CH BCCAMT'[". " S CHBCCA MT=CHBCCAM T_".00"
  235                   .S CH MAXL=15,CH NUM=CHBCCA MT D STRPD L^CHMXWB12  D PADZROS ^CHMXWB12  S CHBCCAMT =CHX4
  236                   S X1= $E(CHBCCAM T,2,13),X2 =$E(CHBCCA MT,14,15), CHBCCAMT=X 1_"."_X2
  237                   K X1, X2
  238                   ;
  239                   S CHB BTYPE=" ", CHMAXL=3,C HXAL=CHBBT YPE D PADB LKS^CHMXWB 12 S CHBBT YPE=CHXAL
  240                   S CHB PDI=$P(^CH MXCLE(CHMX CLE,100)," ^",2),CHMA XL=20,CHXA L=CHBPDI D  PADBLKS^C HMXWB12 S  CHBPDI=CHX AL
  241                   ;N PD IFLG,VERPD I   INFO T O STOP DUP LICATE PDI S TAKEN OU T TO MAKE  ROUTINE RU N FASTER
  242                   ;S (P DIFLG,VERP DI)=""   N EED TO SEE  ABOUT SOR TING WITH  ONLY 1 GLO BAL
  243                   ;D PD ITST
  244                   ;I PD IFLG=1 Q
  245                   ;
  246                   ; Com mented off  the follo wing secti on no paym ent inform ation shou ld be sent  to EMDEON
  247                   ; on  acknowledg ement resp onses (A*) .  Saved f or 5010 wh en final r esponses w ill be
  248                   ; sen t also - A JM 02/18/2 010 (DEF00 9102) 
  249                   ;S (N EWCPAMT,CH ACLM)=0,NE WCHACLM="" ,FLG=""
  250                   ;S CH BCPAMT=" " ,CHMAXL=15 ,CHNUM=CHB CPAMT D ST RPDL^CHMXW B12 D PADZ ROS^CHMXWB 12 S CHBCP AMT=CHX4
  251                   ;S CH BCPAMT="0" ,CHMAXL=15 ,CHNUM=CHB CPAMT D ST RPDL^CHMXW B12 D PADZ ROS^CHMXWB 12 S CHBCP AMT=CHX4
  252                   ;F  S  CHACLM=$O (^CHMPAY(" C",$E(CHBP DI,1,15),C HACLM))  Q :CHACLM=""   D
  253                   ;. I  $D(^CHMPAY (CHACLM,1) ) S CHBCPA MT=$P(^CHM PAY(CHACLM ,1),"^",14 ) D
  254                   ;.. I  CHBCPAMT' ["." S CHB CPAMT=CHBC PAMT_".00"
  255                   ;.. S  NEWCPAMT= NEWCPAMT+C HBCPAMT
  256                   ;.. I  FLG'=1 S  NEWCHACLM= CHACLM S F LG=1
  257                   ;.. Q
  258                   ;S CH ACLM=NEWCH ACLM
  259                   ;S CH BCPAMT=NEW CPAMT
  260                   ;S CH MAXL=15,CH NUM=CHBCPA MT D STRPD L^CHMXWB12  D PADZROS ^CHMXWB12  S CHBCPAMT =CHX4
  261                   ;S X1 =$E(CHBCPA MT,2,13),X 2=$E(CHBCP AMT,14,15) ,CHBCPAMT= X1_"."_X2
  262                   ;K X1 ,X2
  263                   ;S CH BCAPD=" ", CHMAXL=8,C HXAL=CHBCA PD D PADBL KS^CHMXWB1 2 S CHBCAP D=CHXAL
  264                   ;I CH ACLM>"1" S  CHBCAPD=$ E($P(^CHMP AY(CHACLM, 0),"^",10) ,1,7) D
  265                   ;.I $ E(CHBCAPD, 1,1)="2" S  CENDTE="1 9"
  266                   ;.I $ E(CHBCAPD, 1,1)="3" S  CENDTE="2 0"
  267                   ;.S C HBCAPD=CEN DTE_$E(CHB CAPD,2,3)_ $E(CHBCAPD ,4,5)_$E(C HBCAPD,6,7 )
  268                   ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S^CHMXWB12  S CHBCAPD =CHXAL
  269                   ;.I $ E(CHBCAPD, 3,3)=" " S  CHBCAPD=C HBCDTE
  270                   ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S^CHMXWB12  S CHBCAPD =CHXAL
  271                   ;.Q
  272                   ;S CH BCAPD=" ", CHMAXL=8,C HXAL=CHBCA PD D PADBL KS^CHMXWB1 2 S CHBCAP D=CHXAL
  273                   ;I CH BCPAMT<"1"  S CHBCAPD =" ",CHMAX L=8,CHXAL= CHBCAPD D  PADBLKS^CH MXWB12 S C HBCAPD=CHX AL
  274                   ;I CH BCPAMT>"0"  D
  275                   ;.S C HBPMC="CHK ",CHMAXL=3 ,CHXAL=CHB PMC D PADB LKS^CHMXWB 12 S CHBPM C=CHXAL
  276                   ;.I ' $D(^CHMPAY (CHACLM,7) ) Q
  277                   ;.I $ P(^CHMPAY( CHACLM,7), "^",7)>" "  S CHBPMC= "ACH",CHMA XL=3,CHXAL =CHBPMC D  PADBLKS^CH MXWB12 S C HBPMC=CHXA L
  278                   ;I CH BCPAMT<"1"  S CHBPMC= "NON",CHMA XL=3,CHXAL =CHBPMC D  PADBLKS^CH MXWB12 S C HBPMC=CHXA L
  279                   ;S CH BEFTD=CHBC APD,CHMAXL =8,CHXAL=C HBEFTD D P ADBLKS^CHM XWB12 S CH BEFTD=CHXA L
  280                   ;S CH BEFTN=" ", CHMAXL=20, CHXAL=CHBE FTN D PADB LKS^CHMXWB 12 S CHBEF TN=CHXAL
  281                   ;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^CHMXWB1 2 S CHBEFT N=CHXAL
  282                   ;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^ CHMXWB12 S  CHBEFTN=C HXAL
  283                   ;EFTN TST IS VAR IABLE USED  TO DETERM INE IF THE RE IS VALU E IN CHBEF TN  JPN  1 1/16/06
  284                   ;S EF TNTST=$E(C HBEFTN,1,1 ) I EFTNTS T'?1N S CH BEFTN="000 000000            "
  285                   ;TOOK  OUT CODE  AT BOTTOM  AFTER D BE LOW
  286                   ;I CH BCPAMT="00 0000000000 .00"  D
  287                   ;.S C HBPMC=" ", CHMAXL=3,C HXAL=CHBPM C D PADBLK S^CHMXWB12  S CHBPMC= CHXAL
  288                   ;.I P TR=6 S CHB PMC="NON"
  289                   ;.S C HBEFTN=" " ,CHMAXL=20 ,CHXAL=CHB EFTN D PAD BLKS^CHMXW B12 S CHBE FTN=CHXAL         
  290                   ;I CH BPMC="NON"  S CHBEFTN ="                      "
  291                   ;I (C HBCAPD="") !(CHBEFTD= "")!(CHBEF TN="") D
  292                   ;.S C HBCPAMT="0 ",CHBCAPD= " ",CHBPMC =" ",CHBEF TD=" ",CHB EFTN=" "
  293                   ;.S C HMAXL=15,C HNUM=CHBCP AMT D STRP DL^CHMXWB1 2 D PADZRO S^CHMXWB12  S CHBCPAM T=CHX4
  294                   ;.S C HMAXL=8,CH XAL=CHBCAP D D PADBLK S^CHMXWB12  S CHBCAPD =CHXAL
  295                   ;.S C HMAXL=3,CH XAL=CHBPMC  D PADBLKS ^CHMXWB12  S CHBPMC=C HXAL
  296                   ;.S C HMAXL=8,CH XAL=CHBEFT D D PADBLK S^CHMXWB12  S CHBEFTD =CHXAL
  297                   ;.S C HMAXL=20,C HXAL=CHBEF TN D PADBL KS^CHMXWB1 2 S CHBEFT N=CHXAL
  298                   ;.Q
  299                   ;
  300                   ; Fol lowing sec tion added  to mainta in files f ixed lengt h.
  301                   S CHB CPAMT=" ", CHBCAPD="  ",CHBPMC="  ",CHBEFTD =" ",CHBEF TN=" "
  302                   S CHB CPAMT="000 000000000. 00"
  303                   S CHM AXL=8,CHXA L=CHBCAPD  D PADBLKS^ CHMXWB12 S  CHBCAPD=C HXAL
  304                   S CHM AXL=3,CHXA L=CHBPMC D  PADBLKS^C HMXWB12 S  CHBPMC=CHX AL
  305                   S CHM AXL=8,CHXA L=CHBEFTD  D PADBLKS^ CHMXWB12 S  CHBEFTD=C HXAL
  306                   S CHM AXL=20,CHX AL=CHBEFTN  D PADBLKS ^CHMXWB12  S CHBEFTN= CHXAL
  307                   I CHB PDI<"1" S  CHBPDI=$P( ^CHMXCLE(C HMXCLE,100 ),"^",4),C HMAXL=20,C HXAL=CHBPD I D PADBLK S^CHMXWB12  S CHBPDI= CHXAL
  308                   ; (DE F009102)
  309                   S CHB MRI=" ",CH MAXL=20,CH XAL=CHBMRI  D PADBLKS ^CHMXWB12  S CHBMRI=C HXAL
  310                   S CHB PAN=" ",CH MAXL=20,CH XAL=CHBPAN  D PADBLKS ^CHMXWB12  S CHBPAN=C HXAL
  311                   ; 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
  312                   I $D( ^CHMXCLE(C HMXCLE,0))  S CHBPAN= $P(^CHMXCL E(CHMXCLE, 0),"^",2)  S CHMAXL=2 0,CHXAL=CH BPAN D PAD BLKS^CHMXW B12 S CHBP AN=CHXAL
  313                   ; 1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC ) JPN END  OF MODIFIC ATION
  314                   S CHB CSDS="",CH BSES=""
  315                   I '$D (^CHMXCLE( CHMXCLE,1) ) D ALTDAT E^CHMXWB12  G CHSED
  316                   S CHB CSDS=$P(^C HMXCLE(CHM XCLE,1),"^ ",1)
  317                   S CHB SES=$P(^CH MXCLE(CHMX CLE,1),"^" ,2)
  318                   I CHB CSDS="" D  ALTDATE^CH MXWB12 G C HSED
  319   CHSED      I CHBCSDS= "" S CHBCS DS="177607 04"
  320                   S CHM AXL=8,CHXA L=CHBCSDS  D PADBLKS^ CHMXWB12 S  CHBCSDS=C HXAL
  321                   I CHB SES=""  &  CHBCSDS'=" " S CHBSES =CHBCSDS
  322                   I CHB SES="" S C HBSES="177 60704"
  323                   S CHM AXL=8,CHXA L=CHBSES D  PADBLKS^C HMXWB12 S  CHBSES=CHX AL
  324                   ;
  325   ALTDTNXT         S CH BDFIL1=" " ,CHMAXL=98 ,CHXAL=CHB DFIL1 D PA DBLKS^CHMX WB12 S CHB DFIL1=CHXA L
  326                   ;
  327                   S CHB IUD="L",CH MAXL=1,CHX AL=CHBIUD  D PADBLKS^ CHMXWB12 S  CHBIUD=CH XAL
  328                   I '$D (^CHMXCLE( CHMXCLE,3) ) S CHBWCL M="" G SET
  329                   S CHB WCLM=$P(^C HMXCLE(CHM XCLE,3),"^ ",5)
  330                   I ($L (CHBWCLM)' =15)!(CHBW CLM'?15N)  S CHBWCLM= $P(^CHMXCL E(CHMXCLE, 3),"^",6)
  331                   I ($L (CHBWCLM)' =15)!(CHBW CLM'?15N)  S CHBWCLM= ""
  332                   S CHM AXL=15,CHX AL=CHBWCLM  D PADBLKS ^CHMXWB12  S CHBWCLM= CHXAL
  333                   ;
  334   SET          S XCHBCS CC1=CHBCSC C1_CHBCSC1 _CHBCSCE1_ CHBCSCC2_C HBCSC2_CHB CSCE2_CHBC SCC3_CHBCS C3_CHBCSCE 3
  335                   S XCH BDRCID=CHB DRCID_CHBR WCT_CHBPAY ID_CHBBPFX
  336                   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
  337                   ;
  338                   ;S ^C HMZHOLD("R KN_W277",$ J,"WEB_277 U_UPDT",CH BRWCT,0)=X CHBDRCID_X CHBBP
  339                   ;S ^C HMZHOLD("R KN_W277",$ J,"WEB_277 U_UPDT",CH BRWCT,1)=C HBCPAMT_CH BCAPD_CHBP MC_CHBEFTD _CHBEFTN_C HBBTYPE_CH BPDI_CHBMR I_CHBPAN_C HBCSDS_CHB SES_CHBDFI L1_CHBIUD
  340                   S ^CH MZHOLD("QR T_W277",$J ,"WEB_277U _UPDT",CHB RWCT,0)=XC HBDRCID_XC HBBP
  341                   S ^CH MZHOLD("QR T_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
  342                   ;
  343                   Q
  344                   ;
  345                   ;BROU GHT IN THI S SECTION  TO DIFFERE NTUATE BET WEEN THE Q UARTERLY R EPORT AND  THE REGULA R REPORT  
  346                   ;
  347   HEADER   S  CHBHRCID= "HDR",CHMA XL=4,CHXAL =CHBHRCID  D PADBLKS^ CHMXWB12 S  CHBHRCID= CHXAL
  348                   S CHB FGSN="01", CHMAXL=2,C HNUM=CHBFG SN D STRPD L^CHMXWB12  D PADZROS ^CHMXWB12  S CHBFGSN= CHX4
  349                   S CHB FGCNT="01" ,CHMAXL=2, CHNUM=CHBF GCNT D STR PDL^CHMXWB 12 D PADZR OS^CHMXWB1 2 S CHBFGC NT=CHX4
  350                   ;
  351                   S CUR DT=$H
  352                   S CHB CDTE=$ZDAT E(CURDT,8)
  353                   S CHB CTIME=$$GE THHMMSS^CH EDILIB(CUR DT)
  354                   S CHB FGID=CHBCD TE_CHBCTIM E,CHMAXL=2 0,CHXAL=CH BFGID D PA DBLKS^CHMX WB12 S CHB FGID=CHXAL
  355                   S CHB PAYID="002 32",CHMAXL =5,CHXAL=C HBPAYID D  PADBLKS^CH MXWB12 S C HBPAYID=CH XAL
  356                   S CHB SBNM="VA,  Health Adm in Center" ,CHMAXL=30 ,CHXAL=CHB SBNM D PAD BLKS^CHMXW B12 S CHBS BNM=CHXAL
  357                   ; 1.0  IS THE IN ITIAL VERS ION (HIPAA  Ready LLC ) 7/31/06B AS SET CHB RCNM BASED  ON TRADIN G PARTNER
  358                   ; S C HBRCNM="WE BMD/Empowe r",CHMAXL= 30,CHXAL=C HBRCNM D P ADBLKS S C HBRCNM=CHX AL
  359                   I CHT PABBR="ENV " S CHBRCN M="WEBMD/E mpower",CH MAXL=30,CH XAL=CHBRCN M D PADBLK S^CHMXWB12  S CHBRCNM =CHXAL
  360                   I CHT PABBR="MMI ACH" S CHB RCNM="MEDI CAL MATRIX  INC",CHMA XL=30,CHXA L=CHBRCNM  D PADBLKS^ CHMXWB12 S  CHBRCNM=C HXAL
  361                   ;1.0  IS THE INI TIAL VERSI ON (HIPAA  Ready LLC)  BAS - END  OF MODIFI CATION
  362                   S CHB LOADT="I"
  363                   I LDF LG=1 S CHB LOADT="F"
  364                   S CHB TRACE=CHBC DTE_CHBCTI ME,CHMAXL= 20,CHXAL=C HBTRACE D  PADBLKS^CH MXWB12 S C HBTRACE=CH XAL
  365                   S CHB FTYPE="Cst at",CHMAXL =8,CHXAL=C HBFTYPE D  PADBLKS^CH MXWB12 S C HBFTYPE=CH XAL
  366                   S CHB VERCD="02" ,CHMAXL=2, CHNUM=CHBV ERCD D STR PDL^CHMXWB 12 D PADZR OS^CHMXWB1 2 S CHBVER CD=CHX4
  367                   S CHB RELCD="00" ,CHMAXL=2, CHNUM=CHBR ELCD D STR PDL^CHMXWB 12 D PADZR OS^CHMXWB1 2 S CHBREL CD=CHX4
  368                   S CHB CPHO=" ",C HMAXL=10,C HXAL=CHBCP HO D PADBL KS^CHMXWB1 2 S CHBCPH O=CHXAL
  369                   S CHB CEXT=" ",C HMAXL=10,C HXAL=CHBCE XT D PADBL KS^CHMXWB1 2 S CHBCEX T=CHXAL
  370                   S CHB CNAM=" ",C HMAXL=60,C HXAL=CHBCN AM D PADBL KS^CHMXWB1 2 S CHBCNA M=CHXAL
  371                   S CHB CEML=" ",C HMAXL=80,C HXAL=CHBCE ML D PADBL KS^CHMXWB1 2 S CHBCEM L=CHXAL
  372                   ;
  373                   S CON TACT=CHBCN AM_CHBCPHO _CHBCEXT_C HBCEML
  374                   ;
  375                   S CHB HFIL1="",C HMAXL=100, CHXAL=CHBH FIL1 D PAD BLKS^CHMXW B12 S CHBH FIL1=CHXAL
  376                   S CHB HFIL2="",C HMAXL=299, CHXAL=CHBH FIL2 D PAD BLKS^CHMXW B12 S CHBH FIL2=CHXAL
  377                   S CHB EOF="X",CH MAXL=1,CHX AL=CHBEOF  D PADBLKS^ CHMXWB12 S  CHBEOF=CH XAL
  378                   ;
  379                   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,!," ~",!
  380                   ;
  381                   S CHR WCT1=0
  382                   D WRC NT
  383                   D CLO SEF^CHTFLI B9(IO,"IO" ) ;C IO -  DGC 1/16/2 014 DEV012 893
  384                   Q
  385                   ;
  386   WRCNT      ;S CHRWCT1 =$O(^CHMZH OLD("RKN_W 277",$J,"W EB_277U_UP DT",CHRWCT 1)) G:'CHR WCT1 TRAIL R
  387                   ;S CH RCT1A=^CHM ZHOLD("RKN _W277",$J, "WEB_277U_ UPDT",CHRW CT1,0)
  388                   ;S CH RCT2A=^CHM ZHOLD("RKN _W277",$J, "WEB_277U_ UPDT",CHRW CT1,1)
  389                   S CHR WCT1=$O(^C HMZHOLD("Q RT_W277",$ J,"WEB_277 U_UPDT",CH RWCT1)) G: 'CHRWCT1 T RAILR
  390                   S CHR CT1A=^CHMZ HOLD("QRT_ W277",$J," WEB_277U_U PDT",CHRWC T1,0)
  391                   S CHR CT2A=^CHMZ HOLD("QRT_ W277",$J," WEB_277U_U PDT",CHRWC T1,1)
  392                   W CHR CT1A,!,"~" ,CHRCT2A,!
  393                   G WRC NT
  394                   ;
  395   TRAILR   S  CHBTRCID= "TRLR",CHM AXL=4,CHXA L=CHBTRCID  D PADBLKS ^CHMXWB12  S CHBTRCID =CHXAL
  396                   S CHB PAYID="002 32"
  397                   S CHB RCCNT=CHBR WCT,CHMAXL =10,CHNUM= CHBRCCNT D  STRPDL^CH MXWB12 D P ADZROS^CHM XWB12 S CH BRCCNT=CHX 4
  398                   S CHB TFIL1=" ", CHMAXL=480 ,CHXAL=CHB TFIL1 D PA DBLKS^CHMX WB12 S CHB TFIL1=CHXA L
  399                   S CHB TFIL2=" ", CHMAXL=200 ,CHXAL=CHB TFIL2 D PA DBLKS^CHMX WB12 S CHB TFIL2=CHXA L
  400                   S CHB EOF="X",CH MAXL=1,CHX AL=CHBEOF  D PADBLKS^ CHMXWB12 S  CHBEOF=CH XAL
  401                   W CHB TRCID_CHBP AYID_CHBRC CNT_CHBTFI L1,!,"~",C HBTFIL2_CH BEOF
  402                   Q
  403                   ;
  404                    ;TRA ILR  S CHB TRCID="TRL R",CHMAXL= 4,CHXAL=CH BTRCID D P ADBLKS^CHM XWB12 S CH BTRCID=CHX AL
  405                   ;S CH BPAYID="00 232"
  406                   ;S CH BRCCNT=CHB RWCT,CHMAX L=10,CHNUM =CHBRCCNT  D STRPDL^C HMXWB12 D  PADZROS^CH MXWB12 S C HBRCCNT=CH X4
  407                   ;S CH BTFIL1=" " ,CHMAXL=48 0,CHXAL=CH BTFIL1 D P ADBLKS^CHM XWB12 S CH BTFIL1=CHX AL
  408                   ;S CH BTFIL2=" " ,CHMAXL=20 0,CHXAL=CH BTFIL2 D P ADBLKS^CHM XWB12 S CH BTFIL2=CHX AL
  409                   ;S CH BEOF="X",C HMAXL=1,CH XAL=CHBEOF  D PADBLKS ^CHMXWB12  S CHBEOF=C HXAL
  410                   ;W CH BTRCID_CHB PAYID_CHBR CCNT_CHBTF IL1,!,"~", CHBTFIL2_C HBEOF
  411                   ;Q
  412                   ;
  413                   ;
  414                   ;
  415   AUTOMM     D NOW^%DTC
  416                   S ZRK DTE=%
  417                   S CHN B=2,ZML(CH NB)="",ZML (CHNB)=CHV MSFL_"  (T otal Recor ds = "_CHB RCCNT_")", CHNB=CHNB+ 1,ZML(CHNB )=""
  418                   ; BAS  - MADE RE FERENCE GE NERIC
  419                   ; S C HNB=CHNB+1 ,ZML(CHNB) ="NOTICE:  Successful  CREATION  WebMD 277U  STAT file !"
  420                   S CHN B=CHNB+1,Z ML(CHNB)=" NOTICE: Su ccessful C REATION 27 7U STAT fi le!"
  421                   ; BAS  -END MOD
  422                   S CHN B=CHNB+1,Z ML(CHNB)=" EDI BATCH  NUMBER ^CH MXCL("_CHM XI_",0)"
  423                   ; BAS  - CHANGED  E-MAIL AN D WEBMD RE FERENCE
  424                    S XMDUZ=.5 ,XMY("2745 77")="",XM Y("246183" )="",XMY(" PII                   ")="",XMY( "
P II                   ")=""
  425                   S XMT EXT="ZML(" ,XMSUB="27 7U WebMD.. Success.." _FMDATE
  426                    ;S XMDUZ=. 5,XMY("107 22")="",XM Y("246183" )="",XMY(" PII                    ")=""
  427                   ;S XM Y(" PII                               ")= ""
  428                   ; BAS  -END MOD
  429                   D ^XM D
  430                   ;
  431                   ;//// //////// U NREMARK FO R PRODUCTI ON /////// ////////// ////
  432                   ;S ^C HMZHOLD("R KN_W277X", CHMXI,"SEN T MAIL",ZR KDTE)=CHBR CCNT_"^"_D UZ
  433                   S ^CH MZHOLD("QR T_W277X",C HMXI,"SENT  MAIL",ZRK DTE)=CHBRC CNT_"^"_DU Z
  434                   K ZRK DTE
  435                   ;//// //////// U NREMARK FO R PRODUCTI ON /////// ////////// ////
  436                   ;
  437                   Q
  438                   ;
  439   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
  440                   K CHB CSCC1,CHBC SC1,CHBCSC C2,CHBCSC2 ,CHBCSCC3, CHBCSC3
  441                   K CHB CDTE,CHBCC AMT,CHBCPA MT,CHBCAPD ,CHBPMC,CH BEFTD,CHBE FTN,CHBBTY PE,CHBPDI, CHBMRI,CHB CSDS,CHBSE S,CHBDFIL1
  442                   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
  443                   K CHB FGID,CHBFG SN,CHBFGCN T,CHBBPPAN ,CHBBPNPI, CHBSPPAN,C HBSPNPI,CH BPAN,CHBIU D,CHBEOF,C HACLM
  444                   ;K ^C HMZHOLD("R KN_W277")
  445                   K ^CH MZHOLD("QR T_W277")
  446                   Q
  447                   ;
  448   PDITST  ;T EST TO SEE  IF DUP PD IS
  449                    S VE RPDI=0
  450                    F  S  VERPDI=$O (^CHMZHOLD ("PDI",VER PDI)) Q:VE RPDI=""  D
  451                    . I  VERPDI=CHB PDI S PDIF LG=1
  452                    . Q
  453                    I PD IFLG'=1 S  ^CHMZHOLD( "PDI",CHBP DI)=""
  454                    Q
  455                   ;
  456                   ;
  457                   ;
  458                   ;
  459                   ;12/6 /06 6:44PM
  460                   ;
  461           
  462