RCDPESP6 ;AITC/CJE - ePayment Lockbox Site Parameters - Notify Changes;29 Jan 2019 18:00:14
Source file <RCDPESP6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; EP from RCDPESP
; On entry into parameter edit, save a snapshot of the files ; Input: None ; Output: ^TMP("RCDPESP6",$J) for files 344.6, 344.61 and 344.62 |
|
| EXIT | ; EP from RCDPESP
; On exit compare snapshots with files ; sends mail message if any designated items have changed. ; Input: ^TMP($T(+0),$J) copies of files 344.6, 344.61 and 344.62 ; Output: Mail message (if any parameters have changed) |
|
| HEADER(MSGTXT,RCSITE) | ||
| CHKCHNG(LINE) | ;function, check for changes in EDI Lockbox site parameters
; PRCA*4.5*345 - Added checks for Auto-Decrease Rx/TRICARE parameters ; Input: ; ^TMP($T(+0),$J): Copies of file 344.6, 344.61 and 344.62 taken on entry |
|
| MEDCHNG(HEAD,COUNT,LINE) | ||
| RXCHNG(HEAD,COUNT,LINE) | ||
| TRICHNG(HEAD,COUNT,LINE) | ; Check for TRICARE site parameter changes
; Input: HEAD - See subroutine LNOUT for details ; COUNT - Current # of parameter changes ; LINE - Array of current site parameter changes ; Output: COUNT - Updated # of parameter changes ; LINE - Array of updated site parameter changes |
|
| PAYEXC(COUNT,LINE) | ||
| CARCHNG(COUNT,LINE) | ||
| ZERCHNG(COUNT,LINE) | ; Check for TRICARE site parameter changes
; Input: COUNT - Current # of parameter changes ; LINE - Array of current site parameter changes ; Output: COUNT - Updated # of parameter changes ; LINE - Array of updated site parameter changes |
|
| LNOUT(HEAD,LINE,TXT,XOLD,XNEW,TYPE,COUNT) | ||
| FRMT(VAL,TP) | ;function, format value, added PRCA*4.5*332
; Input: VAL - Value to be formatted ; TP - "$" - Dollar amount, B - Boolean, D - Days ; Returns formatted value |
|
| PAYEN | ; save snapshot of file 344.6, added PRCA*4.5*332
; Input: None ; Output: ^TMP($T(+0),$J) created by merging in files 344.6, 344.61 and 344.62 |
|
| PAYEX | ; (EN) On exit from identify payers option, compare snapshot with live files. - Added for PRCA*4.5*332
; Save changes to the parameter audit multiple 344.611 ; Input: ^TMP($T(+0),$J) created above by merging in file 344.6 ; Output: Enties in multiple 344.611 to keep history of payer flag changes |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.6 - [#344.6] | GET1^DIQ |
| ^RCY(344.61 - [#344.61] | GET1^DIQ |
| ^RCY(344.62 - [#344.62] | GET1^DIQ |
