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

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 3 (,NREC)^IBCA  (,Q)^IBCA2  $$EXPAND^IBTRE  
VA FileMan 1 YN^DICN  

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: 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
$$EXPAND^IBTRE IBCA1+10, IBCA1+12

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: !,"Rate Type",?14,": ",$S($D(^DGCR(399.3,+IBIDS(.07),0)):$P(^(0),"^",1),1:"UNSPECIFIED-REQUIRED")
  • Line Location: IBCA1+7
Function Call: WRITE
  • Prompt: !,"Event Date",?14,": "
  • Line Location: IBCA1+8
Function Call: WRITE
  • Prompt: $S($L(Y):Y,1:"UNSPECIFIED"),!,"Sensitive",?14,": ",$S(IBIDS(155):"YES",IBIDS(155)=0:"NO",1:"NOT SPECIFIED")
  • Line Location: IBCA1+8
Function Call: WRITE
  • Prompt: !,"Responsible",?14,": ",$S(IBIDS(.11)="p":"PATIENT",IBIDS(.11)="i":"INSURANCE CARRIER",1:"OTHER [INSTITUTION]")
  • Line Location: IBCA1+9
Function Call: WRITE
  • Prompt: " (Specify ",$S(IBIDS(.11)="i":"CARRIER",1:"INSTITUTION")," on SCREEN 3)"
  • Line Location: IBCA1+9
Function Call: WRITE
  • Prompt: !!,"Loc of Care",?14,": ",$$EXPAND^IBTRE(399,.04,IBIDS(.04))
  • Line Location: IBCA1+10
Function Call: WRITE
  • Prompt: !,"Event Source",?14,": ",$S(IBIDS(.05)<3:"Inpatient",1:"Outpatient")
  • Line Location: IBCA1+11
Function Call: WRITE
  • Prompt: !,"Timeframe",?14,": ",$$EXPAND^IBTRE(399,.06,IBIDS(.06))
  • Line Location: IBCA1+12
Function Call: WRITE
  • Prompt: !,?14," (Specify actual bill type fields on SCREENs 6/7)"
  • Line Location: IBCA1+13
Function Call: WRITE
  • Prompt: !!,"Bill From",?14,": "
  • Line Location: IBCA1+14
Function Call: WRITE
  • Prompt: Y,!,"Bill To",?14,": "
  • Line Location: IBCA1+14
Function Call: WRITE
  • Prompt: Y,!,"Bill To",?14,": "
  • Line Location: IBCA1+14
Function Call: WRITE
  • Prompt: !
  • Line Location: IBCA1+15
Function Call: WRITE
  • Prompt: !,"PTF Number",?14,": ",IBIDS(.08)
  • Line Location: IBCA1+15
Function Call: WRITE
  • Prompt: !,"Initial Bill#",?14,": ",$S($D(^DGCR(399,+IBIDS(.17),0)):$P(^(0),"^"),1:"Bill no longer exists")
  • Line Location: IBCA1+16
Function Call: WRITE
  • Prompt: !,"Copied Bill#",?14,": ",$S($D(^DGCR(399,+IBIDS(.15),0)):$P(^(0),"^"),1:"Bill no longer exists")
  • Line Location: IBCA1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: IBCA1+18
Function Call: WRITE
  • Prompt: !!,"IS THE ABOVE INFORMATION CORRECT AS SHOWN"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?4,"YES - If this information is correct as shown and you wish to file the bill.",!?4,"NO - If you wish to change this information prior to filing."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !?4,"'^' - Enter the up-arrow character to DELETE this Bill at this time."
  • Line Location: ASK+2
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
Function Call: WRITE
  • Prompt: !,"Please verify the above information for the bill you just entered. Once this"
  • Line Location: T+1
Function Call: WRITE
  • Prompt: !,"information is accepted it will no longer be editable and you will be required"
  • Line Location: T+2
Function Call: WRITE
  • Prompt: !,"to CANCEL THE BILL if changes to this information are necessary."
  • Line Location: T+3

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASK ASK+2
T IBCA1+18

Naked Globals

Name Field # of Occurrence
^(0 IBCA1+7, IBCA1+16, IBCA1+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*
>> I TYPE
>> IBBT IBCA1+7*, IBCA1+15, TYPE
>> IBCAN IBCA1+19
>> IBIDS( IBCA1+7, IBCA1+8, IBCA1+9, IBCA1+10, IBCA1+11, IBCA1+12, IBCA1+15, IBCA1+16, IBCA1+17
>> IBIDS(151 IBCA1+14
>> IBIDS(152 IBCA1+14
>> 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+14*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All