PRCAUTL ;SF-ISC/YJK-AR UTILITY ROUTINES ;8/16/95 11:41 AM
Source file <PRCAUTL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SETTR | ;Set a new transaction number. Return PRCAEN,X,DA
|
|
BILL | ;Look up a bill number - return PRCABN
|
|
BILLN | ||
EXIT | ||
DEBTOR | ;Check a debtor name,active address and other debtor's info.
|
|
DEBNAM | ||
DEBADDR | ||
PATTR | ;This transfers the pat# field in the file 430 to FILE 433
|
|
PATR1 | ||
TRANUP | ;update the fiscal year amounts (file 430) from trans.file (433).
|
|
UNIT | ;move the DESCRIPTION field in the 430 to 433.
|
|
TRUNIT | ;transfer the DESCRIPTION field in the 433 to 430.
|
|
UPATDD | ;delete 433,"ATD" cross-reference of old debtor
|
|
UPATDS | ;set 433,"ATD" cross-reference of new debtor
|
|
EMERES(DFN) | ;This code flags a patient that is a victim of an emergent crisis.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PRCA(430 - [#430] | Classic Fileman Calls |
^PRCA(433 - [#433] | Classic Fileman Calls |