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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBARXEC

Package: Integrated Billing

Routine: IBARXEC


Information

IBARXEC ;ALB/AAS -RX CO-PAY INCOME EXEMPTION CONVERSION ; 2-NOV-92

Source Information

Source file <IBARXEC.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 NOW^%DTC  DT^DICRW  DT^DIQ  ^DIR  
Integrated Billing 3 (HELP,RESTART)^IBARXEC0  DQ^IBARXEC3  $$STDATE^IBARXEU  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBARXEC1  IBARXEC3  

Entry Points

Name Comments DBIA/ICR reference
REFUND ; -- make sure AR set up for refunds
EN ; -- Entry Point to run conversion from start date of exemption to
END
USER
DEV

External References

Name Field # of Occurrence
NOW^%DTC REFUND+15
^%ZIS DEV+1
HOME^%ZIS USER+6, DEV+2
^%ZISC END+5
^%ZTLOAD DEV+2
DT^DICRW USER+6
DT^DIQ REFUND+9
^DIR REFUND+20
HELP^IBARXEC0 USER+7
RESTART^IBARXEC0 REFUND+18
DQ^IBARXEC3 DEV+4
$$STDATE^IBARXEU USER+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to run the conversion.",!
  • Line Location: USER+0
Function Call: WRITE
  • Prompt: @IOF,?15,"IB Medication Copayment Exemption Conversion",!!!
  • Line Location: USER+6
Function Call: WRITE
  • Prompt: !,"You must first install patch IB*1.5*9!"
  • Line Location: USER+11
Function Call: WRITE
  • Prompt: !,"You must first install patch PRCA*3.7*8!"
  • Line Location: USER+12
Function Call: WRITE
  • Prompt: !,"You must first install MAS patch DG*5.2*??!"
  • Line Location: USER+13
Function Call: WRITE
  • Prompt: !,"You must re-run the Post-Init to the DGYGINIT routines, missing cross-referece"
  • Line Location: USER+14
Function Call: WRITE
  • Prompt: !,"In order to do refunds a service of 'FISCAL' with a mail symbol of 04 must ",!,"be defined",!
  • Line Location: REFUND+4
Function Call: WRITE
  • Prompt: !!,"Conversion already finished on "
  • Line Location: REFUND+9
Function Call: WRITE
  • Prompt: !!,"Reprinting the Report...",!
  • Line Location: REFUND+9
Routine Call
  • %ZIS
  • Line Location:
    • USER+6
    • DEV+2
Routine Call
  • DIR
  • Line Location:
    • REFUND+20
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" USER+12, USER+13
^DGMT(408.31 - [#408.31] USER+14
^DIC(49 - [#49] REFUND+2, REFUND+3
^IBA(354 - [#354] USER+11
^IBE(350.9 - [#350.9] %, USER+7, REFUND+9, REFUND+12, REFUND+15*, REFUND+24*
^TMP("IBCONV" END!
^VA(200 - [#200] USER

Label References

Name Line Occurrences
DEV REFUND+9
END USER, USER+8, USER+11, USER+12, USER+13, USER+14, REFUND+1, REFUND+23, DEV+1, DEV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % REFUND+15
>> %ZIS DEV+1*
D0 END+2!
DA END+2!
DGT END+2!
DIC END+2!
DIE END+2!
DIR REFUND+20!, END+2!
DIR("A" REFUND+19*
DIR("B" REFUND+19*
DIR(0 REFUND+19*
DIRUT REFUND+20, END+2!
DR END+2!
DT USER+2
DUZ USER
DUZ(0 USER
ERR END+2!
I END+2!
IBADD END+4!
IBADDE END+4!
IBAFY END+3!
IBARXJOB REFUND+12*, REFUND+14*, REFUND+15, REFUND+20!, REFUND+23, REFUND+24, END+3!
IBCANDT END+3!
IBCBCNT END+3!
IBCEAMT END+3!
IBCECNT END+3!
IBCONVER USER+3*, REFUND+12, END+3!
IBDATA END+4!
IBDEPEN END+4!
IBDONE REFUND+8!, REFUND+9*, END+3!
IBDT USER+2*, END+4!
IBEAMT END+3!
IBECNT END+3!
IBEDT USER+2*, END+4!
IBEFAC END+3!
IBERR END+4!
IBEXERR END+3!
IBEXREA END+4!
IBFAC END+4!
IBJ END+4!
IBJOB END+3!
IBL END+3!
IBLAST END+3!
IBLDT END+3!
IBNAMT END+3!
IBNCNT END+3!
IBND END+3!
IBNECNT END+3!
IBNOW END+3!
IBPARDT END+3!
IBPARNT END+3!
IBPARNT1 END+3!
IBQUIT USER+3*, USER+8, REFUND+1, REFUND+2*, REFUND+3*, REFUND+4, END+3!
IBSITE END+4!
IBSTAT END+4!
IBTBCNT END+4!
IBTCBCNT END+4!
IBTCEAMT END+4!
IBTCECNT END+4!
IBTEAMT END+4!
IBTECNT END+4!
IBTNAMT END+4!
IBTNCNT END+4!
IBTNECNT END+4!
IBWHER END+3!
IO("Q" DEV+2
IOF USER+6
J END+2!
LINE END+2!
>> POP DEV+1
>> X USER+12*, USER+13*
XMZ END+2!
>> Y REFUND+9*, REFUND+20
>> ZTDESC DEV+2*
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN DEV+2*
>> ZTSAVE("IB*" DEV+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All