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: RCDPEX32

Package: Accounts Receivable

Routine: RCDPEX32


Information

RCDPEX32 ;ALB/TMK - ELECTRONIC EOB EXCEPTION PROCESSING - FILE 344.4 ;Aug 14, 2014@16:27:32

Source Information

Source file <RCDPEX32.m>

Entry Points

Name Comments DBIA/ICR reference
EDITNUM ; Edit invalid claim # to valid, refile EOB
EDITNQ
CHGED(DA,RCEOB,RCSAVE,RCBILL) ; Update Invalid Bill # for EOB
; DA = DA and DA(1) to use for DIE call
; RCEOB = the ien of the entry in file 361.1
; RCSAVE = the free text of the original bill #
; RCBILL = Array containing Bill Information
EDITRXC ; Edit pharmacy comment - PRCA*4.5*298

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITNUM+14
Function Call: WRITE
  • Prompt: !,"You should refresh the worklist entry to include the new claim #",!," before creating the receipt",!
  • Line Location: EDITNUM+20
Function Call: WRITE
  • Prompt: !,"Since the receipt for this EEOB ("_$P($G(^RCY(344,+$P($G(^RCY(344.4,RCXDA1,0)),U,8),0)),U)_") already exists"
  • Line Location: EDITNUM+22
Function Call: WRITE
  • Prompt: !," and is closed, you will need to use link payment to apply the payment",!," to the correct account",!
  • Line Location: EDITNUM+23
Function Call: WRITE
  • Prompt: !," you should edit the receipt and change the claim # so it posts to the",!," correct account",!
  • Line Location: EDITNUM+24
Function Call: WRITE
  • Prompt: !,"Selection #: "_RC_$J("",5)_$P(RC0,U,5)
  • Line Location: EDITNUM+27
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITNUM+35
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITNUM+39
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITNUM+49
Function Call: WRITE
  • Prompt: !!,"EEOB Filed. "_$S(RCBILL>0:"Its detail may be viewed using Third Party Joint Inquiry.",1:"")
  • Line Location: EDITNUM+90
Function Call: WRITE
  • Prompt: !,"ERA has been successfully Marked as an Auto-Post CANDIDATE"
  • Line Location: EDITNUM+96
Function Call: WRITE
  • Prompt: !,"ERA was NOT Marked as an Auto-Post CANDIDATE - ",$P(AUTOPOST,U,2)
  • Line Location: EDITNUM+99

FileMan Files Accessed Via FileMan Db Call

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