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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call