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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCSC1

Package: Integrated Billing

Routine: IBCSC1


Information

IBCSC1 ;ALB/MJB - MCCR SCREEN 1 (DEMOGRAPHICS) ;27 MAY 88 10:13

Source Information

Source file <IBCSC1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 7 $$B^IBCEF79  $$TAXGET^IBCEP81  ST1^IBCIST  $$CM^IBCIUT1  ^IBCSCP  (,A,H)^IBCSCU  ALL^IBCVA0  
Kernel 1 $$TAXORG^XUSTAX  
VA FileMan 1 ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCB  IBCB2  IBCCC2  IBCRTN  

Entry Points

Name Comments DBIA/ICR reference
BEN
1
2
3
4
5
6

External References

Name Field # of Occurrence
^DIE BEN+18
$$B^IBCEF79 BEN+11
$$TAXGET^IBCEP81 BEN+16
ST1^IBCIST BEN+6
$$CM^IBCIUT1 BEN+6
^IBCSCP 6+1
^IBCSCU BEN+3
A^IBCSCU 4+2
H^IBCSCU BEN+3
ALL^IBCVA0 BEN+3
$$TAXORG^XUSTAX BEN+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " DOB : ",$P(VADM(3),"^",2)
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: ?42,"Date of Death: ",$P(VADM(6),U,2)," (uneditable)"
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: " Alias : "
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !?13
  • Condition for execution: $X>40
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: Z,"/"
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: " Sex : ",$S($P(VADM(5),U,2)]"":$P(VADM(5),U,2),1:IBU),?48,"Marital: ",$S($D(^DIC(11,+$P(^DPT(DFN,0),U,5),0)):$E($P(^(0),U,1),1,28),1:IBU)
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: !
  • Line Location: 5+0
Function Call: WRITE
  • Prompt: " Address: ",$S($D(IBA(1)):IBA(1),1:"NONE ON FILE"),?46,"Temporary: ",$S($D(IBA(2)):IBA(2),1:"NO TEMPORARY ADDRESS")
  • Line Location: 5+0
Function Call: WRITE
  • Prompt: IBA(I)
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 6+0
Function Call: WRITE
  • Prompt: " SC Care: "
  • Line Location: 6+0
Function Call: WRITE
  • Prompt: " SC Care: "
  • Line Location: 6+0
Function Call: WRITE
  • Prompt: " SC Care: "
  • Line Location: 6+0
Routine Call
  • DIE
  • Line Location:
    • BEN+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] BEN+2, BEN+10
^DIC(11 - [#11] 3
^DIC(8 - [#8] 4
^DPT - [#2] 234+1
^XUSEC("DG ELIGIBILITY" BEN

Naked Globals

Name Field # of Occurrence
^( 24+1
^(0 BEN+2, 3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BPZ BEN+9~, BEN+11*, BEN+12, BEN+15, BEN+16
D BEN+13~
D0 BEN+13~
DA BEN+13~, BEN+18*
>> DFN 234+1
DI BEN+13~
DIE BEN+13~, BEN+18*
DR BEN+13~, BEN+18*
DUZ BEN
>> I 2*, 4+1*, 5+1*
>> I1 2*, 2+1, 5+1*
>> IB( 4+1*, 4+2
>> IB(0 BEN+2*, 6
IBA 4+2!
IBA( 5+1
IBA(1 5
IBA(2 5
>> IBA1 4+2*
>> IBA2 4+2*
>> IBAD 4+2*
>> IBIFN BEN+2, BEN+6, BEN+10, BEN+11, BEN+18
>> IBSR BEN*
>> IBSR1 BEN*
>> IBU 34
IBU3 BEN+9~, BEN+10*, BEN+12
>> IBV BEN+1
>> IBV1 BEN*, BEN+1*
>> IBW 1*, 2*, 3*, 4*, 5*, 6*
>> IBWW BEN+3, 123456
SFTAX BEN+13~, BEN+14*, BEN+15*, BEN+16*, BEN+17, BEN+18
U BEN+12, BEN+15, BEN+16, 13
>> VADM(3 1
>> VADM(5 3
>> VADM(6 1
>> VAEL(1 4
>> VAEL(4 4
>> X 6*
>> Z 1*, 2*, 3*, 4*, 5*, 6*
>> Z1 2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All