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: IBCNEKIT

Package: Integrated Billing

Routine: IBCNEKIT


Information

IBCNEKIT ;DAOU/ESG - PURGE eIV DATA FILES ;11-JUL-2002

Source Information

Source file <IBCNEKIT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EXIT ;
EN1 ; Automated Monthly Purge *IB*2*595
EXIT1 ;
PURGE ; This procedure is queued to run in the background and does the
; actual purging. Variables available from the TaskMan call are:
PURGEX ;
; Tell TaskManager to delete the task's record
INIT ; This procedure calculates the default beginning and ending dates
; and displays screen messages about this option to the user.
INITX ;
DEFLT ; IB*621/DW Added to assist with testing
DEFLTX ;
BEGDT ; This procedure captures the beginning date from the user.
BEGDTX ;
ENDDT ; This procedure captures the ending date from the user.
ENDDTX ;
CONFIRM ; This procedure displays a confirmation message to the user and
; asks if it is OK to proceed with the purge.
CONFX ;
QUEUE ; This procedure queues the purge process for later at night.
; The concept for queuing the purge came from the insurance buffer
; purge routine, IBCNBPG. That purge process is also hard-coded to
; be run at 8:00 PM just like this one is.
QUEUEX ;
CHKTRK(IBTQ1) ; IB*621, Evaluate associated records for one EICD transaction
; IBTQ1 = EICD Identification TQ IEN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Please wait, checking for the earliest purge date ...",!
  • Line Location: INIT+30
Function Call: WRITE
  • Prompt: !!?5,"Purging of eIV data is not possible at this time."
  • Line Location: INIT+54
Function Call: WRITE
  • Prompt: !?5,"There are no entries in the file that are eligible to be",!?5,"purged or there is no data in the file."
  • Line Location: INIT+55
Function Call: WRITE
  • Prompt: !?5,"The oldest date in the file is ",$$FMTE^XLFDT(BEGDT,"5Z"),".",!?5,"Data cannot be purged unless it is at least 6 months old."
  • Line Location: INIT+56
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+57
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INIT+81
Function Call: WRITE
  • Prompt: !?8,"Purge Electronic Insurance Verification (eIV) Data Files"
  • Line Location: INIT+82
Function Call: WRITE
  • Prompt: !!!," This option will allow you to purge data from the eIV Response File (#365)"
  • Line Location: INIT+83
Function Call: WRITE
  • Prompt: !," and the eIV Transmission Queue File (#365.1). The data must be at least six"
  • Line Location: INIT+84
Function Call: WRITE
  • Prompt: !," months old before it can be purged. Only insurance transactions that have a"
  • Line Location: INIT+85
Function Call: WRITE
  • Prompt: !," transmission status of ""Response Received"", ""Communication Failure"", or"
  • Line Location: INIT+86
Function Call: WRITE
  • Prompt: !," ""Cancelled"" may be purged. You will be allowed to select a date range for"
  • Line Location: INIT+87
Function Call: WRITE
  • Prompt: !," this purging. The default beginning date will be the date of the oldest"
  • Line Location: INIT+88
Function Call: WRITE
  • Prompt: !," eligible record in the system. The default ending date will be six months"
  • Line Location: INIT+89
Function Call: WRITE
  • Prompt: !," ago from today's date. You may modify this default date range. However, you"
  • Line Location: INIT+90
Function Call: WRITE
  • Prompt: !," may not select an ending date that is more recent than six months ago."
  • Line Location: INIT+91
Function Call: WRITE
  • Prompt: !!
  • Line Location: INIT+92
Function Call: WRITE
  • Prompt: ?5,"*** For Test Purposes Only:"
  • Line Location: DEFLT+2
Function Call: WRITE
  • Prompt: !!?5,"In test systems one may override the DEFAULT end date."
  • Line Location: DEFLT+3
Function Call: WRITE
  • Prompt: !!?5,"Current default end date is TODAY - 182 DAYS: "_$$FMTE^XLFDT(ENDDT,"5Z"),!!
  • Line Location: DEFLT+4
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DEFLT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDDT+2
Function Call: WRITE
  • Prompt: !!!," You want to purge all eIV data created between "
  • Line Location: CONFIRM+3
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(BEGDT,"5Z")," and ",$$FMTE^XLFDT(ENDDT,"5Z"),"."
  • Line Location: CONFIRM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CONFIRM+5
Function Call: WRITE
  • Prompt: !!!!,"*** TEST System only - you may run this immediately",!
  • Line Location: QUEUE+10
Function Call: WRITE
  • Prompt: !!," Task# ",ZTSK," has been scheduled to purge the eIV data tonight at 8:00 PM."
  • Line Location: QUEUE+26
Function Call: WRITE
  • Prompt: !!," TaskManager could not schedule this task.",!," Contact IRM for technical assistance."
  • Line Location: QUEUE+27
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEUE+28

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBCN(365 - [#365] Classic Fileman Calls,  GET1^DIQ
^IBCN(365.1 - [#365.1] Classic Fileman Calls,  GET1^DIQ
^IBE(365.14 - [#365.14] FIND1^DIC
^IBCN(365.18 - [#365.18] FIND1^DIC,  GET1^DIQ
365.185 GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call