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: DGSDU

Package: Registration

Routine: DGSDU


Information

DGSDU ;ALB/TMP - ACRP API UTILITIES ; 12/8/97 15:09

Source Information

Source file <DGSDU.m>

Entry Points

Name Comments DBIA/ICR reference
SCAN(DGINDX,DGVAL,DGFILTER,DGCBK,DGCLOSE,DGQUERY,DGDIR) ; Scan encounters
; *** NOTE *** When using this call, the variable passed as DGQUERY
; must be newed or killed in the callling program
; DGINDX = index name property of the query object
; DGVAL = array of data elements for start/end of search
; DGVAL("DFN") = patient DFN
; DGVAL("BDT") = begin date
; DGVAL("EDT") = end date
; DGVAL("VIS") = encounter file ien
; DGFILTER = the executable code to use to screen entries
; DGCBK = the executable scan callback code to create the result set
; DGCLOSE = Flag that says whether or not to close the QUERY object
; 1 = Perform close 0 or null = Do not close object
; DGQUERY = the # of the current query, if not a new query. If passed by
; reference and query closed, this variable will be nulled
; DGDIR = the direction of the scan (optional)
; null, undefined or FORWARD : Scan forwards
; BACKWARD : Scan backwards
  • ICR #5894
    • Status: Active
    • Usage: Private
    SCANQ
    CLOSE(DGQUERY) ; Close the query
    CLOSEQ
    SETINDX(DGQUERY,DGINDX) ;
    PAT ; Verify patient
    DATE ; Verify date range
    VIS ; Verify visit
    SCE(DGOE,PC,NODE,ZXERR) ; 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
    ; DGERR = the name of the array where errors should be passed back in
    ; (pass in quotes I.E.: "DGERR"). If no name passed, errors are
    ; not returned
    Info |  Source |  Entry Points