VSITVID ;ISL/dee - Computes the Visit Id ;4/17/97
Source file <VSITVID.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETVID() | ;Sets the VSIT("VID") node with the next unique Visit Id
|
|
NEXT(SEQNUMB) | ;Pass in the last sequence number and returns the next unique number in the sequence
|
|
NEXTDIG | ||
TEST | ;This prints every 100,000 number in base 27 then base 10
|
|
TESTNEXT | ||
FIXVID(VSITIEN) | ;If the Visit ID is not valued then get a new id and store it
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^AUPNVSIT - [#9000010] | CHK^DIE |