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

Package: Integrated Billing

Routine: IBOA32


Information

IBOA32 ;ALB/CPM - PRINT ALL BILLS FOR A PATIENT (CON'T) ;28-JAN-92

Source Information

Source file <IBOA32.m>

Entry Points

Name Comments DBIA/ICR reference
UTIL ; Gather all IB Actions for a patient.
GETATYPE(IBIEN) ; Patch IB*2.0*645 - added community care - action types

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,IBPFLAG,$S($P(IBND,"^",11)]"":$P($P(IBND,"^",11),"-",2),$P(IBND,"^",5)=99:"",$P(IBND,"^",5)=10:"",1:"Pending")
  • Line Location: IBOA32+16
Function Call: WRITE
  • Prompt: ?19,IBTYPE
  • Line Location: IBOA32+25
Function Call: WRITE
  • Prompt: ?38,$E($S($P(IBND,"^",4)["350:":$E($P(IBND,"^",8),1,14),$P(IBND,"^",3)<7:"Rx:"_IBRX_$S(IBRF>0:"("_IBRF_")",1:""),$P(IBND1,"^",5):"CHAMPVA SUBSIST",1:"AUT MEANS TEST"),1,14)
  • Line Location: IBOA32+26
Function Call: WRITE
  • Prompt: ?55,$$DAT1^IBOUTL(-IBDT)
  • Line Location: IBOA32+28
Function Call: WRITE
  • Prompt: ?65,$$DAT1^IBOUTL($S(IBRXN>0:IBRDT,$P(IBND,"^",14):$P(IBND,"^",14),1:$P(IBND1,"^",2)\1))
  • Line Location: IBOA32+29
Function Call: WRITE
  • Prompt: ?75,$$DAT1^IBOUTL($S($P(IBND,"^",15):$P(IBND,"^",15),1:$P(IBND1,"^",2)\1))
  • Line Location: IBOA32+30
Function Call: WRITE
  • Prompt: ?90,"N/A",?95,$E($P($G(^IBE(350.21,+$P(IBND,"^",5),0)),"^",2),1,17)
  • Line Location: IBOA32+31
Function Call: WRITE
  • Prompt: U,IBTYPE
  • Line Location: IBOA32+33
Function Call: WRITE
  • Prompt: U,$E($S($P(IBND,"^",4)["350:":$E($P(IBND,"^",8),1,14),$P(IBND,"^",3)<7:"Rx:"_IBRX_$S(IBRF>0:"("_IBRF_")",1:""),$P(IBND1,"^",5):"CHAMPVA SUBSIST",1:"AUT MEANS TEST"),1,14),U
  • Line Location: IBOA32+34
Function Call: WRITE
  • Prompt: $$DAT1^IBOUTL(-IBDT)
  • Line Location: IBOA32+36
Function Call: WRITE
  • Prompt: U,$$DAT1^IBOUTL($S(IBRXN>0:IBRDT,$P(IBND,"^",14):$P(IBND,"^",14),1:$P(IBND1,"^",2)\1))
  • Line Location: IBOA32+37
Function Call: WRITE
  • Prompt: U,$$DAT1^IBOUTL($S($P(IBND,"^",15):$P(IBND,"^",15),1:$P(IBND1,"^",2)\1))
  • Line Location: IBOA32+38
Function Call: WRITE
  • Prompt: U,"N/A",U,$E($P($G(^IBE(350.21,+$P(IBND,"^",5),0)),"^",2),1,17)
  • Line Location: IBOA32+39
Info |  Source |  Entry Points |  Interaction Calls