Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls