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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBPEX

Package: Integrated Billing

Routine: IBPEX


Information

IBPEX ;ALB/AAS - PURGE MEDICATION CO-PAY EXEMPTIONS ; 12-NOV-92

Source Information

Source file <IBPEX.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 NOW^%DTC  DT^DICRW  ^DIK  D^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Entry Points

Name Comments DBIA/ICR reference
DEV
DQ ; -- entry point for later
; if exemption not active, not current, earlier than ibpdt
; or
; if active, not current, earlier that ibpdt-10000
; then purge
END
CHK ; -- check entries
CHKQ
PURGE ; -- blow away the entry
HDR ; -- simple header for 1 line report
REPORT ; -- simple report
REPORTQ ;

External References

Name Field # of Occurrence
NOW^%DTC DQ+7
^%ZIS DEV
HOME^%ZIS %+1, DEV+1
^%ZISC END+1
^%ZTLOAD DEV+1
DT^DICRW %
^DIK PURGE+1
D^DIQ %+10, DQ+7
^DIR %+11, %+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?15,"Purge Medication Copayment Exemptions",!!
  • Line Location: IBPEX+7
Function Call: WRITE
  • Prompt: !!,"There is no output from this routine it just purges.",!
  • Line Location: IBPEX+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "BILLING EXEMPTION PURGE REPORT",?IOM-30,IBPDAT," PAGE ",IBPAG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"No exemption found that met purge criteria"
  • Line Location: REPORT+1
Function Call: WRITE
  • Prompt: !,"There were ",IBPCNT," entries purged from the billing exemption file"
  • Line Location: REPORT+2
Routine Call
  • DIR
  • Line Location:
    • %+11
    • %+16
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • %+1
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(354 - [#354] CHK+4
^IBA(354.1 - [#354.1] DQ+8, CHK+3

Label References

Name Line Occurrences
CHK DQ+8
CHKQ CHK+3, CHK+7, CHK+10
END %+12, %+17, DEV, DEV+1, DQ+10
HDR DQ+9
PURGE DQ+8
REPORT DQ+9
REPORTQ REPORT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+7
>> %ZIS DEV*
DA PURGE+1*, PURGE+2!
DIK PURGE+1*, PURGE+2!
DIR %+11!, %+16!
DIR("?" %+5*, %+6*, %+7*, %+8*
DIR("A" %+9*, %+16*
DIR("B" %+10*, %+16*
DIR(0 %+9*, %+16*
>> DIRUT %+12, %+17
DT %, %+9, %+10
>> IBDA DQ+8*, CHK+3, PURGE+1
>> IBDT DQ+6*, DQ+8*
>> IBPAG DQ+6*, HDR+1, HDR+2*, HDR+3
>> IBPCNT DQ+6*, PURGE+3*, REPORT+1, REPORT+2
>> IBPDAT DQ+7*, HDR+3
>> IBPDT %+13*, DQ+8, CHK+13, CHK+16
>> IBPURG DQ+6*, DQ+8, CHK+2*, CHK+13*, CHK+16*
IO DEV+2
IO("Q" DEV+1!
IOF %+1, %+3, HDR+1
IOM HDR+3, HDR+4
IOST HDR+1
>> POP DEV
>> X CHK+3*, CHK+4, CHK+7, CHK+10, CHK+13, CHK+16
>> X1 CHK+4*, CHK+10
>> Y %+10*, %+12, %+13, %+17, DQ+7*
>> ZTDESC DEV+1*
>> ZTQUEUED END, CHK+1
>> ZTRTN DEV+1*
>> ZTSAVE("IB*" DEV+1*
ZTSK DEV+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All