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

Package: Integrated Billing

Routine: IBCSC8


Information

IBCSC8 ;ALB/MJB/AAS - MCCR SCREEN 8 (BILLING - CLAIM INFORMATION SCREEN) ;27 MAY 88 10:15

Source Information

Source file <IBCSC8.m>

Entry Points

Name Comments DBIA/ICR reference
EN
REV
IBTEETH ;Create array of teeth status
DENTAL ;Dental Information for Form Type 7(J430D)
WRT ;write out teeth status on screen
MORE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: X
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: " Property Casualty Information"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,?4,"Claim Number: ",$P(IB("U4"),U,2)
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,?4,"Contact Name: ",$P(IB("U4"),U,9)
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !,?4,"Date of 1st Contact: ",$$FMTE^XLFDT($P(IB("U4"),U,3)),?41,"Contact Phone: ",$P(IB("U4"),U,10)," ",$P(IB("U4"),U,11)
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: " Ambulance Information"
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: " Surgical Codes for Anesthesia Claims"
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: " Paperwork Attachment Information"
  • Line Location: EN+36
Function Call: WRITE
  • Prompt: ?41,"Transmission Method: ",$P(IB("U8"),U,3)
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: !,?4,"Attachment Control #: ",$P(IB("U8"),U)
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: " Disability Start Date: ",$$FMTE^XLFDT($P(IB("U4"),U,4)),?41,"Disability End Date: ",$$FMTE^XLFDT($P(IB("U4"),U,5))
  • Line Location: EN+40
Function Call: WRITE
  • Prompt: " Assumed Care Date: ",$$FMTE^XLFDT($P(IB("U4"),U,13)),?41,"Relinquished Care Date: ",$$FMTE^XLFDT($P(IB("U4"),U,14))
  • Line Location: EN+41
Function Call: WRITE
  • Prompt: " Special Program: "
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: " Homebound: ",$$EXPAND^IBTRE(399,236,$P(IB("U2"),U,14))
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: " Date Last Seen: ",$$EXPAND^IBTRE(399,237,$P(IB("U2"),U,15))
  • Line Location: EN+47
Function Call: WRITE
  • Prompt: ?4,"Tooth Status"
  • Line Location: DENTAL+2
Function Call: WRITE
  • Prompt: ?4,"Orthodontic Information"
  • Line Location: DENTAL+4
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(IB("DEN"),U),2)
  • Line Location: DENTAL+5
Function Call: WRITE
  • Prompt: !?4,"Treatment Months Count: ",$P(IB("DEN"),U,2)
  • Line Location: DENTAL+6
Function Call: WRITE
  • Prompt: !?4,"Treatment Months Remaining Count: ",$P(IB("DEN"),U,3)
  • Line Location: DENTAL+7
Function Call: WRITE
  • Prompt: !?4,"Treatment Indicator: ",$$GET1^DIQ(399,IBIFN_",",95,"E")
  • Line Location: DENTAL+8
Function Call: WRITE
  • Prompt: ?4,"Dental Paperwork Attachment"
  • Line Location: DENTAL+9
Function Call: WRITE
  • Prompt: $$GET1^DIQ(353.3,$P(IB("U8"),U,2)_",",.01)," (",$E($$GET1^DIQ(353.3,$P(IB("U8"),U,2)_",",1),1,18),")"
  • Line Location: DENTAL+10
Function Call: WRITE
  • Prompt: $$GET1^DIQ(399,IBIFN_",",286,"I")," (",$E($$GET1^DIQ(399,IBIFN_",",286,"E"),1,20),")"
  • Line Location: DENTAL+11
Function Call: WRITE
  • Prompt: !?4,"Attachment Control #: ",$P(IB("U8"),U)
  • Line Location: DENTAL+12
Function Call: WRITE
  • Prompt: !?4,"Tooth Number: ",$P(IBTEETH(J),U),?41,"Status Code: ",$$GET1^DIQ(399.096,J_","_IBIFN_",",.02)
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !?4,"***There are more teeth statuses associated with this bill.***"
  • Line Location: MORE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(353.3 - [#353.3] GET1^DIQ
^DGCR(399 - [#399] GET1^DIQ
399.096 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call