Routine: IBEMTSCR

Information

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

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

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