Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 $$FIND1^DIC  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 3 (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  $$PROD^XUPROD  
Integrated Billing 2 PURGE^IBCNEKIT  ($$MGRP,MSG)^IBCNEUT5  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IBCNE PURGE IIV DATA  IBCNEKI2  IBCNEKIT  

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

External References

Name Field # of Occurrence
^%ZTLOAD QUEUE+24
$$S^%ZTLOAD PURGE+15, PURGE+51
$$FIND1^DIC INIT+12, INIT+13, INIT+14, CHKTRK+8
^DIK PURGE+30, PURGE+35, PURGE+60, CHKTRK+44
$$GET1^DIQ PURGE+29, PURGE+54, PURGE+59, INIT+26, INIT+43, CHKTRK+11, CHKTRK+24, CHKTRK+32
GETS^DIQ CHKTRK+19
^DIR INIT+57, DEFLT+10, BEGDT+6, ENDDT+7, CONFIRM+8, QUEUE+13, QUEUE+28
PURGE^IBCNEKIT QUEUE+9
$$MGRP^IBCNEUT5 INIT+72
MSG^IBCNEUT5 INIT+75
$$SITE^VASITE INIT+63, INIT+75
$$FMADD^XLFDT INIT+50
$$FMTE^XLFDT INIT+56, DEFLT+4, DEFLT+8, DEFLT+9, BEGDT+4, BEGDT+5, ENDDT+5, ENDDT+6, CONFIRM+4
$$PROD^XUPROD INIT+53, INIT+74, DEFLT+1, QUEUE+9

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
Routine Call
  • DIC
  • Line Location:
    • INIT+12
    • INIT+13
    • INIT+14
    • CHKTRK+8
Routine Call
  • DIR
  • Line Location:
    • INIT+57
    • DEFLT+10
    • BEGDT+6
    • ENDDT+7
    • CONFIRM+8
    • QUEUE+13
    • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBCN(365 - [#365] PURGE+49, INIT+39, INIT+40
^IBCN(365.1 - [#365.1] PURGE+12, PURGE+13, PURGE+16, PURGE+17, PURGE+18, PURGE+27, PURGE+28, INIT+18, INIT+19, INIT+24
, INIT+25, CHKTRK+30, CHKTRK+31
^IBCN(365.18 - [#365.18] CHKTRK+15

Label References

Name Line Occurrences
BEGDT EN+5
BEGDTX BEGDT+7
CHKTRK PURGE+22
CONFIRM EN+7
DEFLT EN+4
DEFLTX DEFLT+11
ENDDT EN+6
ENDDTX ENDDT+8
EXIT EN+3, EN+4, EN+5, EN+6, EN+7
EXIT1 EN1+3
INIT EN+3, EN1+3
INITX INIT+53, INIT+59, INIT+80
PURGEX PURGE+39
QUEUE EN+8, EN1+4
QUEUEX QUEUE+9, QUEUE+16, QUEUE+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT EN+1~, EN1+1~, PURGE+12, INIT+17*, INIT+33*, INIT+45*, INIT+53, INIT+56, INIT+59, DEFLT+6
, DEFLT+9, BEGDT+2, BEGDT+4, BEGDT+5, BEGDT+8*, ENDDT+3, ENDDT+6, CONFIRM+4
CNT PURGE+10~, PURGE+12*, PURGE+14*, PURGE+15, PURGE+48*, PURGE+50*, PURGE+51
DA PURGE+10~, PURGE+28*, PURGE+29, PURGE+35*!, PURGE+49*, PURGE+54, PURGE+59, PURGE+63!, CHKTRK+31*, CHKTRK+32
, CHKTRK+33, CHKTRK+43*, CHKTRK+45!
DATE PURGE+10~, PURGE+12*, PURGE+13*, PURGE+48*, PURGE+49*, INIT+3~, INIT+17*, INIT+18*, INIT+33, INIT+38*
, INIT+39*, INIT+45
DIK PURGE+10~, PURGE+26*, PURGE+35*!, PURGE+48*, PURGE+63!, CHKTRK+42*, CHKTRK+45!
DIR INIT+4~, INIT+57!, DEFLT+5~, DEFLT+10!, BEGDT+1~, BEGDT+6!, ENDDT+1~, ENDDT+7!, CONFIRM+2~, CONFIRM+8!
, QUEUE+6~, QUEUE+28!
DIR("?" DEFLT+9*, BEGDT+5*, ENDDT+6*
DIR("A" DEFLT+7*, BEGDT+3*, ENDDT+4*, CONFIRM+6*, QUEUE+11*
DIR("B" DEFLT+8*, BEGDT+4*, ENDDT+5*, CONFIRM+7*, QUEUE+12*
DIR(0 INIT+57*, DEFLT+6*, BEGDT+2*, ENDDT+3*, CONFIRM+6*, QUEUE+12*, QUEUE+28*
DIROUT INIT+4~, DEFLT+5~, BEGDT+1~, ENDDT+1~, CONFIRM+2~, QUEUE+6~
DIRUT INIT+4~, DEFLT+5~, DEFLT+11, BEGDT+1~, BEGDT+7, ENDDT+1~, ENDDT+8, CONFIRM+2~, QUEUE+6~
DT INIT+17, INIT+50, DEFLT+6, DEFLT+9, QUEUE+19
DTOUT INIT+4~, DEFLT+5~, BEGDT+1~, ENDDT+1~, CONFIRM+2~, QUEUE+6~
DUOUT INIT+4~, DEFLT+5~, BEGDT+1~, ENDDT+1~, CONFIRM+2~, QUEUE+6~
ENDDT EN+1~, EN1+1~, PURGE+13, PURGE+49, INIT+50*, INIT+53, INIT+59, DEFLT+4, DEFLT+8, DEFLT+12*
, BEGDT+2, BEGDT+5, ENDDT+3, ENDDT+5, ENDDT+6, ENDDT+9*, CONFIRM+4, CHKTRK+22
FILE CHKTRK+3~, CHKTRK+41*, CHKTRK+42, CHKTRK+43
FOUND INIT+3~, INIT+17*, INIT+18, INIT+32*, INIT+37, INIT+39, INIT+44*, INIT+53, INIT+55, INIT+59
HLIEN PURGE+10~, PURGE+26*, PURGE+27*, PURGE+28, CHKTRK+3~, CHKTRK+29*, CHKTRK+30*, CHKTRK+31
IBDNP INIT+3~, INIT+23*, INIT+24, INIT+26*, INIT+29, INIT+30
IBFIELDS CHKTRK+3~, CHKTRK+19!
IBFIELDS( CHKTRK+21, CHKTRK+22, CHKTRK+23
IBHL7 INIT+3~, INIT+23*, INIT+24*, INIT+25
IBIORV PURGE+11~, PURGE+18*, PURGE+19, PURGE+22
IBPURGE CHKTRK+3~, CHKTRK+7!, CHKTRK+37!, CHKTRK+39, CHKTRK+45!
IBPURGE("EICD" CHKTRK+10*, CHKTRK+12*, CHKTRK+33*, CHKTRK+35*, CHKTRK+40*, CHKTRK+41, CHKTRK+43
IBSKIP CHKTRK+3~, CHKTRK+6*, CHKTRK+15, CHKTRK+22*, CHKTRK+25*, CHKTRK+37
IBTQ1 CHKTRK~, CHKTRK+8, CHKTRK+10, CHKTRK+40
IBTQIEN CHKTRK+3~, CHKTRK+11*, CHKTRK+12, CHKTRK+23*, CHKTRK+24, CHKTRK+30, CHKTRK+31, CHKTRK+35
IBTQIEN1 CHKTRK+3~, CHKTRK+8*, CHKTRK+9, CHKTRK+11, CHKTRK+15, CHKTRK+18
IBTQIEN2 CHKTRK+3~, CHKTRK+18*, CHKTRK+19, CHKTRK+21, CHKTRK+22, CHKTRK+23
IBTQS CHKTRK+3~, CHKTRK+24*, CHKTRK+25
IBTRKIEN CHKTRK+4~, CHKTRK+15*, CHKTRK+18
IBVER EN+1~, EN+2*, EN1+1~, EN1+2*, INIT+29, INIT+53, INIT+59, INIT+80, DEFLT+1, QUEUE+9
, QUEUE+25
IBWEXT PURGE+11~, PURGE+17*, PURGE+19, PURGE+22
IBXMY INIT+61~, INIT+75
IBXMY("VHAeInsuranceRapidResponse@domain.ext" INIT+74*
IOF INIT+81
MGRP INIT+61~, INIT+72*, INIT+75
MSG INIT+61~
MSG(1 INIT+62*
MSG(2 INIT+63*
MSG(3 INIT+64*
MSG(4 INIT+65*
MSG(5 INIT+66*
MSG(6 INIT+67*
MSG(7 INIT+68*
MSG(8 INIT+69*
MSG(9 INIT+70*
PFLAG PURGE+10~, PURGE+26*, PURGE+29*, PURGE+35, CHKTRK+4~, CHKTRK+6*, CHKTRK+30, CHKTRK+32*, CHKTRK+34, CHKTRK+37
RPIEN INIT+3~, INIT+25*, INIT+26, INIT+39*, INIT+40, INIT+43
RPS INIT+3~, INIT+40*, INIT+41
STATLIST EN+1~, EN1+1~, PURGE+21, INIT+12*, INIT+13*, INIT+14*, INIT+20, INIT+41, CHKTRK+25
STOP EN+1~, EN+3, EN+4, EN+5, EN+6, EN+7, EN1+1~, EN1+3, INIT+6*, INIT+53*
, INIT+59*, DEFLT+11*, BEGDT+7*, ENDDT+8*, CONFIRM+9*, QUEUE+14*, QUEUE+16
TQIEN PURGE+10~, PURGE+13*, PURGE+16, PURGE+17, PURGE+18, PURGE+22, PURGE+27, PURGE+28, PURGE+35, PURGE+59*
, INIT+3~, INIT+18*, INIT+19, INIT+24, INIT+25
TQS PURGE+10~, PURGE+16*, PURGE+21, INIT+3~, INIT+19*, INIT+20
U PURGE+16, PURGE+17, PURGE+18, PURGE+28, INIT+19, INIT+25, INIT+40, CHKTRK+31
X INIT+4~, DEFLT+5~, BEGDT+1~, ENDDT+1~, CONFIRM+2~, QUEUE+6~
Y INIT+4~, DEFLT+5~, DEFLT+11, DEFLT+12, BEGDT+1~, BEGDT+7, BEGDT+8, ENDDT+1~, ENDDT+8, ENDDT+9
, CONFIRM+2~, CONFIRM+9, QUEUE+6~, QUEUE+9, QUEUE+14
ZTCPU QUEUE+5~
ZTDESC QUEUE+5~, QUEUE+18*
ZTDTH QUEUE+5~, QUEUE+19*
ZTIO QUEUE+5~, QUEUE+20*
ZTKIL QUEUE+5~
ZTPRI QUEUE+5~
>> ZTQUEUED PURGE+15, PURGE+51, PURGEX+2
>> ZTREQ PURGEX+2*
ZTRTN QUEUE+5~, QUEUE+17*
ZTSAVE QUEUE+5~
ZTSAVE("BEGDT" QUEUE+21*
ZTSAVE("ENDDT" QUEUE+22*
ZTSAVE("STATLIST" QUEUE+23*
ZTSK QUEUE+5~, QUEUE+26
>> ZTSTOP PURGE+13, PURGE+15*, PURGE+39, PURGE+49, PURGE+51*
ZTSYNC QUEUE+5~
ZTUCI QUEUE+5~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All