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 |  Marked Items  | All
Print Page as PDF
Routine: IBEPTC

Package: Integrated Billing

Routine: IBEPTC


Information

IBEPTC ;ALB/CPM/ARH - TP FLAG STOP CODES AND CLINICS ; 22-JUL-93

Source Information

Source file <IBEPTC.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^%DT  ^DIC  ^DIR  
Integrated Billing 2 (FILE,LIST,REV)^IBEPTC1  ^IBEPTC3  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Integrated Billing 1 IB TP FLAG OPT PARAMS  

Entry Points

Name Comments DBIA/ICR reference
EN ; Option entry point - main processing loop.
UPD ; Update the billable status for stop codes or clinics.
UPDQ
UPDQ1
DASH() ; Write a dashed line.
INFO ; Description of stop/clinic information listed below.
S ; Stop Code Information
C ; Clinic Information

External References

Name Field # of Occurrence
^%DT UPD+60
^DIC UPD+32
^DIR UPD+18, UPD+48, UPD+55, UPD+71, UPD+75
FILE^IBEPTC1 UPD+74
LIST^IBEPTC1 UPD+64
REV^IBEPTC1 UPD+40
^IBEPTC3 UPD+19
$$FMTE^XLFDT UPD+65

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,*13,?10,"Flag Stop Codes and Clinics for Third Party Billing"
  • Line Location: UPD+1
Function Call: WRITE
  • Prompt: !,$$DASH(),!,"FOR THIRD PARTY BILLING, THIS OPTION IS USED TO SET UP:"
  • Line Location: UPD+2
Function Call: WRITE
  • Prompt: !,"1. INDIVIDUAL OR A GROUP OF STOP CODES OR CLINICS AS:"
  • Line Location: UPD+3
Function Call: WRITE
  • Prompt: !," a. NON-BILLABLE OR BILLABLE."
  • Line Location: UPD+4
Function Call: WRITE
  • Prompt: !," A Stop/Clinic is assumed billable until it is flagged as non-billable."
  • Line Location: UPD+5
Function Call: WRITE
  • Prompt: !," b. IGNORED BY THE AUTO BILLER. Stops the auto biller from creating"
  • Line Location: UPD+6
Function Call: WRITE
  • Prompt: !," bills for specified billable Stops/Clinics."
  • Line Location: UPD+7
Function Call: WRITE
  • Prompt: !,"2. ALL CLINICS TO BE:"
  • Line Location: UPD+8
Function Call: WRITE
  • Prompt: !," a. IGNORED BY THE AUTO BILLER. Stops the auto biller from creating bills"
  • Line Location: UPD+9
Function Call: WRITE
  • Prompt: !," for ALL clinics. Should only be used if the outpatient auto biller"
  • Line Location: UPD+10
Function Call: WRITE
  • Prompt: !," is on but only a small number of Clinics should be auto billed."
  • Line Location: UPD+11
Function Call: WRITE
  • Prompt: !," b. BILLED BY THE AUTO BILLER. Resets all Clinics to be auto billed."
  • Line Location: UPD+12
Function Call: WRITE
  • Prompt: !,"Use of this option will have an immediate effect on your billing operations"
  • Line Location: UPD+13
Function Call: WRITE
  • Prompt: !,"so you should have your work pre-planned before using this option.",!,$$DASH()
  • Line Location: UPD+14
Function Call: WRITE
  • Prompt: !!,$$DASH(),!,"You may now enter the ",$P(IBINFO,";",3)," that you wish to flag. Please note"
  • Line Location: UPD+23
Function Call: WRITE
  • Prompt: !,"all ",$P(IBINFO,";",3)," that you select will be assigned the same effective"
  • Line Location: UPD+24
Function Call: WRITE
  • Prompt: !,"date and billable status and auto bill status.",!,$$DASH(),!
  • Line Location: UPD+25
Function Call: WRITE
  • Prompt: !,"Please note that you've already selected ",Y(0,0),"."
  • Line Location: UPD+33
Function Call: WRITE
  • Prompt: !!,"No ",$P(IBINFO,";",3)," selected!"
  • Line Location: UPD+37
Function Call: WRITE
  • Prompt: !!,"All ",$P(IBINFO,";",3)," were de-selected!"
  • Line Location: UPD+43
Function Call: WRITE
  • Prompt: !
  • Line Location: UPD+48
Function Call: WRITE
  • Prompt: !
  • Line Location: UPD+55
Function Call: WRITE
  • Prompt: !!,"Please note that you've selected a future date!"
  • Line Location: UPD+61
Function Call: WRITE
  • Prompt: !!,$$DASH()
  • Line Location: UPD+64
Function Call: WRITE
  • Prompt: !!,"Effective ",$$FMTE^XLFDT(IBDAT)," the above ",$P(IBINFO,";",3)," will be ",IBACT,"billable"
  • Line Location: UPD+65
Function Call: WRITE
  • Prompt: !,"and will ",IBACT1,"have bills created by the Third Party auto biller.",!
  • Line Location: UPD+66
Function Call: WRITE
  • Prompt: !!,"Filing these ",$P(IBINFO,";",4)," entries... "
  • Line Location: UPD+74
Function Call: WRITE
  • Prompt: !
  • Line Location: UPD+75
Routine Call
  • DIC
  • Line Location:
    • UPD+32
Routine Call
  • DIR
  • Line Location:
    • UPD+18
    • UPD+48
    • UPD+55
    • UPD+71
    • UPD+75

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("IBEPTC" UPD+33, UPD+34*, UPD+37, UPD+43, UPDQ1!

Label References

Name Line Occurrences
$$DASH UPD+2, UPD+14, UPD+23, UPD+25, UPD+64
UPD EN+1
UPDQ UPD+18, UPD+37, UPD+40, UPD+43, UPD+48, UPD+52, UPD+60, UPD+71
UPDQ1 UPD+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT UPD+59*, UPD+60!
%DT("A" UPD+59*
DIC UPD+29*, UPD+32!
DIC("A" UPD+30*
DIC("S" UPD+31*
DIC(0 UPD+29*
DIR UPD+18!, UPD+48!, UPD+55!, UPD+71!, UPD+75!
DIR("?" UPD+17*, UPD+47*, UPD+54*, UPD+70*
DIR("A" UPD+18*, UPD+46*, UPD+53*, UPD+69*
DIR(0 UPD+17*, UPD+46*, UPD+53*, UPD+69*, UPD+75*
DIROUT UPDQ+1!
DIRUT UPD+18, UPD+48, UPD+55, UPD+71, UPD+75!, UPDQ, UPDQ+1!
DT UPD+61
DTOUT UPDQ+1!
DUOUT UPD+18, UPD+48, UPD+55, UPD+71, UPD+75!, UPDQ, UPDQ+1!
IBACT UPD+49*, UPD+65, UPDQ+1!
IBACT1 UPD+51*, UPD+56*, UPD+66, UPDQ+1!
IBDAT UPD+60*, UPD+65, UPDQ+1!
IBFILE UPD+49*, UPD+51, UPD+52, UPDQ+1!
IBHIT UPD+28*, UPD+30, UPD+32*, UPDQ+1!
IBINFO UPD+20*, UPD+23, UPD+24, UPD+29, UPD+30, UPD+31, UPD+37, UPD+43, UPD+46, UPD+53
, UPD+65, UPD+74, UPDQ+1!
IBNUM UPD+28*, UPD+34*, UPD+40, UPD+46, UPD+53, UPDQ+1!
IBQ EN+1*, EN+2!, UPD+37*, UPD+40, UPDQ*
IBTPAB UPD+51*, UPD+52, UPD+55*, UPD+56*, UPDQ+1!
IOF UPD+1
>> Y UPD+19, UPD+28, UPD+32, UPD+33, UPD+34, UPD+49, UPD+56, UPD+60, UPD+61, UPD+71
>> Y(0 UPD+33, UPD+34

Marked Items

Name Field # of Occurrence
$T(@Y+1 UPD+20
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All