| 1 | RCXVDC7 ;TJK/ALBANY OI @ALTOONA, PA-AR Data Extraction Data Creation ;02-JUL-03
|
|---|
| 2 | ;;4.5;Accounts Receivable;**228,243**;Mar 20, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; IB Bill/Claims Prosthetics File (362.5)
|
|---|
| 5 | Q
|
|---|
| 6 | D3625 ;
|
|---|
| 7 | NEW RCIBD,RCT,RCXVDA,RCNT,RCBILL,RCPDATA,RCPDATE
|
|---|
| 8 | Q:'$G(RCXVD0)
|
|---|
| 9 | S RCIBD="" S RCIBD=$$IBAREXT^IBRFN4(RCXVD0,.RCIBD)
|
|---|
| 10 | S (RCT,RCNT)=0 F S RCT=$O(RCIBD("PRD",RCT)) Q:'RCT D
|
|---|
| 11 | . S RCPDATA=RCIBD("PRD",RCT)
|
|---|
| 12 | . S RCPDATE=$P(RCPDATA,U,2)
|
|---|
| 13 | . S RCPDATE=$E($$HLDATE^HLFNC(RCPDATE),1,8)
|
|---|
| 14 | . S RCBILL=$P(RCPDATA,U,3),RCBILL=$P($G(^DGCR(399,RCBILL,0)),U)
|
|---|
| 15 | . S RCXVDA=RCBILL_RCXVU_$P(RCPDATA,U)_RCXVU_RCPDATE ;BILL#,ITEM,DATE
|
|---|
| 16 | . S RCNT=RCNT+1
|
|---|
| 17 | . S ^TMP($J,RCXVBLN,"7-362.5A",RCNT)=RCXVDA
|
|---|
| 18 | . Q
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
