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

Package: Integrated Billing

Routine: IBTRE20


Information

IBTRE20 ;ALB/AAS - CLAIMS TRACKING EXECUTABLE HELP ;13-OCT-93

Source Information

Source file <IBTRE20.m>

Entry Points

Name Comments DBIA/ICR reference
LISTA ; -- list inpatient admissions for patient
WRA
LISTO ; -- list outpatient appointments
WRO
LISTS ; -- list scheduled admissions
WRS
FINDS ; -- match a scheduled admission
ID ; -- write out identifier for entry, called by ^dd(356,0,"id","write")
PRINT ; patch 40, custom look up. Input: IBX -- 0th node in file #356.
LISTP ; -- list inpatient admissions for patient
WRP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Admissions to Choose From."
  • Line Location: LISTA+6
Function Call: WRITE
  • Prompt: !," ",Y
  • Line Location: WRA+1
Function Call: WRITE
  • Prompt: ?50,"TO: ",$E($P($G(^DIC(42,+$P(IBX,"^",6),0)),"^"),1,17)
  • Line Location: WRA+4
Function Call: WRITE
  • Prompt: " [",$E($P(^(0),"^",1),1,10),"]"
  • Line Location: WRA+5
Function Call: WRITE
  • Prompt: !?23,"FROM: ",$P($G(^DIC(4,+$P(IBX,"^",5),0)),"^")
  • Line Location: WRA+6
Function Call: WRITE
  • Prompt: !!,"Unable to look-up Outpatient Visits to Choose From."
  • Line Location: LISTO+5
Function Call: WRITE
  • Prompt: !?5,IBX,?10,$G(^(IBX))
  • Line Location: LISTO+6
Function Call: WRITE
  • Prompt: !!,"No Outpatient Visits to Choose From."
  • Line Location: LISTO+8
Function Call: WRITE
  • Prompt: !," ",Y
  • Line Location: WRO+1
Function Call: WRITE
  • Prompt: ?27,"Clinic: ",$P($P(IBSDD,"^",2),";",2),?60," Type: ",$E($P($P(IBSDD,"^",10),";",2),1,12)
  • Line Location: WRO+3
Function Call: WRITE
  • Prompt: !,?10," [Status: ",$P(IBSDD,";",2),"]"
  • Line Location: WRO+5
Function Call: WRITE
  • Prompt: !!,"No Scheduled Admissions to Choose From."
  • Line Location: LISTS+6
Function Call: WRITE
  • Prompt: !," ",Y
  • Line Location: WRS+1
Function Call: WRITE
  • Prompt: ?27," Spec: ",$E($P($G(^DIC(45.7,+$P(IBX,"^",9),0)),"^"),1,25)
  • Line Location: WRS+2
Function Call: WRITE
  • Prompt: ?58," To: ",$E($P($G(^DIC(42,+$P(IBX,"^",8),0)),"^"),1,16)
  • Line Location: WRS+4
Function Call: WRITE
  • Prompt: ?58,"["_$E($P($G(^SC(+$P(IBOE0,U,4),0)),U),1,20),"]"
  • Line Location: ID+2
Function Call: WRITE
  • Prompt: ?13,NAM,?37,EPIS,?47,EVENT,?54,DISPL
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,"No Prosthetics to Choose From."
  • Line Location: LISTP+10
Function Call: WRITE
  • Prompt: !," ",IBI,?10,$E(P2,1,25),?40,TYPE,?58,"DELIVERED:",DDTO
  • Line Location: WRP+3
Info |  Source |  Entry Points |  Interaction Calls