source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCXVDC7.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 674 bytes
Line 
1RCXVDC7 ;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
6D3625 ;
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 ;
Note: See TracBrowser for help on using the repository browser.