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

Package: Accounts Receivable

Routine: RCDPEAA3


Information

RCDPEAA3 ;ALB/KML - APAR Screen - callable entry points ;Nov 24, 2014@23:32:24

Source Information

Source file <RCDPEAA3.m>

Entry Points

Name Comments DBIA/ICR reference
SPLIT(RCIENS) ;EP - Protocol action - RCDPE APAR SPLINE LINE
; Split EEOB in APAR
; Input: RCIENS - Internal IEN of entry in file 344.49^ien of
; 344.491^selectable line item from listman screen
SPLITQ
REFRESH(RCIENS) ;EP - Protocol action - RCDPE APAR EEOB REFRESH - PRCA*4.5*332 subroutine re-written
; Refresh the entry in file 344.49 to remove all user adjustments
; Input: RCIENS - Internal IEN of entry in file 344.49^ien of
; 344.491^selectable line item from listman screen
REFQ ;
RESEARCH ; Invoke the research menu off APAR
RQ
VRECPT(RCIENS) ;
;
; Input - RCIENS = ien of entry in file 344.49^ien of 344.491^selectable line item from listman screen
REVIEW(RCIENS) ; Enter review information on worklist and turn review display on/off
;
; Input - RCIENS = ien of entry in file 344.49^ien of 344.491^selectable line item from listman screen
REVIEWQ
NEWREV(RCSCR,RCZ,RCDUZ) ; Enter a new review comment
; RCSCR = ien of entry in file 344.49
; RCZ = ien of the EEOB (seq #)
; RCDUZ =DUZ of user entering the comment
; Function returns 0 if no new comment, ien of comment if added
NEWREVQ
ADDUSER(RCSCR,RCDUZ) ; Add user record to user preferences multiple in file 344.49 and initialize all preferences
; RCSCR = ien of entry in file 344.49
; RCDUZ = the ien of the user
ADDUQ
PREOB(RCIENS) ; Print/View EOB detail
VERIF(RCIENS) ;EP - Protocol action RCDPE APAR VERIFY
; Entry point to verification options on APAR worklist
; Input: RCIENS - Internal IEN of entry in file 344.49^ien of
; 344.491^selectable line item from listman screen
MVER(RCERA) ; Manually mark an EEOB as verified within APAR
; subroutine cloned from the process that VERIFIES EEOBs off the standard worklist (MVER^RCDPEV)
; but with specific changes to support APAR
; this subroutine only needs to VERIFY one EEOB rather than a list of EEOBs
COMNT ;
COMQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SPLIT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SPLIT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: REFRESH+15
Function Call: WRITE
  • Prompt: !
  • Line Location: REVIEW+10
Function Call: WRITE
  • Prompt: !
  • Line Location: REVIEW+20
Function Call: WRITE
  • Prompt: !
  • Line Location: REVIEW+31
Function Call: WRITE
  • Prompt: !!,"REVIEW DATE/TIME: "_$$FMTE^XLFDT(RCNOW,"2")
  • Line Location: NEWREV+6
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: VERIF+8
Function Call: WRITE
  • Prompt: !
  • Line Location: VERIF+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: VERIF+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: VERIF+21
Function Call: WRITE
  • Prompt: !
  • Line Location: MVER+14
Function Call: WRITE
  • Prompt: !!,"THIS LINE DOES NOT REFERENCE A VALID BILL"
  • Line Location: MVER+19
Function Call: WRITE
  • Prompt: !!!,Z
  • Line Location: MVER+28
Function Call: WRITE
  • Prompt: !,?13,"PATIENT NAME"_$J("",18)_" SUBMITTED AMT SVC DATE(S)"
  • Line Location: MVER+29
Function Call: WRITE
  • Prompt: !,?13,"------------------------------ --------------- -----------------"
  • Line Location: MVER+30
Function Call: WRITE
  • Prompt: !," ERA DATA: ",$E($P(RESULT,U,3)_$J("",30),1,30)," ",$E($J($P(RESULT,U,5),"",2)_$J("",15),1,15)_" "_DT1_DT2
  • Line Location: MVER+33
Function Call: WRITE
  • Prompt: !,?15,$P($G(^RCY(344,RCERA,0)),U,6)
  • Line Location: MVER+34
Function Call: WRITE
  • Prompt: !," BILL DATA: "_$E($P(RESULT,U,2)_$J("",30),1,30)_" "_$E($J($P(RESULT,U,4),"",2)_$J("",15),1,15)_" "_DT1_DT2
  • Line Location: MVER+37
Function Call: WRITE
  • Prompt: !,?15,$P($G(^DIC(36,+$P(RCZ0,U,4),0)),U),!
  • Line Location: MVER+38
Function Call: WRITE
  • Prompt: !
  • Line Location: MVER+39
Function Call: WRITE
  • Prompt: !,"Cannot comment, no record in file ELECTRONIC REMITTANCE ADVICE file selected."
  • Line Location: COMNT+6
Function Call: WRITE
  • Prompt: !,"Cannot comment, no ERA detail record selected."
  • Line Location: COMNT+9
Function Call: WRITE
  • Prompt: !,"Cannot comment, ERA detail record selected not found."
  • Line Location: COMNT+11
Function Call: WRITE
  • Prompt: !,"Enter a comment on ERA #"_IEN_" ERA Detail Seq #",SEQ," Bill #",ZBILL,!
  • Line Location: COMNT+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
344.41 GET1^DIQ
344.491 GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call