RCDPEX1 ;ALB/TMK - ELECTRONIC EOB MESSAGE EXCEPTIONS PROCESS ;2 Aug 2018 21:41:05
Source file <RCDPEX1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Main entry point
|
|
| EN1 | ; Duplicate ERA Worklist [RCDPE DUPLICATE ERA WORKLIST] option
|
|
| INITD | ; set up initial variables (RCDPEX DUPLICATE ERA LIST)
|
|
| INIT | ; set up initial variables
|
|
| BLD(MODE) | ; EP - from RCDPEX -- build list of messages
; INPUT: MODE = "TRANSMISSION" or "DUPLICATE ERA" ; OUTPUT: ^TMP("RCDPEX-EOB",$J) |
|
| FNL | ; -- Clean up list
|
|
| SET(X,FILE,RCMSG,RCSEQ) | ; -- set arrays for EOB exception records
; X = the data to set into the global |
|
| HDR | ;
|
|
| HDR1 | ;
|
|
| DIQ3445(DA,DR) | ; DIQ call to retrieve data for DR fields in file 344.5
|
|
| DIQ3444(DA,DR) | ; DIQ call to retrieve data for DR fields in file 344.4
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.4 - [#344.4] | Classic Fileman Calls |
| ^RCY(344.5 - [#344.5] | Classic Fileman Calls, GET1^DIQ |
