RCDPEP ;AITC/CJE - FLAG PAYERS AS PHARMACY/TRICARE ; 19-APR-2017
Source file <RCDPEP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(FILTER,DATEFILT) | ; -- main entry point for RCDPE PAYER FLAGS template
; Input: FILTER - A=All payers, P=Pharmacy payers, T=Tricare payers, C=CHAMPVA payers ; M=Medical (Neither Pharmacy nor Tricare nor CHAMPVA) ; DATEFILT - Additional Filter by Date. Has 3 pieces by '^' ; Piece 1 - 1=Filter by date, 0=Don't ; Piece 2 - START - First DATE ADDED to include(FM format) ; Piece 3 - END - Last DATE ADDED to include (FM format) ; |
|
GETDATE() | ; Ask if the user wants to filter by date. If so prompt for start
|
|
GETFILT() | ; Get filter on payer type
; Input: None ; Return: Filter type. ; A=All payers, P=Pharmacy payers, T=Tricare payers, C=CHAMPVA payers ; M=Medical (Neither Pharmacy nor Tricare nor CHAMPVA) |
|
HDR | ; EP - header code for RCDPE PAYER FLAGS template
; Input: Variables FILTER and DATEFILT are assumed to exist ; Output: ListMan template header in VALMHDR array |
|
INIT | ; EP - init variables and list array for RCDPE PAYER FLAGS template
; Input: Variables FILTER and DATEFILT are assumed to exist ; Output: ^TMP("RCDPEP",$J) - Body lines to display for selected template ; ^TMP($J,"RCDPEPIX") - Index of displayed payers |
|
BLD(SORT,FILTER,DATEFILT) | ; - Build the listman body template
; Input: SORT=Index on 344.6 to use for display order ; FILTER=Filter based on FLAG (see EN subroutine for detail) ; DATEFILT=Filter based on date added. |
|
BLD1PAY(PAYCNT) | ; (Re)build one payor line into the listman array
; Input PAYCNT - The sequence number of the payer being built ; Output - Lines set into template array (^TMP("RCDPEP",$J)). |
|
GETPAY(FILTER,DATEFILT) | ; Retrieve the payors sorted and filtered
; Input: FILTER=Type of filter by Pharmacy or Tricare flag ; DATEFILT=Filter by date added ; Output: ^TMP($J,"RCDPEPIX")=PIEN^NAME^PHARMACY_FLAG^TRICARE_FLAG |
|
GET1PAY(PIEN,CNT) | ; Get the data for one payer and add it to the list
; Input: PIEN - Internal entry number to file 344.6 ; CNT - Incremental counter ; Output: ^TMP($J,"RCDPEPIX",CNT)=A1^A2^A3^A4^A5^A6^A7^A8 ; Where A1=PIEN - The payer internal entry number on file 344.6 ; A2=NAME - The payer name ; A3=PAYER ID (also known as TIN) ; A4=DATE ADDED ; A5=PHARMACY PAYER - A Yes/No/Null field to flag a payer as pharmacy ; A6=TRICARE PAYER - A Yes/No/Null filed to flag a payer as tricare ; A7=EFT PAYER - A Yes/No/Null filed to flag a payer as EFT only ; A8=CHAMPVA PAYER - A Yes/No/Null filed to flag a payer as CHAMPVA ;PRCA*4.5*432 |
|
CHKPAY(PIEN,FILTER,DATEFILT) | ; Apply selected filters to a payer
; Input: PIEN - Internal entry number to file 344.6 ; FILTER - A=All payers, P=Pharmacy payers, T=Tricare payers, C=CHAMPVA payers ; M=Medical (Neither Pharmacy nor Tricare nor CHAMPVA) ; DATEFILT - Additional Filter by Date. Has 3 pieces by '^' ; Piece 1 - 1=Filter by date, 0=Don't ; Piece 2 - START - First DATE ADDED to include(FM format) ; Piece 3 - END - Last DATE ADDED to include (FM format) ; Returns: 1 if record matches filter, otherwise 0. |
|
CHKKEY() | ; Check security key for editing
; Inputs: None ; Returns: 1 - User has security key editing, 0 - User does not have key |
|
EDIT | ; EP - for RCDPE PAYER FLAGS EDIT protocol
; Input: None ; Output: File 344.6 is updated ; Listman array is updated |
|
SELENT(FULL,PROMPT,START,END,PCNT,WLIST,MULT) | ; EP - Protocol Action
; Select Entry(s) to perform an action upon ; Called from protocols : RCDPE PAYER FLAGS EDIT ; RCDPE PAYER FLAG PHARM ; RCDPE PAYER FLAG TRIC ; Input: FULL - 1 - full screen mode, 0 otherwise ; PROMPT - Prompt to be displayed to the user ; START - Starting selection value ; END - Ending selection value ; WLIST - Worklist, the user is selecting from ; Optional, defaults to 'RCDPEPIX' ; MULT - 1 to allow multiple selection, ; 0 or null otherwise ; Optional defaults to 0 ; Output: PCNT - Selected Phone Book Entry line(s) ; Returns: Selected Payer Entry IEN(s) ; Error message if invalid selection |
|
SELENTRY(PROMPT,START,END,MULT) | ; Select a line
; Input: PROMPT - Prompt to be displayed to the user ; START - Start comment # that can be selected ; END - Ending comment # that can be selected ; MULT - 1=Multiple selection allowed, 0=otherwise ; Returns: Selected Comment # or "" if not selected |
|
FLAGP | ; EP - for RCDPE PAYER FLAG PHARM protocol
; Toggle pharmacy flag on selected lines ; Input: None ; Output: None |
|
FLAGT | ; EP - for RCDPE PAYER FLAG TRIC protocol
; Toggle Tricare flag on selected lines ; Input: None ; Output: None |
|
FLAGC | ; EP - for RCDPE PAYER FLAG CVA protocol ; Add CHAMPVA flag PRCA*4.5*432
; Toggle CHAMPVA flag on selected lines ; Input: None ; Output: None |
|
FLAG(TYPE) | ; Flag a list of entries as Pharmacy or Tricare or CHAMPVA
; Input: TYPE - P=Pharmacy, T=Tricare, C=CHAMPVA ; Output: File 344.6 is updated ; ListMan array is updated |
|
FILTER | ; EP - for RCDPE PAYER FLAGS FILTER protocol
; Change the filter from a protocol ; Inputs - None ; Output - Sets variables FILTER and DATEFILT |
|
PARSEL(VALMNOD,BEG,END) | ; -- split out pre-answers from user
; Inputs - VALMNOD= User input from protocol menu including pre-answers ; BEG=Begining of the valid numeric range ; END=End of the valid numeric range ; Returns - Y=Comma separated list of valid numeric entries |
|
PARSED(X) | ; Take a date in external format and check if it is a valid
|
|
ASKYN(PROMPT,DEFAULT) | ; Ask a yes/no question
; Input: PROMPT - Question to be asked ; DEFAULT - Default Answer ; 1 - YES, 0 - NO ; Optional, defaults to 0 ; Returns: 1 - User answered YES, 0 othewise |
|
HELP | ; EP - for template RCDPE PAYER FLAGS help
; Input: None ; Output: Text from a help frame displayed to the screen |
|
EXIT | ; -- exit code
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^RCY(344.6 - [#344.6] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ, VAL^DIE |