IBDFDBS ;ALB/RMO/CJM - Database Server Utilities; [ 03/23/95 11:08 AM ]
Source file <IBDFDBS.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 4 | $$GET1^DID (CHK,FILE,UPDATE)^DIE ($$IENS,CLEAN)^DILF $$EXTERNAL^DILFD |
Package | Total | Caller Graph |
---|---|---|
Automated Information Collection System | 1 | IBDECLN |
Name | Comments | DBIA/ICR reference |
---|---|---|
TESTVAL(FILE,FIELD,VALUE) | ;
|
|
UPD(FILE,IBDFDA,DATA,ERROR) | ;File data into an existing record.
; Input: ; FILE - File or sub-file number ; IBDFDA - New name for traditional DA array, with same meaning. ; Pass by reference. ; DATA - Data array to file (pass by reference) ; Format: DATA(<field #>)=<value> |
|
ADD(FILE,IBDFDA,DATA,ERROR,IEN) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DATA | UPD~, ADD~ |
DATA( | UPD+24, UPD+25, ADD+33, ADD+34 |
>> DIERR | UPD+27, UPD+32, ADD+37 |
DISPLAY | TESTVAL+5~, TESTVAL+9*, TESTVAL+10 |
ERROR | UPD~, UPD+21*, UPD+28*, UPD+30*, ADD~, ADD+38*, ADD+42* |
ERRORS | UPD+16~, ADD+23~ |
ERRORS(1 | UPD+28, ADD+38 |
FDA | UPD+16~, ADD+23~ |
FDA( | UPD+25*, ADD+34* |
FIELD | UPD+16~, UPD+23*, UPD+24*, UPD+25, ADD+23~, ADD+32*, ADD+33*, ADD+34, TESTVAL~, TESTVAL+3 , TESTVAL+9, TESTVAL+12, TESTVAL+13 |
FILE | UPD~, UPD+25, ADD~, ADD+34, TESTVAL~, TESTVAL+3, TESTVAL+9, TESTVAL+12, TESTVAL+13 |
IBDFDA | UPD~, UPD+21, UPD+22, ADD~, ADD+30*, ADD+31, ADD+44* |
IEN | ADD~, ADD+35, ADD+39*, ADD+41*, ADD+44, ADD+45 |
IENA | ADD+23~ |
IENA(1 | ADD+35*, ADD+41 |
IENS | UPD+16~, UPD+22*, UPD+25, ADD+23~, ADD+31*, ADD+34 |
RESULT | TESTVAL+5~, TESTVAL+13 |
VALID | TESTVAL+5~, TESTVAL+6*, TESTVAL+10*, TESTVAL+12, TESTVAL+13*, TESTVAL+14 |
VALUE | TESTVAL~, TESTVAL+9, TESTVAL+13 |