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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBEMTSCR

Package: Integrated Billing

Routine: IBEMTSCR


Information

IBEMTSCR ;ALB/RFJ-print billable types for visit copay ;23 Nov 01

Source Information

Source file <IBEMTSCR.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IB MT BILLABLE STOPS  IBEMTSCU  IBOVOP2  

Entry Points

Name Comments DBIA/ICR reference
DQ ; print report
; variable ibfmail=1 to print to a mail message
; variable ibfpost=1 if from post init
SET(DATA)
SENDMSG(XMSUB,XMY) ; send message with subject and recipients
TYPE(CODE) ; return the billable type based on set of codes
ASKPRINT() ; ask to print in mail or printer
; 1 is yes, otherwise no
PAUSE ; pause at end of page
H ; header

External References

Name Field # of Occurrence
DD^%DT DQ+35
NOW^%DTC DQ+35
^%ZIS IBEMTSCR+14
^%ZISC DQ+44
^%ZTLOAD IBEMTSCR+15
^DIR ASKPRINT+5
^XMD SENDMSG+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will print the billable types for copay visits."
  • Line Location: IBEMTSCR+4
Function Call: WRITE
  • Prompt: !,"You have the option to deliver the report to yourself in MailMan"
  • Line Location: IBEMTSCR+5
Function Call: WRITE
  • Prompt: !,"or print the report to a printer or on your screen."
  • Line Location: IBEMTSCR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: IBEMTSCR+14
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: IBEMTSCR+19
Function Call: WRITE
  • Prompt: !,IBDATA
  • Line Location: DQ+42
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRINT+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+1
Function Call: WRITE
  • Prompt: $C(13),"IB VISIT COPAY BILLING TYPES",?(80-$L(%)),%
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,$TR($J("",79)," ","-")
  • Line Location: H+3
Routine Call
  • DIR
  • Line Location:
    • ASKPRINT+5
Routine Call
  • %ZIS
  • Line Location:
    • IBEMTSCR+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(352.5 - [#352.5] DQ+18, DQ+19
^TMP($J DQ+40, DQ+52!, SET+1*

Label References

Name Line Occurrences
$$ASKPRINT IBEMTSCR+9
$$SENDMSG DQ+50
$$TYPE DQ+28
H DQ+38, DQ+41
PAUSE DQ+41
SET DQ+10, DQ+11, DQ+13, DQ+15, DQ+16, DQ+17, DQ+28

Naked Globals

Name Field # of Occurrence
^( DQ+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+34~, DQ+35, H+1*, H+2
%I DQ+34~
%X SENDMSG+1~
%ZIS IBEMTSCR+8~, IBEMTSCR+14*
CODE TYPE~, TYPE+1, TYPE+2
D0 SENDMSG+1~
D1 SENDMSG+1~
D2 SENDMSG+1~
DATA SET~, SET+1
DIC SENDMSG+1~
DICR SENDMSG+1~
DIQ2 ASKPRINT+2~
DIR ASKPRINT+2~
DIR("A" ASKPRINT+4*
DIR("B" ASKPRINT+3*
DIR(0 ASKPRINT+3*
DIRUT ASKPRINT+2~
DIW SENDMSG+1~
DTIME PAUSE+1
DTOUT ASKPRINT+2~, ASKPRINT+6
DUOUT ASKPRINT+2~, ASKPRINT+6
DUZ DQ+49
IBDA DQ+3~, DQ+19*
IBDATA DQ+3~, DQ+19*, DQ+21, DQ+23, DQ+25*, DQ+26, DQ+28, DQ+40*, DQ+42
IBFLAG DQ+34~, DQ+40, DQ+41, PAUSE+1*
IBFMAIL IBEMTSCR+8~, IBEMTSCR+9*, IBEMTSCR+10, IBEMTSCR+13, DQ+33, DQ+47
IBFPOST IBEMTSCR+8~, DQ+48
IBLINE DQ+3~, DQ+8*, DQ+40*, SET+1*
IBNOW DQ+34~, DQ+35*, H+1
IBPAGE DQ+34~, DQ+36*, H+1*
IBSCREEN DQ+34~, DQ+37*, DQ+41, H+1
IBSTOP DQ+3~, DQ+18*, DQ+19
IO DQ+37, DQ+38, PAUSE+1
IO("Q" IBEMTSCR+13!, IBEMTSCR+15
IO(0 DQ+37, PAUSE+1
IOF H+1
IOSL DQ+41
IOST DQ+37
POP IBEMTSCR+8~, IBEMTSCR+13, IBEMTSCR+14
X DQ+3~, DQ+21*, DQ+23*, DQ+26*, DQ+28, DQ+34~, DQ+50*, SENDMSG+1~, ASKPRINT+2~, PAUSE+1~*
XCNP SENDMSG+1~
XMDISPI SENDMSG+1~
XMDUN SENDMSG+1~
XMDUZ SENDMSG+1~, SENDMSG+2*
XMSUB SENDMSG~
XMTEXT SENDMSG+1~, SENDMSG+2*
XMY DQ+3~, DQ+50, SENDMSG~
XMY( DQ+49*
XMY("G.IB MEA NS TEST" , DQ+48*
XMZ SENDMSG+1~, SENDMSG+4
Y DQ+34~, DQ+35*, ASKPRINT+2~, ASKPRINT+6*, ASKPRINT+7
ZTDESC IBEMTSCR+8~, IBEMTSCR+16*
ZTPAR SENDMSG+1~
ZTQUEUED IBEMTSCR+8~, DQ+37
ZTRTN IBEMTSCR+8~, IBEMTSCR+16*
ZTSAVE IBEMTSCR+8~
ZTSAVE("IBFMAIL" IBEMTSCR+17*
ZTSAVE("ZTREQ" IBEMTSCR+17*
ZTSK IBEMTSCR+13!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All