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

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

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
Info |  Source |  Entry Points |  Interaction Calls