271. EPMO Open Source Coordination Office Redaction File Detail Report

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

271.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHPI010.m Mon Nov 5 16:39:51 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHPI010.m Fri Nov 9 03:45:17 2018 UTC

271.2 Comparison summary

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

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

271.4 Active regular expressions

No regular expressions were active.

271.5 Comparison detail

  1   CHPI010 ;  PMK/PMK -  PC PIE MAS K
  2    ;;1.0;CHP I;****;Jun  27, 2016; Build 9
  3    ;
  4    ; ******* ********** ********** ********** ********** ********** ********** ***
  5    ; Process es Claim r ows 1 thru  20
  6    ;  1 - CL M_ROW
  7    ;  2 - CL M_TYPE
  8    ;  3 - CL M_ID
  9    ;  4 - CL M_REOPEN_I D
  10    ;  5 - CL M_EDI_ID
  11    ;  6 - CL M_LN_EDI_I D
  12    ;  7 - CL M_IS_EDI_M XCO
  13    ;  8 - CL M_PDI_NUM
  14    ;  9 - CL M_PDI_PROG
  15    ; 10 - CL M_STATUS
  16    ; 11 - CL M_CRT_DT
  17    ; 12 - CL M_COMP_DT
  18    ; 13 - CL M_VA_STATI ON
  19    ; 14 - CL M_LN_QTY_P AID
  20    ; 15 - CL M_MEDICAID _PAID_AMT
  21    ; 16 - CL M_LN_MEDIC AID_PAID_A MT
  22    ; 17 - CL M_REJ_CODE
  23    ; 18 - CL M_PCN
  24    ; 19 - CL M_TOB
  25    ; 20 - CL M_BILL_AMT
  26    ; 
  27    ; ABBREVI ATIONS - S EE ROUTINE  CHPIDRVR
  28    ;
  29    ; ******* ********** ********** ********** ********** ********** ********** ***
  30    ;
  31   START(IEN, OPT) ;
  32    ;
  33    ; Number  1
  34    ; CLM_ROW
  35    SET RETCO DE=$$CLMRO W(IEN,1,OP T)
  36    ;
  37    ; Number  2
  38    ; CLM_TYP E
  39    SET RETCO DE=$$CLMTY PE(IEN,2,O PT)
  40    ;
  41    ; Number  3
  42    ; CLM_ID
  43    SET RETCO DE=$$CLMID (IEN,3,OPT )
  44    ;
  45    ; Number  4
  46    ; CLM_REO PEN_ID
  47    SET RETCO DE=$$CLMRO PEN(IEN,4, OPT)
  48    ;
  49    ; Number  5
  50    ; CLM_EDI _ID
  51    SET RETCO DE=$$CLMED IID(IEN,5, OPT)
  52    ; Number  6
  53    ;
  54    ; CLM_LN_ EDI_ID
  55    ; SET RET CODE=$$CLM LNEDI(IEN, 6,OPT)
  56    ;
  57    ; Number  7
  58    ; CLM_IS_ EDI_MXCO
  59    SET RETCO DE=$$CLMMX CO(IEN,7,O PT)
  60    ;
  61    ; Number  8
  62    ; CLM_PDI _NUM
  63    SET RETCO DE=$$CLMPI DNM(IEN,8, OPT)
  64    ;
  65    ; Number  9
  66    ; CLM_PDI _PROG
  67    SET RETCO DE=$$CLMPD IP(IEN,9,O PT)
  68    ;
  69    ; Number  10
  70    ; CLM_STA TUS
  71    SET RETCO DE=$$CLMST AT(IEN,10, OPT)
  72    ;
  73    ; Number  11
  74    ; CLM_CRT _DT
  75    SET RETCO DE=$$CLMCR TDT(IEN,11 ,OPT)
  76    ;
  77    ; Number  12
  78    ; CLM_COM P_DATE
  79    SET RETCO DE=$$COMPD ATE(IEN,12 ,OPT)
  80    ;
  81    ; Number  13
  82    ; CLM_VA_ STATION
  83    SET RETCO DE=$$VASTA T(IEN,13,O PT)
  84    ;
  85    ; Number  14
  86    ; CLM_LN_ QTY_PAID
  87    ; SET RET CODE=$$QTY PAID(IEN,1 4,OPT)
  88    ;
  89    ; Number  15
  90    ; CLM_MED ICAID_PAID _AMT
  91    SET RETCO DE=$$CLMPA ID(IEN,15, OPT)
  92    ;
  93    ; Number  16
  94    ; CLM_LN_ MEDICAID_P AID_AMT
  95    ; SET RET CODE=$$LNP AID(IEN,16 ,OPT)
  96    ;
  97    ; Number  17
  98    ; CLM_REJ _CODE
  99    SET RETCO DE=$$CLMRE JCD(IEN,17 ,OPT)
  100    ;
  101    ; Number  18
  102    ; CLM_PCN
  103    SET RETCO DE=$$CLMPC N(IEN,18,O PT)
  104    ;
  105    ; Number  19
  106    ; CLM_TOB
  107    SET RETCO DE=$$CLMTO B(IEN,19,O PT)
  108    ;
  109    ; Number  20
  110    ; CLM_BIL L_AMT
  111    SET RETCO DE=$$CLMBI LAT(IEN,20 ,OPT)
  112    QUIT 1
  113    ;
  114    ; ******* ********** ********** ********** ********** ********** ********** ***
  115    ;  01 01   01 01 01  01 01 01 0 1 01 01 01  01 01 01  01 01 01 0 1 01 01 01
  116   CLMROW(IEN ,PIECE,OPT ) ; CLAIM  ROW
  117    ;
  118    ; The val ue for CLA IM ROW is  derived fr om the OPT  variable
  119    ; which i s passed i n.
  120    ; ******* ********** ********** ********** ********** ********** ********** ***
  121    ;
  122    NEW RETCO DE,FIELD,V ALUE,X,ROW
  123    ;
  124    SET FIELD ="ROW"
  125    ;
  126    IF OPT'[" ,ROW=" SET  VALUE="NO  VALUE"
  127    IF OPT["R OW=" DO
  128    . SET X=$ F(OPT,",RO W=")
  129    . SET ROW =$E(OPT,X, $L(OPT))
  130    . SET VAL UE=$P(ROW, ",",1)
  131    ;
  132    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  133    ;
  134    QUIT 1
  135    ;
  136    ; ******* ********** ********** ********** ********** ********** ********** ***
  137    ; 02 02 0 2 02 02 02  02 02 02  02 02 02 0 2 02 02 02  02 02 02  02 02 02 0 2
  138   CLMTYPE(IE N,PIECE,OP T) ; TYPE  OF CLAIM
  139    ;
  140    ; FILE #7 41000, FLD  #.07 P741 002.05  $P (^CHMPAY(I EN,0),"^", 7)
  141    ; 1              INP ATIENT                         I PT
  142    ; 2              OUT PATIENT                        O PT
  143    ; 3              PHA RMACY                          R XT
  144    ; 4              DUR ABLE MEDIC AL                  D UR
  145    ; 5              DEN TAL                            D NT
  146    ; 6              TRA VEL                            T RV
  147    ;
  148    ; ******* ********** ********** ********** ********** ********** ********** ***
  149    ;
  150    NEW RETCO DE,FIELD,V ALUE
  151    ;
  152    SET FIELD ="CLM_TYPE "
  153    ;
  154    SET VALUE =$P($G(CHP IARRAY("NO D0")),"^", 7)
  155    ;
  156    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  157    ;
  158    QUIT 1
  159    ;
  160    ; ******* ********** ********** ********** ********** ********** ********** ***
  161    ; 03 03 0 3 03 03 03  03 03 03  03 03 03 0 3 03 03 03  03 03 03  03 03 03 0 3
  162   CLMID(IEN, PIECE,OPT)  ; CLAIM I D
  163    ;
  164    ; ******* ********** ********** ********** ********** ********** ********** ***
  165    ;
  166    NEW RETCO DE,FIELD,V ALUE
  167    ;
  168    SET FIELD ="CLM_ID"
  169    ;
  170    SET VALUE =$P($G(CHP IARRAY("NO D0")),"^", 1)
  171    ;SET VALU E=$ZCONVER T(VALUE,"U ")
  172    ;
  173    SET ^TMP( $J,"MISC", "CLM_ID")= VALUE      ; USED IN  CHPI020 #1 4 CLAIM CO MMENTS
  174    ;
  175    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  176    ;
  177    QUIT 1
  178    ;
  179    ; ******* ********** ********** ********** ********** ********** ********** ***
  180    ; 04 04 0 4 04 04 04  04 04 04  04 04 04 0 4 04 04 04  04 04 04  04 04 04 0 4
  181   CLMROPEN(I EN,PIECE,O PT) ; CLAI M REOPEN I D
  182    ;
  183    ; ******* ********** ********** ********** ********** ********** ********** ***
  184    ;
  185    NEW RETCO DE,FIELD,V ALUE,PTR,F TIME,NIEN, CLAIMNO
  186    ;
  187    SET FIELD ="CLM_REOP EN_ID"
  188    SET VALUE =""
  189    ;
  190    SET FTIME =1,PTR=IEN
  191    ;
  192    ;-------- ---------- ---------- ---------- ---------- -----
  193   AGAIN ; Ma nual Loop
  194    ;-------- ---------- ---------- ---------- ---------- -----
  195    SET PTR=$ P($G(^CHMP AY(PTR,6)) ,"^",2)
  196    IF PTR=""  GOTO OUT
  197    SET CLAIM NO=$P($G(^ CHMPAY(PTR ,0)),"^",1 )
  198    IF FTIME  SET VALUE= CLAIMNO
  199    IF 'FTIME  SET VALUE =VALUE_"~" _CLAIMNO
  200    SET FTIME =0
  201    GOTO AGAI N
  202   OUT ;
  203    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  204    ;
  205    QUIT 1
  206    ;
  207    ; ******* ********** ********** ********** ********** ********** ********** ***
  208    ; 05 05 0 5 05 05 05  05 05 05  05 05 05 0 5 05 05 05  05 05 05  05 05 05 0 5
  209   CLMEDIID(I EN,PIECE,O PT) ; CLAI M EDI ID
  210    ;
  211    ; ******* ********** ********** ********** ********** ********** ********** ***
  212    ;
  213    NEW RETCO DE,FIELD,V ALUE
  214    NEW PDI,P CNNUM,BATC H,EDIPTR,E DIDATA,EDI ID,DATA,CL MID,EDIPTR 4
  215    ;
  216    SET FIELD ="CLM_EDI_ ID"
  217    ;
  218    SET VALUE =""
  219    SET VAR=$ P($G(CHPIA RRAY("NOD0 ")),"^",4)
  220    SET PDI=$ P(VAR,"*", 1)
  221    IF PDI=""  GOTO EXIT
  222    ;
  223    SET PCNNU M=""
  224    FOR  DO   Q:PCNNUM=" "
  225    . SET PCN NUM=$O(^CH MXCLE("PDI ",PDI,PCNN UM)) Q:PCN NUM=""
  226    . SET BAT CH=""
  227    . FOR  DO   Q:BATCH= ""
  228    . . SET B ATCH=$O(^C HMXCLE("PD I",PDI,PCN NUM,BATCH) ) Q:BATCH= ""
  229    . . SET E DIPTR=""
  230    . . FOR   DO  Q:EDIP TR=""
  231    . . . SET  EDIPTR=$O (^CHMXCLE( "PDI",PDI, PCNNUM,BAT CH,EDIPTR) ) Q:EDIPTR =""
  232    . . . SET  EDIPTR4=$ P(EDIPTR," *",4)
  233    . . . IF  EDIPTR4'=" " DO
  234    . . . . S ET DATA=$G (^CHMXCLE( EDIPTR4,0) )
  235    . . . . I F DATA'=""  DO
  236    . . . . .  SET CLMID =$P(DATA," ^",14)
  237    . . . . .  SET VALUE =CLMID
  238   EXIT ;
  239    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  240    ;
  241    QUIT 1
  242    ;
  243    ; ******* ********** ********** ********** ********** ********** *********
  244    ; 06 06 0 6 06 06 06  06 06 06  06 06 06 0 6 06 06 06  06 06 06  06 06 06 0 6
  245   CLMLNEDI(I EN,PIECE,O PT) ; CLAI M LINE EDI  ID
  246    ;
  247    ; ******* ********** ********** ********** ********** ********** *********
  248    ;
  249    NEW RETCO DE,FIELD,V ALUE,CNT,A RRAY,FRSTT IME,D1,X
  250    ;
  251    SET FIELD ="CLM_LN_E DI_ID"
  252    ;
  253    SET VALUE =""
  254    ;
  255    SET CNT=0
  256    K ARRAY
  257    SET FRSTT IME=1
  258    SET D1=""  FOR  DO   Q:D1=""
  259    . SET D1= $O(^CHMPAY (IEN,"OPT- PROC",D1))  Q:D1=""
  260    . SET X=$ P($G(^CHMP AY(IEN,"OP T-PROC",D1 ,0)),"^",1 8)     ;Ge t X
  261    . IF X'=" " DO
  262    . . IF '$ D(ARRAY(X) ) DO
  263    . . . SET  ARRAY(X)= ""
  264    . . . IF  'FRSTTIME  SET VALUE= VALUE_"~"_ X       ;A ppend X to  VALUE
  265    . . . IF  FRSTTIME S ET VALUE=X ,FRSTTIME= 0       ;I nit VALUE  to X
  266    ;
  267    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  268    K ARRAY
  269    ;
  270    QUIT 1
  271    ;
  272    ; ******* ********** ********** ********** ********** ********** *********
  273    ; 07 07 0 7 07 07 07  07 07 07  07 07 07 0 7 07 07 07  07 07 07  07 07 07 0 7
  274   CLMMXCO(IE N,PIECE,OP T) ; CLAIM  IS EDI MX CO
  275    ;
  276    ; ******* ********** ********** ********** ********** ********** *********
  277    ;
  278    NEW RETCO DE,FIELD,V ALUE,CNT,A RRAY,FRSTT IME,D1,X,P DI,HIT
  279    ;
  280    SET FIELD ="CLM_IS_E DI_MXCO"
  281    ;
  282    SET VALUE =""
  283    SET VAR=$ P($G(CHPIA RRAY("NOD0 ")),"^",4)
  284    SET PDI=$ P(VAR,"*", 1)
  285    ;
  286    IF PDI'=" " SET VALU E=$P($G(^C HMIMAGE(PD I,"BUFF")) ,"^",1)
  287    IF VALUE= "MEDCOB" S ET VALUE=" Y"
  288    IF VALUE' ="Y" SET V ALUE="N"
  289    ;
  290    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  291    ;
  292    QUIT 1
  293    ;
  294    ; ******* ********** ********** ********** ********** ********** *********
  295    ; 08 08 0 8 08 08 08  08 08 08  08 08 08 0 8 08 08 08  08 08 08  08 08 08 0 8
  296   CLMPIDNM(I EN,PIECE,O PT) ; CLAI M PDI NUM
  297    ;
  298    ; ******* ********** ********** ********** ********** ********** *********
  299    ;
  300    NEW RETCO DE,FIELD,V ALUE,FRSTT IME,D1,X,P DI,HIT
  301    ;
  302    SET FIELD ="CLM_PDI_ NUM"
  303    ;
  304    SET VALUE =""
  305    SET VAR=$ P($G(CHPIA RRAY("NOD0 ")),"^",4)
  306    SET VALUE =$P(VAR,"* ",1)
  307    ;
  308    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  309    ;
  310    QUIT 1
  311    ;
  312    ; ******* ********** ********** ********** ********** ********** *********
  313    ; 09 09 0 9 09 09 09  09 09 09  09 09 09 0 9 09 09 09  09 09 09  09 09 09 0 9
  314   CLMPDIP(IE N,PIECE,OP T) ; CLAIM  PDI PROGR AM
  315    ;
  316    ; ******* ********** ********** ********** ********** ********** *********
  317    ;
  318    NEW RETCO DE,FIELD,V ALUE,X,FRS TTIME,D1,P DI,HIT
  319    ;
  320    SET FIELD ="CLM_PDI_ PROG"
  321    ;
  322    SET VALUE =""
  323    SET VAR=$ P($G(CHPIA RRAY("NOD0 ")),"^",4)
  324    SET PDI=$ P(VAR,"*", 1)
  325    ;
  326    SET VALUE =$E(PDI,8, 9)
  327    ;
  328    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  329    ;
  330    QUIT 1
  331    ;
  332    ; ******* ********** ********** ********** ********** ********** *********
  333    ; 10 10 1 0 10 10 10  10 10 10  10 10 10 1 0 10 10 10  10 10 10  10 10 10 1 0
  334   CLMSTAT(IE N,PIECE,OP T) ; CLAIM  STATUS
  335    ;
  336    ; ******* ********** ********** ********** ********** ********** *********
  337    ;
  338    NEW RETCO DE,FIELD,V ALLUE
  339    ;
  340    SET FIELD ="CLM_STAT US"
  341    ;
  342    SET VALUE =$P($G(CHP IARRAY("NO D0")),"^", 2)
  343    ;
  344    IF VALUE= 0 SET VALU E="REJECTE D"
  345    IF VALUE= 1 SET VALU E="IN PROC ESS"
  346    IF VALUE= 2 SET VALU E="PAYMENT  REQUESTED "
  347    IF VALUE= 3 SET VALU E="EOB REQ UESTED"
  348    IF VALUE= 4 SET VALU E="COMPLET E"
  349    IF VALUE= 5 SET VALU E="ADJUDIC ATED"
  350    IF VALUE= 6 SET VALU E="PAYMENT  REJECTED  CAPPS/CALM "
  351    IF VALUE= 7 SET VALU E="ADMINIS TRATIVE SU SPENSE"
  352    IF VALUE= 8 SET VALU E="PAYMENT  APPROVED  CAPPS/CALM "
  353    IF VALUE= 9 SET VALU E="MANUALL Y PROCESSE D"
  354    IF VALUE= 10 SET VAL UE="DELETE D"
  355    ;
  356    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  357    ;
  358    QUIT 1
  359    ;
  360    ; ******* ********** ********** ********** ********** ********** *********
  361    ; 11 11 1 1 11 11 11  11 11 11  11 11 11 1 1 11 11 11  11 11 11  11 11 11 1 1
  362   CLMCRTDT(I EN,PIECE,O PT) ; CRT  DATE
  363    ;
  364    ; ******* ********** ********** ********** ********** ********** *********
  365    ;
  366    NEW FIELD ,VALUE,X,R ETCODE
  367    ;
  368    SET FIELD ="CLM_CRT_ DT"
  369    ;
  370    SET X=$P( $G(CHPIARR AY("NOD0") ),"^",25)
  371    SET VALUE =$$CVTDATE ^CHPIDRVR( X)      ;  Convert FM  date to M M/DD/YYYY
  372    ;
  373    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  374    ;
  375    QUIT 1
  376    ;
  377    ; ******* ********** ********** ********** ********** ********** *********
  378    ; 12 12 1 2 12 12 12  12 12 12  12 12 12 1 2 12 12 12  12 12 12  12 12 12 1 2
  379   COMPDATE(I EN,PIECE,O PT) ; CLAI M COMPLETE  DATE
  380    ;
  381    ; ******* ********** ********** ********** ********** ********** *********
  382    ;
  383    NEW FIELD ,VALUE,X,R ETCODE
  384    ;
  385    SET FIELD ="CLM_COMP _DT"
  386    ;
  387    SET X=$P( $G(CHPIARR AY("NOD0") ),"^",10)
  388    SET VALUE =$$CVTDATE ^CHPIDRVR( X)     ; C onvert FM  date to MM /DD/YYYY
  389    ;
  390    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  391    ;
  392    QUIT 1
  393    ;
  394    ; ******* ********** ********** ********** ********** ********** *********
  395    ; 13 13 1 3 13 13 13  13 13 13  13 13 13 1 3 13 13 13  13 13 13  13 13 13 1 3
  396   VASTAT(IEN ,PIECE,OPT ) ; CLAIM  VA STATION
  397    ;
  398    ; ******* ********** ********** ********** ********** ********** ********
  399    ;
  400    NEW FIELD ,VALUE,X,R ETCODE,PTR
  401    ;
  402    SET FIELD ="CLM_VA_S TATION"
  403    ;
  404    SET VALUE =""
  405    SET PTR=$ P($G(CHPIA RRAY("NOD0 ")),"^",3)
  406    IF PTR'=" " SET VALU E=$P($G(^C HMVEN(PTR, 15)),"^",1 )
  407    ;
  408    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  409    ;
  410    QUIT 1
  411    ;
  412    ; ******* ********** ********** ********** ********** ********** *********
  413    ; 14 14 1 4 14 14 14  14 14 14  14 14 14 1 4 14 14 14  14 14 14  14 14 14 1 4
  414   QTYPAID(IE N,PIECE,OP T) ; CLM_L N_QTY_PAID
  415    ;
  416    ; ******* ********** ********** ********** ********** ********** *********
  417    ;
  418    NEW FIELD ,VALUE,X,R ETCODE,PTR
  419    ;
  420    SET FIELD ="CLM_LN_Q TY_PAID"
  421    ;
  422    SET VALUE =""
  423    SET VALUE =$TR(VALUE ,$C(34),"" )             ; REMOV E QUOTES
  424    ;
  425    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  426    ;
  427    QUIT 1
  428    ;
  429    ; ******* ********** ********** ********** ********** ********** *********
  430    ; 15 15 1 5 15 15 15  15 15 15  15 15 15 1 5 15 15 15  15 15 15  15 15 15 1 5
  431   CLMPAID(IE N,PIECE,OP T) ; CLM_M EDICAID_PA ID_AMT
  432    ;
  433    ; ******* ********** ********** ********** ********** ********** *********
  434    ;
  435    NEW FIELD ,VALUE,X,R ETCODE,PTR
  436    ;
  437    SET FIELD ="CLM_MEDI CAID_PAID_ AMT"
  438    ;
  439    SET VALUE =$P($G(CHP IARRAY("NO D7")),"^", 2)
  440    SET VALUE =$TR(VALUE ,$C(34),"" )              ; REMO VE QUOTES
  441    IF VALUE' ="",VALUE' ["." SET V ALUE=VALUE _".00"
  442    ;
  443    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  444    ;
  445    QUIT 1
  446    ;
  447    ; ******* ********** ********** ********** ********** ********** ********** ***
  448    ; 16 16 1 6 16 16 16  16 16 16  16 16 16 1 6 16 16 16  16 16 16  16 16 16 1 6
  449   LNPAID(IEN ,PIECE,OPT ) ; CLM_LN _MEDICAID_ PAID_AMT
  450    ;
  451    ; ******* ********** ********** ********** ********** ********** ********** ***
  452    ;
  453    NEW FIELD ,VALUE,X,R ETCODE,PTR
  454    ;
  455    SET FIELD ="CLM_LN_M EDICAID_PA ID_AMT"
  456    ;
  457    SET VALUE =""
  458    SET VALUE =$TR(VALUE ,$C(34),"" )              ; REMO VE QUOTES
  459    ;
  460    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  461    ;
  462    QUIT 1
  463    ;
  464    ; ******* ********** ********** ********** ********** ********** ********** ***
  465    ; 17 17 1 7 17 17 17  17 17 17  17 17 17 1 7 17 17 17  17 17 17  17 17 17 1 7
  466   CLMREJCD(I EN,PIECE,O PT) ; CLAI M REJECTIO N CODE
  467    ;
  468    ; ******* ********** ********** ********** ********** ********** ********** ***
  469    ;
  470    NEW FIELD ,VALUE,X,R ETCODE,PTR ,FRSTTIME, D1,S3
  471    ;
  472    SET FIELD ="CLM_REJ_ CODE"
  473    ;
  474    SET VALUE =""
  475    ;
  476    SET FIRST IME=1
  477    SET S3=0  FOR  DO  Q :'S3
  478    . SET S3= $O(^CHMPAY (IEN,4,S3) ) Q:'S3
  479    . SET PTR =$P($G(^CH MPAY(IEN,4 ,S3,0)),"^ ",1)
  480    . IF PTR' ="" DO
  481    . . IF $P ($G(^CHMDI C(741002.2 2,PTR,0)), "^",7)=0 D O
  482    . . . SET  DESC=$P($ G(^CHMDIC( 741002.22, PTR,0)),"^ ",1)
  483    . . . IF  FIRSTIME S ET VALUE=D ESC
  484    . . . IF  'FIRSTIME  SET VALUE= VALUE_"~"_ DESC
  485    . . . SET  FIRSTIME= 0
  486    ;
  487    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  488    ;
  489    QUIT 1
  490    ;
  491    ; ******* ********** ********** ********** ********** ********** ********** ***
  492    ; 18 18 1 8 18 18 18  18 18 18  18 18 18 1 8 18 18 18  18 18 18  18 18 18 1 8
  493   CLMPCN(IEN ,PIECE,OPT ) ; CLAIM  PATIENT CO NTROL NUMB ER
  494    ;
  495    ; ******* ********** ********** ********** ********** ********** ********** ***
  496    ;
  497    NEW FIELD ,VALUE,X,R ETCODE,PTR ,FRSTTIME, D1
  498    ;
  499    SET FIELD ="CLM_PCN"
  500    ;
  501    SET VALUE =$P($G(CHP IARRAY("NO D7")),"^", 5)
  502    ;
  503    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  504    ;
  505    QUIT 1
  506    ;
  507    ; ******* ********** ********** ********** ********** ********** ********** ***
  508    ; 19 19 1 9 19 19 19  19 19 19  19 19 19 1 9 19 19 19  19 19 19  19 19 19 1 9
  509   CLMTOB(IEN ,PIECE,OPT ) ; CLAIM  TYPE OF BI LL
  510    ;
  511    ; ******* ********** ********** ********** ********** ********** ********** ***
  512    ;
  513    NEW FIELD ,VALUE,X,R ETCODE,PTR ,FRSTTIME, D1
  514    ;
  515    SET FIELD ="CLM_TOB"
  516    ;
  517    SET VALUE =$P($G(CHP IARRAY("NO D7")),"^", 6)
  518    ;
  519    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  520    ;
  521    QUIT 1
  522    ;
  523    ; ******* ********** ********** ********** ********** ********** ********** ***
  524    ; 20 20 2 0 20 20 20  20 20 20  20 20 20 2 0 20 20 20  20 20 20  20 20 20 2 0
  525   CL PYR LAT(IEN,PI ECE,OPT) ;  CLAIM BIL L AMOUNT
  526    ;
  527    ; ******* ********** ********** ********** ********** ********** ********** ***
  528    ;
  529    NEW FIELD ,VALUE,X,R ETCODE,PTR ,FRSTTIME, D1
  530    ;
  531    SET FIELD ="CLM_BILL _AMT"
  532    ;
  533    SET VALUE =$P($G(CHP IARRAY("NO DCOMMON")) ,"^",1)
  534    SET VALUE =$TR(VALUE ,$C(34),"" )                 ; R EMOVE QUOT ES
  535    IF VALUE' ="",VALUE' ["." SET V ALUE=VALUE _".00"
  536    ;
  537    SET $P(TM P($J,"CHPI DRVR",ROWL EVEL),"^", PIECE)=VAL UE
  538    ;
  539    QUIT 1