IBJTU2 ;ALB/ARH - TPI UTILITIES ;6/6/03 1:05pm
Source file <IBJTU2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PAT() | ; select patient, only allows patient's that have bills - returns DFN^NAME if patient selected, 0 otherwise
|
|
BILL() | ; select bill, returns bill IFN^BILL NUMBER or 0 if none selected
|
|
PB() | ; select either a patient name (must have a bill) or bill number
; if patient chosen: returns "1^"_DFN, if bill chosen: returns "2^"_IBIFN, 0 otherwise |
|
PB1 | ||
PBQ | ||
RCANC(IBIFN,ARR,WDTH) | ; if bill cancelled returns ARR = IBIFN ^ PTR TO 200 ^ INITIALS OF WHO CANCELLED IN IB
; ARR(X) = REASON CANCELLED with line width passed in |
|
RCANCQ | ||
DR(DB,DE) | ; get a date range from the user, DB is default begin date (FM), DE is default end date
; returns "begin dt ^ end dt" in FM format, or "" if two valid dates are not entered |
|
DRQ |
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^DGCR(399 - [#399] | Classic Fileman Calls |