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

Package: Integrated Billing

Routine: IBCSC3


Information

IBCSC3 ;ALB/MJB - MCCR SCREEN 3 (PAYER/MAILING ADDRESS) ;27 MAY 88 10:15

Source Information

Source file <IBCSC3.m>

Entry Points

Name Comments DBIA/ICR reference
EN
LST
LST1
SHW
MAIL
ENDSCR
SHW1 ; Display information for insurance I.
; MRD;IB*2.0*516 - Rearranged some fields to allow more characters
; to be displayed for Group #, Group Name, Policy #, Insured.
UP
UP1() ;check if patient has medicare so can print a flag for the user

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: X
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: $J("",(42-$L(X))),"Form Type: ",$P($G(^IBE(353,+$P(IB(0),U,19),0)),U,1)
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: ?45,"Payer Sequence: "
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: $S(IBX="P":"Primary",IBX="S":"Secondary",IBX="T":"Tertiary",IBX="A":"Patient",1:"")
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !?4,"Bill Payer : "
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: $S(+X:$P($G(^DIC(36,+X,0)),U,1),$$MCRWNR^IBEFUNC($$CURR^IBCEF2(IBIFN)):"MRA NEEDED FROM MEDICARE",1:IBU)
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: ?45,"Transmit: "
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: $S(X:"Yes",1:"No-"_$S(Z=1:"Forced to print local",Z=2&($$WNRBILL^IBEFUNC(IBIFN)):"MRA not active",Z=2:"EDI not active",Z=3:"Rate typ transmit off",Z=4:"Ins. co transmit off",Z=5:"Failed RULE #"_$G(Z(0)),Z=6:"Invalid NDC code type",1:"??"))
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !?4,"Insurance : NO REIMBURSABLE INSURANCE INFORMATION ON FILE",!?17,"[Add Insurance Information by entering '1' at the prompt below]"
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !,?1,"**Patient has additional insurance - use ?INS to see the entire list"
  • Line Location: LST+4
Function Call: WRITE
  • Prompt: !?4,$S($D(^DIC(36,+IBDD(IBX,0),0)):$E($P(^(0),"^",1),1,20),1:"UNKNOWN")
  • Line Location: LST1+0
Function Call: WRITE
  • Prompt: ?26,$S(X="v":"VETERAN",X="s":"SPOUSE",1:"OTHER")
  • Line Location: LST1+0
Function Call: WRITE
  • Prompt: ?37,X,?49
  • Line Location: LST1+3
Function Call: WRITE
  • Prompt: Y,?64
  • Line Location: LST1+3
Function Call: WRITE
  • Prompt: Y,?64
  • Line Location: LST1+3
Function Call: WRITE
  • Prompt: !!,?17,"*** Patient has Insurance Buffer entries ***"
  • Line Location: MAIL+0
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIL+3
Function Call: WRITE
  • Prompt: " Billing Provider Secondary IDs: "
  • Line Location: MAIL+11
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: MAIL+12
Function Call: WRITE
  • Prompt: !?5,"Primary Payer: ",$S($P(IB("M1"),U,2)]"":$P(IB("M1"),U,2),IB("RAFLAG",1):"ATT/REND ID",1:"")
  • Line Location: MAIL+14
Function Call: WRITE
  • Prompt: !?5,"Secondary Payer: ",$S($P(IB("M1"),U,3)]"":$P(IB("M1"),U,3),IB("RAFLAG",2):"ATT/REND ID",1:"")
  • Line Location: MAIL+15
Function Call: WRITE
  • Prompt: ?46,"Tertiary Payer: ",$S($P(IB("M1"),U,4)]"":$P(IB("M1"),U,4),IB("RAFLAG",3):"ATT/REND ID",1:"")
  • Line Location: MAIL+16
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIL+19
Function Call: WRITE
  • Prompt: " Mailing Address : "
  • Line Location: MAIL+20
Function Call: WRITE
  • Prompt: !?4,"NO MAILING ADDRESS HAS BEEN SPECIFIED!",?45,$$UP1,!?4,"Send Bill to PAYER listed above."
  • Line Location: MAIL+27
Function Call: WRITE
  • Prompt: !,?4,$S($P(X,"^",4)]"":$P(X,"^",4),1:"'MAIL TO' PERSON/PLACE UNSPECIFIED"),?45,$$UP1
  • Line Location: MAIL+28
Function Call: WRITE
  • Prompt: !?4,$S($P(X,"^",5)]"":$P(X,"^",5),1:"STREET ADDRESS UNSPECIFIED")
  • Line Location: MAIL+29
Function Call: WRITE
  • Prompt: ", ",$P(X,"^",6)
  • Condition for execution: $P(X,"^",6)]""
  • Line Location: MAIL+29
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIL+30
Function Call: WRITE
  • Prompt: ?4,$P(IB("M1"),"^",1),", "
  • Condition for execution: $P(IB("M1"),"^",1)]""
  • Line Location: MAIL+30
Function Call: WRITE
  • Prompt: ?4,$S($P(X,"^",7)]"":$P(X,"^",7),1:"CITY UNSPECIFIED"),", ",$S($D(^DIC(5,+$P(X,"^",8),0)):$P(^(0),"^",2),1:"STATE UNSPECIFIED")," ",$S($P(X,"^",9)]"":$P(X,"^",9),1:"ZIP UNSPECIFIED")
  • Line Location: MAIL+31
Function Call: WRITE
  • Prompt: ?30,"WILL NOT REIMBURSE"
  • Line Location: SHW1+5
Function Call: WRITE
  • Prompt: ?51,"Whose: ",$S($P(X,"^",6)="v":"VETERAN",$P(X,"^",6)="s":"SPOUSE",1:"OTHER")
  • Line Location: SHW1+6
Function Call: WRITE
  • Prompt: !?4,"Policy #: ",$E($S($P(X,"^",2)]"":$P(X,"^",2),1:IBU),1,34)
  • Line Location: SHW1+7
Function Call: WRITE
  • Prompt: ?51,"Rel to Insd: ",$E(IBIR(I),1,15)
  • Line Location: SHW1+8
Function Call: WRITE
  • Prompt: !?4,"Insured: ",$E($P(X,"^",17),1,35)
  • Line Location: SHW1+9
Function Call: WRITE
  • Prompt: ?51,"Insd Sex: ",$S($D(IBISEX(I)):IBISEX(I),1:IBU)
  • Line Location: SHW1+10
Function Call: WRITE
  • Prompt: !?4,"Grp #: ",$E($S($P(X,"^",3)]"":$P(X,"^",3),1:IBU),1,67)
  • Line Location: SHW1+11
Function Call: WRITE
  • Prompt: !?4,"Grp Nm: ",$E($S($P(X,"^",15)]"":$P(X,"^",15),1:IBU),1,66)
  • Line Location: SHW1+12

FileMan Files Accessed Via FileMan Db Call

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