Routine: IBJPI2

Information

IBJPI2 ;DAOU/BHS - eIV SITE PARAMETERS SCREEN ACTIONS ;26-JUN-2002

Package	Total	Call Graph
Kernel	5	(,DESC,ISQED)^%ZTLOAD ($$DT,$$FMADD,$$FMTE,$$HTE,$$HTFM,$$NOW)^XLFDT $$UP^XLFSTR $$PROD^XUPROD $$NAME^XUSER
VA FileMan	5	DD^%DT ^DIE ^DIK GETS^DIQ ^DIR
Integrated Billing	4	DELDATA^IBCNBED MSG^IBCNEUT5 INIT^IBJPI $$DAT3^IBOUTL
List Manager	1	(FULL,PAUSE)^VALM1
Registration	1	$$SITE^VASITE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Integrated Billing	2	IBJP IIV FIX CORRUPT BUFFERS IBJP IIV GENERAL EDIT
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
IIVEDIT	; -- IBJP IIV EDIT ACTIONS (GP,PW): Edit eIV Site Parameters
LTENT	; entry from list template protocol 'IBJP IIV FIX CORRUPT BUFFERS' from 'IBJP INS VER MENU' menu
FXLST	;IB*763/CKB - Prompt user to run 'Fix or List Corrupt Buffers'
LTOUT	; list template protocol quit
LTCHKRN	; has the CBF been run in the last 15 days
TASKIN(IBSB,IBUS,IBRET,IBFLIN)	; Clean-up corrupted records in the Insurance Verification Processor file #355.33
TSKCLNQ	;
CHKTSK()	;Check if task already scheduled for date/time
TASK(ZTDTH,ZTDESC,ZTRTN,ZTIO,RMSG)	;bypass for queued task
SCHED(ZTDTH,ZTIO)	;
BADRECS	; Clean-up corrupted records in File #355.33.
BADRECQ	; Exit from Cleaning up Buffers.
IBXSAV	; save message into ^XTMP for 15 days
DELDATA	; Delete data from corrupted records
DELREC(FIELD,IBPATNM)	;Delete entire record as it is unrecoverable
XREFC(DELREC)	; Clean up possible bad "C" cross-reference related to (#355.33,60.01)
LIST	;IB*763/CKB - List of Corrupted Buffers in File #355.33
LISTQ	; Exit from List ; Tell TaskManager to delete the task's record
SAVLIST	;IB*763/CKB - Save List output to MSG array
FLHELP	;IB*763/CKB - Help Text for the 'Fix or List Corrupt Buffers' prompt.

External References

Name	Field # of Occurrence
DD^%DT	TASK+3
^%ZTLOAD	SCHED+2
DESC^%ZTLOAD	CHKTSK+4
ISQED^%ZTLOAD	CHKTSK+8
^DIE	IIVEDIT+8
^DIK	DELREC+40
GETS^DIQ	BADRECS+18, LIST+22
^DIR	FXLST+8, LTCHKRN+19, LTCHKRN+40
DELDATA^IBCNBED	DELDATA+1
MSG^IBCNEUT5	BADRECS+65
INIT^IBJPI	IIVEDIT+10, LTOUT+1
$$DAT3^IBOUTL	SAVLIST+1
FULL^VALM1	IIVEDIT+5, FXLST+1, FXLST+25, LTCHKRN+9
PAUSE^VALM1	FXLST+10, FXLST+20, FXLST+28, FXLST+31
$$SITE^VASITE	BADRECS+7, LIST+5
$$DT^XLFDT	LTENT+6
$$FMADD^XLFDT	TASKIN+20, IBXSAV+6, LIST+48
$$FMTE^XLFDT	LTCHKRN+6, LTCHKRN+24, LTCHKRN+25, TASK+19, BADRECS+43
$$HTE^XLFDT	CHKTSK+9
$$HTFM^XLFDT	SCHED+4
$$NOW^XLFDT	TASKIN+20, TASK+16, BADRECS+9, BADRECS+43, IBXSAV+3, IBXSAV+6, LIST+7, LIST+43, LIST+48
$$UP^XLFSTR	FXLST+9
$$PROD^XUPROD	BADRECS+63
$$NAME^XUSER	BADRECS+42, LIST+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"General Parameters",! Line Location: IIVEDIT+6
Function Call: WRITE	Prompt: !," Select 'F'ix or 'L'ist",! Line Location: FXLST+11
Function Call: WRITE	Prompt: !,"Not submitting Fix Corrupt Buffers to run" Line Location: FXLST+23
Function Call: WRITE	Prompt: !,"Not creating List of Corrupt Buffers." Line Location: FXLST+24
Function Call: WRITE	Prompt: !! Line Location: FXLST+25
Function Call: WRITE	Prompt: !!,"Error in submitting '"_IBFL_"'." Line Location: FXLST+29
Function Call: WRITE	Prompt: !,"Please Contact eInsurance Team" Line Location: FXLST+30
Function Call: WRITE	Prompt: !! Line Location: FXLST+31
Function Call: WRITE	Prompt: IBMSG(IBA),! Line Location: FXLST+31
Function Call: WRITE	Prompt: !! Line Location: LTCHKRN+9
Function Call: WRITE	Prompt: IBMSF,! Line Location: LTCHKRN+10
Function Call: WRITE	Prompt: !!,"Run For: ",$P(IBLCTOP,U,2),! Line Location: LTCHKRN+23
Function Call: WRITE	Prompt: IBC Line Location: LTCHKRN+24
Function Call: WRITE	Prompt: IBC,! Line Location: LTCHKRN+25
Function Call: WRITE	Prompt: !,IBB Line Location: LTCHKRN+26
Function Call: WRITE	Prompt: ! Line Location: LTCHKRN+27
Function Call: WRITE	Prompt: !!,$E(IBSTR,1,$L(IBA1)),!,IBA1,!,IBB1,($E(" ",1,($L(IBA1)-3-$L(IBB1)))),"***",! Line Location: LTCHKRN+31
Function Call: WRITE	Prompt: $E(IBSTR,1,$L(IBA1)) Line Location: LTCHKRN+32
Function Call: WRITE	Prompt: !!," Select Fix to fix corrupted entries in the INSURANCE VERIFICATION PROCESSOR" Line Location: FLHELP+1
Function Call: WRITE	Prompt: !," file (#355.33) aka 'the buffer file'. Select List to display corrupted entries" Line Location: FLHELP+2
Function Call: WRITE	Prompt: !," in the INSURANCE VERIFICATION PROCESSOR file (#355.33) aka 'the buffer file'." Line Location: FLHELP+3
Routine Call	DIE Line Location: IIVEDIT+8
Routine Call	DIR Line Location: FXLST+8 LTCHKRN+19 LTCHKRN+40

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(350.9 - [#350.9]	Classic Fileman Calls
^IBA(355.33 - [#355.33]	Classic Fileman Calls, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBA(355.33 - [#355.33]	BADRECS+14, BADRECS+16, BADRECS+38, DELREC+15, DELREC+16, DELREC+17!, DELREC+20, DELREC+21, DELREC+22, DELREC+23! , DELREC+25, DELREC+26, DELREC+27, DELREC+28!, XREFC+7, XREFC+8, XREFC+9!, LIST+17, LIST+19, LIST+38
^XTMP(	LTCHKRN+5, LTCHKRN+21, LTCHKRN+22, IBXSAV+4, IBXSAV+6, IBXSAV+7, IBXSAV+8, IBXSAV+10, IBXSAV+11, IBXSAV+13* , LIST+46, LIST+48, LIST+49, LIST+50, LIST+53, LIST+54, LIST+56*

Label References

Name	Line Occurrences
$$CHKTSK	LTCHKRN+8, TASK+7
$$SCHED	TASK+10
$$TASK	TASKIN+29
$$TASKIN	FXLST+27
DELDATA	BADRECS+35, BADRECS+39
DELREC	BADRECS+23, BADRECS+26, BADRECS+30
FXLST	FXLST+11
IBXSAV	BADRECS+59
LTCHKRN	FXLST+20
LTOUT	FXLST+10, FXLST+20, FXLST+28
SAVLIST	LIST+27, LIST+29, LIST+31, LIST+36, LIST+38
XREFC	BADRECS+39, DELREC+30, DELREC+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	TASK+1~
CNT	BADRECS+1~
CNT(	BADRECS+10, BADRECS+23, BADRECS+26, BADRECS+30, BADRECS+35, BADRECS+39
CNT("AR"	BADRECS+50, BADRECS+53
CNT("B"	BADRECS+52, BADRECS+55
CNT("E"	BADRECS+48, BADRECS+53
DA	IIVEDIT+1~, IIVEDIT+8!, BADRECS+1~, DELREC+5~, DELREC+39, DELREC+40!
DELREC	XREFC~
DIC	IIVEDIT+1~, IIVEDIT+8!, BADRECS+1~
DIE	IIVEDIT+1~, IIVEDIT+8*!, BADRECS+1~
DIK	DELREC+5~, DELREC+39*, DELREC+40!
DIR	FXLST+2!, FXLST+8!, LTCHKRN+1~, LTCHKRN+17!, LTCHKRN+35!, LTCHKRN+40!
DIR("?"	FXLST+5, LTCHKRN+18, LTCHKRN+37, LTCHKRN+38
DIR("??"	FXLST+6*
DIR("A"	FXLST+4, LTCHKRN+19, LTCHKRN+36*
DIR("B"	FXLST+7, LTCHKRN+19, LTCHKRN+39*
DIR(0	FXLST+3, LTCHKRN+19, LTCHKRN+39*
>> DIROUT	FXLST+10
DIRUT	FXLST+2!, FXLST+10, LTCHKRN+1~, LTCHKRN+17!, LTCHKRN+20, LTCHKRN+35!, LTCHKRN+41
DR	IIVEDIT+1~, IIVEDIT+7*, IIVEDIT+8!, BADRECS+1~
DT	LTENT+6*, IBXSAV+6, LIST+48
>> DTOUT	FXLST+10
DUOUT	FXLST+2!, FXLST+10, LTCHKRN+1~, LTCHKRN+17!, LTCHKRN+20, LTCHKRN+35!, LTCHKRN+41
DUZ	FXLST+27, TASKIN+9, TASKIN+10
FIELD	DELREC~, DELREC+7, DELREC+13, DELREC+19, DELREC+35
GTASKS	CHKTSK+1~, CHKTSK+3!, TASK+1~
GTASKS(	CHKTSK+6
I	BADRECS+1~, BADRECS+10*
IBA	LTENT+1~, FXLST+31, LTCHKRN+1~, LTCHKRN+26, TASKIN+7~, TASKIN+32*
IBA1	LTCHKRN+1~, LTCHKRN+30*, LTCHKRN+31, LTCHKRN+32
IBAA	TASK+1~
IBAR1	DELREC+5~, DELREC+14!
IBAR1(	DELREC+17*
IBAR2	DELREC+5~, DELREC+14!
IBAR2(	DELREC+23*
IBAR3	DELREC+5~, DELREC+14!
IBAR3(	DELREC+28*
IBAR4	XREFC+5~, XREFC+6!
IBAR4(	XREFC+9*
IBARR	LIST+1~, LIST+21!, LIST+23*
IBARR(	LIST+24, SAVLIST+1
IBART	BADRECS+1~, BADRECS+5!*
IBB	LTCHKRN+1~, LTCHKRN+26, TASKIN+7~, TASKIN+32
IBB1	LTCHKRN+1~, LTCHKRN+30*, LTCHKRN+31
IBBUFDA	BADRECS+1~, BADRECS+13, BADRECS+14, BADRECS+16, BADRECS+18, BADRECS+19, BADRECS+38, DELDATA+1, DELREC+17, DELREC+23 , DELREC+28, DELREC+39, XREFC+9, LIST+1~, LIST+17*, LIST+19, LIST+22, LIST+23, LIST+38, SAVLIST+1
IBC	LTCHKRN+1~, LTCHKRN+24, LTCHKRN+25
IBCHK	LTCHKRN+1~, LTCHKRN+4, LTCHKRN+5, LTCHKRN+6
IBCNT	IBXSAV+1~, IBXSAV+3, IBXSAV+7, IBXSAV+10, IBXSAV+11, IBXSAV+13, LIST+1~, LIST+43, LIST+49, LIST+53 , LIST+54, LIST+56
IBDT	SCHED+1~, SCHED+4*, SCHED+6
IBERR	LTENT+1~, FXLST+27*, FXLST+28
IBFL	LTENT+1~, FXLST+18*, FXLST+27, FXLST+29, LTCHKRN+14, LTCHKRN+36, LTCHKRN+37
IBFLIN	TASKIN~, TASKIN+13, BADRECS+43, BADRECS+45
IBFR	LTENT+1~, FXLST+9*, FXLST+10, FXLST+11, FXLST+15, FXLST+18, FXLST+23, FXLST+24, FXLST+27, LTCHKRN+37 , TASK+22
IBGHDESC	LTENT+1~, LTENT+3, FXLST+17, IBXSAV+6
IBHNG	IBXSAV+1~, IBXSAV+3, IBXSAV+4, LIST+1~, LIST+43, LIST+46
IBL1	DELREC+5~, DELREC+15, DELREC+16, DELREC+17, DELREC+20, DELREC+21, DELREC+22, DELREC+23, DELREC+25, DELREC+26 , DELREC+27, DELREC+28, XREFC+5~, XREFC+7, XREFC+8, XREFC+9
IBL2	DELREC+5~, DELREC+21, DELREC+22, DELREC+23, DELREC+26, DELREC+27, DELREC+28
IBL3	DELREC+5~
IBLCNT	LTCHKRN+1~, LTCHKRN+5*, LTCHKRN+21, LTCHKRN+22
IBLCTOP	LTCHKRN+1~, LTCHKRN+21*, LTCHKRN+23
IBLDT	LTCHKRN+1~, LTCHKRN+6*, LTCHKRN+7, LTCHKRN+16
IBLIEN	DELREC+5~, DELREC+16, DELREC+17, DELREC+22, DELREC+23, DELREC+27, DELREC+28, XREFC+5~, XREFC+8, XREFC+9
IBLP	DELREC+5~
IBMSF	LTCHKRN+1~, LTCHKRN+7*, LTCHKRN+10
IBMSG	LTENT+1~, LTCHKRN+1~, LTCHKRN+22*
IBMSG(	FXLST+31, LTCHKRN+26
IBMSG(0	FXLST+26*, FXLST+28, FXLST+31
IBNAME	TASKIN+7~
IBNODE0	BADRECS+1~, BADRECS+16, LIST+1~, LIST+19
IBNOK	IBXSAV+1~, IBXSAV+3, IBXSAV+4, IBXSAV+5, LIST+1~, LIST+43, LIST+46, LIST+47
IBOK	LTENT+1~, LTENT+5, FXLST+20, LTCHKRN+16, LTCHKRN+20, LTCHKRN+29, LTCHKRN+41, BADRECS+1~
IBOKM	LTENT+1~, LTENT+5, FXLST+22, LTCHKRN+29
IBOST	DELREC+5~
IBP01	BADRECS+1~, BADRECS+20, BADRECS+23, LIST+1~, LIST+24, LIST+27
IBPATNM	BADRECS+1~, BADRECS+20, BADRECS+23, BADRECS+26, BADRECS+30, BADRECS+35, BADRECS+38, DELREC~, DELREC+30, LIST+1~ , LIST+24, LIST+31, LIST+36, LIST+38
IBRDT	LTCHKRN+2~, LTCHKRN+6*, LTCHKRN+7
IBREC	LIST+1~, LIST+21!
IBREC(	LIST+23
IBRET	TASKIN~, TASKIN+12*, TASKIN+14, TASKIN+28, TASKIN+30, TASKIN+32
IBRETA	BADRECS+2~, BADRECS+18!
IBRETA(	BADRECS+19
IBSB	TASKIN~, TASKIN+11, TASKIN+24, BADRECS+62, BADRECS+65
IBSN	DELREC+5~
IBSP	DELREC+5~
IBSTART	BADRECS+2~, BADRECS+9, IBXSAV+13, LIST+1~, LIST+7, LIST+56
IBSTAT	BADRECS+2~, BADRECS+20, BADRECS+26, BADRECS+28, BADRECS+33, LIST+1~, LIST+24, LIST+29, LIST+31, LIST+34
IBSTOP	BADRECS+2~, IBXSAV+3, IBXSAV+13, LIST+1~, LIST+43, LIST+56
IBSTR	LTCHKRN+2~, LTCHKRN+4*, LTCHKRN+31, LTCHKRN+32
IBT	LTCHKRN+2~, LTCHKRN+21*, LTCHKRN+24, LTCHKRN+25
IBTYP	BADRECS+2~, BADRECS+23, BADRECS+26, BADRECS+30, BADRECS+35, BADRECS+39*
IBUDUZ	TASKIN+7~, TASKIN+9*
IBUNAME	BADRECS+1~, BADRECS+42, BADRECS+43, IBXSAV+10, LIST+2~, LIST+8, LIST+12, LIST+53
IBUS	TASKIN~, TASKIN+10*, BADRECS+42, LIST+8
IBWRKARY	BADRECS+2~, BADRECS+19!*
IBWRKARY(	BADRECS+20
IBXMY	BADRECS+2~, BADRECS+65
IBXMY("VHAeInsuranceRapidResponse@domain.ext"	BADRECS+64*
IBXTMPNM	LTENT+1~, LTENT+3, FXLST+17, LTCHKRN+5, LTCHKRN+21, LTCHKRN+22, IBXSAV+4, IBXSAV+6, IBXSAV+7, IBXSAV+8 , IBXSAV+10, IBXSAV+11, IBXSAV+13, LIST+46, LIST+48, LIST+49, LIST+50, LIST+53, LIST+54, LIST+56
IDT	TASK+1~, TASK+3*, TASK+10
IOF	IIVEDIT+6
LN	LIST+2~, LIST+11, LIST+12, LIST+13, LIST+14, LIST+40, SAVLIST+1, SAVLIST+2*
MSG	LTCHKRN+2~, LTCHKRN+8, LTCHKRN+13, LTCHKRN+15, TASKIN+7~, TASKIN+29, TASKIN+30, TASK+1~, TASK+7, TASK+8 , TASK+13, TASK+21, TASK+22*, TASK+25, BADRECS+2~, IBXSAV+11, LIST+2~, LIST+54
MSG(	LIST+12, LIST+13, LIST+14, LIST+40, SAVLIST+1*
MSG(1	BADRECS+45*
MSG(10	BADRECS+55*
MSG(11	BADRECS+56*
MSG(12	BADRECS+57*
MSG(2	BADRECS+46*
MSG(3	BADRECS+47*
MSG(4	BADRECS+48*
MSG(5	BADRECS+49*
MSG(6	BADRECS+50*
MSG(7	BADRECS+51*
MSG(8	BADRECS+52*
MSG(9	BADRECS+54*
MSG1	TASK+1~
MSGA	CHKTSK+1~, CHKTSK+5, CHKTSK+7, CHKTSK+9, CHKTSK+10
MSGD	LTCHKRN+2~, LTCHKRN+8, LTCHKRN+14, LTCHKRN+15*, LTCHKRN+29, LTCHKRN+30
NOW	TASK+1~, TASK+16*, TASK+17
RMSG	TASKIN+7~, TASKIN+29, TASK~
RMSG(	TASKIN+32
RMSG(0	TASKIN+29, TASKIN+31, TASK+6, TASK+24*
RMSG(1	TASK+23*
SITENAME	BADRECS+2~, BADRECS+8, BADRECS+65, IBXSAV+10, LIST+2~, LIST+6, LIST+53
SITESYS	BADRECS+2~, BADRECS+7, BADRECS+8, BADRECS+65, IBXSAV+10, LIST+2~, LIST+5, LIST+6, LIST+53
TIME	TASK+1~, TASK+16, TASK+17, TASK+18, TASK+19, TASK+23
TOTAL	BADRECS+3~, BADRECS+53, BADRECS+57, LIST+2~, LIST+11, SAVLIST+2*
TSK	CHKTSK+1~, CHKTSK+5, CHKTSK+6, CHKTSK+7, CHKTSK+8, TASK+1~, TASK+10*, TASK+13, TASK+17, TASK+18 , TASK+21, TASK+22
U	LTCHKRN+6, LTCHKRN+15, LTCHKRN+20, LTCHKRN+23, LTCHKRN+24, LTCHKRN+25, LTCHKRN+30, LTCHKRN+41, TASK+8, TASK+17 , TASK+18, TASK+21, TASK+22, SCHED+6, BADRECS+8, IBXSAV+6, IBXSAV+10, IBXSAV+13, LIST+6, LIST+48 , LIST+53, LIST+56
>> VALMBCK	IIVEDIT+10, LTOUT+1
WMSG	TASKIN+7~
X	IIVEDIT+1~, IIVEDIT+8!, FXLST+2!, LTCHKRN+2~, LTCHKRN+35!, BADRECS+3~
XDT	TASK+1~, TASK+3*
Y	IIVEDIT+1~, IIVEDIT+8!, FXLST+2!, FXLST+9, LTCHKRN+2~, LTCHKRN+20, LTCHKRN+35!, LTCHKRN+41, TASK+1~, TASK+3* , BADRECS+3~
ZTDESC	LTENT+1~, LTENT+4, FXLST+16, TASKIN+29, CHKTSK+4, TASK~
ZTDTH	TASKIN+7~, TASKIN+20*, TASKIN+29, TASK~, TASK+3, SCHED~
ZTIO	TASKIN+7~, TASKIN+21*, TASKIN+29, TASK~, TASK+10, SCHED~
ZTQUEUED	TASKIN+7~, TASKIN+22*, BADRECS+68, LISTQ+2
>> ZTREQ	BADRECS+68, LISTQ+2
ZTRTN	TASKIN+7~, TASKIN+23, TASKIN+24, TASKIN+29, TASK~
ZTSAVE	TASKIN+7~
ZTSAVE("IBFLIN"	TASKIN+25*
ZTSAVE("IBGHDESC"	TASKIN+26*
ZTSAVE("IBSB"	TASKIN+25*
ZTSAVE("IBUS"	TASKIN+25*
ZTSAVE("IBXTMPNM"	TASKIN+26*
ZTSK	CHKTSK+1~, CHKTSK+8*, CHKTSK+9, TASK+1~, SCHED+1~, SCHED+3, SCHED+6
ZTSK("D"	CHKTSK+9, SCHED+4, SCHED+6

Customize PDF page

Package: Integrated Billing

Routine: IBJPI2

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: