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

Package: Integrated Billing

Routine: IBCORC1


Information

IBCORC1 ;ALB/CPM - RANK INSURANCE CARRIERS (COMPILE/PRINT) ; 30-JUN-93

Source Information

Source file <IBCORC1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 2 BULL^IBCORC3  $$DAT1^IBOUTL  
VA FileMan 2 (C,COMMA)^%DTC  ^DIR  
Accounts Receivable 1 $$ORI^PRCAFN  
Kernel 1 ^%ZISC  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Integrated Billing 2 IBCORC  IBCORC2  

Entry Points

Name Comments DBIA/ICR reference
DQ ; Tasked entry point to generate and print the rankings.
ENQ
ENQ1
EVAL ; Accumulate amount billed for the carrier if the bill type is correct.
EVALQ
PAUSE ; Pause for screen output.
HDR ; Display report header.
DASH() ; Write dashed line.
INSDIS(X) ; Display Insurance Company name and address.
; Input: X -- .11 node of ins company entry in file #36
START(X1,X2) ; Return the Start Date for the search, less one day.
INACT(CN) ; Determine the repointed-to company for inactivated companies.
; Input: CN -- Pointer to the ins company in file #36
; Output: The repointed-to company, if inactivated (or the same)
DEL ; Delete "REPOINT PATIENTS TO" field

External References

Name Field # of Occurrence
C^%DTC START+1
COMMA^%DTC DQ+24, DQ+30
^%ZISC ENQ+2
^DIR PAUSE+4, DEL+5
BULL^IBCORC3 DQ+9
$$DAT1^IBOUTL HDR+7, HDR+8
$$ORI^PRCAFN EVAL+6
$$SITE^VASITE HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?55,X
  • Line Location: DQ+24
Function Call: WRITE
  • Prompt: !!,"Total Amount Billed to all Ranked Carriers:"
  • Line Location: DQ+30
Function Call: WRITE
  • Prompt: ?55,X
  • Line Location: DQ+30
Function Call: WRITE
  • Prompt: !!,"Sending the report in a bulletin to the MCCR Program Office... "
  • Line Location: DQ+32
Function Call: WRITE
  • Prompt: "done."
  • Line Location: DQ+32
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?(80-$L(X)\2),X,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !," Facility: ",$P(Y,"^",2)," (",$P(Y,"^",3),")",?58,"Run Date: ",$$DAT1^IBOUTL(DT)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Date Range: ",$$DAT1^IBOUTL(IBABEG)," thru ",$$DAT1^IBOUTL(IBAEND),?62,"Page: ",IBPAG
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?45,"** - denotes an inactive company"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$$DASH,!?2,"Rank",?20,"Insurance Carrier",?55,"Total Amt Billed",!,$$DASH
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: $P(X,"^",4)
  • Line Location: INSDIS+6
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $P(X,"^",4)]""&($P(X,"^",5)]"")
  • Line Location: INSDIS+6
Function Call: WRITE
  • Prompt: $P($G(^DIC(5,+$P(X,"^",5),0)),"^")
  • Line Location: INSDIS+7
Function Call: WRITE
  • Prompt: $P(X,"^",6)
  • Line Location: INSDIS+9
Function Call: WRITE
  • Prompt: !,"The routine will delete the REPOINT PATIENTS TO field of the entry"
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,"in the INSURANCE COMPANY file (#36) if the field entry is pointing"
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !,"back to itself (same IEN).",!
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !!,"A dot (.) will appear for every 50 records processed.",!
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !,*7,"Done...",C2," records changed."
  • Line Location: DEL+7
Routine Call
  • DIR
  • Line Location:
    • PAUSE+4
    • DEL+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] DQ+5, DQ+6, EVAL+1
^DIC(36 - [#36] DQ+20, INACT+4, DEL+6*
^DIC(5 - [#5] INSDIS+7
^TMP("IBORIC" DQ+3!, DQ+12*, DQ+16, DQ+17, ENQ!, EVAL+8, EVAL+9

Label References

Name Line Occurrences
$$DASH HDR+10
$$INACT EVAL+7
$$START DQ+4
ENQ DQ+9, DQ+26, DQ+29
EVAL DQ+6
EVALQ EVAL+2, EVAL+3, EVAL+4, EVAL+5, EVAL+6
HDR DQ+15, DQ+21, DQ+29
INSDIS DQ+25
PAUSE DQ+21, DQ+29, DQ+31

Naked Globals

Name Field # of Occurrence
^( DQ+12, DQ+20, EVAL+8*, EVAL+9*
^("AMT" DQ+3!, ENQ!
^("IC1" DQ+3!, ENQ!
^("NUM" DQ+3!, ENQ!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H START+1~
C1 DEL+1~, DEL+6*
C2 DEL+1~, DEL+6*, DEL+7
CN INACT~, INACT+3
DA DEL+1~, DEL+6*
DIR ENQ+3!, PAUSE+2~, DEL+1~
DIR("A" DEL+5*
DIR("B" DEL+5*
DIR(0 PAUSE+4*, DEL+5*
DIROUT ENQ+3!, PAUSE+2~
DIRUT ENQ+3!, PAUSE+2~, PAUSE+4
DT HDR+7
DTOUT ENQ+3!, PAUSE+2~
DUOUT ENQ+3!, PAUSE+2~, PAUSE+4
>> IBABEG DQ+4, HDR+8
>> IBAEND DQ+5, HDR+8
IBAMT DQ+15*, DQ+16*, DQ+17, DQ+19, ENQ+3!, EVAL+6*, EVAL+8
IBAMTP DQ+19*, DQ+24, ENQ+3!
IBCNT DQ+15*, DQ+16, DQ+17, DQ+18*, DQ+22, ENQ+4!
IBDT DQ+4*, DQ+5*, DQ+6, ENQ+4!
IBI ENQ+3!, EVAL+1*, PAUSE+2~, PAUSE+3*
IBINS DQ+12*, DQ+17*, DQ+20, ENQ+4!, EVAL+4*, EVAL+7*, EVAL+8, EVAL+9
IBINS0 DQ+20*, DQ+22, DQ+23, ENQ+3!
IBINSA DQ+20*, DQ+25, ENQ+3!
>> IBIRM DQ+9, EVAL+9
IBN DQ+6*, ENQ+4!, EVAL+1, EVAL+6
IBND ENQ+4!
IBND( EVAL+1*
IBND("MP" EVAL+4
IBND("S" EVAL+5
IBND(0 EVAL+2, EVAL+3
IBNR DQ+16, DQ+17, DQ+18, ENQ+4!, HDR+2
IBPAG DQ+15*, ENQ+4!, HDR+4, HDR+5*, HDR+8
IBQ DQ+15*, DQ+16, DQ+17, DQ+21, DQ+26, DQ+29, ENQ+4!, PAUSE+4*
IBTAMT DQ+15*, DQ+19*, DQ+30, ENQ+4!
IOF HDR+4
IOSL DQ+21, DQ+29, PAUSE+3
IOST PAUSE+1, HDR+4
U DEL+6
X DQ+24*, DQ+30*, ENQ+4!, HDR+1~, HDR+2*, HDR+6, INSDIS~, INSDIS+2, INSDIS+3, INSDIS+4
, INSDIS+5, INSDIS+6, INSDIS+7, INSDIS+8, INSDIS+9, START+1~, START+2, INACT+3~*, INACT+4*, INACT+5
X1 ENQ+4!, START~
X2 DQ+24*, DQ+30*, ENQ+4!, START~
X3 DQ+24*, DQ+30*, ENQ+4!
Y ENQ+4!, HDR+1~, HDR+3*, HDR+7, INACT+3~, INACT+4*, DEL+5
Z INACT+3~
Z( INACT+4*
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All