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

250.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXPU03.m Mon Nov 5 16:44:02 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXPU03.m Mon Nov 5 17:53:10 2018 UTC

250.2 Comparison summary

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

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

250.4 Active regular expressions

No regular expressions were active.

250.5 Comparison detail

  1   CHMXPU03         ;CVA /DTP;X12 8 37 READ ED IT UTILITY  #3 (HEALT H CARE CLA IMS);02/06 /98  1:34  PM
  2           ;; 1.0;CHAMPV A SYSTEM;; JULY 11,20 11;Build 1
  3           ;; CPTS #1137 4 BY DTP ( 18-DEC-96)
  4           ;; SPECIAL ED ITS FOR 83 7 RECORD R EAD AT CLA IM LEVELS
  5           ;; CALLED IND IRECTLY BY  GENREAD^C HMXPU01+15  (CHEDRTN  IS DEFINED )
  6           ;;              
  7           ;; BUG00056 -  AJM 07-FE B-2008 mod ified FE e dits per E NC00056
  8           ;; DEF019402  FE Edit in correctly  returned a  claim BMJ  01/16/14    
  9   ICTYPP  ;C HECKS PRES ENCE OF TH E IC TYPE- -SECOND PA RT OF GS08  DATA
  10           I  '$D(CHFLD( CHFLPN)) D  RCDERR^CH MXPU01 G I CTYPP1
  11           S  CHICTYP=$E (CHFLD(CHF LPN),7,15)  I CHICTYP ="" D RCDE RR^CHMXPU0 1 G ICTYPP 1
  12   ICTYPP1 K  CHICTYP Q
  13           ; 
  14   ICTYPV  ;V ALIDATE IC  TYPE(2ND  PART OF GS 08) BY LOO KING UP IN  SET OF CO DES
  15           Q: $D(CHRCERR (CHXREC,"A 014a"))
  16           S  CHFLDHLD=C HFLD(CHFLP N),CHFLD(C HFLPN)=$E( CHFLD(CHFL PN),7,15), CHCVFL="^C HMXDIC(741 201.38,""C "",1,",CHC VDIR=""
  17           D  5011^CHMXP U01
  18   ICTYPV1 S  CHFLD(CHFL PN)=CHFLDH LD K CHFLD HLD,CHCVDI R Q
  19           ; 
  20   TSVRNP  ;C HECKS PRES ENCE OF TH E TS VERSI ON--FIRST  PART OF GS 08 DATA
  21           I  '$D(CHFLD( CHFLPN)) D  RCDERR^CH MXPU01 G T SVRNP1
  22           S  CHTSVRN=$E (CHFLD(CHF LPN),1,6)  I CHTSVRN= "" D RCDER R^CHMXPU01  G TSVRNP1
  23   TSVRNP1 K  CHTSVRN Q
  24           ; 
  25   TSVRNV  ;V ALIDATE TS  VERSION ( 2ND PART O F GS08) BY  LOOKING U P IN SET O F CODES
  26           Q: $D(CHRCERR (CHXREC,"A 014b"))
  27           S  CHFLDHLD=C HFLD(CHFLP N),CHFLD(C HFLPN)=$E( CHFLD(CHFL PN),1,6),C HCVFL="^CH MXDIC(7412 01.33,1,10 2,""B"",", CHCVDIR=""
  28           D  5011^CHMXP U01
  29   TSVRNV1 S  CHFLD(CHFL PN)=CHFLDH LD K CHFLD HLD Q
  30           ; 
  31   CLTPCD  ;C LAIM TYPE  CODE MUST  BE PRESENT  IF IC TYP E = "PHYS"  OR IC TYP E = "HOSP"
  32           ;A ND BILL TY PE = 13 AN D IT MUST  BE FOUND I N DD FOR D E #1343
  33           D  GETIC I $D (CHEDPRB)  S CHPRB=CH EDRJ G CLT PCD1
  34           I  '$D(RCD) S  CHEDPRB=" ",CHPRB=CH EDRJ G CLT PCD1
  35           S: CHX12VRS=1  CHZZBEG=4 2,CHZZEND= 43
  36           ;M ethodical- 5010 Chang e-Begin
  37           S: (CHX12VRS= 2)!(CHX12V RS=3) CHZZ BEG=43,CHZ ZEND=44
  38           ;M ethodical- 5010 Chang e-End
  39           S  Y=$E(RCD,C HZZBEG,CHZ ZEND),CHBL TP=$$TRIM^ CHMXPU01(Y ) I CHBLTP ="" S CHED RJHL=CHEDR J,CHEDRJ=" E04a" D RC DERR^CHMXP U01 S CHED RJ=CHEDRJH L G CLTPCD 1
  40           S: CHX12VRS=1  CHZZBEG=4 4
  41           ;M ethodical- 5010 Chang e-Begin
  42           S: (CHX12VRS= 2)!(CHX12V RS=3) CHZZ BEG=45
  43           ;M ethodical- 5010 Chang e-End
  44           S  Y=$E(RCD,C HZZBEG),CH QLF=$$TRIM ^CHMXPU01( Y) I CHQLF ="" S CHED RJHL=CHEDR J,CHEDRJ=" E05a" D RC DERR^CHMXP U01 S CHED RJ=CHEDRJH L G CLTPCD 1
  45           I  ((CHICTP=" PHYS")&(CH FLD(CHFLPN )=""))!((C HICTP="HOS P")&(CHBLT P=13)&(CHQ LF="A")&(C HFLD(CHFLP N)="")) D  RCDERR^CHM XPU01 G CL TPCD1
  46           Q: CHFLD(CHFL PN)=""
  47           I  '$D(CHMXDI C(741201.0 2,"B",CHFL D(CHFLPN)) ) D RCDERR ^CHMXPU01  G CLTPCD1
  48   CLTPCD1 K  CHICTP,CHB LTP,CHQLF, CHEDRJHL,C HZZBEG,CHZ ZEND Q
  49           ;
  50           ;  ajm - adde d new subr outine BUG 00056
  51   BTPOSI
  52           NE W CHBTQLF, POS
  53           Q: $D(CHRCERR (CHXREC,"E 05a"))
  54           I  '$D(RCD) S  CHEDPRB=" ",CHPRB=CH EDRJ Q
  55           S  CHBTQLF=$$ GETPOSQAL( RCD)
  56           Q: '(CHBTQLF= "A") ;THIS  EDIT ONLY  APPLIES T O INSTUTIO NAL CLAIMS
  57           IF  $D(CHFLD( CHFLPN)) {
  58            S ET POS = C HFLD(CHFLP N)
  59           }E LSE{
  60            S ET POS=""
  61           }
  62           I  (POS="")|| '$D(^CHMXD IC(741201. 03,"B",POS )) D RCDER R^CHMXPU01
  63           Q
  64           ; 
  65           ;  PLACE OF S ERVCE CODE  MUST MATC H A CODE F ROM LIST O F VALID PL ACES OF SE RVCE
  66           ;  THIS SUB R OUTINE ONL Y APPLIES  TO PROFESS IONAL OR D ENTAL CLAI MS.
  67   BTPOS   
  68           NE W CHBTQLF,  POS
  69           Q: $D(CHRCERR (CHXREC,"E 04c"))
  70           I  '$D(RCD) S  CHEDPRB=" ",CHPRB=CH EDRJ Q
  71           S  CHBTQLF=$$ GETPOSQAL( RCD)
  72           Q: '((CHBTQLF ="B")||(CH BTQLF="C") )   ;THIS  EDIT ONLY  APPLIES TO  PROF OR D ENTAL CLAI MS
  73           IF  $D(CHFLD( CHFLPN)) {
  74            S ET POS = C HFLD(CHFLP N)
  75           }E LSE{
  76            S ET POS=""
  77           }
  78           I  (POS=41)!( POS=42) S  ^RREC($J," E026")=""        D DE BUG^CHMXDR 01("POS RE QUIRES E02 6 REC FLAG  SET",POS)                    ;  PROF AMBUL ATORY POS  CODE REQUI RES E206 R ECORD
  79           I  (POS="")|| '$D(^CHMXD IC(741201. 59,"B",POS )) D RCDER R^CHMXPU01
  80           ;I  '$D(RCD)  S CHEDPRB= "",CHPRB=C HEDRJ G BT POS1
  81           ;S :CHX12VRS= 1 CHZZBEG= 44
  82           ;S :CHX12VRS= 2 CHZZBEG= 45
  83           ;S  Y=$E(RCD, CHZZBEG,CH ZZBEG),CHB TQLF=$$TRI M^CHMXPU01 (Y) I CHBT QLF="" S C HEDRJHL=CH EDRJ,CHEDR J="E05a" D  RCDERR^CH MXPU01 S C HEDRJ=CHED RJHL G BTP OS1
  84           ;I  (CHBTQLF= "A")&('$D( ^CHMXDIC(7 41201.03," B",CHFLD(C HFLPN))))  D RCDERR^C HMXPU01 G  BTPOS1
  85           ;I  (CHBTQLF= "B")&('$D( ^CHMXDIC(7 41201.59," B",CHFLD(C HFLPN))))  S CHEDRJ=" E04c" D RC DERR^CHMXP U01 G BTPO S1
  86           ;I  (CHBTQLF= "C")&('$D( ^CHMXDIC(7 41201.59," B",CHFLD(C HFLPN))))  S CHEDRJ=" E04c" D RC DERR^CHMXP U01 G BTPO S1
  87           Q
  88           ; 
  89           ; 
  90           ;M ethodical- 5010 Chang e-Begin
  91   BTPOSD   ;  Validate  Dental pla ce of serv ice codes
  92           NE W CHBTQLF, POS
  93           I  '$D(RCD) S  CHEDPRB=" ",CHPRB=CH EDRJ Q
  94           S  CHBTQLF=$$ GETPOSQAL( RCD)
  95           Q: '(CHBTQLF= "C") ;THIS  EDIT ONLY  APPLIES T O DENTAL C LAIMS
  96           IF  $D(CHFLD( CHFLPN)) {
  97            S ET POS = C HFLD(CHFLP N)
  98           }E LSE{
  99            S ET POS=""
  100           }
  101           I  POS="" D R CDERR^CHMX PU01 Q
  102           ;P OS for den t
  103           I  POS="01"!( POS="25")! (POS="41") !(POS="42" ) D RCDERR ^CHMXPU01
  104           Q
  105           ;M ethodical- 5010 Chang e-End
  106           ; 
  107           ;  GIVEN THE  "E000" REC ORD WILL R ETURN THE  PLACE OF S ERVICE QUA LIFIER
  108           ;  RETURNS: " A" - INSTI TUTIONAL
  109           ;           " B" - PROFE SSIONAL
  110           ;           " C" - DENTA L
  111           ;           " "  - UNDET ERMIED OR  NOT PASSED  IN THE "E 000" RECOR D
  112           ;
  113           ;   Comment b y MI/JS on  15-Nov-20 11:
  114           ;   --------- ---------- ---------- ---
  115           ;   The Place  of Servic e qualifie r does no  longer det ermine the  claim typ e, since b oth Profes sional and  Dental
  116           ;   claims ar e now indi cated with  B (no lon ger C for  dental).   The follow ing routin e was chan ged to det ermine
  117           ;   the claim  type corr ectly by c alling an  appropriat e function  in the CH MXP010 rou tine. Also , this fun ction
  118           ;   will not  return a n ull string  any longe r.
  119           ;
  120   GETPOSQAL( RCD)
  121           ;M ethodical- 5010 Chang e-Begin
  122           Q  $$CLMTYPE^ CHMXP010()
  123           ;M ethodical- 5010 Chang e-End
  124           NE W CHZZBEG, QLF,RTN 
  125           ;R ETURN NULL  IF NULL I S PASSED I N OR RCD I S NOT THE  E000 RECOR D
  126           Q: ($E(RCD,1, 4)'="E000" ) ""
  127           S: CHX12VRS=1  CHZZBEG=4 4
  128           ;M ethodical- 5010 Chang e-Begin
  129           S: (CHX12VRS= 2)!(CHX12V RS=3) CHZZ BEG=45
  130           ;M ethodical- 5010 Chang e-End
  131           S  QLF=$E(RCD ,CHZZBEG,C HZZBEG)
  132           S  RTN=$$TRIM ^CHMXPU01( QLF)
  133           ;  RETURN NUL L IF NOT A  RECOGNIZE D FACILITY  TYPE
  134           IF  '((RTN="A ")||(RTN=" B")||(RTN= "C")) {
  135            S  RTN=""
  136           }
  137           Q  RTN
  138           ; 
  139           ; 
  140   BTPROC  ;I F QUALIFIE R="A" FOR  BILL TYPE,  CHECK TO  SEE IF IT  IS A BILL  TYPE HAC
  141           ;I S PROCESSI NG
  142           Q: $D(CHRCERR (CHXREC,"E 04a"))  Q: $D(CHRCERR (CHXREC,"E 05"))
  143           D  BTQLF I $D (CHEDPRB)  S CHPRB=CH EDRJ G BTP ROC1
  144           Q: CHBTQLF'=" A"
  145           I  (CHBTQLF=" A")&('$D(^ CHMXDIC(74 1201.03,"C ",1,CHFLD( CHFLPN))))  D RCDERR^ CHMXPU01 G  BTPROC1
  146   BTPROC1 K  CHBTQLF Q
  147           ; 
  148   FREQA   ;C HECK FOR P RESENCE OF  CLAIM FRE QENCY GIVE N CERTAIN  CONDITIONS
  149           Q: $D(CHRCERR (CHXREC,"E 05a"))  Q: $D(CHRCERR (CHXREC,"E 05b"))
  150           D  GETIC I $D (CHEDPRB)  S CHPRB=CH EDRJ G FRE QA1
  151           D  BTQLF I $D (CHEDPRB)  S CHPRB=CH EDRJ G FRE QA1
  152           Q: CHBTQLF'=" A"
  153           I  ((CHICTP=" HOSP")!(CH BTQLF="A") )&(CHFLD(C HFLPN)="")  D RCDERR^ CHMXPU01 G  FREQA1
  154   FREQA1  K  CHICTP,CHB TQLF Q
  155           ; 
  156   FREQB   ;C ODE VALIDA TION FOR C LAIM FREQU ENCY
  157           Q: $D(CHRCERR (CHXREC,"E 06a"))  Q: $D(CHRCERR (CHXREC,"E 05a"))  Q: $D(CHRCERR (CHXREC,"E 05b"))
  158           D  GETIC I $D (CHEDPRB)  S CHPRB=CH EDRJ G FRE QA1
  159           D  BTQLF I $D (CHEDPRB)  S CHPRB=CH EDRJ G FRE QB1
  160           Q: CHBTQLF'=" A"
  161           I  ((CHICTP=" HOSP")!(CH BTQLF="A") )&('$D(^CH MXDIC(7412 01.05,"B", CHFLD(CHFL PN)))) D R CDERR^CHMX PU01 G FRE QB1
  162   FREQB1  K  CHICTP,CHB TQLF Q
  163           ; 
  164   FREQC   ;C HECK TO SE E IF CLAIM  FREQENCY  FOR CLAIM  IS CURRENT LY PROCESS ED BY HAC
  165           Q: $D(CHRCERR (CHXREC,"E 06a"))  Q: $D(CHRCERR (CHXREC,"E 05a"))  Q: $D(CHRCERR (CHXREC,"E 05b"))
  166           D  GETIC I $D (CHEDPRB)  S CHPRB=CH EDRJ G FRE QA1
  167           D  BTQLF I $D (CHEDPRB)  S CHPRB=CH EDRJ G FRE QB1
  168           Q: CHBTQLF'=" A"
  169           I  ((CHICTP=" HOSP")!(CH BTQLF="A") )&('$D(^CH MXDIC(7412 01.05,"C", 1,CHFLD(CH FLPN)))) D  RCDERR^CH MXPU01 G F REQC1
  170   FREQC1  K  CHICTP,CHB TQLF Q
  171           ; 
  172   FREQD   ;C HECK FOR C LAIM FREQU ENCY 8 (VO ID/CANCEL)  AND SET U P WITH ACK NOWLEGDMEN T, BUT REJ ECT THIS A S A PROCES SABLE CLAI M
  173           I  CHFLD(CHFL PN)=8 D RC DERR^CHMXP U01 G FREQ D1
  174   FREQD1  Q
  175           ;
  176           ;M ethodical- 5010 Chang e-Begin -  Validata F requency C ode
  177   FREQE   ;F REQECODE V ALIDATION  FOR CLAIM  FREQUENCY  for Dental  and Opt
  178           D  DEBUG^CHMX DR01("CHMX PU03: FREQ E CHFLD(CH FLPN)= ",C HFLD(CHFLP N))
  179           Q: CHFLD(CHFL PN)=""
  180           I  ('$D(^CHMX DIC(741201 .05,"C",1, CHFLD(CHFL PN)))) D R CDERR^CHMX PU01 
  181           Q
  182           ;M ethodical- 5010 Chang e-End 
  183           
  184   BALDUE  ;P ATIENT BAL ANCE DUE M UST NOT BE  > TOTAL C HARGES
  185           Q: $D(CHRCERR (CHXREC,"E 21a"))  Q: $D(CHRCERR (CHXREC,"E 23a"))
  186           I  '$D(RCD) S  CHEDPRB=" ",CHPRB=CH EDRJ G BAL DUE1
  187           S: CHX12VRS=1  CHZZBEG=5 ,CHZZEND=1 9
  188           ;M ethodical- 5010 Chang e-Begin
  189           S: (CHX12VRS= 2)!(CHX12V RS=3) CHZZ BEG=5,CHZZ END=22
  190           ;M ethodical- 5010 Chang e-End
  191           S: CHX12VRS=1  CHTOT=+($ E(RCD,CHZZ BEG,CHZZEN D)/100)
  192           ;M ethodical- 5010 Chang e-Begin
  193           S: (CHX12VRS= 2)!(CHX12V RS=3) CHTO T=+($E(RCD ,CHZZBEG,C HZZEND))
  194           ;M ethodical- 5010 Chang e-End
  195           I  CHTOT="" S  CHEDPRB=" ",CHPRB=CH EDRJ G BAL DUE1
  196           I  (+(CHFLD(C HFLPN)))>C HTOT D RCD ERR^CHMXPU 01 G BALDU E1
  197   BALDUE1 K  CHZZBEG,CH ZZEND,CHTO T Q
  198           ; 
  199   PTDCDP  ;C HECK PRESE NCE OF DIS CHARGE STA TUS (COND:   BILL TYP E=11/12 OR  IC=HOSP)
  200           D  GETIC I $D (CHEDPRB)  S CHPRB=CH EDRJ G PTD CDP1
  201           D  RBTQLF I $ D(CHEDPRB)  S CHPRB=C HEDRJ G PT DCDP1
  202           Q: CHBTQLF'=" A"
  203           ;I  ((CHICTP= "HOSP")!(C HBTQLF="A" ))&('$D(CH FLD(CHFLPN ))) D RCDE RR^CHMXPU0 1 G PTDCDP 1
  204           I  ($D(^CHMXD IC(741201. 03,"D",1,C HBTYP)))&( '$D(CHFLD( CHFLPN)))  D RCDERR^C HMXPU01 G  PTDCDP1
  205   PTDCDP1 K  CHICTP,CHB TQLF,CHTYP B Q
  206           ; 
  207   PTDCDV  ;C HECK VALID ITY OF DIS CHARGE STA TUS (COND:  BILL TYPE =11/12 OR  IC=HOSP)
  208           Q: CHFLD(CHFL PN)=""
  209           ;M ethodical- 5010 Chang e-Begin  -  Comment o ut this co de
  210              ;Q:$D(CHRC ERR(CHXREC ,"E31"))
  211           ;M ethodical- 5010 Chang e-End 
  212           D  GETIC I $D (CHEDPRB)  S CHPRB=CH EDRJ G PTD CDV1
  213           D  RBTQLF I $ D(CHEDPRB)  S CHPRB=C HEDRJ G PT DCDV1
  214           Q: CHBTQLF'=" A"
  215           I  ((CHICTP=" HOSP")!(CH BTQLF="A") )&('$D(^CH MDIC(74100 2.12,"B",C HFLD(CHFLP N)))) D RC DERR^CHMXP U01 G PTDC DV1
  216   PTDCDV1 K  CHICTP,CHB TQLF,CHTYP B Q
  217           ;
  218   PTDCBT  ;I F BILL FRE Q = 1 OR 4 , PATIENT  STATUS MUS T EQUAL DI SCHARGE FR OM INST.
  219           Q: CHFLD(CHFL PN)=""
  220           Q: $D(CHRCERR (CHXREC,"E 31a"))  I  '$D(^CHMXC LE(CHCLEI, 0)) S CHED PRB="",CHP RB=CHEDRJ  G PTDCBT1
  221           ;S  CHFREQ=$P (^CHMXCLE( CHCLEI,0), "^",6)
  222           ;I  CHFREQ=""  S CHEDPRB ="",CHPRB= CHEDRJ G P TDCBT1
  223           ;I  ((CHFREQ= 1)!(CHFREQ =4))&('$D( ^CHMDIC(74 1002.12,"D ",1,CHFLD( CHFLPN))))  D RCDERR^ CHMXPU01 G  PTDCBT1
  224           D  GETIC I $D (CHEDPRB)  S CHPRB=CH EDRJ G PTD CDP1
  225           D  RBTQLF I $ D(CHEDPRB)  S CHPRB=C HEDRJ G PT DCDP1
  226           Q: CHBTQLF'=" A"
  227           ;I  ((CHICTP= "HOSP")!(C HBTQLF="A" ))&('$D(CH FLD(CHFLPN ))) D RCDE RR^CHMXPU0 1 G PTDCDP 1
  228           I  ($D(^CHMXD IC(741201. 03,"E",1,C HBTYP)))&( '$D(CHFLD( CHFLPN)))  D RCDERR^C HMXPU01 G  PTDCBT1
  229   PTDCBT1 K  CHBTYP Q
  230           ; 
  231   NHRSP   ;C HECK PRESE NCE OF NH  RESIDENTIA L STATUS ( COND: PI=F EE)
  232           D  GETPI I $D (CHEDPRB)  S CHPRB=CH EDRJ G NHR SP1
  233           I  (CHPI="VA7 41-FEE")&( CHFLD(CHFL PN)="") D  RCDERR^CHM XPU01 G NH RSP1
  234   NHRSP1  K  CHPI Q
  235           ; 
  236   NHRSV   ;V ALIDATE NH  RESIDENTI AL STATUS  CODE (COND :  PI=FEE)
  237           Q: $D(CHRCERR (CHXREC,"E 32"))  Q:C HFLD(CHFLP N)=""
  238           D  GETPI I $D (CHEDPRB)  S CHPRB=CH EDRJ G NHR SV1
  239           I  (CHPI="VA7 41-FEE")&( '$D(^CHMXD IC(741201. 09,"B",CHF LD(CHFLPN) ))) D RCDE RR^CHMXPU0 1 G NHRSV1
  240   NHRSV1  K  CHPI Q
  241           ; 
  242   GETIC   ;P ULLS IMP C ONV TYPE F ROM HEADER  GLOBAL
  243           I  '$D(^CHMXC LA(CHCLAI, 0)) S CHED PRB="" Q
  244           S  CHICTP=$E( $P(^CHMXCL A(CHCLAI,0 ),"^",14), 7,99)
  245           Q: CHICTP=""
  246           Q
  247           ; 
  248   BTQLF   ;P ULLS BILL  TYPE QUALI FIER FROM  RECORD JUS T READ
  249           I  '$D(RCD) S  CHEDPRB=" ",CHPRB=CH EDRJ G FRE QA1
  250           S: CHX12VRS=1  CHZZBEG=4 4,CHZZEND= 44
  251           ;M ethodical- 5010 Chang e-Begin
  252           S: (CHX12VRS= 2)!(CHX12V RS=3) CHZZ BEG=45,CHZ ZEND=45
  253           ;M ethodical- 5010 Chang e-End
  254           S  Y=$E(RCD,C HZZBEG,CHZ ZEND),CHBT QLF=$$TRIM ^CHMXPU01( Y) I CHBTQ LF="" S CH EDPRB="" G  BTQLF1
  255   BTQLF1  K  CHZZBEG,CH ZZEND Q
  256           ; 
  257   RBTQLF  ;P ULLS BILL  TYPE QUALI FIER FROM  SUBMISSION  GLOBAL
  258           I  '$D(^CHMXC LE(CHCLEI, 0)) S CHED PRB="" Q
  259           S  CHBTQLF=$P (^CHMXCLE( CHCLEI,0), "^",5) S:C HBTQLF=""  CHBTQLF="B "
  260           I  CHBTQLF="B " S CHTYPB ="" G RBTQ LF1
  261           S  CHBTYP=$P( ^CHMXCLE(C HCLEI,0)," ^",4)
  262   RBTQLF1 Q
  263           ; 
  264   GETPI   ;P ULLS PROG  IND FROM H EADER GLOB AL
  265           Q: '$D(^CHMXC LA(CHCLAI, 1))
  266           S  CHPI=$P(^C HMXCLA(CHC LAI,1),"^" ,5)
  267   GETPI1  Q
  268           ; 
  269   TRSTYP  ;V ALIDATES T HE V4010 T RANSACTION  TYPE ID 
  270           I  '$D(CHFLD( CHFLPN)) D  RCDERR^CH MXPU01 G T RSTYP1
  271           ;M ethodical- 5010 Chang e-Begin
  272           I  CHX12VRS=2  I (CHFLD( CHFLPN)'[" 4010X096") &(CHFLD(CH FLPN)'["40 10X097")&( CHFLD(CHFL PN)'["4010 X098")&(CH FLD(CHFLPN )'["4010OC RB")&(CHFL D(CHFLPN)' ["4010OCRA ") D RCDER R^CHMXPU01  G TRSTYP1
  273           ;2 22 = Profe ssional 22 3=Institut ional  224 = Dental
  274           I  CHX12VRS=3  I (CHFLD( CHFLPN)'[" 5010X222") &(CHFLD(CH FLPN)'["50 10X223")&( CHFLD(CHFL PN)'["5010 X224") D R CDERR^CHMX PU01 G TRS TYP1
  275           ;M ethodical- 5010 Chang e-End
  276   TRSTYP1 Q
  277           ;
  278           ;M ethodical- 5010 Chang e-Begin
  279   A PYR NFO ;Check  that AMB  informatio n exists i f POS= 41  or 42
  280           ;
  281           K  ^RREC($J," E026")                                                   ; FLAG " E026" RECO RD WAS NOT  MISSING
  282           D  DEBUG^CHMX DR01("CHMX PU03: A PYR NFO: CHFLD (CHFLPN)=  ",CHFLD(CH FLPN))
  283           N  POS S POS= $P(^CHMXCL E(CHCLEI,0 ),"^",4)
  284           D  DEBUG^CHMX DR01("CHMX PU03: A PYR NFO: POS=  ",POS)
  285           Q: POS'=41&(P OS'=42)                                         ; Must  have POS  of 41 or 4 2
  286           I  (CHFLD(CHF LPN)'="")  Q                 ;DE F019402 FE  Edit inco rrectly re turned a c laim   
  287           ;I  (CHFLD(CH FLPN)>0) Q                                  'If  POS =  41 or 42  and POS QU ALIFIER =  "" then re ject in fr ont end wi th an Ambu lance Tran sport Info rmation Re ason (2300  CR104)
  288           D  RCDERR^CHM XPU01
  289           Q
  290           ;M ethodical- 5010 Chang e-End
  291           
  292   SUBMRSN ;  For Profes sion claim s the clai m submissi on must be  PB
  293           ;
  294           ;M ethodical- 5010 Chang e-Begin
  295           Q: $$CLMTYPE^ CHMXP010() '="C"  ; A pplies onl y to Denta l claims
  296           ;M ethodical- 5010 Chang e-End
  297           I  CHFLD(CHFL PN)="PB" D  RCDERR^CH MXPU01
  298           Q
  299           
  300   QUALER  ;c heck for I nvalid qua lifier cod e of "ER"  for profes sional cla ims
  301           ;M ethodical- 5010 Chang e-Begin
  302           ;  FILETYPE=
  303           ;  "A" - INST ITUTIONAL
  304           ;  "B" - PROF ESSIONAL
  305           ;  "C" - DENT AL
  306           I  CHFLD(CHFL PN)="ER" D  RCDERR^CH MXPU01
  307           Q
  308            ; Methodical -5010 Chan ge-End
  309           
  310   QUALIV  ;c heck for I nvalid qua lifier cod e of "IV"  for profes sional cla ims
  311           ;M ethodical- 5010 Chang e-Begin
  312           ;  "A" - INST ITUTIONAL
  313           ;  "B" - PROF ESSIONAL
  314           ;  "C" - DENT AL
  315           I  CHFLD(CHFL PN)="IV" D  RCDERR^CH MXPU01
  316           Q
  317            ; Methodical -5010 Chan ge-End
  318           
  319   QUALWK  ;c heck for I nvalid qua lifier cod e of "WK"  for profes sional cla ims
  320           ;M ethodical- 5010 Chang e-Begin
  321           ;  FILETYPE=
  322           ;  "A" - INST ITUTIONAL
  323           ;  "B" - PROF ESSIONAL
  324           ;  "C" - DENT AL
  325           I  CHFLD(CHFL PN)="WK" D  RCDERR^CH MXPU01
  326           Q
  327            ; Methodical -5010 Chan ge-End
  328