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

RCDPRL.m

Go to the documentation of this file.
  1. RCDPRL ;AITC/CJE - list of receipts report ;23 Aug 2017
  1. ;;4.5;Accounts Receivable;**321**;;Build 48
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. EN ; -- main entry point for RCDP LIST OF RECIEPTS REPORT
  1. N RCDPFXIT
  1. D EN^VALM("RCDP LIST OF RECEIPTS REPORT")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)=^TMP($J,"RCDPRLIS","HDR",2)
  1. S VALMHDR(2)=^TMP($J,"RCDPRLIS","HDR",3)
  1. S VALMHDR(3)=^TMP($J,"RCDPRLIS","HDR",4)
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. N K
  1. S (K,VALMCNT)=0
  1. F S K=$O(^TMP($J,"RCDPRLIS",K)) Q:'K D ;
  1. . S VALMCNT=VALMCNT+1
  1. . D SET^VALM10(VALMCNT,^TMP($J,"RCDPRLIS",K),VALMCNT)
  1. Q
  1. ;
  1. RP ; EP - Launch receipt processing list template
  1. ; Input: None
  1. ; Output: None
  1. ;
  1. N IBFASTXT,RCRECTDA,RCK
  1. D EN^VALM2($G(XQORNOD(0)),"S")
  1. I '$D(VALMY) Q
  1. ;
  1. S VALMBCK="R"
  1. S RCK=0
  1. F S RCK=$O(VALMY(RCK)) Q:'RCK!$G(RCDPFXIT) D ;
  1. . S RCRECTDA=$G(^TMP($J,"RCDPRLIS","IDX",RCK))
  1. . D EN^VALM("RCDP RECEIPT PROFILE")
  1. . ; fast exit
  1. . I $G(RCDPFXIT) S RCRECTDA=0
  1. I $G(RCDPFXIT) S VALMBCK="Q"
  1. Q
  1. ;
  1. HELP ; -- help code
  1. N X
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. Q
  1. ;