TIUPNCV ;SLC/DJP-SF/JLI ;3/3/98 14:00
Source file <TIUPNCV.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DRIVER | ;Entry point; initializes counters
|
|
RESTART | ;Restarts Progress Note conversion
|
|
CLEANUP | ;Releases Bulletin & kills variables and scratch files
|
|
STOP | ||
MAIN | ;Main loop for each record
|
|
MAIN1 | ;
|
|
CLEANREC | ;Cleans partition after entry of record
|
|
WIPEOUT | ;Clears ^TIU(8925 if record is found to be incomplete
|
|
TIUFLDS | ;Sets TIU variables with PN data
|
|
RTNODE | ;Sets 0 Node for TIU record
|
|
COPY | ;Writes data from ^GMR(121,GMRPIFN --> ^TIU(8925,TIUIFN
|
|
TEXT | ;Copies text
|
|
SIGSET | ;Sets ^TIU(8925 signature fields
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^TIU(8925 - [#8925] | Classic Fileman Calls |