GECSSGET ;WISC/RFJ/KLD-get data from stack file ;13 Oct 98
Source file <GECSSGET.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | $$GET1^DIQ EN^DIQ1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
DATA(DOCID,CODESHET) | ; return data from stack file for docid (.01 field)
; pass codeshet=1 for code sheet data also ; data will be returned in gecsdata |
|
STATUS(DOCID) | ; return status of docid (.01 field)
; return -1 if entry not found |
|
PADSPACE(DOCID) | ; return docid with padded spaces
|
|
KEYLOOK(GECSKEY,CODESHET) | ; lookup and return document data based on a lookup key
; codeshet passed to data to return the document code sheet data |
|
GETID(IEN) | ; return .01 field of file #2100.1
|
FileNo | Call Tags |
---|---|
^GECS(2100.1 - [#2100.1] | Classic Fileman Calls, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(2100.1 | STATUS+6 |
^GECS(2100.1 - [#2100.1] | DATA+6, STATUS+4, STATUS+5, KEYLOOK+5, KEYLOOK+8 |
Name | Line Occurrences |
---|---|
$$PADSPACE | DATA+5, STATUS+3 |
DATA | KEYLOOK+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DATA+4~, STATUS+2~, PADSPACE+1~, PADSPACE+2*, PADSPACE+3*, PADSPACE+4 |
CODESHET | DATA~, DATA+8, KEYLOOK~, KEYLOOK+11 |
D0 | DATA+4~ |
DA | DATA+4~, DATA+6*, DATA+9, STATUS+2~, STATUS+4*, STATUS+5 |
DIC | DATA+4~, DATA+7* |
DIQ | DATA+4~, DATA+7* |
DIQ(0 | DATA+7* |
DIQ2 | DATA+4~ |
DOCID | DATA~, DATA+5*, DATA+6, STATUS~, STATUS+3*, STATUS+4, PADSPACE~, PADSPACE+2, PADSPACE+3 |
DR | DATA+4~, DATA+7*, DATA+8* |
GECSDA | KEYLOOK+2~, KEYLOOK+5*, KEYLOOK+6, KEYLOOK+8 |
GECSDATA | DATA+3!, DATA+9* |
GECSDOC | KEYLOOK+2~, KEYLOOK+8*, KEYLOOK+9, KEYLOOK+11 |
GECSKEY | KEYLOOK~, KEYLOOK+3, KEYLOOK+5 |
ID | GETID+2~, GETID+3*, GETID+4 |
IEN | GETID~, GETID+3 |
STATUS | STATUS+2~, STATUS+5*, STATUS+6 |