Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls