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

Package: Integrated Billing

Routine: IBARXET


Information

IBARXET ;ALB/AAS - RX COPAY EXEMPTION THRESHOLD ENTER/LIST ; 20-JAN-93

Source Information

Source file <IBARXET.m>

Entry Points

Name Comments DBIA/ICR reference
ADD ; -- add/edit new thresholds
ADDQ
PRINT ; -- print threshold list
PRINTQ
PRIOR ; -- check to see if prior year thresholds used
DQ ; -- entry point from tasking
PRIORQ
HDR ; -- print prior threshold header
SET ; -- set up sortable array by patient
ONE ; -- print line for one patient
ONEQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+13
Function Call: WRITE
  • Prompt: @IOF,?15,"Print Medication Copayment Income Thresholds",!!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"There are Medication Copayment Exemptions based on prior thresholds",!
  • Line Location: PRIOR+10
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Exemptions Based on Prior Year Thresholds",?(IOM-35),$P(IBPDAT,"@")," @ ",$P(IBPDAT,"@",2)," Page ",IBPAG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Patient",?22,"PT. ID",?36,"Exemption Date",?52,"Status"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?63,"Action"
  • Condition for execution: IBACT=3
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$E(IBNAM,1,20),?22,$P(IBP,"^",2),?36,Y,?52,$$TEXT^IBARXEU0($P(IBND,"^",4))
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: ?63,"Exemption updated"
  • Line Location: ONE+10
Function Call: WRITE
  • Prompt: ?63,"No Change"
  • Line Location: ONE+11

FileMan Files Accessed Via FileMan Db Call

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