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: IBEPAR

Package: Integrated Billing

Routine: IBEPAR


Information

IBEPAR ;ALB/AAS - MCCR SITE PARAMETER ENTER/EDIT ;26-MAR-92

Source Information

Source file <IBEPAR.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 4 ($$CPT,$$ICD9)^IBACSV  ^IBCSCU  ^IBEPAR1  $$EXPAND^IBTRE  
VA FileMan 1 D^DIQ  

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: 1

Package Total Caller Graph
Integrated Billing 1 IBCMENU  

Entry Points

Name Comments DBIA/ICR reference
1
2
3
4
5 ;
CH
Q

External References

Name Field # of Occurrence
D^DIQ 3+6
$$CPT^IBACSV 3+10
$$ICD9^IBACSV 3+9
^IBCSCU %+2
^IBEPAR1 CH
$$EXPAND^IBTRE 5+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?17,IBVI,X,IBVO,!,L
  • Line Location: IBEPAR+8
Function Call: WRITE
  • Prompt: " Medical Center Name: "_$P($G(^DIC(4,+$P(IBEPAR(0),"^",2),0)),"^"),?47,"Federal Tax #",?66,": ",$S($P(IBEPAR(1),"^",5)]"":$P(IBEPAR(1),"^",5),1:IBU)
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !?4,"Default BC/BS #",?23,": ",$S($P(IBEPAR(1),"^",6)]"":$P(IBEPAR(1),"^",6),1:IBU)
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: ?47,"Medicare Number",?66,": ",$S($P(IBEPAR(1),"^",21)]"":$P(IBEPAR(1),"^",21),1:IBU)
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !?4,"MAS Service Pointer",?23,": ",$E($S($P(IBEPAR(1),"^",14)]""&($D(^DIC(49,+$P(IBEPAR(1),"^",14),0))):$P(^(0),"^",1),1:IBU),1,20)
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: ?47,"Default Division",?66,": ",$E($S($P(IBEPAR(1),"^",25)]"":$P($G(^DG(40.8,+$P(IBEPAR(1),"^",25),0)),"^"),1:IBU),1,12),!
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: " Bill Signer Name : "_$S($P(IBEPAR(1),"^",1)]"":$P(IBEPAR(1),"^",1),1:IBU)
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: ?47,"Title: ",$S($P(IBEPAR(1),"^",2)]"":$P(IBEPAR(1),"^",2),1:IBU)
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: " Multiple Form Types: "_$S($P(IBEPAR(1),"^",22)=1:"YES",$P(IBEPAR(1),"^",11)=0:"NO",1:IBU)
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: ?47,"Initiator Authorize: ",$S($P(IBEPAR(1),"^",23)=1:"YES",$P(IBEPAR(1),"^",3)=0:"NO",1:IBU)
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !?4,"Use Non-PTF Codes?",?23,": ",$S($P(IBEPAR(1),"^",15)=1:"YES",$P(IBEPAR(1),"^",15)=0:"NO",1:IBU)
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: ?47,"Ask HINQ in MCCR? : ",$S($P(IBEPAR(1),"^",16)=1:"YES",$P(IBEPAR(1),"^",16)=0:"NO",1:IBU),!
  • Line Location: 3+2
Function Call: WRITE
  • Prompt: ?47,"Default ASC Rev. Cd: "
  • Line Location: 3+4
Function Call: WRITE
  • Prompt: $S($P(X,"^")]"":$P(X,"^"),1:IBU),!
  • Line Location: 3+4
Function Call: WRITE
  • Prompt: ?4,"Xfer Proc to Sched?: "_$S($P(IBEPAR(1),"^",19)=1:"YES",$P(IBEPAR(1),"^",19)=0:"NO",1:IBU)
  • Line Location: 3+5
Function Call: WRITE
  • Prompt: ?47,"Per Diem Start Date: "
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: ?4,"Default RX Rev. Cd : "
  • Line Location: 3+7
Function Call: WRITE
  • Prompt: $S($P(X,"^")]"":$P(X,"^"),1:IBU)
  • Line Location: 3+7
Function Call: WRITE
  • Prompt: ?42,"Suppress MT Ins Bulletin: ",$S($P(IBEPAR(0),"^",15)=1:"YES",$P(IBEPAR(0),"^",15)=0:"NO",1:IBU),!
  • Line Location: 3+8
Function Call: WRITE
  • Prompt: " '001' for Total? : "_$S($P(IBEPAR(1),"^",10)=1:"YES",$P(IBEPAR(1),"^",10)=0:"NO",1:IBU)
  • Line Location: 4+0
Function Call: WRITE
  • Prompt: ?47,"Hold MT Bills W/Ins: ",$S($P(IBEPAR(1),"^",20)=1:"YES",$P(IBEPAR(1),"^",20)=0:"NO",1:IBU)
  • Line Location: 4+1
Function Call: WRITE
  • Prompt: !?4,"Remark on each bill",?23,": ",$S($P(IBEPAR(1),"^",4)]"":$E($P(IBEPAR(1),"^",4),1,21),1:IBU)
  • Line Location: 4+2
Function Call: WRITE
  • Prompt: ?47,"UB-92 Address Col : "
  • Line Location: 4+3
Function Call: WRITE
  • Prompt: $S($P(IBEPAR(1),U,31)]"":$P(IBEPAR(1),"^",31),1:IBU)
  • Line Location: 4+3
Function Call: WRITE
  • Prompt: !?4,"Cancellation Remark",?23,": ",$S($P(IBEPAR(2),"^",7)]"":$E($P(IBEPAR(2),"^",7),1,21),1:IBU)
  • Line Location: 4+4
Function Call: WRITE
  • Prompt: ?47,"HCFA 1500 Addr Col : "
  • Line Location: 4+5
Function Call: WRITE
  • Prompt: $S($P(IBEPAR(1),U,27)]"":$P(IBEPAR(1),"^",27),1:IBU)
  • Line Location: 4+5
Function Call: WRITE
  • Prompt: !?4,"Cancelled Mailgroup",?23,": ",$S($P(IBEPAR(1),"^",7):$P($G(^XMB(3.8,+$P(IBEPAR(1),"^",7),0)),"^",1),1:IBU)
  • Line Location: 4+7
Function Call: WRITE
  • Prompt: ?47,"Disap. Mailgroup : ",$S($P(IBEPAR(1),"^",9):$P($G(^XMB(3.8,+$P(IBEPAR(1),"^",9),0)),"^"),1:IBU),!
  • Line Location: 4+9
Function Call: WRITE
  • Prompt: ?4,"Copay Mailgroup",?23,": ",$S($P(IBEPAR(0),"^",9):$P($G(^XMB(3.8,+$P(IBEPAR(0),"^",9),0)),"^"),1:IBU)
  • Line Location: 4+10
Function Call: WRITE
  • Prompt: ?42,"Means Test Mailgroup : ",$S($P(IBEPAR(0),"^",11):$P($G(^XMB(3.8,+$P(IBEPAR(0),"^",11),0)),"^"),1:IBU)
  • Line Location: 4+11
Function Call: WRITE
  • Prompt: " Agent Cashier",?23,": ",$P(IBEPAR(2),"^",1)
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: ", ",$P(IBEPAR(2),"^",3),", "
  • Line Location: 5+2
Function Call: WRITE
  • Prompt: $S($P(IBEPAR(2),"^",4):$P(^DIC(5,$P(IBEPAR(2),"^",4),0),"^",2),1:"")
  • Line Location: 5+3
Function Call: WRITE
  • Prompt: " ",$P(IBEPAR(2),"^",5)
  • Line Location: 5+4
Function Call: WRITE
  • Prompt: !?4,"Phone",?23,": ",$S($P(IBEPAR(2),"^",6)]"":$P(IBEPAR(2),"^",6),1:IBU)
  • Line Location: 5+5
Function Call: WRITE
  • Prompt: ?47,"Default Form Type : "
  • Line Location: 5+6
Function Call: WRITE
  • Prompt: $S($P(X,"^")]"":$P(X,"^"),1:IBU)
  • Line Location: 5+6
Function Call: WRITE
  • Prompt: !?4,"Fac Billing Name",?23,": ",$P(IBEPAR(2),"^",10)
  • Line Location: 5+7
Function Call: WRITE
  • Prompt: !?4,"Other Facility is Billing Facility: ",$$EXPAND^IBTRE(350.9,2.12,$P(IBEPAR(2),U,12))
  • Line Location: 5+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] 1+4
^DGCR(399.2 - [#399.2] 3+4, 3+7
^DIC(4 - [#4] 1
^DIC(49 - [#49] 1+3
^DIC(5 - [#5] 5+3
^IBE(350.9 - [#350.9] %+1
^IBE(353 - [#353] 5+6
^VA(200 - [#200] 2+2
^XMB(3.8 - [#3.8] 4+7, 4+9, 4+10, 4+11

Label References

Name Line Occurrences
IBEPAR CH

Naked Globals

Name Field # of Occurrence
^( %+1
^(0 1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIK Q!
I %+1*, Q!
IBEPAR Q!
IBEPAR( %+1*
IBEPAR(0 1, 3+6, 3+8, 4+10, 4+11
IBEPAR(1 1, 1+1, 1+2, 1+3, 1+4, 2, 2+1, 2+2, 3, 3+1
, 3+2, 3+3, 3+4, 3+5, 3+7, 3+9, 3+10, 4, 4+1, 4+2
, 4+3, 4+5, 4+7, 4+9, 5+6
IBEPAR(2 4+4, 5+1, 5+2, 5+3, 5+4, 5+5, 5+7, 5+8
IBPAR %+1*, %+4, Q!
>> IBSCA CH
IBSCPP Q!
IBSR %+1*, Q!
>> IBSR1 %+1*
IBSUP 2+2*, 2+3, Q!
IBU 1, 1+1, 1+2, 1+3, 1+4, 2, 2+1, 2+2, 2+3, 3
, 3+1, 3+2, 3+3, 3+4, 3+5, 3+7, 3+8, 3+9, 3+10, 4
, 4+1, 4+2, 4+3, 4+4, 4+5, 4+7, 4+9, 4+10, 4+11, 5+5
, 5+6, Q!
IBUN Q!
IBV1 %+1*, Q!
IBVI %+4, Q!
IBVO %+4, Q!
IBVV Q!
IBW 1*, 2*, 3*, 4*, 5+1*, Q!
IBWW 1, 2, 3, 4, 5+1, Q!
IOF %+4
>> L %+3*, %+4
U 3+9, 3+10, 4+3, 4+5, 5+8
X %+4*, 3+4*, 3+7*, 3+9*, 3+10*, 5+6*, Q!
Y 3+6*, Q!
>> Z 1*, 2*, 3*, 4*, 5+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All