Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$S^%ZTLOAD  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBOEMP  IBOEMP1  

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

External References

Name Field # of Occurrence
$$S^%ZTLOAD STOP+1
^DIR PAUSE+2

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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" P1+14
^DPT - [#2] P1+15, P1+21
^TMP("IBEMP" P1+1, P1+2, P1+3, P1+6, P1+12, P1+13, P1+14, P1+18, P1+19

Label References

Name Line Occurrences
$$STOP HDR+1
HDR IBOEMP2+13, P1+3, P1+13, P1+18
PAUSE P1+22, HDR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PAUSE+2!
DIR(0 PAUSE+2*
>> DIRUT PAUSE+2
>> DUOUT PAUSE+2
IBADD P1+6*, P1+7, P1+23!
IBADDN P1+2*, P1+3, P1+6, P1+12, P1+13, P1+18, P1+23!
>> IBBEGE HDR+2
>> IBCDT HDR+3
IBCNT P1+2*, P1+23!
IBDFN P1+13*, P1+14, P1+15, P1+18, P1+19, P1+21, P1+23!
>> IBDSH P1+3, HDR+3
IBE P1+8*, P1+9, P1+23!
IBEMPED P1+19*, P1+20, P1+23!
>> IBENDE HDR+2
>> IBHDR HDR+2, HDR+3
>> IBHDR1 HDR+3
IBI P1+7*, P1+23!
>> IBLN P1+3*, P1+6*, P1+9*, P1+13, P1+14*, P1+18, P1+19*, HDR+2*
IBLNG P1+6*, P1+8*, P1+9*, P1+23!
IBP P1+7*, P1+8*, P1+23!
IBPAT P1+14*, P1+15, P1+23!
>> IBPGN HDR+1, HDR+2*, HDR+3, STOP+1
IBPTNM P1+12*, P1+13, P1+18, P1+23!
IBQ P1+2, P1+3, P1+12, P1+13, P1+18, P1+22, P1+23!, HDR+1*, PAUSE+2*
IBT P1+8, P1+9*, P1+23!
IBW P1+1*, P1+23!
IBX P1+2*, P1+3*, P1+6, P1+12, P1+13, P1+18, P1+23!
IBY P1+23!
IBZ P1+18*, P1+19, P1+20, P1+21, P1+23!
IOF HDR+1
IOM P1+1, P1+9, HDR+2, HDR+3
IOSL P1+3, P1+13, P1+18
IOST HDR+1, PAUSE+1
X P1+23!
Y P1+14*, P1+15, P1+23!
>> ZTQUEUED STOP+1
ZTREQ STOP+1!
>> ZTSTOP STOP+1*, STOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All