Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCDPEWLZ

Package: Accounts Receivable

Routine: RCDPEWLZ


Information

RCDPEWLZ ;ALB/PJH-Block Auto-decrease protocol ;09 Feb 2018

Source Information

Source file <RCDPEWLZ.m>

Entry Points

Name Comments DBIA/ICR reference
BLOCK(RCERA) ; Stop/Allow Auto Decrease of zero balance denials
QUIT ; pause and rebuild the header
ASKSTAT(RCSTA) ; ask if its okay to block to unblock from auto-decrease
; 1 is yes, otherwise no
AUTO(RCERA,RCARRAY) ; Search ERA for Auto-Decrease CARCs
; INPUT - RCERA = ERA number/IEN
; RCARRAY = return array reference
; OUTPUT - RCARRAY = list of ERA lines and auto-decrease CARC/amounts for each line
UPD(RCERA,RCSTA) ; Update AUTO-DECREASE BLOCKED status of an ERA
WLF(RCERA) ; Return auto-decrease flag - EP EXTRACT^RCDPEWL7
; INPUT - RCERA = IEN of ERA in #344.4
; OUTPUT - 'c' or null
WLH(RCERA) ; Auto-decrease status for ERA - EP HDR^RCDPEWL
; INPUT - RCERA = IEN of ERA in #344.4
; OUTPUT - RCTXT = display text
WLL(RCERA,RCLINE) ; Auto-decrease status for ERA line - EP - RCDPEWL0
; INPUT - RCERA = IEN of ERA in #344.4
; RCLINE = ERA line number
; OUTPUT - RCTXT = display text
SCRPAD(RCERA) ;Build Scratchpad entry in #344.49 for the ERA - EP REJ^RCDPEAD
SCRPADX ;Return Scratchpad IEN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will "
  • Line Location: BLOCK+21
Function Call: WRITE
  • Prompt: $S(RCSTA:"ALLOW the nightly process to auto-decrease",1:"STOP the nightly process from auto-decreasing")
  • Line Location: BLOCK+22
Function Call: WRITE
  • Prompt: !," the CARCs on this ERA.",!
  • Line Location: BLOCK+23
Function Call: WRITE
  • Prompt: !,"... CARCs on this ERA will "_$S(RCSTA:"",1:"NOT ")_"be auto-decreased ..."
  • Line Location: BLOCK+30
Function Call: WRITE
  • Prompt: !!,"press RETURN to continue: "
  • Line Location: QUIT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] Classic Fileman Calls,  GET1^DIQ
344.41 GET1^DIQ
^RCY(344.61 - [#344.61] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call