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

Package: Integrated Billing

Routine: IBCA1


Information

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

Source Information

Source file <IBCA1.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
TYPE
T ;

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