TIUPNCV8 ;SLC/DJP - PNs ==> TIU cnv rtns ;10/5/98 15:25
Source file <TIUPNCV8.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DRIVER | ;Entry point
|
|
| CLEANUP | ;Kills variables and scratch files
|
|
| MAIN | ;Main loop for each record
|
|
| 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
; .01 FILE ENTRY DATE ; .02 PATIENT ; 1201 ENTRY DATE/TIME ; 1202 AUTHOR/DICTATOR - 2 AUTHOR ; 1204 EXPECTED SIGNER - 2 AUTHOR ; 1205 HOSPITAL LOCATION - 9 LOCATION ; 1301 REFERENCE DATE - .03 DATE/TIME OF PROGRESS NOTE ; 1302 ENTERED BY - .05 TRANSCRIBER ; 1501 SIGNATURE DATE/TIME - 4 DATE/TIME SIGNED ; 1502 SIGNED BY - 3 ELECTRONIC SIGNATURE (AUTHOR) ; 1506 COSIGNATURE NEEDED - 5 COSIGNATURE REQUIRED ; 1507 COSIGNATURE DATE/TIME - 7 DATE/TIME COSIGNED ; 1508 COSIGNED BY - 6 COSIGNER ; 1512 MARKED SIGNED ON CHART BY - 4.1 SIGNATURE IN CHART ; 1513 MARKED COSIGNED ON CHART BY - 7.1 COSIGNATURE IN CHART |
|
| 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
|
|
| COSET | ;Sets ^TIU(8925 co-signature fields if required
|
