QANCNV00 ;HISC/GJC-Conversion of data from V1.01 to V2.0 ;10/7/92
Source file <QANCNV00.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | ^DIK ^DIR |
Incident Reporting | 1 | ^QANCNV0 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN0 | ;Check file 513.73 for the existance of data.
; *** Variable list *** ; EXIST ---> Boolean, does incident data exist in global 513.72? ; QAFLG ---> Boolean, do we wish to purge converted records? ; QAFOUND ---> Boolean, do converted records exist? |
|
EXIT | ;Kill and quit.
|
|
CONVERT | ;Ask for a first time conversion.
|
|
DELETE | ;Check if any converted records exist.
|
|
DELUTL | ;Delete utility for IR data in '^PRMQ(513.72'.
|
|
PURGE | ;Delete converted records form files: 742 and 742.4.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^QA(740.5 - [#740.5] | Classic Fileman Calls |
^QA(742 - [#742] | Classic Fileman Calls |
^QA(742.4 - [#742.4] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PRMQ(513.72 | EN0+7, DELUTL+6, DELUTL+7 |
^QA(740.5 - [#740.5] | PURGE+12, PURGE+14 |
^QA(742 - [#742] | PURGE+6 |
^QA(742.4 - [#742.4] | DELETE+2, PURGE+2, PURGE+5, PURGE+11! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | EXIT+1!, DELUTL+9!*, PURGE+8!*, PURGE+10!*, PURGE+12*, PURGE+13!, PURGE+14*, PURGE+15! |
DIK | EXIT+1!, DELUTL+9!*, PURGE+8!*, PURGE+10!*, PURGE+13*!, PURGE+15*! |
DIR | EXIT+1!, CONVERT+1!, CONVERT+3!, DELETE+5!, DELETE+8!, DELUTL+1!, DELUTL+4! |
DIR("?" | CONVERT+1*, DELETE+7*, DELUTL+2* |
DIR("A" | CONVERT+2*, DELETE+6*, DELUTL+3*, DELUTL+4* |
DIR("B" | CONVERT+1*, DELETE+7*, DELUTL+2* |
DIR(0 | CONVERT+1*, DELETE+5*, DELUTL+2* |
>> DIROUT | EN0+18, CONVERT+3 |
>> DIRUT | EN0+18, CONVERT+3 |
EXIST | EN0+7*, EN0+8*, EN0+9, EN0+10, EN0+12, EN0+17*, EXIT+1!, DELETE+6 |
QA | EXIT+1!, DELETE+1*, DELETE+2*, DELETE+3, DELUTL+6*, DELUTL+7*, PURGE+1!*, PURGE+2*, PURGE+3, PURGE+5 , PURGE+6~ |
QA("FIRST" | DELETE+3*, DELETE+4, PURGE+3*, PURGE+4 |
QACONV | EXIT+1!, CONVERT+3*, CONVERT+4 |
QAFLG | EN0+10, EN0+12, EN0+20, EN0+21, EXIT+1!, DELETE+8* |
QAFOUND | EN0+6*, EN0+10, EN0+17*, EN0+19, EN0+20, EN0+21, EXIT+1!, DELETE+2, DELETE+4* |
QB | EXIT+1!, DELUTL+7*, DELUTL+8, DELUTL+9, PURGE+1!, PURGE+5*, PURGE+6, PURGE+9, PURGE+10, PURGE+11 , PURGE+14 |
QC | EXIT+1!, PURGE+1!, PURGE+6*, PURGE+7, PURGE+8, PURGE+11, PURGE+12 |
X | EXIT+1! |
Y | EXIT+1!, CONVERT+3, DELETE+8, DELUTL+5 |