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 |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBCA1

Package: Integrated Billing

Routine: IBCA1


Information

IBCA1 ;ALB/MRL - DISPLAY UTILITIES ;01 JUN 88 12:00

Source Information

Source file <IBCA1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Integrated Billing 2 (,NREC)^IBCA  (,Q)^IBCA2  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBCA  IBCCC  

Entry Points

Name Comments DBIA/ICR reference
ASK
TYPE
T ;

External References

Name Field # of Occurrence
YN^DICN ASK
^IBCA ASK
NREC^IBCA ASK
^IBCA2 ASK
Q^IBCA2 ASK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,VADM(1)_" ("_$P(VADM(2),"^",2)_")",?64,"DOB: ",$P(VADM(3),"^",2),!,X
  • Line Location: IBCA1+6
Function Call: WRITE
  • Prompt: $S($L(Y):Y,1:"UNSPECIFIED"),!,"Sensitive",?13,": ",$S(IBIDS(155):"YES",IBIDS(155)=0:"NO",1:"NOT SPECIFIED")
  • Line Location: IBCA1+8
Function Call: WRITE
  • Prompt: " (Specify ",$S(IBIDS(.11)="i":"CARRIER",1:"INSTITUTION")," on SCREEN 3)"
  • Line Location: IBCA1+9
Function Call: WRITE
  • Prompt: !," o "_I_$S(I=1:"st",I=2:"nd",1:"rd")_" Digit",?13,": "
  • Line Location: IBCA1+10
Function Call: WRITE
  • Prompt: Y,!,"Bill To",?13,": "
  • Line Location: IBCA1+11
Function Call: WRITE
  • Prompt: Y
  • Line Location: IBCA1+11
Function Call: WRITE
  • Prompt: !,"PTF Number",?13,": ",IBIDS(.08)
  • Line Location: IBCA1+12
Function Call: WRITE
  • Prompt: !,"Initial Bill#",?13,": ",$S($D(^DGCR(399,+IBIDS(.17),0)):$P(^(0),"^"),1:"Bill no longer exists")
  • Line Location: IBCA1+13
Function Call: WRITE
  • Prompt: !,"Copied Bill#",?13,": ",$S($D(^DGCR(399,+IBIDS(.15),0)):$P(^(0),"^"),1:"Bill no longer exists")
  • Line Location: IBCA1+14
Function Call: WRITE
  • Prompt: !!,"IS THE ABOVE INFORMATION CORRECT AS SHOWN"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: "ZEROTH NODE UNSPECIFIED-CONTACT YOUR SYSTEMS MANAGER!"
  • Line Location: TYPE+0
Function Call: WRITE
  • Prompt: $P($P($P(^DD(399,X4,0),"^",3),X3_":",2),";",1)
  • Line Location: TYPE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" IBCA1+8, IBCA1+11
^DD(399 TYPE, TYPE+1
^DGCR(399 - [#399] IBCA1+13, IBCA1+14
^DGCR(399.3 - [#399.3] IBCA1+7

Label References

Name Line Occurrences
ASK ASK+2
T IBCA1+15
TYPE IBCA1+10

Naked Globals

Name Field # of Occurrence
^(0 IBCA1+7, IBCA1+13, IBCA1+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*
>> I IBCA1+10*, TYPE
>> IBBT IBCA1+7*, IBCA1+10, IBCA1+12, TYPE
>> IBCAN IBCA1+16
>> IBIDS( IBCA1+7, IBCA1+8, IBCA1+9, IBCA1+12, IBCA1+13, IBCA1+14
>> IBIDS(151 IBCA1+11
>> IBIDS(152 IBCA1+11
>> IBIDS(155 IBCA1+8
>> IBYN ASK*
IOF IBCA1+6
>> VADM IBCA1+6
>> VADM(1 IBCA1+6
>> VADM(2 IBCA1+6
>> VADM(3 IBCA1+6
>> X IBCA1+6*
X3 TYPE*, TYPE+1, TYPE+2!
X4 TYPE*, TYPE+1, TYPE+2!
>> Y IBCA1+8*, IBCA1+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All