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

Package: Integrated Billing

Routine: IBARXEI


Information

IBARXEI ;ALB/AAS - RX COPAY EXEMPTION INQUIRY ; 21-JAN-93

Source Information

Source file <IBARXEI.m>

Entry Points

Name Comments DBIA/ICR reference
PAT
TYP ; -- inquire is active or all
DEV
DQ ;
1 ; -- brief view active exemptions
2 ; -- full view all exemptions
END
HDR ; -- print header for full inquiry
FULL ; -- print full inquiry for one exemption
SET ; -- built tmp array ==> ^tmp($j, dfn, -eff date, -date/time added, da)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Billing Exemption Inquiry",?(IOM-35),$P(IBPDAT,"@")," ",$P(IBPDAT,"@",2)," Page ",IBPAG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$E($P(IBP,"^"),1,20)," ",$P(IBP,"^",3),?27,"Currently: ",$$TEXT^IBARXEU0($P(IBPBN,"^",4))_"-"_$P($G(^IBE(354.2,+$P(IBPBN,"^",5),0)),"^"),?65," ",$$DAT1^IBOUTL($P(IBPBN,"^",3))
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Error, Missing Record - ",IBDA
  • Line Location: FULL+2
Function Call: WRITE
  • Prompt: !,$S($P(IBND,"^",10):"**",1:" "),"Effective Date: ",Y
  • Line Location: FULL+4
Function Call: WRITE
  • Prompt: ?36," Type: ",$P($P($P(^DD(354.1,.03,0),"^",3),$P(IBND,"^",3)_":",2),";",1)
  • Line Location: FULL+5
Function Call: WRITE
  • Prompt: !," Status: ",$P($P($P(^DD(354.1,.04,0),"^",3),$P(IBND,"^",4)_":",2),";",1)
  • Line Location: FULL+6
Function Call: WRITE
  • Prompt: ?36," Reason: ",$P($G(^IBE(354.2,+$P(IBND,"^",5),0)),"^")
  • Line Location: FULL+7
Function Call: WRITE
  • Prompt: !," Active: ",$S($P(IBND,"^",10):"YES, ACTIVE",1:"NO, INACTIVE")
  • Line Location: FULL+8
Function Call: WRITE
  • Prompt: ?36," User: ",$P($G(^VA(200,+$P(IBND,"^",7),0)),"^")
  • Line Location: FULL+9
Function Call: WRITE
  • Prompt: !," How Added: ",$P($P($P(^DD(354.1,.06,0),"^",3),$P(IBND,"^",6)_":",2),";",1)
  • Line Location: FULL+10
Function Call: WRITE
  • Prompt: ?36,"When Added: "
  • Line Location: FULL+11
Function Call: WRITE
  • Prompt: !,"Charges Canceled: "
  • Line Location: FULL+12
Function Call: WRITE
  • Prompt: ?36," To: "
  • Line Location: FULL+12
Function Call: WRITE
  • Prompt: !," Prior Threshold: "
  • Line Location: FULL+13
Function Call: WRITE
  • Prompt: !," Patient DFN: ",$P(IBND,"^",2),?36,"Ex. Number: ",IBDA
  • Line Location: FULL+14
Function Call: WRITE
  • Prompt: !
  • Line Location: FULL+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call