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

Package: Integrated Billing

Routine: IBOEMP2


Information

IBOEMP2 ;ALB/ARH - EMPLOYER REPORT (PRINT) ; 6/19/93

Source Information

Source file <IBOEMP2.m>

Entry Points

Name Comments DBIA/ICR reference
P1 ;print report
HDR ;print the report header, allow user stops, for terminals only form feed on first page
PAUSE ;pause at end of screen if being displayed on a terminal
STOP() ;determine if user requested task to be stopped

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,IBDSH,!
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: !,$E($P(IBADD,"^",1),1,29),?32,$P(IBADD,"^",8),?55
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: ?IBLNG,IBE
  • Line Location: P1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+9
Function Call: WRITE
  • Prompt: !!,?3,"Patient: ",?12,$P(IBPAT,"^",1),?55,$P(IBPAT,"^",2),?70,$P(IBPAT,"^",5),?77,Y,?92,$E($P(IBPAT,"^",4),1,11),?107,"Home: ",$P($G(^DPT(IBDFN,.13)),"^",1)
  • Line Location: P1+15
Function Call: WRITE
  • Prompt: !,?3,"Employed: ",?13,$S(IBZ="P":"Patient: ",1:"Spouse: "),?22,$P(IBEMPED,"^",1),?55,$P(IBEMPED,"^",4),?70,$E($P(IBEMPED,"^",2),1,19),?92,$E($P(IBEMPED,"^",3),1,11)
  • Line Location: P1+20
Function Call: WRITE
  • Prompt: ?107,"Work: ",$P($G(^DPT(IBDFN,.13)),"^",2)
  • Line Location: P1+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: IBHDR,IBBEGE," - ",IBENDE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,IBDSH,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"TASK STOPPED BY USER",!!
  • Line Location: STOP+1
Info |  Source |  Entry Points |  Interaction Calls