RCDPEUPO ;ALBANY/KML - Unposted EFT Override ; 6/10/19 12:30pm
Source file <RCDPEUPO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Display warning message when aged, unposted EFTs exist
|
|
| DMSGS(CODES) | ; display warning/error messages (if any)
; Input: CODES ; 1P - error condition for aged, unposted Pharmacy EFTs ; 2P - warning condition for aged,unposted Pharmacy EFTs ; 3P - Override exists for aged, unposted pharmacy EFTs ; 1M - error condition for aged, unposted Medical EFTs ; 2M - warning condition for aged, unposted Medical EFTs ; 3M - Override exists for aged, unposted Medical EFTs ; 1T - error condition for aged, unposted Tricare EFTs ; 2T - warning condition for aged, unposted Tricare EFTs ; 3T - Override exists for aged, unposted Tricare EFTs ; 0 - no error or warning conditions ; possible values: ; "1P" or "2P" or "3P" or "1M" or "2M" or "3M" or "1P^1M" or "1P^2M" or ; "1P^3M" or "2P^1M" or "2P^2M" or "2P^3M" or "3P^1M" or "3P^2M" or "3P^3M" |
|
| OVERRIDE(TYPE,TEXT) | ; when ERROR state exists, perform the Override
; Input: TYPE - "M" Medical ; "P" Phamacy ; "T" - Tricare ; Any combination of above flags ; TEXT - Warning and/or error statements; passed by reference ; Output: TEXT - Additional text to be displayed with warning and/or error statements ; contents of TEXT array will be in the body of the mail message ; (refer to MAIL tag) ; Returns: DONE - 1 - OVERRIDE was performed; 0 - Override was not performed |
|
| OVERQ | ;
|
|
| MAIL(TEXT) | ;generate mail message when OVERRIDE is implemented
; Input: TEXT - Lines of text that represent the body of the mail message |
|
| CHECK(TYPE,OVERRIDE) | ; Determine if override exists for today's date
; Input: TYPE - "M" for medical, "P" for Pharmacy or "T" for Tricare ; OVERRIDE - Passed by reference; array to hold the OVERRIDE data ; Output: OVERRIDE - Returned array holding existing OVERRIDE data |
|
| NONE | ; the system does not have any aged, unposted EFTs
|
|
| NOACTION | ; OVERRIDE already exists
; Input: TYPE - "M" for medical, "P" for Pharmacy or "T" for Tricare |
|
| NOENTRY | ; user is not authorized to use the option
|
|
| NOLOCK | ; entry at 344.61 cannot be locked
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.61 - [#344.61] | GET1^DIQ |
