| [613] | 1 | RCRJRCOU ;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 | ;
|
|---|
| 7 | USERREPT(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 | ;
|
|---|
| 46 | SET(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
|
|---|
