IBEMTSCR ;ALB/RFJ-print billable types for visit copay ;23 Nov 01
Source file <IBEMTSCR.m>
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|