©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
TIUPS120 ; SLC/JER - Post-install for TIU*1*120 ; 12-JUL-2001 10:59
Source file <TIUPS120.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | $$FMADD^XLFDT UPDATE^XPDID BMES^XPDUTL |
| Text Integration Utility | 1 | $$ISDS^TIULX |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN | ; Control Subroutine
|
|
| GETSTX | ||
| FIX(TIUDAD,TIUDA) | ; Make TIUDA an addendum of TIUDAD
|
|
| ADDLIST(TIUDA) | ; If Multiple Discharge Summaries are present, add to list
|
|
| COUNT(DFN,TTL,VSTR) | ; How many are there
|
|
| GETSTART() | ; Find out when Patch TIU*1*100 was installed
|
|
| GATHER(TIUIDT) | ; Fetch list of summaries to fix
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925 - [#8925] | GATHER+2, GATHER+4, GATHER+5, ADDLIST+2, ADDLIST+9, ADDLIST+10, COUNT+2, COUNT+3 |
| ^XPD(9.7 - [#9.7] | GETSTART+4, GETSTART+5 |
| ^XTMP("TIUPS120" | MAIN+4*, MAIN+7, MAIN+8, MAIN+11, MAIN+13, GATHER+10*, ADDLIST+15, ADDLIST+16*, ADDLIST+17*, GETSTART+2 |
| Name | Line Occurrences |
|---|---|
| $$COUNT | ADDLIST+5 |
| $$GETSTART | MAIN+5 |
| ADDLIST | GATHER+9 |
| FIX | MAIN+14 |
| GATHER | MAIN+6 |
| GETSTX | GETSTART+3 |
| Name | Field # of Occurrence |
|---|---|
| ^(12 | ADDLIST+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COUNT | ADDLIST+1~, ADDLIST+5*, ADDLIST+6 |
| DA | FIX+1~, FIX+2* |
| DFN | COUNT~, COUNT+2 |
| DIE | FIX+1~, FIX+2* |
| DR | FIX+1~, FIX+2* |
| DT | MAIN+4 |
| INSTDA | GETSTART+1~*, GETSTART+4*, GETSTART+5 |
| TIUCNT | MAIN+1~*, MAIN+14*, MAIN+15, ADDLIST+1~, ADDLIST+8*, ADDLIST+13*, ADDLIST+14 |
| TIUD0 | GATHER+5~*, GATHER+7, ADDLIST+1~, ADDLIST+2*, ADDLIST+3, ADDLIST+5, ADDLIST+9, COUNT+3~*, COUNT+5 |
| TIUD01 | ADDLIST+1~, ADDLIST+10~*, ADDLIST+12 |
| TIUD12 | ADDLIST+1~, ADDLIST+2*, ADDLIST+3 |
| TIUDA | MAIN+12~*, MAIN+13*, MAIN+14, GATHER+3~*, GATHER+4*, GATHER+5, GATHER+9, ADDLIST~, ADDLIST+2, COUNT+1~* , COUNT+2*, COUNT+3, FIX~, FIX+2 |
| TIUDA1 | ADDLIST+1~, ADDLIST+8*, ADDLIST+9*, ADDLIST+10, ADDLIST+14, ADDLIST+15, ADDLIST+16 |
| TIUDAD | MAIN+1~, MAIN+10*, MAIN+11*, MAIN+13, MAIN+14, ADDLIST+14*, ADDLIST+15, ADDLIST+16, FIX~ |
| TIUDT | MAIN+1*, GATHER+1~*, GATHER+2*, GATHER+4, GATHER+10 |
| TIUIDT | MAIN+1~, MAIN+5*, MAIN+6, GATHER~, GATHER+2 |
| TIUVSTR | ADDLIST+1~, ADDLIST+3*, ADDLIST+5, ADDLIST+9 |
| TIUY | COUNT+1~*, COUNT+6*, COUNT+7, GETSTART+1~, GETSTART+2*, GETSTART+3, GETSTART+5*, GETSTX |
| TTL | COUNT~, COUNT+2 |
| U | MAIN+4, MAIN+8, ADDLIST+3, ADDLIST+5, ADDLIST+9, ADDLIST+12, COUNT+5, GETSTART+5 |
| VSTR | COUNT~, COUNT+2 |
| XPDIDTOT | MAIN+1~, MAIN+8* |
| XPDIDVT | MAIN+1~, MAIN+2*, MAIN+8* |