PSAVER3 ;BIR/JMB-Verify Invoices - CONT'D ;9/5/97
Source file <PSAVER3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SETLINE | ;Set line as verified if all data is present.
|
|
SUPPLY | ;If it is a supply, automatically verify it.
|
|
NEWDRUG | ;Store in array if drug is new to location/vault
|
|
NOTSUP | ;If it is not a supply, look for drug, qty, dispense units, dispense
|
|
GOOD | ;If no errors found, verify invoice.
|
|
;Prints verification error list
|
||
PRN | ;Entry point to print verification errors
|
|
NOVER | ;Prints errors
|
|
HDR | ;Prints header
|
|
STATUS | ;Sets invoice's status to Verified
|
|
VERIFY | ;Set line item to verified
|
|
VERIFY1 | ;NEW CODE - Set adjs if entire invioce was verified
|
|
DDQOR | ;Extended help for 'Edit field'
|
|
LNHELP | ;Extended help for 'Line Number"
|
|
PRINTYN | ;Extended help for 'Print verification report'
|
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: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|