Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: IBSDU

Package: Integrated Billing

Routine: IBSDU


Information

IBSDU ;ALB/TMP - ACRP API UTILITIES ;16-SEP-97

Source Information

Source file <IBSDU.m>

Entry Points

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)
  • ICR #2351
    • Status: Active
    • Usage: Private
    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
    Info |  Source |  Entry Points