RCDPTPLI ;WISC/RFJ-transaction profile init to build array ;1 Jun 99 ;;4.5;Accounts Receivable;**114,153**;Mar 20, 1995 ;;Per VHA Directive 10-93-142, this routine should not be modified. Q ; ; INIT ; initialization for list manager list ; requires rctranda N %,COMMDA,DATA,DATA3,DATA8,RCDPDATA,RCFYDA,RCLINE,RCSPACE,RCX,SHOWBAL,SHOWCOL,TOTAL3,TOTAL8,TRANTYPE K ^TMP("RCDPTPLM",$J),^TMP("VALM VIDEO",$J) ; D DIQ433^RCDPTPLM(RCTRANDA,".01;.03;5.02;5.03;11;12;13;14;15;17;19;42;86;88;") S TRANTYPE=RCDPDATA(433,RCTRANDA,12,"I") ; S RCSPACE="",$P(RCSPACE," ",81)="" ; ; set the listmanager line number 1 S RCLINE=1 D SET("Transaction",RCLINE,1,40,.01) D SET("Type",RCLINE,41,80,12) ; S RCLINE=RCLINE+1 D SET(" TransDate",RCLINE,1,80,11) ; increase/decrease adjustment I TRANTYPE=1!(TRANTYPE=35) D . I RCDPDATA(433,RCTRANDA,88,"I") D SET("Contract Adj",RCLINE,47,80) . D SET("Adjustment",RCLINE,64,80,14) ; payment I TRANTYPE=2!(TRANTYPE=34) D SET("Receipt",RCLINE,38,80,13) ; terminated I TRANTYPE=8!(TRANTYPE=9) D SET("TermReason",RCLINE,35,80,17) ; S RCLINE=RCLINE+1 D SET(" Processed",RCLINE,1,80,19) D SET(" By",RCLINE,41,80,42) ; S RCLINE=RCLINE+1 D SET(" Trans Amt: "_$J(RCDPDATA(433,RCTRANDA,15,"E"),0,2),RCLINE,1,80) ; S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80) ; ; fiscal year multiple S RCLINE=RCLINE+1 D SET("Fiscal Year",RCLINE,28,40,0,IOUON,IOUOFF) D SET("Principal Amount",RCLINE,44,60,0,IOUON,IOUOFF) D SET("FY Trans Amount",RCLINE,64,80,0,IOUON,IOUOFF) S RCFYDA=0 F S RCFYDA=$O(^PRCA(433,RCTRANDA,4,RCFYDA)) Q:'RCFYDA D . S DATA=$G(^PRCA(433,RCTRANDA,4,RCFYDA,0)) . S RCLINE=RCLINE+1 . D SET($J($P(DATA,"^"),38),RCLINE,1,80) ;fiscal year . D SET($J($P(DATA,"^",2),19,2),RCLINE,41,60) ;prin amt . D SET($J($P(DATA,"^",5),19,2),RCLINE,60,80) ;fy trans amt ; ; admin cost/charge I TRANTYPE=12!(TRANTYPE=13)!(TRANTYPE=14) D . S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80) . S DATA=$P($G(^PRCA(433,RCTRANDA,2)),"^",1,9) . I $TR(DATA,"^0")="" Q . S RCLINE=RCLINE+1 D SET("Administrative Cost Charge:",RCLINE,1,80,0,IOUON,IOUOFF) . I $P(DATA,"^",1) S RCLINE=RCLINE+1 D SET(" IRS Locator: "_$J($P(DATA,"^",1),10,2),RCLINE,1,80) . I $P(DATA,"^",2) S RCLINE=RCLINE+1 D SET(" Credit Agency: "_$J($P(DATA,"^",2),10,2),RCLINE,1,80) . I $P(DATA,"^",3) S RCLINE=RCLINE+1 D SET(" DMV Locator: "_$J($P(DATA,"^",3),10,2),RCLINE,1,80) . I $P(DATA,"^",4) S RCLINE=RCLINE+1 D SET(" Consumer Rep: "_$J($P(DATA,"^",4),10,2),RCLINE,1,80) . I $P(DATA,"^",5) S RCLINE=RCLINE+1 D SET(" Marshall Fee: "_$J($P(DATA,"^",5),10,2),RCLINE,1,80) . I $P(DATA,"^",6) S RCLINE=RCLINE+1 D SET(" Court Cost: "_$J($P(DATA,"^",6),10,2),RCLINE,1,80) . I $P(DATA,"^",7) S RCLINE=RCLINE+1 D SET("Interest Charge: "_$J($P(DATA,"^",7),10,2),RCLINE,1,80) . I $P(DATA,"^",8) S RCLINE=RCLINE+1 D SET(" Admin Charge: "_$J($P(DATA,"^",8),10,2),RCLINE,1,80) . I $P(DATA,"^",9) S RCLINE=RCLINE+1 D SET(" Penalty Charge: "_$J($P(DATA,"^",9),10,2),RCLINE,1,80) ; ; ; collections and balances ; set flag to display balances if there are any S DATA8=$P($G(^PRCA(433,RCTRANDA,8)),"^",1,5) S SHOWBAL=1 I $TR(DATA8,"^0")="" S SHOWBAL=0 ; set flag to display collections if there are any S DATA3=$P($G(^PRCA(433,RCTRANDA,3)),"^",1,5) S SHOWCOL=1 I $TR(DATA3,"^0")="" S SHOWCOL=0 ; show data I SHOWBAL!(SHOWCOL) D . S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80) . F %=1:1:5 S TOTAL3=$G(TOTAL3)+$P(DATA3,"^",%),TOTAL8=$G(TOTAL8)+$P(DATA8,"^",%) . S RCLINE=RCLINE+1 D SET("Balances",RCLINE,19,26,0,IOUON,IOUOFF) . I SHOWCOL D SET("Collections",RCLINE,34,55,0,IOUON,IOUOFF) . S RCLINE=RCLINE+1 D SET(" Principal: "_$J($P(DATA8,"^",1),10,2),RCLINE,1,80) . I SHOWCOL D SET($J($P(DATA3,"^",1),10,2),RCLINE,35,55) . S RCLINE=RCLINE+1 D SET(" Interest: "_$J($P(DATA8,"^",2),10,2),RCLINE,1,80) . I SHOWCOL D SET($J($P(DATA3,"^",2),10,2),RCLINE,35,55) . S RCLINE=RCLINE+1 D SET("Administrative: "_$J($P(DATA8,"^",3),10,2),RCLINE,1,80) . I SHOWCOL D SET($J($P(DATA3,"^",3),10,2),RCLINE,35,55) . S RCLINE=RCLINE+1 D SET(" Marshall Fee: "_$J($P(DATA8,"^",4),10,2),RCLINE,1,80) . I SHOWCOL D SET($J($P(DATA3,"^",4),10,2),RCLINE,35,55) . S RCLINE=RCLINE+1 D SET(" Court Cost: "_$J($P(DATA8,"^",5),10,2),RCLINE,1,80,0,IOUON,IOUOFF) . I SHOWCOL D SET($J($P(DATA3,"^",5),10,2),RCLINE,35,55,0,IOUON,IOUOFF) . S RCLINE=RCLINE+1 D SET(" Total: "_$J(TOTAL8,10,2),RCLINE,1,80) . I SHOWCOL D SET($J(TOTAL3,10,2),RCLINE,35,55) ; ; brief comments, followup date S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80) S RCLINE=RCLINE+1 D SET("Brief Comment",RCLINE,1,80,5.02) D SET("Follow-up Date",RCLINE,51,80,5.03) ; ; comments S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80) S RCLINE=RCLINE+1 D SET("Comments:",RCLINE,1,80,0,IOUON,IOUOFF) I RCDPDATA(433,RCTRANDA,86,"E")'="" S RCLINE=RCLINE+1 D SET("",RCLINE,1,80,86) S COMMDA=0 F S COMMDA=$O(^PRCA(433,RCTRANDA,7,COMMDA)) Q:'COMMDA D . S RCX=^PRCA(433,RCTRANDA,7,COMMDA,0) . S RCLINE=RCLINE+1 D SET($E(RCX,1,79),RCLINE,1,80) . I $E(RCX,80,159)'="" S RCLINE=RCLINE+1 D SET($E(RCX,80,159),RCLINE,1,80) . I $E(RCX,160,239)'="" S RCLINE=RCLINE+1 D SET($E(RCX,160,239),RCLINE,1,80) S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80) ; ; show integrated billing data N BILLCAT,BILLDA,IBDA S BILLDA=+$P(^PRCA(433,RCTRANDA,0),"^",2) S BILLCAT=$P($G(^PRCA(430,BILLDA,0)),"^",2) ; for category c-means test, rx copay (sc/nsc) I BILLCAT=18!(BILLCAT=22)!(BILLCAT=23) D . D STMT^IBRFN1(RCTRANDA) . I '$D(^TMP("IBRFN1",$J)) Q . ; start on 2nd screen if not there already . F RCLINE=RCLINE:1:15 D SET(" ",RCLINE,1,80) . S RCLINE=RCLINE+1 D SET("Integrated Billing Data",RCLINE,1,80,0,IOUON,IOUOFF) . S IBDA=0 F S IBDA=$O(^TMP("IBRFN1",$J,IBDA)) Q:'IBDA D . . S DATA=^TMP("IBRFN1",$J,IBDA) . . ; if more than one ib data transaction to display, skip a line . . I IBDA>1 S RCLINE=RCLINE+1 D SET(" ",RCLINE,1,80) . . S RCLINE=RCLINE+1 D SET("IB Ref #: "_$P(DATA,"^"),RCLINE,1,80) . . ; show rx . . I BILLCAT=22!(BILLCAT=23) D Q . . . D SET("Pharmacy",RCLINE,28,80) . . . D SET("Charge Amt: "_$J($P(DATA,"^",8),0,2),RCLINE,60,80) . . . S RCLINE=RCLINE+1 . . . D SET(" Rx#: "_$P(DATA,"^",2),RCLINE,1,80) . . . D SET("Drug: "_$P(DATA,"^",3),RCLINE,22,80) . . . D SET("Re/Fill Date: "_$E($P(DATA,"^",7),4,5)_"/"_$E($P(DATA,"^",7),6,7)_"/"_$E($P(DATA,"^",7),2,3),RCLINE,58,80) . . . S RCLINE=RCLINE+1 . . . D SET(" Physician: "_$P(DATA,"^",5),RCLINE,1,48) . . . D SET("Days Supply: "_$P(DATA,"^",4),RCLINE,48,80) . . . D SET("Qty: "_$P(DATA,"^",6),RCLINE,67,80) . . ; show outpatient (type of care 430.2 = 4 outpatient care) . . I $P(^PRCA(430,BILLDA,0),"^",16)=4 D Q . . . D SET("Outpatient",RCLINE,26,80) . . . D SET("Visit Date: "_$E($P(DATA,"^",2),4,5)_"/"_$E($P(DATA,"^",2),6,7)_"/"_$E($P(DATA,"^",2),2,3),RCLINE,37,80) . . . D SET("Charge Amt: "_$J($P(DATA,"^",8),0,2),RCLINE,60,80) . . ; show inpatient . . D SET("Inpatient",RCLINE,28,80) . . D SET("Charge Amt: "_$J($P(DATA,"^",8),0,2),RCLINE,60,80) . . S RCLINE=RCLINE+1 . . D SET(" Admission Date: "_$E($P(DATA,"^",2),4,5)_"/"_$E($P(DATA,"^",2),6,7)_"/"_$E($P(DATA,"^",2),2,3),RCLINE,1,80) . . D SET("Discharge Date: "_$E($P(DATA,"^",5),4,5)_"/"_$E($P(DATA,"^",5),6,7)_"/"_$E($P(DATA,"^",5),2,3),RCLINE,56,80) . . S RCLINE=RCLINE+1 . . D SET(" Bill Cycle Begin Date: "_$E($P(DATA,"^",3),4,5)_"/"_$E($P(DATA,"^",3),6,7)_"/"_$E($P(DATA,"^",3),2,3),RCLINE,1,80) . . D SET("End Date: "_$E($P(DATA,"^",4),4,5)_"/"_$E($P(DATA,"^",4),6,7)_"/"_$E($P(DATA,"^",4),2,3),RCLINE,62,80) . K ^TMP("IBRFN1",$J) ; ; set valmcnt to number of lines in the list S VALMCNT=RCLINE Q ; ; SET(STRING,LINE,COLBEG,COLEND,FIELD,ON,OFF) ; set array I $G(FIELD) S STRING=STRING_$S(STRING="":"",1:": ")_$G(RCDPDATA(433,RCTRANDA,FIELD,"E")) I STRING="",'$G(FIELD) Q I '$D(@VALMAR@(LINE,0)) D SET^VALM10(LINE,$J("",80)) D SET^VALM10(LINE,$$SETSTR^VALM1(STRING,@VALMAR@(LINE,0),COLBEG,COLEND-COLBEG+1)) I $G(ON)]""!($G(OFF)]"") D CNTRL^VALM10(LINE,COLBEG,$L(STRING),ON,OFF) Q