©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
TIUPNCV8 ;SLC/DJP - PNs ==> TIU cnv rtns ;10/5/98 15:25
Source file <TIUPNCV8.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | ^DIC ^DIE ^DIK EN^DIQ1 |
| Text Integration Utility | 3 | SEND^TIUALRT SETFIELD^TIUPNCV1 (ERRORLOG,TITLE)^TIUPNCV3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RTNODE | ;Sets 0 Node for TIU record
|
|
| COPY | ;Writes data from ^GMR(121,GMRPIFN --> ^TIU(8925,TIUIFN
|
|
| COSET | ;Sets ^TIU(8925 co-signature fields if required
|
|
| CLEANREC | ;Cleans partition after entry of record
|
|
| DRIVER | ;Entry point
|
|
| SIGSET | ;Sets ^TIU(8925 signature fields
|
|
| 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 |
|
| CLEANUP | ;Kills variables and scratch files
|
|
| TEXT | ;Copies text
|
|
| WIPEOUT | ;Clears ^TIU(8925 if record is found to be incomplete
|
|
| MAIN | ;Main loop for each record
|
| FileNo | Call Tags |
|---|---|
| ^TIU(8925 - [#8925] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | MAIN+12 |
| ^GMR(121 | MAIN+7, MAIN+26*, TIUFLDS+32, TEXT+4 |
| ^TIU(8925 - [#8925] | TEXT+2*, TEXT+4* |
| ^TMP("TIUBRK" | CLEANREC+2! |
| ^TMP("TIUHOLD" | TEXT+1, TEXT+2, TEXT+3! |
| ^TMP("TIUIFN" | DRIVER+5*, CLEANUP+2!, WIPEOUT+2!, RTNODE+3* |
| ^TMP("TIUMERGE" | TEXT+3! |
| Name | Line Occurrences |
|---|---|
| CLEANREC | MAIN+13, MAIN+15, MAIN+16, MAIN+27, WIPEOUT+5 |
| COPY | MAIN+20 |
| COSET | MAIN+22 |
| MAIN | DRIVER+6 |
| RTNODE | MAIN+16 |
| SIGSET | MAIN+22 |
| TEXT | MAIN+21 |
| TIUFLDS | MAIN+10 |
| WIPEOUT | MAIN+17, MAIN+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ATH | CLEANREC+1! |
| BADREC | MAIN+6!, MAIN+9!, MAIN+15, MAIN+16, MAIN+17, MAIN+20, CLEANREC+1! |
| C1 | CLEANREC+1! |
| C2 | CLEANREC+1! |
| C3 | CLEANREC+1! |
| >> DA | MAIN+1*, MAIN+20*, WIPEOUT+1* |
| DIC | MAIN+1!*, RTNODE+1* |
| DIC(0 | RTNODE+1* |
| >> DIE | MAIN+20* |
| DIK | WIPEOUT+1*! |
| >> DIQ | MAIN+1* |
| >> DIQ(0 | MAIN+2* |
| >> DLAYGO | RTNODE+1* |
| >> DR | MAIN+2*, COPY+1*, COPY+2*, COPY+3*, COPY+5*, SIGSET+1*, COSET+1* |
| ESIG | CLEANREC+1! |
| GMRPCTR | DRIVER+3*, CLEANUP+1! |
| GMRPFLD | CLEANUP+1!, TEXT+4 |
| GMRPIFN | DRIVER+5, CLEANUP+1!, MAIN+1, MAIN+4, MAIN+5, MAIN+7, MAIN+8, MAIN+26, CLEANREC+2, WIPEOUT+2 , TIUFLDS+16, TIUFLDS+17, TIUFLDS+18, TIUFLDS+19, TIUFLDS+20, TIUFLDS+21, TIUFLDS+22, TIUFLDS+24, TIUFLDS+25, TIUFLDS+26 , TIUFLDS+27, TIUFLDS+28, TIUFLDS+29, TIUFLDS+30, TIUFLDS+31, TIUFLDS+32, RTNODE+3, TEXT+1, TEXT+2, TEXT+3 , TEXT+4 |
| GMRPST | DRIVER+4*, CLEANUP+1! |
| NEWNODE | DRIVER+5, CLEANUP+1!, MAIN+16 |
| P1 | CLEANREC+1! |
| P2 | CLEANREC+1! |
| P3 | CLEANREC+1! |
| P4 | CLEANREC+1! |
| P5 | CLEANREC+1! |
| PN | MAIN+6!, MAIN+9!, CLEANREC+1! |
| PN(121 | MAIN+4, MAIN+7, MAIN+8, TIUFLDS+16, TIUFLDS+17, TIUFLDS+18, TIUFLDS+19, TIUFLDS+20, TIUFLDS+21, TIUFLDS+22 , TIUFLDS+24, TIUFLDS+25, TIUFLDS+26, TIUFLDS+27, TIUFLDS+28, TIUFLDS+29, TIUFLDS+30, TIUFLDS+31, TIUFLDS+32 |
| PNT | CLEANREC+1! |
| PROBLEM | MAIN+5*, MAIN+6!, MAIN+8*, MAIN+9! |
| REDO | DRIVER+5, CLEANUP+1! |
| TIU | CLEANREC+1! |
| TIU( | MAIN+12, TIUFLDS+17*, TIUFLDS+18*, RTNODE+1, COPY+1 |
| TIU("BAD" | RTNODE+2* |
| TIU("COSCHART" | TIUFLDS+30* |
| TIU("INDY" | MAIN+25 |
| TIU("MHCONV" | TIUFLDS+20* |
| TIU("PARENT" | TIUFLDS+32*, COPY+2 |
| TIU("SIGCHART" | TIUFLDS+26* |
| TIU("SPECDT" | TIUFLDS+33* |
| TIU("SSN" | MAIN+12* |
| TIU("SSN4" | MAIN+12*, MAIN+13 |
| TIU("TITLE" | TIUFLDS+21* |
| TIU(1201 | TIUFLDS+16*, TIUFLDS+33, COPY+3 |
| TIU(1202 | TIUFLDS+22*, COPY+3 |
| TIU(1204 | TIUFLDS+22*, COPY+3 |
| TIU(1205 | TIUFLDS+31*, COPY+3 |
| TIU(1208 | COPY+1 |
| TIU(1211 | TIUFLDS+31*, COPY+3 |
| TIU(1301 | TIUFLDS+18*, COPY+3 |
| TIU(1302 | TIUFLDS+19*, COPY+3 |
| TIU(1303 | TIUFLDS+23*, COPY+3 |
| TIU(1501 | TIUFLDS+25*, SIGSET+1 |
| TIU(1502 | TIUFLDS+24*, SIGSET+1 |
| TIU(1505 | MAIN+22, SIGSET+1 |
| TIU(1506 | TIUFLDS+27*, COPY+1, COSET+1 |
| TIU(1507 | TIUFLDS+29*, COSET+1 |
| TIU(1508 | TIUFLDS+28*, COSET+1 |
| TIU(1511 | MAIN+22, COSET+1 |
| TIU(1512 | TIUFLDS+26*, SIGSET+1 |
| TIU(1513 | TIUFLDS+30*, COSET+1 |
| TIUCTR | DRIVER+3*, CLEANUP+1!, MAIN+25* |
| TIUD | CLEANREC+1! |
| >> TIUFPRIV | DRIVER+1* |
| >> TIUIFN | DRIVER+5*, MAIN+20, MAIN+24, MAIN+26, WIPEOUT+1, RTNODE+3*, TEXT+2, TEXT+4 |
| TIUNEWTY | COPY+5! |
| TIUNM | CLEANREC+1! |
| TIUT | CLEANREC+2! |
| TMSG | CLEANREC+2! |
| TYP | CLEANREC+2! |
| U | DRIVER+2*, MAIN+12 |
| >> X | RTNODE+1* |
| >> Y | RTNODE+2, RTNODE+3 |