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 |  Local Variables  | All
Print Page as PDF
Routine: IBCOC

Package: Integrated Billing

Routine: IBCOC


Information

IBCOC ;ALB/AAS - INACTIVE INS. COMPANIES WITH PATIENTS ;04-NOV-93

Source Information

Source file <IBCOC.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 EN1^DIP  $$GET1^DIQ  ^DIR  
Integrated Billing 1 ASK^IBCOMC2  

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

Package Total Caller Graph
Integrated Billing 3 IB INACTIVE INS CO  IB INCOMPLETE  IBCN LIST INACTIVE INS W/PAT  

Entry Points

Name Comments DBIA/ICR reference
END
CNT(D0) ; -- count number of entries
CNTQ
OUT() ;
EXCEL ;
; Ask for Date Entered range
XLQUIT ;
NR ; Ask Name Range
NRR
QUE ; Ask Device for Excel Output
QUEQ ; Exit clean-up
COMPXL ; Compile Excel data
; Input variables:
; IBRF - Required. Name Range Start value
; IBRL - Required. Name Range Go To value
WRT ; Print Excel data

External References

Name Field # of Occurrence
^%ZIS QUE+1
HOME^%ZIS QUE+5
^%ZISC %+15, QUEQ+1
^%ZTLOAD QUE+5
EN1^DIP %+12
$$GET1^DIQ COMPXL+17, COMPXL+20, COMPXL+21, COMPXL+22
^DIR OUT+6, NRR+1, NRR+4
ASK^IBCOMC2 %+12, COMPXL+30, COMPXL+31

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Print List of Inactive Insurance Companies still listed as Insuring Patients"
  • Line Location: IBCOC+7
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!!
  • Line Location: IBCOC+13
Function Call: WRITE
  • Prompt: !
  • Line Location: IBCOC+17
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXCEL+7
Function Call: WRITE
  • Prompt: !!,?5,"* The Go to Insurance Name must follow after the Start with Name. *",!
  • Line Location: NRR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEQ+1
Function Call: WRITE
  • Prompt: "INSURANCE COMPANY^STREET^CITY^STATE^NUMBER PATIENTS"
  • Line Location: COMPXL+29
Function Call: WRITE
  • Prompt: !!,"** NO RECORDS FOUND **"
  • Line Location: COMPXL+30
Function Call: WRITE
  • Prompt: !,^TMP("IBCOC",$J,IBINSNM)
  • Line Location: WRT+3
Routine Call
  • %ZIS
  • Line Location:
    • QUE+1
Routine Call
  • %ZIS
  • Line Location:
    • QUE+5
Routine Call
  • DIR
  • Line Location:
    • OUT+6
    • NRR+1
    • NRR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] Classic Fileman Calls,  GET1^DIQ
^DIC(5 - [#5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] COMPXL+9, COMPXL+14
^DPT("AB" CNT+3
^TMP("IBCOC" QUEQ+1!, COMPXL+6!, COMPXL+26*, COMPXL+30, WRT+3

Label References

Name Line Occurrences
$$CNT COMPXL+23
$$OUT %+6
CNTQ CNT+2
COMPXL QUE+8
END %+6
EXCEL %+7
NR EXCEL+5
NRR NRR+6
QUE EXCEL+7
QUEQ QUE+1, QUE+2
WRT COMPXL+31
XLQUIT EXCEL+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS %+1~, QUE+1*
BY %+10*, END!
D END!
D0 CNT~, CNT+2, CNT+3
DIC %+10*, END!
DIR OUT+1~, NR+1~
DIR("A" OUT+4*, NRR*, NRR+3*
DIR("B" OUT+5*, NRR*, NRR+3*
DIR(0 OUT+3*, NRR*, NRR+3*
DIROUT OUT+1~, NR+1~
DIRUT OUT+1~, OUT+6, NR+1~
DIS END!
DIS(0 %+11*
DTOUT OUT+1~, NR+1~, NRR+1, NRR+4
DUOUT OUT+1~, NR+1~, NRR+1, NRR+4
FLDS %+10*, END!
FR %+10*, END!
I END!
IBCNT END!
IBCTY COMPXL+5~, COMPXL+21*, COMPXL+26
IBINS COMPXL+5~, COMPXL+14*, COMPXL+17, COMPXL+20, COMPXL+21, COMPXL+22, COMPXL+23
IBINSNM COMPXL+5~, COMPXL+8*, COMPXL+9*, COMPXL+12, COMPXL+14, COMPXL+26, WRT+1~, WRT+2*, WRT+3*
IBNUM COMPXL+5~, COMPXL+23*, COMPXL+26
IBOUT %+6*, %+7, END!, XLQUIT+1!, QUEQ+1!
IBQUIT EXCEL+2~, EXCEL+3*, EXCEL+5, XLQUIT+1!, NRR+1*, NRR+4*
IBRF EXCEL+2~, XLQUIT+1!, NRR+2*, NRR+6, QUEQ+1!, COMPXL+12
IBRL EXCEL+2~, XLQUIT+1!, NRR+5*, NRR+6, QUEQ+1!, COMPXL+12
IBST COMPXL+5~, COMPXL+22*, COMPXL+26
IBSTR COMPXL+5~, COMPXL+20*, COMPXL+26
IO QUE+7
IO("Q" QUE+2!
J END!
POP %+1~, QUE+1
TO %+10*, END!
U COMPXL+26
VA QUEQ+1!
VADM QUEQ+1!
VAERR QUEQ+1!
VAPA QUEQ+1!
X END!, CNT+1~*, CNT+3*, CNTQ, OUT+1~, NR+1~
Y END!, CNT+1~, CNT+3*, OUT+1~, OUT+7, NR+1~, NRR+2*, NRR+5*
ZTDESC %+1~, QUE+4*
ZTQUEUED %+1~, %+14
ZTREQ %+1~, %+14*
ZTRTN %+1~, QUE+3*
ZTSAVE %+1~
ZTSAVE("IBRF" QUE+3*
ZTSAVE("IBRL" QUE+3*
ZTSK QUE+5!
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 |  Local Variables  | All