Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Integrated Billing 13 $$FT^IBCEF  $$CURR^IBCEF2  $$TXMT^IBCEF4  $$BUFFER^IBCNBU1  (D1,HDR)^IBCNS  ALL^IBCNS1  POL^IBCNSU41  ^IBCSCP  
(,H)^IBCSCU  ^IBCU6  123^IBCVA  3^IBCVA0  ($$MCRWNR,$$WNRBILL)^IBEFUNC  
VA FileMan 1 $$GET1^DIQ  

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

External References

Name Field # of Occurrence
$$GET1^DIQ MAIL+6, MAIL+7, MAIL+8
$$FT^IBCEF MAIL+5, MAIL+25, UP+4
$$CURR^IBCEF2 EN+17, MAIL+22
$$TXMT^IBCEF4 EN+18
$$BUFFER^IBCNBU1 MAIL
D1^IBCNS LST+4
HDR^IBCNS LST+2
ALL^IBCNS1 UP, UP1+1
POL^IBCNSU41 EN+6
^IBCSCP ENDSCR+1
^IBCSCU EN+2
H^IBCSCU EN+3
^IBCU6 EN+1
123^IBCVA EN+5
3^IBCVA0 EN+4
$$MCRWNR^IBEFUNC EN+17, MAIL+22
$$WNRBILL^IBEFUNC EN+19

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LST1+3
^DGCR(399 - [#399] EN+4, EN+5, EN+7, EN+16, EN+23, MAIL+2, MAIL+21
^DGCR(399.3 - [#399.3] EN+10
^DIC(36 - [#36] EN+17, LST1, MAIL+25, SHW1+3
^DIC(4 - [#4] EN+22
^DIC(5 - [#5] MAIL+31
^IBE(350.9 - [#350.9] EN+12
^IBE(353 - [#353] EN+12

Label References

Name Line Occurrences
$$UP1 MAIL+27, MAIL+28
ENDSCR MAIL+27
LST EN+24
MAIL EN+20, EN+21, EN+22, EN+24, LST+5
SHW EN+23
SHW1 SHW
UP EN+24

Naked Globals

Name Field # of Occurrence
^( EN+7
^("M" MAIL+2
^("M1" MAIL+2
^(0 EN+10, EN+22, LST1, MAIL+31
^(3 MAIL+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EN+6, MAIL, UP, UP1+1
DGRVRCAL EN+1!
DT EN+8
I EN+7*, LST+3*, LST+4, SHW*, MAIL+25*, MAIL+26*, ENDSCR!, SHW1+3, SHW1+4, SHW1+8
, SHW1+10
IB EN~
IB( EN+7*
IB("M" EN+22, MAIL+2*, MAIL+6, MAIL+7, MAIL+8, MAIL+26, MAIL+28
IB("M1" MAIL+2*, MAIL+10, MAIL+14, MAIL+15, MAIL+16, MAIL+30
IB("RAFLAG" MAIL+6*, MAIL+7*, MAIL+8*, MAIL+10, MAIL+14, MAIL+15, MAIL+16
IB("U" EN+8, LST+1
IB(0 EN+10, EN+12, EN+13, EN+14, EN+15, EN+20, EN+21, EN+22, EN+23, MAIL+2*
IBAB UP+3~, UP+4*, UP+6
IBADI ENDSCR!
IBDD EN+23, EN+24, SHW, ENDSCR!, UP!, UP1+1~
IBDD( LST+4, LST1, LST1+2, LST1+3, SHW, SHW1+3, UP+6, UP1+2
IBDD("S" LST+3, LST+4, UP+1, UP+5, UP+6*!
IBDTIN LST~, LST+1*
IBICT LST~, LST+1*, LST+3, LST+4*
>> IBIFN EN+4, EN+5, EN+7, EN+16, EN+17, EN+18, EN+19, EN+23, MAIL+2, MAIL+5
, MAIL+21, MAIL+22, MAIL+25, UP+4
IBINDT EN+8*, ENDSCR!, UP, UP1+1
IBINS EN~, LST+4*
>> IBIR( SHW1+8
>> IBISEX( SHW1+10
IBOUTP EN+8*, ENDSCR!
IBRAMS MAIL+4~*, MAIL+5*, MAIL+6, MAIL+7, MAIL+8
>> IBSR EN+2*
>> IBSR1 EN+2*
>> IBU EN+10, EN+13, EN+17, EN+22, SHW1+4, SHW1+7, SHW1+10, SHW1+11, SHW1+12
>> IBUN EN+10, MAIL+12
>> IBV EN+2
>> IBV1 EN+2*
>> IBW EN+11*, MAIL+3*, MAIL+19*
>> IBWW EN+11, MAIL+3, MAIL+19
IBX EN~, EN+14*, LST+4*, LST1, LST1+2, LST1+3, UP1+1~, UP1+2*
IBY UP1+1~*, UP1+2*, UP1+3
U EN+10, EN+12, EN+13, EN+14, EN+15, EN+17, EN+20, EN+21, EN+22, EN+23
, MAIL+6, MAIL+7, MAIL+8, MAIL+10, MAIL+14, MAIL+15, MAIL+16, MAIL+25, SHW1+4, SHW1+5
, UP+6, UP1+2
X EN+10*, EN+11, EN+12, EN+16*, EN+17, EN+18*, EN+19, LST1*, LST1+1*, LST1+2*
, LST1+3, MAIL+9*, MAIL+10*, MAIL+12, MAIL+13, MAIL+21*, MAIL+22*, MAIL+25, MAIL+26*, MAIL+27
, MAIL+28*, MAIL+29, MAIL+31, ENDSCR!, SHW1+3*, SHW1+6, SHW1+7, SHW1+9, SHW1+11, SHW1+12
X1 LST1+2*, ENDSCR!
Y EN~, LST1+3*
Z EN~, EN+11*, EN+18*, EN+19, MAIL+3*, MAIL+19*, SHW1+3*, SHW1+4, SHW1+5, UP+3~
, UP+5*, UP+6
Z(0 EN+19
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All