IBSDU ;ALB/TMP - ACRP API UTILITIES ;16-SEP-97
Source file <IBSDU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SCAN(IBINDX,IBVAL,IBFILTER,IBCBK,IBCLOSE,IBQUERY,IBDIR,IBZXERR) | ; Scan encountrs
; *** NOTE *** When using this call, the variable passed as IBQUERY ; must be newed or killed in the calling program ; IBINDX = index name property of the query object ; IBVAL = array of data elements for start/end of search ; IBVAL("DFN") = patient DFN ; IBVAL("BDT") = begin date ; IBVAL("EDT") = end date ; IBVAL("VIS") = encounter file ien ; IBFILTER = the executable code to use to screen entries ; IBCBK = the executable scan callback code to create the result set ; IBCLOSE = Flag that says whether or not to close the QUERY object ; 1 = Perform close 0 or null = Do not close object ; IBQUERY = the # of the current query, if not a new query. If passed ; by reference and query closed, this variable will be nulled ; IBDIR = the direction of the scan (optional) ; null, undefined or FORWARD : Scan forwards ; BACKWARD : Scan backwards ; IBZXERR = the name of the error array to be returned (or none if null) |
|
CLOSE(IBQUERY) | ; Close the query
|
|
CLOSEQ | ||
SETINDX(IBQUERY,IBINDX) | ;
|
|
PAT | ; Verify patient
|
|
DATE | ; Verify date range
|
|
VIS | ; Verify visit
|
|
EPTR(IBOE) | ; Function returns extended pointer for encounter (IBOE) 0-node
|
|
SCE(IBOE,PC,NODE,IBZXERR) | ; Returns the specific piece or entire node of the enctr
; NODE = the node to return ... if undefined, the 0-node is assumed ; If PC is null or undefined, the whole node is returned, otherwise ; just the PC-piece is returned ; IBZXERR = the name of the array where errors should be passed back in ; (pass in quotes I.E.: "IBERR"). If no name passed, errors are ; not returned |
|
SCEQ | ||
DISND(IBOE,IBOE0,PC,NODE) | ; Returns the specific piece or all pieces of "DIS"
; (disposition) of the PATIENT file entry for the encounter IBOE ; NODE = the node to return ... if undefined, the 0-node is assumed ; If PC is null or undefined, the whole node is returned, otherwise ; just the PC-piece is returned ; IBOE0 = 0-node of encounter file (optional) |
|
LAST(IBDFN) | ; Returns the patient's Last Appointment
; ARRAYS IN DFN MUST BE LOCAL or ^TMP or ^UTILITY ; pass in single DFN or an open array reference (local or global) ; for array of patients, array will = last appt ; if '$d(array(dfn)) returned then unknown for that patient ; Unknown - cannot be determined, N/A - patient has none ; |
|
LASTQ | ||
NEXT(IBDFN) | ; Returns the patient's Next Appointment
; ARRAYS IN DFN MUST BE LOCAL or ^TMP or ^UTILITY ; pass in single DFN or an open array reference (local or global) ; for array of patients, array will = next appt ; if '$d(array(dfn)) returned then unknown for that patient ; Unknown - cannot be determined, N/A - patient has none ; Pass DATA by reference for list or $$ return for single ; |
|
NEXTQ |