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 |