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 |  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 Total: 6

Package Total Call Graph
Integrated Billing 6 (D1,HDR)^IBCNS  ALL^IBCNS1  ^IBCSCP  (,H)^IBCSCU  ^IBCU6  3^IBCVA0  

Entry Points

Name Comments DBIA/ICR reference
EN
LST1
SHW
UP
LST
MAIL
SHW1

External References

Name Field # of Occurrence
D1^IBCNS LST+1
HDR^IBCNS LST
ALL^IBCNS1 UP
^IBCSCP MAIL+4, MAIL+8
^IBCSCU EN+1
H^IBCSCU EN+2
^IBCU6 EN
3^IBCVA0 EN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?45,"Form Type: ",$P($G(^IBE(353,+$P(IB(0),U,19),0)),U,1)
  • Line Location: EN+6
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+12
Function Call: WRITE
  • Prompt: !,X
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"Not currently Selectable:"
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: ?26,$S(X="v":"VETERAN",X="s":"SPOUSE",1:"OTHER")
  • Line Location: LST1+0
Function Call: WRITE
  • Prompt: Y,?64
  • Line Location: LST1+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: LST1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIL+1
Function Call: WRITE
  • Prompt: " Primary Provider # : ",$P(IB("M1"),U,2),!?4,"Secondary Provider #: ",$P(IB("M1"),U,3),?45,"Tertiary Provider#: ",$P(IB("M1"),U,4)
  • Line Location: MAIL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIL+2
Function Call: WRITE
  • Prompt: !?4,"NO MAILING ADDRESS HAS BEEN SPECIFIED!",!?4,"Send Bill to PAYER listed above."
  • Line Location: MAIL+4
Function Call: WRITE
  • Prompt: !,?4,$S($P(X,"^",4)]"":$P(X,"^",4),1:"'MAIL TO' PERSON/PLACE UNSPECIFIED"),!?4,$S($P(X,"^",5)]"":$P(X,"^",5),1:"STREET ADDRESS UNSPECIFIED")
  • Line Location: MAIL+5
Function Call: WRITE
  • Prompt: ", ",$P(X,"^",6)
  • Condition for execution: $P(X,"^",6)]""
  • Line Location: MAIL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIL+5
Function Call: WRITE
  • Prompt: ?4,$P(IB("M1"),"^",1),", "
  • Condition for execution: $P(IB("M1"),"^",1)]""
  • Line Location: MAIL+5
Function Call: WRITE
  • Prompt: $E(Z,1,25)
  • Line Location: SHW1+0
Function Call: WRITE
  • Prompt: ?45,"Policy #: ",$S($P(X,"^",2)]"":$P(X,"^",2),1:IBU)
  • Line Location: SHW1+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" LST1+3
^DGCR(399 - [#399] EN+3, EN+11, MAIL
^DGCR(399.3 - [#399.3] EN+5
^DIC(36 - [#36] LST1, SHW1
^DIC(4 - [#4] EN+10
^DIC(5 - [#5] MAIL+6
^IBE(350.9 - [#350.9] EN+6
^IBE(353 - [#353] EN+6

Label References

Name Line Occurrences
LST EN+12
MAIL EN+8, EN+9, EN+10, EN+12, LST+3
SHW EN+11
SHW1 SHW
UP EN+12

Naked Globals

Name Field # of Occurrence
^( EN+3
^("M" MAIL
^("M1" MAIL
^(0 EN+5, EN+10, LST1, MAIL+6, SHW1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN UP
DGRVRCAL EN!
DT EN+4
I EN+3*, SHW*, MAIL+3*, MAIL+7!, SHW1, SHW1+3
>> IB( EN+3*
>> IB("M" EN+10, MAIL*, MAIL+3, MAIL+5
>> IB("M1" MAIL*, MAIL+1, MAIL+5
>> IB("U" EN+4
>> IB(0 EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, MAIL*
IBADI MAIL+7!
IBDD EN+11, EN+12, SHW, MAIL+7!, UP!
IBDD( LST+1, LST1, LST1+2, LST1+3, SHW, SHW1
>> IBIFN EN+3, EN+11, MAIL
IBINDT EN+4*, MAIL+7!, UP
>> IBINS LST+1*
>> IBIR( SHW1+3
>> IBISEX( SHW1+3
IBOUTP EN+4*, MAIL+7!
>> IBSR EN+1*
>> IBSR1 EN+1*
>> IBU EN+5, EN+7, EN+10, SHW1, SHW1+1, SHW1+3
>> IBUN EN+5
>> IBV EN+1
>> IBV1 EN+1*
>> IBW EN+5*, MAIL+1*, MAIL+2*
>> IBWW EN+5, MAIL+1, MAIL+2
>> IBX LST+1*, LST1, LST1+2, LST1+3
U EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, MAIL+1
X LST1*, LST1+1*, LST1+2*, LST1+3, MAIL+3*, MAIL+4, MAIL+5*, MAIL+6, MAIL+7!, SHW1*
, SHW1+1, SHW1+2, SHW1+3
X1 LST1+2*, MAIL+7!
>> Y LST1+3*
>> Z EN+5*, MAIL+1*, MAIL+2*, SHW1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All