VAQPSE02 ;ALB/JRP,JFP - EXPORTED PDX ROUTINE;9-FEB-94
Source file <VAQPSE02.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
IBAPDX | ;ALB/CPM - EXTRACT MEANS TEST BILLING DATA FOR PDX ; 09-APR-93
|
|
EXTR(TRAN,DFN,ARR) | ; PDX Entry Point for the data extraction.
; Input: TRAN -- Pointer to transaction in file #394.61 ; DFN -- Pointer to the patient in file #2 ; ARR -- Root for the output extract array ; Output: 0 -- Extraction was successful, or ; -1^err -- if an error was encountered during the extract. |
|
CLOCK | ; - get active billing clock data
|
|
EXTRQ |