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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 4 $$TEXT^IBARXEU0  (DISP,STAT)^IBARXEX  $$PT^IBEFUNC  ($$DAT1,PAUSE)^IBOUTL  
VA FileMan 4 NOW^%DTC  ^DIC  (D,DT)^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IB RX INQUIRE  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC PAT+2
^%ZIS DEV
HOME^%ZIS %, DEV+1
^%ZISC END+1
^%ZTLOAD DEV+1
^DIC PAT+6
D^DIQ PAT+2, FULL+3
DT^DIQ FULL+11, FULL+12, FULL+13
^DIR TYP+3
$$TEXT^IBARXEU0 HDR+4
DISP^IBARXEX 1+1
STAT^IBARXEX 1+1
$$PT^IBEFUNC PAT+8
$$DAT1^IBOUTL HDR+4
PAUSE^IBOUTL DQ+3, FULL+1

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
Routine Call
  • %ZIS
  • Line Location:
    • %
    • DEV+1
Routine Call
  • DIC
  • Line Location:
    • PAT+6
Routine Call
  • DIR
  • Line Location:
    • TYP+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(354.1 FULL+5, FULL+6, FULL+10
^IBA(354 - [#354] PAT+8
^IBA(354.1 - [#354.1] 2+5, SET+2
^IBE(354.2 - [#354.2] HDR+4, FULL+7
^TMP($J DQ+1!, 2+8, END!, SET+3*
^VA(200 - [#200] FULL+9

Label References

Name Line Occurrences
@( DQ+2
END PAT, PAT+1, PAT+7, TYP+3, DEV, DEV+1, DQ+4, DQ+5
FULL 2+8
HDR 2+1, FULL+1
PAT DEV+1, DQ+4
SET 2+5

Naked Globals

Name Field # of Occurrence
^( 2+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAT+2
>> %ZIS DEV*
C END+2!
DFN PAT+8*, 2+5, 2+8, END+2!, SET+3
DIC PAT+6*!, END+2!
DIC("A" PAT+6*
DIC("S" PAT+6*
DIC("W" PAT+4*
DIC(0 PAT+6*
DIR TYP+3!, END+2!
DIR("?" TYP+1*
DIR("A" TYP+2*
DIR("B" TYP+2*
DIR(0 TYP+2*
DIRUT TYP+3, END+2!
DPTNOFZY PAT+5~*
DUZ(0 FULL+14
>> IBA 2+8*
IBCNT END+2!
IBDA 2+5*, 2+8*, END+2!, FULL+2, FULL+14, SET+2, SET+3
IBDT END+2!
IBFULL TYP+3*, DQ+2, END+2!
IBIDT 2+5*, 2+8*, END+2!, SET+3
IBJ END+2!
IBND 2+8*, END+2!, FULL+2, FULL+3, FULL+4, FULL+5, FULL+6, FULL+7, FULL+8, FULL+9
, FULL+10, FULL+11, FULL+12, FULL+13, FULL+14
IBP PAT+8*, END+2!, HDR+4
IBPAG PAT+2*, END+2!, HDR+1, HDR+2*, HDR+3
IBPBN PAT+8*, END+2!, HDR+4
IBPDAT PAT+2*, END+2!, HDR+3
IBQUIT PAT, PAT+2*, DQ+3, 2+5, 2+8, END+2!, FULL+1
IBSTAT END+2!
IBSTATR END+2!
IBT 2+2*, 2+5*, END+2!
IO DEV+2
IO("Q" DEV+1!
IOF %, HDR+1
IOM HDR+3, HDR+5
IOSL FULL+1
IOST DQ+3, HDR+1
>> POP DEV
X END+2!, SET+1~, SET+2*, SET+3
Y PAT+2*, PAT+7, PAT+8, TYP+3, END+2!, FULL+3*, FULL+4, FULL+11*, FULL+12*, FULL+13*
>> ZTDESC DEV+1*
>> ZTQUEUED DQ+4, END
ZTREQ END*, END+2!
>> ZTRTN DEV+1*
>> ZTSAVE("DFN" DEV+1*
>> ZTSAVE("IB*" DEV+1*
ZTSK DEV+1!, END+2!
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 |  Naked Globals |  Local Variables |  All