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

Package: Integrated Billing

Routine: IBARXEPV


Information

IBARXEPV ;ALB/AAS - RX COPAY EXEMPTION VERIFY STATUS ; 02/12/2004

Source Information

Source file <IBARXEPV.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Integrated Billing 6 $$STATUS^IBARXEU1  MOSTR^IBARXEU5  OLDAUT^IBARXEX1  ADDEX^IBAUTL6  $$PT^IBEFUNC  ($$DAT1,DATE,PAUSE)^IBOUTL  
VA FileMan 5 NOW^%DTC  DT^DICRW  ^DIE  D^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 $$LST^DGMTU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IB RX PRINT VERIFY EXEMP  IBARXEU5  

Entry Points

Name Comments DBIA/ICR reference
DEV
DQ ; -- entry point from task man to start comparison
END
REPORT ; -- print report
REPORTQ
LINE ; -- write each line
CHK ; -- check if current status = computed status
CHKQ
UP ; -- update current exemption status
UP1
UPQ
SET ; -- set ^tmp node if not okay
HDR ; -- print header

External References

Name Field # of Occurrence
NOW^%DTC DQ+1
^%ZIS DEV+1
HOME^%ZIS %+4, DEV+2
^%ZISC END+2
^%ZTLOAD DEV+2
$$LST^DGMTU CHK+6
DT^DICRW %+2
^DIE UP+4
D^DIQ DQ+1
^DIR %+12
$$STATUS^IBARXEU1 CHK+21
MOSTR^IBARXEU5 UP1+5
OLDAUT^IBARXEX1 UP1+3
ADDEX^IBAUTL6 UP1+6
$$PT^IBEFUNC SET+2
$$DAT1^IBOUTL LINE+5, LINE+6
DATE^IBOUTL %+6
PAUSE^IBOUTL DQ+7, LINE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Verify Medication Copayment Exemption Status"
  • Line Location: IBARXEPV+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: IBARXEPV+10
Function Call: WRITE
  • Prompt: !
  • Line Location: IBARXEPV+14
Function Call: WRITE
  • Prompt: !
  • Line Location: IBARXEPV+18
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"HMMMM, LET ME THINK ABOUT THIS FOR A MINUTE"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"No discrepancies found in ",IBPCNT," exemptions checked."
  • Line Location: REPORT+2
Function Call: WRITE
  • Prompt: !!,"There were ",IBDCNT," discrepancies found in ",IBPCNT," exemptions checked."
  • Line Location: REPORT+7
Function Call: WRITE
  • Prompt: !,$E(IBNAM,1,20),?22,$P(IBER,"^",8)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?39,$S(X=3:"Exemption incorrect",X=1!(X=2)!(X=5):"Not Current Status",X=4:"Name Missing",1:"Hmmmm")
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: ?61,$$DAT1^IBOUTL($P(IBER,"^",2))_" "_$E($P($G(^IBE(354.2,+IBER,0)),"^"),1,15)
  • Line Location: LINE+5
Function Call: WRITE
  • Prompt: ?88,$$DAT1^IBOUTL($P(IBER,"^",4))_" "_$E($P($G(^IBE(354.2,+$P(IBER,"^",3),0)),"^"),1,15)
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: ?115,$P(IBER,"^",6)
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Medication Copayment Exemption Problem Report",?(IOM-31),IBPDAT," Page ",IBPAG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Patient",?22,"PT. ID",?39,"Error",?61,"Current Exemption",?88,"Computed Exemption",?115,"Action"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+5
Routine Call
  • DIE
  • Line Location:
    • UP+4
Routine Call
  • DIR
  • Line Location:
    • %+12
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • %+4
    • DEV+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(354 - [#354] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.31 - [#408.31] CHK+10, CHK+11, CHK+12
^IBA(354 - [#354] CHK+4
^IBA(354.1 - [#354.1] DQ+6, CHK+2
^IBE(354.2 - [#354.2] LINE+5, LINE+6, CHK+17, UP1+3
^TMP($J DQ+2!, END!, REPORT+2, REPORT+5, SET+4, SET+5*

Label References

Name Line Occurrences
CHK DQ+6
CHKQ CHK+2, CHK+4, CHK+7, CHK+17
END %+7, %+13, DEV+1, DEV+2, DQ+8
HDR REPORT+1, LINE+2
LINE REPORT+5
REPORT DQ+7
REPORTQ REPORT+2
SET DQ+6
UP DQ+6
UPQ UP+3

Naked Globals

Name Field # of Occurrence
^( REPORT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+1
>> %ZIS DEV+1*
CLN CHK+6~*, CHK+11*, CHK+12
CONV CHK+6~*, CHK+7, CHK+11, CHK+12*
DA END+3!, UP+4*, UP+5!
DFN END+3!, LINE+1*, CHK+3*, CHK+4, CHK+6, CHK+21, UP+4, SET+2, SET+3, SET+4
DGMT CHK+6~*, CHK+7, CHK+10, CHK+11, CHK+12
DIC END+3!, UP+5!
DIE END+3!, UP+4*, UP+5!
DIR %+12!, END+3!
DIR("?" %+11*
DIR("A" %+12*
DIR("B" %+12*
DIR(0 %+12*
DIRUT %+13, END+3!
DR END+3!, UP+4*, UP+5!
DT %+2, CHK+21
IBBDT %+7, DQ+5, END+4!
IBDA DQ+6*, END+4!, CHK+2
IBDATA END+4!
>> IBDCNT REPORT+1*, REPORT+7, LINE+1*
IBDEPEN END+4!
IBDFN END+4!, REPORT+5*, LINE+1, SET+3*, SET+4*, SET+5
IBDT DQ+5*, DQ+6*, END+4!
IBEDT %+7, DQ+6, END+4!
IBER END+4!, REPORT+5*, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7
IBERR END+4!, CHK+1*, CHK+15*, CHK+18*, CHK+19*, CHK+20*, CHK+22*, UP+3, SET+5
IBEXREA END+4!
IBEXREAN END+4!, CHK+21*, CHK+22, UP1+3, UP1+4, UP1+5, UP1+6, SET+5
IBEXREAO END+4!, CHK+16*, CHK+17, CHK+22, SET+5
IBFORCE UP1+4*, UPQ!
IBJ END+4!
>> IBJOB UP+2*
IBMESS END+4!, CHK+1*, UP+6*, UP1+7*, SET+5
IBNAM END+4!, REPORT+4*, REPORT+5*, LINE+3
IBOK DQ+1*, DQ+6, END+4!, CHK+1*, CHK+15*, CHK+18*, CHK+19*, CHK+20*, CHK+22*, UP+1
, SET+1
IBOLDAUT UP1~*, UP1+6
IBP END+4!, SET+2*, SET+4, SET+5
IBPAG DQ+1*, END+4!, HDR+1, HDR+2*, HDR+3
IBPCNT DQ+1*, END+4!, REPORT+2, REPORT+7, CHK+14*, SET+4
IBPDAT DQ+1*, END+4!, HDR+3
IBQUIT %+3*, DQ+7, END+4!, REPORT+5, LINE+2
IBUP %+12*, DQ+6, END+4!
>> IBWHER UP+2*
IO DEV+4
IO("Q" DEV+2!
IOF %+4, %+5, HDR+1
IOM HDR+3, HDR+5
IOSL LINE+2
IOST HDR+1
>> POP DEV+1
U CHK+7
X END+3!, LINE+4*, CHK+2*, CHK+3, CHK+4, CHK+6, CHK+16, CHK+18, CHK+19, CHK+20
Y %+12, DQ+1*, END+3!, CHK+4*, CHK+15, CHK+18, CHK+19, CHK+20
>> ZTDESC DEV+2*
>> ZTQUEUED DEV+3, END+1
>> ZTREQ END+1*
>> ZTRTN DEV+2*
>> ZTSAVE("IB*" DEV+2*
ZTSK DEV+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