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

Package: Accounts Receivable

Routine: RCDPEX31


Information

RCDPEX31 ;ALB/TMK - ELECTRONIC EOB EXCEPTION PROCESSING - FILE 344.4 ;Jun 11, 2014@15:50:59

Source Information

Source file <RCDPEX31.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 $$GET1^DID  (,WP)^DIE  $$IENS^DILF  GETS^DIQ  ^DIR  
Accounts Receivable 3 UPDEOB^RCDPESR2  BLD^RCDPEX2  SEL^RCDPEX3  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
List Manager 1 (FULL,PAUSE)^VALM1  
MailMan 1 SENDMSG^XMXAPI  

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

Package Total Caller Graph
Accounts Receivable 8 RCDPEM2  RCDPESR5  RCDPEWL0  RCDPEX EOB_SUM REMOVE EXCEPT  RCDPEX3  RCDPEX32  RCDPEX4  RCP409  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
UPD ; Try to update the IB EOB file from exception in 344.41
UPDQ
REMEXC(ERA,REASON,NOMESS) ;EP from RCDPEM2@RETN, RCP409
; Remove any existing Data Exception for any EOBs of the specified ERA
; Input: ERA - ERA to removed data exceptions from
; REASON - Reason ERA was removed from the worklist
; NOMESS - 1 to not display locked warning message, 0 otherwise
; optiona, defaults to 0
DEL ; Delete exception conditions from EOB detail list - file 344.4
DEL2(RCTDA,RCTDA1,REASON) ; Unflag the EOB as a data exception
; PRCA*4.5*409 This is a new method that was previously part of th DEL method above
; It was broken out so that it could be called by new method REMEXC
; to unflag a data exception without any messages to the screen or user input
; Input: RCTDA - ERA IEN of the EOB to be unflagged
; RCTDA1 - IEN of the EOB to be unflagged
; REASON - Reason why the EOB was unflagged
DELQ ; Unlock EOB (if locked) and refresh the listman screen
TXT0(RCTDA,RCDIQ,RCXM1,RC) ; Append 0-node captioned data to array RCXM1
; which is then used to populate the body of a mailman message which
; contains the detail of which EOB was unflagged
; Input: RCTDA - ERA IEN of the EOB that is being unflagged
; RCDIQ - Array of fields from ^RCY(344.4,RCTDA)
; RCXM1 - Current Array of text
; RC - Current line counter for the RCXM1 array
; Output: RCXM1 - Updated Array of text
; RC - Updated line counter for the RCXM1 array
TXT00(RCTDA,RCTDA1,RCDIQ1,RCXM1,RC) ; Extract 0-node data for file 344.41
; which is then used to populate the body of a mailman message which
; contains the detail of which EOB was unflagged
; Input: RCTDA - ERA IEN of the EOB that is being unflagged
; RCTDA1 - EOB IEN of the EOB that is being unflagged
; RCDIQ1 - Array of fields from EOB subfile 344.4
; RCXM1 - Current Array of text
; RC - Current line counter for the RCXM1 array
; Output: RCXM1 - Updated Array of text
; RC - Updated line counter for the RCXM1 array
TXT2(RCTDA,RCTDA1,RCDIQ2,RCXM1,RC) ; Extract all data from subfile ^RCY(344.4,RCTDA,2,0)
; Input: RCTDA - ERA IEN of the EOB that is being unflagged
; RCTDA1 - EOB IEN of the EOB that is being unflagged
; RCDIQ2 - Array of fields from ^RCY(344.4,RCTDA,2,0)
; RCXM1 - Current Array of text
; RC - Current line counter for the RCXM1 array
; Output: RCXM1 - Updated Array of text
; RC - Updated line counter for the RCXM1 array
LOCK(RCTDA,RCTDA1,RCSHH) ; Attempt to lock file entry in file 344.41
; Return 1 if successful, 0 if not able to lock
; Input: RCTDA - ERA IEN of the EOB line being locked
; RCTDA1 - EOB IEN of the EOB line being locked
; RCSHH - Optiona1, 1 if there should be no direct writes
STORACT(RCTDA,RCTDA1,RCWHY) ; Store the detail for the action taken for
; the exception record at ^RCY(344.4,RCTDA,1,RCTDA,0)
; Input: RCTDA - ERA IEN of the EOB line being locked
; RCTDA1 - EOB IEN of the EOB line being locked
; RCWHY(#)- Lines containing the reason/explanation for the action
; RCWHY(1)- Should contain the description of the action taken
; It will be appended to the first line of the message after
; the date and user who made the change.

External References

Name Field # of Occurrence
$$GET1^DID TXT0+15, TXT00+18, TXT2+14
^DIE UPD+13, DEL2+19
WP^DIE STORACT+14
$$IENS^DILF STORACT+14
GETS^DIQ DEL2+12, DEL2+13
^DIR DEL+14, DEL+21
UPDEOB^RCDPESR2 UPD+10
BLD^RCDPEX2 UPD+18, DEL+26
SEL^RCDPEX3 UPD+3, DEL+3
FULL^VALM1 UPD+2, DEL+2
PAUSE^VALM1 UPD+9, UPD+17, REMEXC+27, DEL+25, LOCK+12
$$FMTE^XLFDT DEL2+31, DEL2+34, STORACT+11
$$NOW^XLFDT DEL2+34, STORACT+11
SENDMSG^XMXAPI DEL2+44

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"EEOB cannot be filed in IB"_$S($P($G(^RCY(344.4,RCTDA,1,RCTDA1,0)),U,7)=1:" - the bill # is invalid",1:"")
  • Line Location: UPD+8
Function Call: WRITE
  • Prompt: !,"EEOB DETAIL UPDATE ",$S(Z:"WAS SUCCESSFUL",1:"ENCOUNTERED ERRORS")
  • Line Location: UPD+14
Function Call: WRITE
  • Prompt: !!,*7,"Warning: Not all of the data exceptions could be removed."
  • Line Location: REMEXC+25
Function Call: WRITE
  • Prompt: !,"Please manually remove any remaining data exceptions for this ERA."
  • Line Location: REMEXC+26
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !,"A MailMan message has been sent to report this action.",!
  • Line Location: DEL+24
Function Call: WRITE
  • Prompt: !,*7,"Another user is editing this entry ... please try again later"
  • Line Location: LOCK+11
Routine Call
  • DIE
  • Line Location:
    • UPD+13
    • DEL2+19
Routine Call
  • DIE
  • Line Location:
    • STORACT+14
Routine Call
  • DIR
  • Line Location:
    • DEL+14
    • DEL+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] GET1^DID,  GETS^DIQ
344.41 GET1^DID,  GETS^DIQ,  WP^DIE
344.42 GET1^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.4 - [#344.4] UPD+7, UPD+8, UPD+11, REMEXC+12, REMEXC+14, REMEXC+21, DEL2+10, DELQ+1, LOCK+8
^VA(200 - [#200] DEL2+34, STORACT+11

Label References

Name Line Occurrences
$$LOCK UPD+6, REMEXC+19, DEL+7
DEL2 REMEXC+20, DEL+23
DELQ DEL+5, DEL+7, DEL+15, DEL+22, DEL+27
STORACT UPD+16, DEL2+20
TXT0 DEL2+15
TXT00 DEL2+17
UPDQ UPD+4, UPD+6, UPD+7

Naked Globals

Name Field # of Occurrence
^(1 DEL2+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA UPD+1~, UPD+13*, DEL+1~, DEL2+7~, DEL2+18*
DA(1 UPD+13*, DEL2+18*
DAT TXT0+10~, TXT0+16*, TXT0+17, TXT0+19, TXT0+20, TXT0+21, TXT00+11~, TXT00+19*, TXT00+21, TXT00+23
, TXT00+24, TXT00+25, TXT2+9~, TXT2+15*, TXT2+16, TXT2+18, TXT2+19, TXT2+20
DIE UPD+1~, UPD+13*, DEL+1~, DEL2+18*
>> DIQUIET LOCK+10
DIR DEL+1~, DEL+14!, DEL+21!
DIR("?" DEL+19*, DEL+20*
DIR("A" DEL+10*, DEL+11*, DEL+12*, DEL+13*, DEL+18*
DIR("B" DEL+13*
DIR(0 DEL+9*, DEL+17*
DR UPD+1~, UPD+13*, DEL+1~, DEL2+18*
DTOUT DEL+1~, DEL+22
DUOUT DEL+1~, DEL+22
DUZ DEL2+34, DEL2+43, DEL2+44, STORACT+11
EOB REMEXC+6~, REMEXC+10*, REMEXC+11, REMEXC+12*, REMEXC+13, REMEXC+14, REMEXC+15, REMEXC+16
ERA REMEXC~, REMEXC+7, REMEXC+9, REMEXC+12, REMEXC+14, REMEXC+16
LINE TXT0+10~, TXT0+11*, TXT0+17*, TXT0+18, TXT0+19*, TXT0+20*, TXT0+21*, TXT0+22, TXT00+11~, TXT00+12*
, TXT00+21*, TXT00+22, TXT00+23*, TXT00+24*, TXT00+25*, TXT00+26, TXT2+9~, TXT2+10*, TXT2+16*, TXT2+17
, TXT2+18*, TXT2+19*, TXT2+20*, TXT2+21
NOLOCK REMEXC+6~, REMEXC+10*, REMEXC+19*, REMEXC+24
NOMESS REMEXC~, REMEXC+8*, REMEXC+24
OK LOCK+6~, LOCK+7*, LOCK+13*, LOCK+14
RC TXT0~, TXT0+11*, TXT0+12*, TXT0+17*, TXT0+19*, TXT0+20*, TXT0+22*, TXT0+23*, TXT00~, TXT00+12*
, TXT00+13*, TXT00+21*, TXT00+23*, TXT00+24*, TXT00+26*, TXT00+27*, TXT2~, TXT2+10*, TXT2+16*, TXT2+18*
, TXT2+19*, TXT2+21*, TXT2+22*, STORACT+9~, STORACT+12*, STORACT+13*
RC0 DEL2+7~, DEL2+10*, DEL2+28, DEL2+31
RC00 DEL2+7~, DEL2+10*, DEL2+29
RCDA UPD+1~, UPD+3, UPD+4*, UPD+5, REMEXC+6~, REMEXC+17*, REMEXC+18, REMEXC+22!, DEL+3, DEL+4*
, DEL+5, DEL+6, STORACT+9~, STORACT+10*, STORACT+14
RCDA( UPD+5, REMEXC+18, DEL+6
RCDA("" REMEXC+17, DEL+4
RCDA(0 UPD+4
RCDA(1 REMEXC+16*, STORACT+10*
RCDIQ DEL2+7~, DEL2+15, TXT0~
RCDIQ( TXT0+13, TXT0+14, TXT0+16
RCDIQ1 DEL2+7~, DEL2+17, TXT00~
RCDIQ1( TXT00+15, TXT00+16, TXT00+19
RCDIQ2 TXT2~
RCDIQ2( TXT2+12, TXT2+13, TXT2+15
RCDTA REMEXC+22!
RCDTA1 REMEXC+22!
RCE DEL2+7~, DEL2+14*, DEL2+15, DEL2+16*, DEL2+17, DEL2+35*, DEL2+37*, DEL2+38*
RCSHH LOCK~, LOCK+10
RCT DEL+1~, DEL2+7~, TXT00+11~, TXT00+13*, TXT00+15, TXT00+16, TXT00+19, TXT2+9~, TXT2+11*, TXT2+12
, TXT2+13, TXT2+15
RCT( DEL2+37*, DEL2+38*
RCT("" DEL2+35
RCT(1 DEL2+27*, DEL2+28*, DEL2+29*
RCT(2 DEL2+30*
RCT(3 DEL2+31*
RCT(4 DEL2+32*
RCT(5 DEL2+33*
RCT(6 DEL2+34*
RCT(7 DEL2+35*
RCTDA UPD+1~, UPD+5*, UPD+6, UPD+7, UPD+8, UPD+10, UPD+11, UPD+13, UPD+16, REMEXC+6~
, REMEXC+18*, REMEXC+19, REMEXC+20, REMEXC+21, DEL+1~, DEL+6*, DEL+7, DEL+23, DEL2~, DEL2+10
, DEL2+12, DEL2+13, DEL2+15, DEL2+17, DEL2+18, DEL2+20, DELQ+1, TXT0~, TXT0+13, TXT0+14
, TXT0+16, TXT00~, TXT00+13, TXT2~, TXT2+11, LOCK~, LOCK+8, STORACT~, STORACT+10
RCTDA1 UPD+1~, UPD+5*, UPD+6, UPD+7, UPD+8, UPD+10, UPD+11, UPD+13, UPD+16, REMEXC+6~
, REMEXC+18*, REMEXC+19, REMEXC+20, REMEXC+21, DEL+1~, DEL+6*, DEL+7, DEL+23, DEL2~, DEL2+10
, DEL2+13, DEL2+17, DEL2+18, DEL2+20, DELQ+1, TXT00~, TXT00+13, TXT2~, TXT2+11, LOCK~
, LOCK+8, STORACT~, STORACT+10
RCTXT STORACT+9~
RCTXT( STORACT+13*
RCTXT(1 STORACT+11*
RCWHY UPD+1~, UPD+16, DEL2+7~, DEL2+20, STORACT~
RCWHY( STORACT+13
RCWHY(1 UPD+15*, DEL2+8*, STORACT+11
RCWHY(2 UPD+15*, DEL2+9*
RCWHYTXT DEL2+7~, DEL2+9*, DEL2+33
RCX DEL2+7~, DEL2+15, DEL2+17
RCX( DEL2+16*, DEL2+37
RCXM1 TXT0~, TXT00~, TXT2~
RCXM1( TXT0+12*, TXT0+17*, TXT0+19*, TXT0+20*, TXT0+22*, TXT0+23*, TXT00+13*, TXT00+21*, TXT00+23*, TXT00+24*
, TXT00+26*, TXT00+27*, TXT2+16*, TXT2+18*, TXT2+19*, TXT2+21*, TXT2+22*
REASON REMEXC~, REMEXC+9, REMEXC+20, DEL2~, DEL2+9
U UPD+5, UPD+7, UPD+8, UPD+11, REMEXC+18, DEL+6, DEL2+28, DEL2+29, DEL2+31, DEL2+34
, STORACT+11
>> VALMBCK UPDQ*, DELQ+2*
X DEL+1~
XMBODY DEL2+40~, DEL2+42*, DEL2+44
XMINSTR DEL2+40~, DEL2+44
XMINSTR("FROM" DEL2+43*
XMSUBJ DEL2+40~, DEL2+41*, DEL2+44
>> XMTO DEL2+44
>> XMTO( DEL2+43*
>> XMTO("G.RCDPE PAYMENTS" , DEL2+42*
XMZ DEL2+40~, DEL2+44
XX REMEXC+6~, REMEXC+9*, REMEXC+15*
Y DEL+1~, DEL+15, DEL+23
Z UPD+1~, UPD+11*, UPD+12, UPD+13, UPD+14, UPD+15, DEL+1~, DEL2+7~, DEL2+36*, DEL2+37*
, TXT0+10~, TXT0+13*, TXT0+14, TXT0+15, TXT0+16, TXT00+11~, TXT00+14*, TXT00+15*, TXT00+16, TXT00+17
, TXT00+18, TXT00+19, TXT2+9~, TXT2+12*, TXT2+13, TXT2+14, TXT2+15, STORACT+9~, STORACT+12*, STORACT+13*
Z0 TXT0+10~, TXT0+15*, TXT0+16, TXT00+11~, TXT00+18*, TXT00+19, TXT2+9~, TXT2+14*, TXT2+15
Z1 TXT0+10~, TXT00+11~
ZZ REMEXC+6~
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