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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Accounts Receivable 9 INIT^RCDPEAA2  $$GETBILL^RCDPESR0  $$VER^RCDPEV  RPT^RCDPEV0  SEL^RCDPEWL  $$TOPLINE^RCDPEWL1  VP^RCDPEWL2  SPLIT^RCDPEWL3  
VR^RCDPEWLP  
VA FileMan 6 ^DIC  FILE^DICN  ^DIE  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
List Manager 2 EN^VALM  (FULL,PAUSE,WAIT)^VALM1  
Kernel 1 ($$DT,$$FMTE,$$NOW)^XLFDT  

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

Package Total Caller Graph
Accounts Receivable 7 RCDPE APAR CLAIM COMMENT  RCDPE APAR EEOB REFRESH  RCDPE APAR EEOB REVIEW  RCDPE APAR RESEARCH  RCDPE APAR SPLIT LINE  RCDPE APAR VERIFY  RCDPE APAR VIEW/PRINT EOB  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
^DIC REVIEW+36
FILE^DICN NEWREV+10, ADDUSER+7
^DIE REFRESH+27, REFRESH+65, REVIEW+19, REVIEW+38, REVIEW+42, MVER+42, COMNT+16, COMNT+24
^DIK REFRESH+34, REFRESH+42, REFRESH+72, NEWREV+13
$$GET1^DIQ REFRESH+7, COMNT+21
GETS^DIQ REFRESH+47
^DIR SPLIT+14, SPLIT+16, REFRESH+19, REVIEW+10, REVIEW+31, VERIF+19, MVER+14, MVER+39
INIT^RCDPEAA2 SPLIT+21, REFRESH+74, REVIEW+43, REVIEWQ, COMQ
$$GETBILL^RCDPESR0 COMNT+14
$$VER^RCDPEV MVER+21
RPT^RCDPEV0 VERIF+24
SEL^RCDPEWL REVIEW+23
$$TOPLINE^RCDPEWL1 MVER+43
VP^RCDPEWL2 PREOB+14
SPLIT^RCDPEWL3 SPLIT+20
VR^RCDPEWLP VRECPT+4
EN^VALM RESEARCH+5
FULL^VALM1 SPLIT+6, REFRESH+5, RESEARCH+4, REVIEW+6, PREOB+2, VERIF+5
PAUSE^VALM1 SPLIT+10, REFRESH+11, VERIF+9
WAIT^VALM1 COMNT+6, COMNT+9, COMNT+11, COMNT+26
$$DT^XLFDT COMNT+23
$$FMTE^XLFDT NEWREV+6, MVER+31, MVER+32, MVER+35, MVER+36
$$NOW^XLFDT NEWREV+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This action can only be taken by users that have the RCDPEPP security key.",!
  • Line Location: SPLIT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SPLIT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: SPLIT+16
Function Call: WRITE
  • Prompt: !!,"This action can only be taken by users that have the RCDPEPP security key.",!
  • Line Location: REFRESH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: REFRESH+18
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: !!,"This action can only be taken by users that have the RCDPEPP security key.",!
  • Line Location: VERIF+8
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: VERIF+11
Function Call: WRITE
  • Prompt: !
  • Line Location: VERIF+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: VERIF+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: VERIF+24
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
Routine Call
  • DIC
  • Line Location:
    • REVIEW+36
Routine Call
  • DIE
  • Line Location:
    • REFRESH+27
    • REFRESH+65
    • REVIEW+19
    • REVIEW+38
    • REVIEW+42
    • MVER+42
    • COMNT+16
    • COMNT+24
Routine Call
  • DIR
  • Line Location:
    • SPLIT+14
    • SPLIT+16
    • REFRESH+19
    • REVIEW+10
    • REVIEW+31
    • VERIF+19
    • MVER+14
    • MVER+39
Routine Call
  • VALM
  • Line Location:
    • RESEARCH+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
344.41 GET1^DIQ
344.491 GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] REFRESH+61
^DIC(36 - [#36] MVER+38
^IBM(361.1 - [#361.1] MVER+21
^RCY(344 - [#344] MVER+34
^RCY(344.4 - [#344.4] PREOB+9, PREOB+11, MVER+17, COMNT+10
^RCY(344.49 - [#344.49] SPLIT+12, SPLIT+15, REFRESH+30, REFRESH+39, REFRESH+68, REFRESH+70, REVIEW+12, REVIEW+16, REVIEW+27, NEWREV+13
, ADDUSER+4, PREOB+3, MVER+10, MVER+16, MVER+23, MVER+27, MVER+43, COMNT+7
^TMP("RCDPE-EOB_WL" MVER+44*
^TMP("RCDPE-EOB_WLDX" SPLIT+19, MVER+8, MVER+15
^TMP("RCDPE_SPLIT_REBLD" SPLIT+18!, SPLIT+21!
^TMP($J RESEARCH+2!, RESEARCH+3*, RQ!, REVIEW+9, REVIEW+11*, REVIEW+18, REVIEW+19, REVIEW+21
^XUSEC("RCDPEPP" SPLIT+7, REFRESH+8, VERIF+6

Label References

Name Line Occurrences
$$ADDUSER REVIEW+15
$$NEWREV REVIEW+28, REVIEW+40
ADDUQ ADDUSER+5
COMQ COMNT+5, COMNT+8, COMNT+10, COMNT+16
MVER VERIF+22
NEWREVQ NEWREV+12
REFQ REFRESH+21
REVIEWQ REVIEW+21, REVIEW+24
SPLITQ SPLIT+12, SPLIT+15

Naked Globals

Name Field # of Occurrence
^( SPLIT+12, MVER+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A MVER+4~, MVER+43*, MVER+44
CT MVER+4~, MVER+6*
DA REFRESH+4~, REFRESH+24*, REFRESH+25*, REFRESH+28, REFRESH+32*, REFRESH+41*, REFRESH+45!, REFRESH+48*, REFRESH+66, REFRESH+71*
, REVIEW+5~, REVIEW+17*, REVIEW+18, REVIEW+35~, REVIEW+36*, REVIEW+38*, REVIEW+42*, NEWREV+5~, NEWREV+13*, ADDUSER+3~
, MVER+4~, MVER+42*, COMNT+1~, COMNT+16*, COMNT+22*
DA(1 REFRESH+24*, REFRESH+25*, REFRESH+28*, REFRESH+30, REFRESH+33, REFRESH+39, REFRESH+41, REFRESH+48*, REFRESH+50, REFRESH+68
, REFRESH+70, REFRESH+71, REVIEW+17*, REVIEW+19, REVIEW+36*, REVIEW+38*, REVIEW+42*, NEWREV+7*, NEWREV+8, NEWREV+13
, ADDUSER+6*, MVER+42*, COMNT+16*, COMNT+22*
DA(2 REFRESH+28*, REFRESH+30, REFRESH+33, REFRESH+39, REFRESH+41, REVIEW+38*, NEWREV+7*, NEWREV+8, NEWREV+13
DD NEWREV+5~, NEWREV+9!, NEWREV+10!, ADDUSER+3~
DIC REVIEW+5~, REVIEW+36*, NEWREV+5~, NEWREV+8*, NEWREV+10!, ADDUSER+3~, ADDUSER+6*, ADDUSER+7!
DIC("DR" NEWREV+7*, ADDUSER+6*
DIC("S" REVIEW+36*
DIC(0 REVIEW+36*, NEWREV+7*, ADDUSER+6*
DIE REFRESH+25*, REFRESH+50*, REVIEW+5~, REVIEW+19*, REVIEW+35~, REVIEW+38*, REVIEW+42*!, MVER+4~, MVER+42*, COMNT+16*
DIE("NO^" REVIEW+42*
DIK REFRESH+4~, REFRESH+33*, REFRESH+41*, REFRESH+71*, NEWREV+5~, NEWREV+13*
DIR SPLIT+4~, SPLIT+14!, SPLIT+16!, REFRESH+4~, REFRESH+20!, REVIEW+5~, REVIEW+10!, REVIEW+30~, REVIEW+31!, VERIF+4~
, VERIF+19!, MVER+4~, MVER+14!, MVER+39!, COMNT+1~
DIR("A" SPLIT+13*, SPLIT+16*, REFRESH+14*, REFRESH+15*, REFRESH+16*, REFRESH+17*, REVIEW+10*, REVIEW+31*, VERIF+15*, VERIF+16*
, VERIF+17*, VERIF+18*, VERIF+19*, MVER+14*, MVER+39*
DIR("B" SPLIT+16*, REVIEW+10*, REVIEW+31*, VERIF+19*, MVER+39*
DIR(0 SPLIT+13*, SPLIT+16*, REFRESH+13*, REVIEW+9*, REVIEW+31*, VERIF+14*, MVER+14*, MVER+39*
DIROUT COMNT+1~
DIRUT VERIF+4~, COMNT+1~
DLAYGO NEWREV+5~, NEWREV+7*, NEWREV+10!, ADDUSER+3~, ADDUSER+6*, ADDUSER+7!
DO NEWREV+5~, NEWREV+9!, NEWREV+10!, ADDUSER+3~
DONE REFRESH+4~, REFRESH+66*, REFRESH+67, REFRESH+69*
DR REFRESH+26*, REFRESH+49!, REFRESH+51*, REFRESH+52*, REFRESH+53*, REFRESH+54*, REFRESH+55*, REFRESH+62*, REFRESH+64*, REVIEW+5~
, REVIEW+19*, REVIEW+35~, REVIEW+38*, REVIEW+42*, MVER+4~, MVER+42*, COMNT+16*, COMNT+18!, COMNT+22*, COMNT+23*
DT1 MVER+4~, MVER+31*, MVER+33, MVER+35*, MVER+37
DT2 MVER+4~, MVER+32*, MVER+33, MVER+36*, MVER+37
DTOUT REVIEW+32, VERIF+4~, VERIF+20, MVER+4~, COMNT+1~, COMNT+16
DUOUT REVIEW+32, VERIF+4~, VERIF+20, MVER+4~, COMNT+1~
DUZ SPLIT+7, REFRESH+8, REVIEW+12, REVIEW+15, REVIEW+27, REVIEW+28, REVIEW+40, VERIF+6, COMNT+23
IEN COMNT+1~, COMNT+3*, COMNT+5, COMNT+7, COMNT+10, COMNT+14, COMNT+15, COMNT+16, COMNT+21, COMNT+22
IENS REFRESH+4~, REFRESH+46*, REFRESH+47, REFRESH+51, REFRESH+52, REFRESH+53, REFRESH+54, REFRESH+55, REFRESH+60
L SPLIT+4~, SPLIT+11*, SPLIT+12*
OSEQ REFRESH+4~
OSEQ( REFRESH+51, REFRESH+52, REFRESH+53, REFRESH+54, REFRESH+55, REFRESH+60
Q MVER+4~, MVER+22*, MVER+27*
Q0 MVER+4~, MVER+27*
RC REVIEW+5~, REVIEW+9*, REVIEW+10, REVIEW+11
RCDA REVIEW+5~, REVIEW+23, PREOB+1~, PREOB+3*, PREOB+4
RCDA( REVIEW+24
RCDA(0 REVIEW+24
RCDAZ PREOB+1~, PREOB+4*, PREOB+14
RCDAZ( PREOB+4*, PREOB+5, PREOB+7, PREOB+9*, PREOB+12*
RCDUZ NEWREV~, NEWREV+7, ADDUSER~, ADDUSER+4, ADDUSER+6
RCERA MVER~, MVER+10, MVER+16, MVER+17, MVER+21, MVER+23, MVER+27, MVER+34, MVER+42, MVER+43
RCIENS SPLIT~, SPLIT+12, SPLIT+15, SPLIT+20, SPLIT+21, REFRESH~, REFRESH+6, REFRESH+24, REFRESH+25, REFRESH+46
, REFRESH+48, REFRESH+74, VRECPT~, VRECPT+4, REVIEW~, REVIEW+12, REVIEW+15, REVIEW+16, REVIEW+17, REVIEW+27
, REVIEW+28, REVIEW+36, REVIEW+38, REVIEW+40, REVIEW+42, REVIEW+43, REVIEWQ, PREOB~, PREOB+3, PREOB+11
, PREOB+14, VERIF~, VERIF+22, VERIF+24, COMNT+3, COMNT+7, COMQ
RCLINE MVER+4~, MVER+15*, MVER+44
RCLSTREV REVIEW+5~, REVIEW+16*, REVIEW+18
RCNOW NEWREV+5~, NEWREV+6*, NEWREV+7
RCOMMENT COMNT+1~, COMNT+2*, COMNT+25*, COMQ
RCQUIT SPLIT+4~, SPLIT+5*, SPLIT+15, SPLIT+17*, VERIF+4~, VERIF+12*, VERIF+13, VERIF+20*
RCREV REVIEW+5~, REVIEW+26*, REVIEW+28*, REVIEW+37*, REVIEW+38, REVIEW+40*, REVIEW+42, NEWREV+5~, NEWREV+11*, NEWREV+12*
, NEWREV+13*, NEWREVQ
RCSCR NEWREV~, NEWREV+7, ADDUSER~, ADDUSER+4, ADDUSER+6, PREOB+9
RCT MVER+4~, MVER+6*
RCUSPREF REVIEW+5~, REVIEW+12*, REVIEW+14, REVIEW+15*, REVIEW+16, REVIEW+17
RCY MVER+4~, MVER+15*, MVER+16, MVER+42, MVER+43
RCY0 MVER+4~, MVER+16*, MVER+17, MVER+21, MVER+23, MVER+25, MVER+27
RCYNUM MVER+4~, MVER+15*, MVER+43
RCZ REVIEW+5~, REVIEW+24*, REVIEW+27, REVIEW+28, REVIEW+36, REVIEW+38, REVIEW+40, REVIEW+42, NEWREV~, NEWREV+7
RCZ0 MVER+4~, MVER+17*, MVER+18, MVER+21, MVER+38
RESULT MVER+4~, MVER+21*, MVER+22*, MVER+31, MVER+32, MVER+33, MVER+35, MVER+36, MVER+37
REVCHG REVIEW+5~, REVIEW+8*, REVIEW+11*, REVIEW+44*, REVIEWQ
SEQ REFRESH+4~, REFRESH+7*, REFRESH+14, REFRESH+70, COMNT+1~, COMNT+7*, COMNT+8, COMNT+10, COMNT+14, COMNT+15
, COMNT+16, COMNT+21, COMNT+22
SPLIT MVER+4~, MVER+23*, MVER+24, MVER+25, MVER+26
TCOMM COMNT+1~, COMNT+21*, COMNT+22
U SPLIT+12, SPLIT+15, SPLIT+20, VRECPT+4, REVIEW+10, REVIEW+12, REVIEW+15, REVIEW+16, REVIEW+17, REVIEW+27
, REVIEW+28, REVIEW+36, REVIEW+38, REVIEW+40, REVIEW+42, PREOB+3, PREOB+11, PREOB+12, PREOB+14, VERIF+22
, VERIF+24, MVER+10, MVER+12, MVER+15, MVER+17, MVER+18, MVER+21, MVER+22, MVER+25, MVER+27
, MVER+31, MVER+32, MVER+33, MVER+34, MVER+35, MVER+36, MVER+37, MVER+38, COMNT+3, COMNT+7
>> VALMBCK SPLIT+8*, SPLITQ*, REFRESH+9*, REFQ+1*, REVIEWQ+1*, PREOB+16*, VERIF+7*, VERIF+26*, COMQ+1*
>> VALMBG REFQ+1*, RESEARCH+3
VERIFIED MVER+5~, MVER+6*, MVER+12*, MVER+13
X SPLIT+4~, SPLIT+19*, SPLIT+20, REFRESH+4~, REVIEW+5~, REVIEW+30~, REVIEW+35~, NEWREV+5~, NEWREV+7*, ADDUSER+3~
, ADDUSER+6*, VERIF+4~, MVER+4~, COMNT+1~
XX REFRESH+4~, REFRESH+6*, REFRESH+7, REFRESH+28*, REFRESH+29, REFRESH+30*, REFRESH+31, REFRESH+32, REFRESH+37*, REFRESH+38
, REFRESH+39*, REFRESH+40, REFRESH+41, REFRESH+66*, REFRESH+68*, REFRESH+69, REFRESH+70, REFRESH+71
Y SPLIT+17, REFRESH+4~, REFRESH+21, REVIEW+5~, REVIEW+11, REVIEW+30~, REVIEW+34, REVIEW+35~, REVIEW+37, NEWREV+5~
, NEWREV+11, ADDUSER+3~, ADDUSER+4*, ADDUSER+5, ADDUQ, VERIF+4~, VERIF+20, VERIF+22, VERIF+24, MVER+4~
, MVER+41, COMNT+1~, COMNT+16
Z REFRESH+4~, REVIEW+5~, PREOB+1~, PREOB+5*, PREOB+7, PREOB+9, PREOB+12, MVER+4~, MVER+8*, MVER+10
, MVER+22*, MVER+24*, MVER+25*, MVER+27*, MVER+28
Z0 REFRESH+4~, REFRESH+59*, REFRESH+61*, REFRESH+62, PREOB+1~, PREOB+7*, PREOB+8, PREOB+9, PREOB+11*, PREOB+12
, MVER+4~, MVER+6*, MVER+10*, MVER+12
Z1 MVER+4~, MVER+8*, MVER+15
ZBILL COMNT+1~, COMNT+14*, COMNT+15
ZDA COMNT+1~, COMNT+14*
ZDA(1 COMNT+14*
ZZ REFRESH+4~, REFRESH+60*, REFRESH+61
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 |  Naked Globals |  Local Variables  | All