Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Accounts Receivable 5 $$CARCLMT^RCDPEAD  $$PHARM^RCDPEAP1  $$ADDREC^RCDPEWL  ADDLINES^RCDPEWLA  $$WLH^RCDPEWLZ  
VA FileMan 3 ^DIE  $$GET1^DIQ  ^DIR  
Kernel 1 $$FMADD^XLFDT  
List Manager 1 FULL^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Accounts Receivable 6 RCDPE EOB AUTO-DECREASE  RCDPEAD4  RCDPEWL  RCDPEWL1  RCDPEWL7  RCDPEWLZ  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
^DIE UPD+3
$$GET1^DIQ BLOCK+18, AUTO+14, AUTO+16, AUTO+18, AUTO+20, AUTO+22, AUTO+24, AUTO+42, AUTO+53, WLH+9
^DIR ASKSTAT+5
$$CARCLMT^RCDPEAD AUTO+45
$$PHARM^RCDPEAP1 AUTO+28
$$ADDREC^RCDPEWL SCRPAD+15
ADDLINES^RCDPEWLA SCRPAD+17
$$WLH^RCDPEWLZ QUIT+5
FULL^VALM1 BLOCK+8
$$FMADD^XLFDT AUTO+18

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
Routine Call
  • DIE
  • Line Location:
    • UPD+3
Routine Call
  • DIR
  • Line Location:
    • ASKSTAT+5

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.4 - [#344.4] AUTO+31, AUTO+32, AUTO+40, SCRPAD+7
^RCY(344.49 - [#344.49] SCRPAD+13
^RCY(344.6 - [#344.6] AUTO+34, AUTO+35
^TMP($J AUTO+26

Label References

Name Line Occurrences
$$ASKSTAT BLOCK+25
AUTO BLOCK+6, WLF+5, WLH+5, WLL+6
QUIT BLOCK+11, BLOCK+14
SCRPADX SCRPAD+13
UPD BLOCK+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA UPD+1~, UPD+2*
DIE UPD+1~, UPD+3*
DIQ2 ASKSTAT+2~
DIR ASKSTAT+2~
DIR("A" ASKSTAT+4*
DIR("B" ASKSTAT+3*
DIR(0 ASKSTAT+3*
DR UPD+1~, UPD+3*
DT AUTO+18
DTIME QUIT+2
DTOUT ASKSTAT+2~, ASKSTAT+6
DUOUT ASKSTAT+2~, ASKSTAT+6
EOBIEN AUTO+10~, AUTO+42*, AUTO+43, AUTO+45
I WLL+4~, WLL+11*
PAYID AUTO+10~, AUTO+31*, AUTO+33, AUTO+34
PAYNAM AUTO+10~, AUTO+32*, AUTO+33, AUTO+34
RC0 SCRPAD+6~, SCRPAD+7*, SCRPAD+9, SCRPAD+11
RC3446 AUTO+10~, AUTO+35*, AUTO+37
RC5 SCRPAD+6~, SCRPAD+7*
RCARC QUIT+4~, QUIT+5*, QUIT+6, AUTO+10~, AUTO+45*, AUTO+47, AUTO+49, WLL+4~, WLL+11*
RCARRAY BLOCK+5~, BLOCK+6, BLOCK+11, AUTO~, AUTO+11!, AUTO+12*, AUTO+51*, WLF+3~, WLF+5, WLF+7
, WLH+3~, WLH+5, WLH+7, WLL+4~, WLL+6
RCARRAY( AUTO+49*, WLL+8, WLL+11
RCARRAY("D" BLOCK+14, AUTO+12*, AUTO+53*, WLH+11
RCBLK AUTO+10~
RCDAT SCRPAD+6~, SCRPAD+15
RCDAY AUTO+10~, AUTO+18*, AUTO+22
RCERA BLOCK~, BLOCK+6, BLOCK+18, BLOCK+28, AUTO~, AUTO+14, AUTO+16, AUTO+20, AUTO+22, AUTO+24
, AUTO+28, AUTO+31, AUTO+32, AUTO+40, AUTO+42, AUTO+53, UPD~, UPD+2, WLF~, WLF+5
, WLH~, WLH+5, WLH+9, WLL~, WLL+6, SCRPAD~, SCRPAD+7, SCRPAD+13, SCRPAD+15
RCLINE WLL~, WLL+8, WLL+11
RCPARM AUTO+10~, AUTO+34*, AUTO+35
RCRCVD AUTO+10~, AUTO+20*, AUTO+22
RCRTYPE AUTO+10~, AUTO+28*, AUTO+29
RCSCR QUIT+5, SCRPAD+6~, SCRPAD+13*, SCRPAD+15*, SCRPAD+17, SCRPADX+1
RCSTA BLOCK+17~, BLOCK+18*, BLOCK+22, BLOCK+25, BLOCK+28, BLOCK+30, ASKSTAT~, ASKSTAT+4, UPD~, UPD+3
RCSUB AUTO+10~, AUTO+39*, AUTO+40*, AUTO+42, AUTO+49, AUTO+53
RCTOT WLL+4~, WLL+10*, WLL+11*, WLL+12
RCZERO AUTO+10~, AUTO+39*, AUTO+45
U AUTO+31, AUTO+32, AUTO+37, WLL+11, SCRPAD+9, SCRPAD+11
>> VALMBCK BLOCK+9*
>> VALMHDR(4 QUIT+6*
X BLOCK+17~, QUIT+2*, ASKSTAT+2~, SCRPAD+6~
Y ASKSTAT+2~, ASKSTAT+6*, ASKSTAT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All