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

Package: Integrated Billing

Routine: IBCOMD1


Information

IBCOMD1 ;ALB/CMS - GENERATE INSURANCE COMPANY LISTINGS ;03-AUG-98

Source Information

Source file <IBCOMD1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 3 $$STATE^IBCF2  $$FILTER^IBCNINSU  $$EXPAND^IBTRE  
Kernel 3 ^%ZISC  ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
BEG ; Queued entry point.
; Input variables:
END ;IB*732/CKB - add End of Report
QUEQ
HD ; Write Heading
WRT ; Write data lines
ASK ; Ask to Continue with display
; Returns IBQUIT=1 if user Timed out or entered ^

External References

Name Field # of Occurrence
^%ZISC QUEQ+2
^DIR ASK+4
$$STATE^IBCF2 BEG+75
$$FILTER^IBCNINSU BEG+63
$$EXPAND^IBTRE BEG+71
$$FMTE^XLFDT HD+6, HD+30
$$NOW^XLFDT HD+6, HD+30
$$UP^XLFSTR BEG+49, BEG+50

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?15,"... One Moment Please ..."
  • Line Location: BEG+23
Function Call: WRITE
  • Prompt: !!,"** NO DATA FOUND **"
  • Line Location: BEG+81
Function Call: WRITE
  • Prompt: !!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: ?30
  • Line Location: END+2
Function Call: WRITE
  • Prompt: "*** End of Report ***",!
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEQ+2
Function Call: WRITE
  • Prompt: "^where"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: "^and"
  • Line Location: HD+14
Function Call: WRITE
  • Prompt: "^"_IBFLD(I)
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: "^and ",$S($P(IBCASE(I),"^",3)="zzzzzz":"^'LAST'",1:$P(IBCASE(I),"^",3))
  • Line Location: HD+18
Function Call: WRITE
  • Prompt: " and"
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: " "_IBFLD(I)
  • Line Location: HD+20
Function Call: WRITE
  • Prompt: " and ",$S($P(IBCASE(I),"^",3)="zzzzzz":"'LAST'",1:$P(IBCASE(I),"^",3))
  • Line Location: HD+23
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($E(IOST,1,2)["C-")
  • Line Location: HD+29
Function Call: WRITE
  • Prompt: "Active/Inactive^Insurance Name^Reimburse?^Street Address 1^Street Address 2^Street Address 3^City^State^ZIP^Phone Number"
  • Line Location: HD+29
Function Call: WRITE
  • Prompt: @IOF,"Generate Insurance Company Listings",?50,$$FMTE^XLFDT($$NOW^XLFDT,"Z"),?70," Page ",IBPAGE
  • Line Location: HD+30
Function Call: WRITE
  • Prompt: !,"List of ",$S(IBAIB=1:"Active",IBAIB=2:"Inactive",1:"All")," Insurance Companies"
  • Line Location: HD+31
Function Call: WRITE
  • Prompt: ", where"
  • Line Location: HD+34
Function Call: WRITE
  • Prompt: ?3,"and"
  • Line Location: HD+37
Function Call: WRITE
  • Prompt: ?8,IBFLD(I)," "
  • Line Location: HD+38
Function Call: WRITE
  • Prompt: " and ",$S($P(IBCASE(I),"^",3)="zzzzzz":"'LAST'",1:$P(IBCASE(I),"^",3))
  • Line Location: HD+41
Function Call: WRITE
  • Prompt: !,"Insurance Name/Address",?33,"Reimburse?",?56,"Phone Number"
  • Line Location: HD+43
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+44
Function Call: WRITE
  • Prompt: "="
  • Line Location: HD+44
Function Call: WRITE
  • Prompt: !,$S(IBA=1:"Inactive Companies",1:"Active Companies"),!
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: !,IBACT_U_IBTMP
  • Line Location: WRT+20
Function Call: WRITE
  • Prompt: !,$P(IBTMP,U,3)
  • Line Location: WRT+24
Function Call: WRITE
  • Prompt: !,$P(IBTMP,U,4)
  • Line Location: WRT+25
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $P(IBTMP,U,4)]""&($P(IBTMP,U,5)]"")
  • Line Location: WRT+25
Function Call: WRITE
  • Prompt: $P(IBTMP,U,5)
  • Line Location: WRT+25
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $P(IBTMP,U,6)]""&($P(IBTMP,U,7)]"")
  • Line Location: WRT+26
Function Call: WRITE
  • Prompt: $P(IBTMP,U,7)," ",$P(IBTMP,U,8)
  • Line Location: WRT+26
Routine Call
  • DIR
  • Line Location:
    • ASK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] BEG+29, BEG+35
^DIC(5 - [#5] HD+22, HD+40
^TMP("IBCOMD" BEG+26!, BEG+79*, BEG+81, QUEQ!, WRT+4, WRT+10, WRT+11, WRT+12, WRT+18

Label References

Name Line Occurrences
ASK END+4, HD+3
END BEG+81
HD BEG+81, BEG+82, WRT+9, WRT+17
WRT BEG+82

Naked Globals

Name Field # of Occurrence
^( BEG+29, BEG+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR ASK+3~
DIR(0 ASK+4*
DIROUT ASK+3~
DIRUT ASK+3~, ASK+5
DTOUT ASK+3~
DUOUT ASK+3~, ASK+5
H HD+11~, HD+12*, HD+19, HD+20*, HD+35~, HD+36*, HD+37, HD+38*
I BEG+50*, HD+11~, HD+12*, HD+20, HD+21, HD+22, HD+23, HD+35~, HD+36*, HD+38
, HD+39, HD+40, HD+41
IBA WRT+2~, WRT+4*, WRT+7, WRT+9, WRT+10, WRT+11, WRT+12, WRT+18
IBACT WRT+2~, WRT+7*, WRT+20
IBAIB BEG+32, BEG+33, QUEQ!, HD+7, HD+31
IBCASE QUEQ!, HD+10, HD+34
IBCASE( BEG+38, BEG+39, HD+12, HD+21, HD+22, HD+23, HD+36, HD+39, HD+40, HD+41
IBD BEG+39~*, BEG+42, BEG+50*, BEG+62
IBDA BEG+21~, BEG+29*, BEG+35, BEG+79, WRT+11*, WRT+12, WRT+18
IBDA0 BEG+21~, BEG+29*, BEG+32, BEG+33, BEG+47, BEG+69, BEG+71, BEG+79
IBDA11 BEG+21~, BEG+35*, BEG+42, BEG+47, BEG+48, BEG+72
IBDA13 BEG+21~, BEG+35*, BEG+78
IBFILT BEG+61~, BEG+62*, BEG+63
IBFLD QUEQ!
IBFLD( HD+20, HD+38
IBI BEG+21~, ASK+3~
IBJ BEG+21~, BEG+38*, BEG+39, BEG+42, BEG+47, BEG+48
IBNA WRT+2~, WRT+10*, WRT+11, WRT+12, WRT+18
IBNOT BEG+21~, BEG+38*, BEG+42*, BEG+57*, BEG+63*, BEG+65
IBOFF WRT+2~, WRT+13*, WRT+14
IBOUT BEG+25*, BEG+82, END+2, QUEQ!, HD+5, HD+29, WRT+7, WRT+9, WRT+14, WRT+20
IBPAGE BEG+21~, BEG+26*, HD+1*, HD+3, HD+30
IBQUIT END+1, QUEQ!, HD+3, WRT+3*, WRT+4, WRT+10, WRT+11, WRT+14, WRT+16, ASK+5*
IBTMP BEG+21~, BEG+69*, BEG+71*, BEG+72*, BEG+75*, BEG+76*, BEG+78*, BEG+79, WRT+12*, WRT+13
, WRT+18*, WRT+20, WRT+23, WRT+24, WRT+25, WRT+26
IBX BEG+21~, BEG+71*, BEG+72*, BEG+75*, BEG+76*, HD+44*
IOF HD+30
IOSL WRT+14
IOST BEG+23, HD+29, ASK+2
U BEG+25, BEG+32, BEG+33, BEG+69, BEG+71, BEG+72, BEG+75, BEG+76, BEG+78, BEG+79
, WRT+13, WRT+20, WRT+23, WRT+24, WRT+25, WRT+26
VAL BEG+39~, BEG+47*, BEG+48*, BEG+49*, BEG+57, BEG+63
X BEG+21~, WRT+2~, ASK+3~, ASK+5
Y BEG+21~, WRT+2~, ASK+3~
>> ZTQUEUED QUEQ+1
>> ZTREQ QUEQ+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All