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

Package: Integrated Billing

Routine: IBCOMD1


Information

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

Source Information

Source file <IBCOMD1.m>

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 ^

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