©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGSDU ;ALB/TMP - ACRP API UTILITIES ; 12/8/97 15:09
Source file <DGSDU.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | GETGEN^SDOE (ACTIVE,CLOSE,DATE,FILTER,INDEX,OPEN,PAT,SCAN,SCANCB,VISIT)^SDQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLOSEQ | ||
| PAT | ; Verify patient
|
|
| 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 |
|
| DATE | ; Verify date range
|
|
| 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 |
|
| VIS | ; Verify visit
|
|
| SETINDX(DGQUERY,DGINDX) | ;
|
|
| CLOSE(DGQUERY) | ; Close the query
|
|
| SCANQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIERR" | SCE+10! |
| Name | Line Occurrences |
|---|---|
| CLOSE | SCAN+31 |
| CLOSEQ | CLOSE+1 |
| DATE | SETINDX+1, SETINDX+2 |
| PAT | SETINDX+1, SETINDX+3 |
| SETINDX | SCAN+27 |
| VIS | SETINDX+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGCBK | SCAN~, SCAN+25 |
| DGCLOSE | SCAN~, SCAN+31 |
| DGDIR | SCAN~, SCAN+29*, SCAN+30 |
| DGFILTER | SCAN~, SCAN+24 |
| DGINDX | SCAN~, SCAN+23, SCAN+27, SETINDX~, SETINDX+1, SETINDX+2, SETINDX+3, SETINDX+4 |
| DGOE | SCE~, SCE+9 |
| DGQUERY | SCAN~, SCAN+20, SCAN+22, SCAN+23, SCAN+24, SCAN+25, SCAN+26, SCAN+27, SCAN+28, SCAN+30 , SCAN+31, CLOSE~, CLOSE+1, CLOSE+2, SETINDX~, PAT+1, DATE+1, VIS+1 |
| DGVAL | SCAN~ |
| DGVAL("BDT" | DATE+1 |
| DGVAL("DFN" | PAT+1 |
| DGVAL("EDT" | DATE+1 |
| DGVAL("VIS" | VIS+1 |
| DGX | SCE+7~, SCE+11*, SCE+12 |
| DGX( | SCE+11 |
| NODE | SCE~, SCE+8*, SCE+11 |
| PC | SCE~, SCE+11 |
| QUERY | SCAN+19~, SCAN+20*, SCAN+21, SCAN+26 |
| U | SCE+11 |
| ZXERR | SCE~, SCE+9, SCE+10 |