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

Package: Integrated Billing

Routine: IBAERR3


Information

IBAERR3 ;ALB/AAS - RX COPAY EXEMPTION ALERT PROCESSOR ;15-JAN-93

Source Information

Source file <IBAERR3.m>

Entry Points

Name Comments DBIA/ICR reference
SEND ; -- use kernel alerts
SENDQ
TOWHO ; -- set xqa array to deliver to
TOWHOQ
1 ; -- process info only alerts
11 ; -- process action alerts
PROC ; -- process alert
; -- run ^ibarxex to see if okay
PROCQ
CLEAR ; -- clear entry in 354.4 and alert in 354.1
CLEARQ
WRITE ; -- write out long message
; xqadata = alert type;dfn;exemption;ibjob;ibwhere;duz;dt;alert entry
WRITEQ
UP ; -- update error file with user
UPQ
MSG ;;
PURGE ; -- purge entries in 354.4, clear pointer in 354.1, delete alert
; purge cleared entries older than 30 days, all over 60 days

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PROC+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLEAR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CLEAR+8
Function Call: WRITE
  • Prompt: !!,"Patient: ",$P(IBP,"^"),?40,$P(IBP,"^",2)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: " by ",$P($G(^VA(200,+$P(XQADATA,";",6),0)),"^")," on ",$$DAT1^IBOUTL($P(XQADATA,";",7)),"."
  • Line Location: WRITE+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(354.1 - [#354.1] Classic Fileman Calls
^IBA(354.4 - [#354.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call