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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCNSM5

Package: Integrated Billing

Routine: IBCNSM5


Information

IBCNSM5 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET ; 23-JUL-93

Source Information

Source file <IBCNSM5.m>

Entry Points

Name Comments DBIA/ICR reference
WPPC ; -- print insurance management worksheet, insurance coverage
DQ ;
WPPCQ
PR ; -- set variables needed for file navigation, print insurance worksheet or coverage
PRQ
GETEN1 ; -- find IEN of most recent policy
GETEN1Q
SETVAR ; -- set variables needed for file navigation
DEV ; -- ask for device
R1Q
PRINT ; -- print insurance management worksheet/insurance coverage
HDR ; -- print header
GETEN2 ; -- get IEN of next-to-most-recent entry (Print Coverage)
PR1Q
ASK ; -- if Print Coverage and no benefit years for selected policy, ask if user wants worksheet
ASKQ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: WPPC+7
Function Call: WRITE
  • Prompt: !!,"MOST RECENT ENTRY IS "_$$DAT1^IBOUTL(IBYR)_". ENTRY CANNOT BE MORE THAN A YEAR OLD.",!!,"YOU MAY PRINT ENTRY UNDER 'PC'.",!!
  • Line Location: GETEN1+12
Function Call: WRITE
  • Prompt: !!,"*** You will need a 132 column printer for this report. ***",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,$S($G(IBLINE):"INSURANCE MANAGEMENT WORKSHEET",1:"INSURANCE COVERAGE FOR "_$S($G(IBPIB1):"CURRENT ENTRY",1:"NEXT-MOST-CURRENT ENTRY")),?(IOM-30),IBHDT," PAGE ",IBPAG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","_")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,VADM(1),?34,"PT ID: "_VA("PID"),?79,"DOB: "_$P(VADM(3),"^",2)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$E($P($G(^DIC(36,+IBCDFND,0)),"^"),1,28),?31," GROUP #: ",$$DOL^IBCNSM6(355.3,2.02,$P(IBCPOLD,"^",4),$G(IBLINE))
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?74,"For YEAR: "_$S($G(IBCAB):$$DAT1^IBOUTL(IBYR),1:"______________")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !?30,"Ins. Type: ",$$DOL^IBCNSM6(355.1,.01,$P($G(^IBE(355.1,+$P(IBCPOLD,"^",9),0)),"^"),$G(IBLINE))
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call