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

RCDPTPLM.m

Go to the documentation of this file.
  1. RCDPTPLM ;WISC/RFJ-transaction profile listmanager top routine ;1 Jun 99
  1. ;;4.5;Accounts Receivable;**114,198**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ; called from menu option (19)
  1. ;
  1. N RCTRANDA,RCDPFXIT
  1. ;
  1. F D Q:'RCTRANDA
  1. . W !! S RCTRANDA=$$SELTRAN
  1. . I RCTRANDA<1 S RCTRANDA=0 Q
  1. . ;
  1. . ; check for transaction incomplete, do not enter lm
  1. . I $P($G(^PRCA(433,RCTRANDA,0)),"^",4)=1 D Q
  1. . . W !!," This transaction is INCOMPLETE. The transaction must be complete"
  1. . . W !," before running this option."
  1. . ;
  1. . D EN^VALM("RCDP TRANS PROFILE")
  1. . ; fast exit
  1. . I $G(RCDPFXIT) S RCTRANDA=0
  1. Q
  1. ;
  1. ;
  1. INIT ; initialization for list manager list
  1. ; requires rctranda
  1. ; fast exit
  1. I $G(RCDPFXIT) S VALMQUIT=1 Q
  1. D INIT^RCDPTPLI
  1. D HDR
  1. Q
  1. ;
  1. ;
  1. HDR ; header code for list manager display
  1. N RCBILLDA,RCTOTAL
  1. S RCBILLDA=$P($G(^PRCA(433,RCTRANDA,0)),"^",2)
  1. S RCTOTAL=$$BILLBAL^RCRJRCOB(RCBILLDA,DT)
  1. D HDR^RCDPBTLM
  1. Q
  1. ;
  1. ;
  1. EXIT ; exit list manager option and clean up
  1. K ^TMP("RCDPTPLM",$J),^TMP("RCDPBTLMX",$J)
  1. Q
  1. ;
  1. ;
  1. SELTRAN() ; select a transaction
  1. ; returns -1 for timeout or ^, 0 for no selection, or ien of trans
  1. N %,%Y,C,DIC,DTOUT,DUOUT,X,Y
  1. N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
  1. S DIC="^PRCA(433,",DIC(0)="QEAM",DIC("A")="Select TRANSACTION: "
  1. D ^DIC
  1. I Y<0,'$G(DUOUT),'$G(DTOUT) S Y=0
  1. Q +Y
  1. ;
  1. ;
  1. DIQ433(DA,DR) ; diq call to retrieve data for dr fields in file 433
  1. N D0,DIC,DIQ,DIQ2
  1. K RCDPDATA(433,DA)
  1. S DIQ(0)="IE",DIC="^PRCA(433,",DIQ="RCDPDATA" D EN^DIQ1
  1. Q
  1. ;
  1. ;
  1. NEWTRANS ; select a new transaction
  1. D FULL^VALM1
  1. S VALMBCK="R"
  1. ;
  1. W !!,"This option will allow you to select a new transaction to display."
  1. W ! S %=$$SELTRAN
  1. I %<1 Q
  1. S RCTRANDA=%
  1. ;
  1. ; if called from bill profile, pick new bill
  1. I $D(^TMP("RCDPBPLM",$J)) S RCBILLDA=$P(^PRCA(433,RCTRANDA,0),"^",2)
  1. ; if called from account profile, pick new account
  1. I $D(^TMP("RCDPAPLM",$J)),RCBILLDA S RCDEBTDA=$P(^PRCA(430,RCBILLDA,0),"^",9)
  1. ;
  1. D INIT
  1. Q