TIUMAP ; ISL/JER - TIU/VHA Enterprise Document Type Ontology Mapper ; 04/18/07
Source file <TIUMAP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MAIN | ; Main subroutine
|
|
PROGRESS(MAPPED,ACTIVE) | ; Figure out progress
|
|
STOPS | ; Get the stops
|
|
PAD(MESSAGE,SIDE) | ; Compute pad for message
|
|
LOOP | ; Loop sequentially through titles
|
|
SINGLES | ; Map specific INDIVIDUAL titles
|
|
LTTL() | ; Call DIC to look-up title
|
|
ACTCNT() | ; Get count of active titles
|
|
MAPTCNT() | ; Get count of mapped titles
|
|
ACTIVE(TIUDA) | ; Is a given title active?
|
|
MAP(TIUDA,TIUNM) | ; Map each LOCAL Title
|
|
LOINCNM(TIULDA) | ; Resolve name of VHA Enterprise Title
|
|
POINT(DA,RESULT) | ; Point the LOCAL Title entry in file #8925.1 at the VHA Enterprise Title
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^TIU(8925.1 - [#8925.1] | Classic Fileman Calls |