Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCDPEP

Package: Accounts Receivable

Routine: RCDPEP


Information

RCDPEP ;AITC/CJE - FLAG PAYERS AS PHARMACY/TRICARE ; 19-APR-2017

Source Information

Source file <RCDPEP.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,">>>> Security key RCDPE PAYER IDENTIFY is required for this action"
  • Line Location: CHKKEY+8
Function Call: WRITE
  • Prompt: !!,*7,"Someone else is editing this Payer Entry."
  • Line Location: EDIT+17
Function Call: WRITE
  • Prompt: !,"Try again later."
  • Line Location: EDIT+18
Function Call: WRITE
  • Prompt: !!,"Edit flags for payer : "_$$GET1^DIQ(344.6,PIEN_",",.01,"E"),!
  • Line Location: EDIT+23
Function Call: WRITE
  • Prompt: !!!,"PCNT="_PCNT_" MULT="_MULT
  • Line Location: SELENT+24
Function Call: WRITE
  • Prompt: !,*7,">>>> Only single entry selection is allowed"
  • Line Location: SELENT+26
Function Call: WRITE
  • Prompt: !!,*7,"All entries are being edited by another user - Nothing done."
  • Line Location: FLAG+31
Function Call: WRITE
  • Prompt: !!,*7,"Warning: The following entries: ",PERR," are being edited by another user"
  • Line Location: FLAG+37
Function Call: WRITE
  • Prompt: !,"These entries will not be updated."
  • Line Location: FLAG+38

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.6 - [#344.6] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ,  VAL^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call