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

Package: Integrated Billing

Routine: IBJPI3


Information

IBJPI3 ;AITC/CKB - INSURANCE VERIFICATION SITE PARAMETERS SCREEN ACTIONS ; 30-OCT-2024

Source Information

Source file <IBJPI3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 4 DD^%DT  $$FIND1^DIC  ^DIE  ($$GET1,GETS)^DIQ  
Integrated Billing 3 REJECT^IBCNBAR  $$STRIP^IBCNEDE3  INIT^IBJPI  
Kernel 3 (,DESC,ISQED)^%ZTLOAD  ($$FMADD,$$HTE,$$HTFM,$$NOW)^XLFDT  $$UP^XLFSTR  
List Manager 1 FULL^VALM1  

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 2 IBCNINS  IBJP IIV BUFFER DUPLICATE  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
BUFDUP ;-- IBJP IIV BUFFER DUPLICATE (BC) - IB*806/CKB
BUFCLN(IBRUN,IBQUAL,IBNUM) ; Clean up Buffer of Duplicate entries -IB*806/CKB
; called from IBCNINS - eInsurance Nightly Process
; IBRUN = Run buffer cleanup = 1 / Do not run buffer cleanup = 0
; IBQUAL = "A" - ALL / "N" - Number of buffer entries
; IBNUM = (QUAL=A) = "" / (QUAL=N) = # of buffer entries
BUFCLNX ; Exit Clean up Buffer
BUFREJ ; Identify duplicate buffer entries and indicate the entries
; to be Rejected
BUFREJEX ; Tell TaskManager to delete the task's record
REJECT ; Reject OR create a list of entries that would be rejected
; loop through ^TMP("REJECT",$J,[patient name],[buffer ien])
TASKIN(IBSB,IBDUZ,IBRET,IBRUN,IBQUAL,IBNUM) ; Task Duplicate Buffer Cleanup
TSKCLNQ ;
TASK(ZTDTH,ZTDESC,ZTRTN,ZTIO,RMSG) ;bypass for queued task
SCHED(ZTDTH,ZTIO) ;
CHKTSK() ;Check if task already scheduled for date/time

External References

Name Field # of Occurrence
DD^%DT TASK+3
^%ZTLOAD SCHED+2
DESC^%ZTLOAD CHKTSK+4
ISQED^%ZTLOAD CHKTSK+8
$$FIND1^DIC BUFCLN+9, BUFREJ+10
^DIE BUFDUP+7, BUFREJ+55
$$GET1^DIQ BUFREJ+17, BUFREJ+27, REJECT+15
GETS^DIQ BUFREJ+30
REJECT^IBCNBAR REJECT+23
$$STRIP^IBCNEDE3 BUFREJ+38
INIT^IBJPI BUFDUP+9
FULL^VALM1 BUFDUP+3
$$FMADD^XLFDT TASKIN+18
$$HTE^XLFDT CHKTSK+9
$$HTFM^XLFDT SCHED+4
$$NOW^XLFDT TASKIN+18
$$UP^XLFSTR BUFCLN+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Buffer Cleanup",!
  • Line Location: BUFDUP+4
Function Call: WRITE
  • Prompt: !,"Duplicate Buffer Entries Cleanup",!
  • Line Location: REJECT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: REJECT+6
Function Call: WRITE
  • Prompt: !,HDR,!
  • Line Location: REJECT+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: REJECT+8
Function Call: WRITE
  • Prompt: PATNAM,U,BIEN,U,INS,U,$S(GRP="NONE":"",1:GRP),U,$S(SUBID="NONE":"",1:SUBID),!
  • Line Location: REJECT+19
Function Call: WRITE
  • Prompt: "** NONE **",!
  • Line Location: REJECT+28
Routine Call
  • DIC
  • Line Location:
    • BUFCLN+9
    • BUFREJ+10
Routine Call
  • DIE
  • Line Location:
    • BUFDUP+7
    • BUFREJ+55

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] FIND1^DIC
^IBE(350.9 - [#350.9] Classic Fileman Calls,  GET1^DIQ
^IBA(355.33 - [#355.33] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(355.33 - [#355.33] BUFREJ+23, BUFREJ+24, BUFREJ+28, REJECT+22, REJECT+24
^TMP("REJECT" BUFREJ+8!, BUFREJ+43*, BUFREJ+44, BUFREJ+45*, BUFREJEX+2!, REJECT+10, REJECT+11, REJECT+12
^TMP($J BUFREJ+8!, BUFREJ+40, BUFREJ+47*, BUFREJEX+2!

Label References

Name Line Occurrences
$$CHKTSK TASK+7
$$SCHED TASK+11
$$TASK TASKIN+26
$$TASKIN BUFCLN+21
BUFCLNX BUFCLN+19
BUFREJ BUFCLN+19
BUFREJEX BUFREJ+17, BUFREJ+51
REJECT BUFREJ+49

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT TASK+1~
BIEN REJECT+2~, REJECT+11*, REJECT+12, REJECT+15, REJECT+19, REJECT+21
DA BUFDUP+1~, BUFDUP+6*, BUFDUP+7!, BUFREJ+54~, BUFREJ+55*
DIC BUFDUP+1~, BUFDUP+7!
DIE BUFDUP+1~, BUFDUP+6*, BUFDUP+7!, BUFREJ+54~, BUFREJ+55*
DR BUFDUP+1~, BUFDUP+5*, BUFDUP+7!, BUFREJ+54~, BUFREJ+55*
DT BUFREJ+23
DUZ BUFREJ+12~*, BUFREJ+13, TASKIN+12
FIELDS BUFREJ+7~, BUFREJ+21*, BUFREJ+30
FILE BUFREJ+7~, BUFREJ+20*, BUFREJ+27, BUFREJ+30, BUFREJ+31, BUFREJ+33, BUFREJ+34, BUFREJ+35, BUFREJ+36
GRP REJECT+2~, REJECT+13*, REJECT+19
GTASKS TASK+1~, CHKTSK+1~, CHKTSK+3!
GTASKS( CHKTSK+6
HDR REJECT+2~, REJECT+7*, REJECT+8
I REJECT+8~*
IBA BUFCLN+6~, TASKIN+9~, TASKIN+29*
IBAA TASK+1~
IBARY BUFREJ+7~, BUFREJ+29!
IBARY( BUFREJ+31, BUFREJ+33, BUFREJ+34, BUFREJ+35, BUFREJ+36
IBB TASKIN+9~, TASKIN+29*
IBBUFDA BUFREJ+7~, BUFREJ+24*, BUFREJ+26, BUFREJ+28, BUFREJ+43, BUFREJ+47, REJECT+21*, REJECT+22, REJECT+23, REJECT+24
IBCNDT BUFREJ+7~, BUFREJ+23*, BUFREJ+24
IBCNT BUFREJ+7~, BUFREJ+19*
IBDT BUFREJ+25~, BUFREJ+27*, BUFREJ+28, SCHED+1~, SCHED+4*, SCHED+6
IBDUZ BUFCLN+6~, BUFCLN+9*, BUFCLN+10, BUFCLN+21, BUFREJ+12, TASKIN~, TASKIN+12*
IBERR BUFCLN+6~, BUFCLN+21*
IBGRP BUFREJ+25~, BUFREJ+35*, BUFREJ+40, BUFREJ+43, BUFREJ+47
IBINS BUFREJ+25~, BUFREJ+34*, BUFREJ+40, BUFREJ+43, BUFREJ+47
IBNUM BUFCLN~, BUFCLN+14, BUFCLN+21, REJECT+18, TASKIN~
IBOK REJECT+2~, REJECT+3*, REJECT+19*, REJECT+28
IBPATNM BUFREJ+25~, BUFREJ+33*, BUFREJ+40, BUFREJ+43, BUFREJ+44, BUFREJ+45, BUFREJ+47
IBPCT BUFREJ+41~, BUFREJ+44*, BUFREJ+45
IBQUAL BUFCLN~, BUFCLN+12*, BUFCLN+13, BUFCLN+14, BUFCLN+21, REJECT+18, TASKIN~
IBRET TASKIN~, TASKIN+13*, TASKIN+14, TASKIN+15*, TASKIN+25, TASKIN+27, TASKIN+29
IBRTN REJECT+2~, REJECT+3*, REJECT+23
IBRUN BUFCLN~, BUFCLN+11, BUFCLN+19, BUFCLN+21, BUFREJ+17, BUFREJ+51, REJECT+6, REJECT+18, REJECT+19, REJECT+21
, REJECT+28, TASKIN~
IBSB TASKIN~, TASKIN+11*
IBSTAT BUFREJ+25~, BUFREJ+31*, BUFREJ+32
IBSUBID BUFREJ+25~, BUFREJ+36*, BUFREJ+38*, BUFREJ+40, BUFREJ+43, BUFREJ+47
IBSUPRES REJECT+2~
IBXTMPNM BUFCLN+6~, BUFCLN+16*
IDT TASK+1~, TASK+3*, TASK+11
IENS BUFREJ+25~, BUFREJ+26*, BUFREJ+27, BUFREJ+30, BUFREJ+31, BUFREJ+33, BUFREJ+34, BUFREJ+35, BUFREJ+36
INS REJECT+2~, REJECT+13*, REJECT+19
IOF BUFDUP+4
MSG TASKIN+9~, TASKIN+26*, TASKIN+27, TASK+1~, TASK+7*, TASK+8*, TASK+14*, TASK+17*, TASK+18
MSGA CHKTSK+1~, CHKTSK+5*, CHKTSK+7, CHKTSK+9*, CHKTSK+10
NOW TASK+1~
PATNAM REJECT+2~, REJECT+10*, REJECT+11, REJECT+12, REJECT+19
REC REJECT+2~, REJECT+12*, REJECT+13
REJCNT REJECT+2~, REJECT+3*, REJECT+17*, REJECT+18
RMSG TASKIN+9~, TASKIN+26, TASK~
RMSG( TASKIN+29
RMSG(0 TASKIN+26*, TASKIN+28, TASK+6*
SUBID REJECT+2~, REJECT+13*, REJECT+19
TIME TASK+1~
TSK TASK+1~, TASK+11*, TASK+14, TASK+17, CHKTSK+1~, CHKTSK+5*, CHKTSK+6*, CHKTSK+7, CHKTSK+8
U BUFREJ+43, REJECT+7, REJECT+13, REJECT+19, TASK+8, TASK+17, SCHED+6
>> VALMBCK BUFDUP+9*
X BUFDUP+1~, BUFDUP+7!
XDT TASK+1~, TASK+3*, TASK+17
Y BUFDUP+1~, BUFDUP+7!, TASK+1~, TASK+3*
ZTDESC BUFCLN+6~, BUFCLN+17*, TASKIN+26, TASK~, CHKTSK+4
ZTDTH TASKIN+9~, TASKIN+18*, TASKIN+26, TASK~, TASK+3, SCHED~
ZTIO TASKIN+9~, TASKIN+19*, TASKIN+26, TASK~, TASK+11, SCHED~
ZTQUEUED BUFREJEX+1, TASKIN+9~, TASKIN+20*
>> ZTREQ BUFREJEX+1*
ZTRTN TASKIN+9~, TASKIN+21*, TASKIN+26, TASK~
ZTSAVE TASKIN+9~
ZTSAVE("IBDUZ" TASKIN+22*
ZTSAVE("IBNUM" TASKIN+23*
ZTSAVE("IBQUAL" TASKIN+23*
ZTSAVE("IBRUN" TASKIN+23*
ZTSAVE("IBSB" TASKIN+22*
ZTSAVE("IBXTMPNM" TASKIN+22*
ZTSK TASK+1~, SCHED+1~, SCHED+3, SCHED+6, CHKTSK+1~, CHKTSK+8*, CHKTSK+9
ZTSK("D" SCHED+4, SCHED+6, CHKTSK+9
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