Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RCDPBPL1

RCDPBPL1.m

Go to the documentation of this file.
  1. RCDPBPL1 ;WISC/RFJ-bill profile options ;1 Jun 99
  1. ;;4.5;Accounts Receivable;**114**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q
  1. ;
  1. ;
  1. BILLTRAN ; show transactions for a bill
  1. D EN^VALM("RCDP TRANSACTIONS LIST")
  1. ;
  1. D INIT^RCDPBPLM
  1. S VALMBCK="R"
  1. ; fast exit
  1. I $G(RCDPFXIT) S VALMBCK="Q"
  1. Q
  1. ;
  1. ;
  1. NEWBILL ; select a new bill
  1. D FULL^VALM1
  1. S VALMBCK="R"
  1. ;
  1. W !!,"This option will allow you to select a new bill to display."
  1. W ! S %=$$SELBILL^RCDPBTLM
  1. I %<1 Q
  1. S RCBILLDA=%
  1. ;
  1. ; if called from account profile, pick new account
  1. I $D(^TMP("RCDPAPLM",$J)) S RCDEBTDA=$P(^PRCA(430,RCBILLDA,0),"^",9)
  1. ;
  1. D INIT^RCDPBPLM
  1. Q