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

Package: Integrated Billing

Routine: IBCMDT3


Information

IBCMDT3 ;ALB/VD - INSURANCE PLANS MISSING DATA REPORT (PRINT) ; 10-APR-15

Source Information

Source file <IBCMDT3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Entry point to print report
PRINT ; Print report
; Input: NODATA - Set to 1 initially
; Output: NODATE - Set to 1 if at least one Insurance Company
; with data found
COMP ; Print Company header
; Input: NODATA - 1 if no data was found
PLAN ; Print plan information.
CVLMHD ; Print Coverage Limit sub-header
PAUSE ; Pause for screen output.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,EORMSG
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !?4,$P(CVLMRC,U,1),?30,$P(CVLMRC,U,2),?50,$P(CVLMRC,U,3)
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: COMP+2
Function Call: WRITE
  • Prompt: !,"INSURANCE PLANS MISSING DATA"
  • Line Location: COMP+4
Function Call: WRITE
  • Prompt: ?80,IBHDT,?110,"Page: ",IBPAG
  • Line Location: COMP+5
Function Call: WRITE
  • Prompt: !,$G(SUBHD),!
  • Line Location: COMP+6
Function Call: WRITE
  • Prompt: !!!,"--- No Data To Report ---",!
  • Line Location: COMP+8
Function Call: WRITE
  • Prompt: !?1,$P(IBC,U,2)_" "_$P(IBC,U,3)_" "_$P(IBC,U,4)
  • Line Location: COMP+11
Function Call: WRITE
  • Prompt: ?90,"PRESCRIPTION ONLY"
  • Line Location: COMP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PLAN+1
Function Call: WRITE
  • Prompt: !!?2,"GROUP NUMBER",?20,"GROUP NAME",?46,"TYPE OF PLAN",?62,"ELEC PLAN",?78,"FTF"
  • Line Location: PLAN+3
Function Call: WRITE
  • Prompt: !?2,"------------",?20,"----------",?46,"------------",?62,"---------",?78,"---"
  • Line Location: PLAN+5
Function Call: WRITE
  • Prompt: !?2,$P(IBPD,U,2),?20,$E($P(IBPD,U,3),1,25),?46,$E($P(IBPD,U,4),1,15)
  • Line Location: PLAN+7
Function Call: WRITE
  • Prompt: ?62,$E($P(IBPD,U,5),1,15),?78,$P(IBPD,U,6)
  • Line Location: PLAN+8
Function Call: WRITE
  • Prompt: !!?4,"Coverage",?30,"Effective Date",?50,"Covered?"
  • Line Location: CVLMHD+1
Function Call: WRITE
  • Prompt: !?4,"--------",?30,"--------------",?50,"--------"
  • Line Location: CVLMHD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Info |  Source |  Entry Points |  Interaction Calls