source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCRJRCOU.m@ 1094

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1RCRJRCOU ;WISC/RFJ-ar data collector summary report ;1 Mar 97
2 ;;4.5;Accounts Receivable;**103**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6 ;
7USERREPT(DATEMOYR) ; generate user detailed report
8 ; datemoyr is the dat which appears on message subject
9 N BILLDA,DATA,DATE,RCLINE,RCSPACE,REPTDATA,Y
10 ;
11 K ^TMP($J,"RCRJRCOU")
12 S RCSPACE="",$P(RCSPACE," ",81)=""
13 S RCLINE=0
14 S DATE="" F S DATE=$O(^TMP($J,"RCRJRCOLREPORT",DATE)) Q:DATE="" D
15 . S BILLDA=0 F S BILLDA=$O(^TMP($J,"RCRJRCOLREPORT",DATE,BILLDA)) Q:'BILLDA D
16 . . S REPTDATA=^TMP($J,"RCRJRCOLREPORT",DATE,BILLDA)
17 . . S DATA=$G(^PRCA(430,BILLDA,0))
18 . . S RCLINE=RCLINE+1
19 . . ; bill number
20 . . D SET($P($P(DATA,"^"),"-",2),1,8)
21 . . ; date activated
22 . . S Y=$S('DATE:"00/00/00",1:$E(DATE,4,5)_"/"_$E(DATE,6,7)_"/"_$E(DATE,2,3))
23 . . D SET(Y,9,16)
24 . . ; category
25 . . D SET($P($G(^PRCA(430.2,+$P(DATA,"^",2),0)),"^"),19,39)
26 . . ; status
27 . . D SET($P($G(^PRCA(430.3,+$P(DATA,"^",8),0)),"^"),40,50)
28 . . ; fms report
29 . . D SET($P(REPTDATA,"^",3),52,56)
30 . . ; principal
31 . . D SET($J($P(REPTDATA,"^"),11,2),57,67)
32 . . ; total
33 . . D SET($J($P(REPTDATA,"^")+$P(REPTDATA,"^",2),11,2),68,78)
34 ;
35 N %X,DIC,XCNP,XMDISPI,XMDUZ,XMTEXT,XMZ,ZTPAR
36 S XMSUB="ARDC Detail Report For "_DATEMOYR
37 S XMY("G.RC AR DATA COLLECTOR")=""
38 S XMDUZ="AR PACKAGE"
39 S XMTEXT="^TMP($J,""RCRJRCOU"","
40 D ^XMD
41 ;
42 K ^TMP($J,"RCRJRCOU")
43 Q
44 ;
45 ;
46SET(DATA,COLSTRT,COLEND) ; store report
47 I '$G(COLSTRT) S ^TMP($J,"RCRJRCOU",RCLINE)=DATA Q
48 N X
49 S X=$G(^TMP($J,"RCRJRCOU",RCLINE))_RCSPACE
50 S X=$E(X,1,COLSTRT-1)_$E(DATA,1,COLEND-COLSTRT+1)_$E(X,COLEND+1,79)
51 S ^TMP($J,"RCRJRCOU",RCLINE)=$E(X,1,79)
52 Q
Note: See TracBrowser for help on using the repository browser.