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

Package: Integrated Billing

Routine: IBCNSM7


Information

IBCNSM7 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET3 ; 9-AUG-93

Source Information

Source file <IBCNSM7.m>

Entry Points

Name Comments DBIA/ICR reference
R1Q ;
BL2 ; -- print inpatient & outpatient info, annual benefits
DEN
IOQ
VLINE ; create a vertical line between blocks

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: BL2+2
Function Call: WRITE
  • Prompt: !?66-($L("* ANNUAL BENEFITS *")\2),"* ANNUAL BENEFITS *"
  • Line Location: BL2+3
Function Call: WRITE
  • Prompt: !?5,$TR($J(" ",IOM-12)," ","-")
  • Line Location: BL2+4
Function Call: WRITE
  • Prompt: !?6,"3.",?33-($L("** INPATIENT ANNUAL BENEFITS **")\2),"** INPATIENT ANNUAL BENEFITS **"
  • Line Location: BL2+5
Function Call: WRITE
  • Prompt: ?72,"4.",?99-($L("** OUTPATIENT ANNUAL BENEFITS **")\2),"** OUTPATIENT ANNUAL BENEFITS **"
  • Line Location: BL2+6
Function Call: WRITE
  • Prompt: !?3,$J("Annual Ded ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.01,$P($G(IBCABD5),"^"),IBLINE),10)
  • Line Location: BL2+7
Function Call: WRITE
  • Prompt: ?83,$J("Annual Ded ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.01,$P($G(IBCABD2),"^"),IBLINE),10)
  • Line Location: BL2+8
Function Call: WRITE
  • Prompt: !?3,$J("Per Admis Ded ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.02,$P($G(IBCABD5),"^",2),IBLINE),10)
  • Line Location: BL2+9
Function Call: WRITE
  • Prompt: ?83,$J("Per Visit Ded ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.02,$P($G(IBCABD2),"^",2),IBLINE),10)
  • Line Location: BL2+10
Function Call: WRITE
  • Prompt: !?3,$J("Inpt Lifet Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.03,$P($G(IBCABD5),"^",3),IBLINE),10)
  • Line Location: BL2+11
Function Call: WRITE
  • Prompt: ?83,$J("Lifet Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.03,$P($G(IBCABD2),"^",3),IBLINE),10)
  • Line Location: BL2+12
Function Call: WRITE
  • Prompt: !?3,$J("Inpt Annual Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.04,$P($G(IBCABD5),"^",4),IBLINE),10),?60
  • Line Location: BL2+13
Function Call: WRITE
  • Prompt: ?83,$J("Annual Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.04,$P($G(IBCABD2),"^",4),IBLINE),10)
  • Line Location: BL2+14
Function Call: WRITE
  • Prompt: !?3,$J("Room & Board (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.09,$P($G(IBCABD5),"^",9),IBLINE),10),?60
  • Line Location: BL2+15
Function Call: WRITE
  • Prompt: ?83,$J("Visit (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.09,$P($G(IBCABD2),"^",9),IBLINE),10)
  • Line Location: BL2+16
Function Call: WRITE
  • Prompt: !?3,$J("Drug/Alc Lifet Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.07,$P($G(IBCABD5),"^",7),IBLINE),10)
  • Line Location: BL2+17
Function Call: WRITE
  • Prompt: ?83,$J("Max Visits/Yr:",23),?108,$J($$DOL^IBCNSM6(355.4,2.15,$P($G(IBCABD2),"^",15),IBLINE),10)
  • Line Location: BL2+18
Function Call: WRITE
  • Prompt: !?3,$J("Drug/Alc An Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.08,$P($G(IBCABD5),"^",8),IBLINE),10)
  • Line Location: BL2+19
Function Call: WRITE
  • Prompt: ?83,$J("Surgery (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.13,$P($G(IBCABD2),"^",13),IBLINE),10)
  • Line Location: BL2+20
Function Call: WRITE
  • Prompt: !?3,$J("Nursing Home (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.1,$P($G(IBCABD5),"^",10),IBLINE),10)
  • Line Location: BL2+21
Function Call: WRITE
  • Prompt: ?83,$J("Emergency (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.10,$P($G(IBCABD2),"^",10),IBLINE),10)
  • Line Location: BL2+22
Function Call: WRITE
  • Prompt: !?3,$J("Other Inpt Charges (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.12,$P($G(IBCABD5),"^",12),IBLINE),10)
  • Line Location: BL2+23
Function Call: WRITE
  • Prompt: ?83,$J("Prescription (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.12,$P($G(IBCABD2),"^",12),IBLINE),10)
  • Line Location: BL2+24
Function Call: WRITE
  • Prompt: !
  • Line Location: BL2+25
Function Call: WRITE
  • Prompt: ?83,$J("Adult Day Health Care?:",23),?108,$J($$DOL^IBCNSM6(355.4,2.17,$P($G(IBCABD2),"^",17),IBLINE),10)
  • Line Location: BL2+25
Function Call: WRITE
  • Prompt: !
  • Line Location: BL2+26
Function Call: WRITE
  • Prompt: ?67,$J("Dnt Cov Type (NONE/PER VIS $ / % AMT):",39)
  • Line Location: BL2+26
Function Call: WRITE
  • Prompt: ?108,$J($$DOL^IBCNSM6(355.4,2.07,$P($G(IBCABD2),"^",7),IBLINE),10)
  • Line Location: BL2+27
Function Call: WRITE
  • Prompt: ?(117-($L($$DOL^IBCNSM6(355.4,2.07,$P($G(IBCABD2),"^",7),IBLINE))\2)),$$DOL^IBCNSM6(355.4,2.07,$P($G(IBCABD2),"^",7),IBLINE)
  • Line Location: BL2+28
Function Call: WRITE
  • Prompt: !
  • Line Location: DEN+3
Function Call: WRITE
  • Prompt: ?$S($P($G(IBCABD2),U,7)=1!2:83,1:80),$J(IBX,23),?108,$J($$DOL^IBCNSM6(355.4,2.08,$P($G(IBCABD2),"^",8),IBLINE),10)
  • Line Location: DEN+3
Function Call: WRITE
  • Prompt: ?66,"|"
  • Line Location: VLINE+1
Info |  Source |  Entry Points |  Interaction Calls