TIUPS137 ; SLC/MAM - After installing TIU*1*137;6/26/03
Source file <TIUPS137.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 4 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD XREF^XQORM |
| VA Fileman | 3 | ^DIC (,FILE)^DIE ^DIR |
| Text Integration Utility | 2 | SETDATA^TIU137D (SETXTMP,TIUDUPS)^TIUEN137 |
| Authorization Subscription | 1 | MAIN^USRPS23 |
| Package | Total | Caller Graph |
|---|---|---|
| Text Integration Utility | 1 | TIU137 DDEFS & RULES, ANATPATH |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAINX | ;Exit
|
|
| BEGIN | ; Create DDEFS
|
|
| ADDITEM(NUM,TIUDA,TMPCNT) | ||
| CREATE(NUM) | ; Create new DDEF entry
|
|
| FILE(NUM,TIUDA,TMPCNT) | ; File fields for new entry TIUDA
; Files ALL FIELDS set in "FILEDATA" nodes of ^XTMP: ; ^XTMP("TIU137","FILEDATA",NUM,Field#) |
|
| PARENTX | ||
| PRINTX | ||
| ADDX | ; -- Tell user about adding to parent:
|
|
| SETCONT() | ; D form feed, Set TIUCONT
|
|
| ; Print out results
|
||
| SERIAL | ; Serialize Menu Items of Class Clinical Documents
|
|
| MAIN | ; Create DDEFS for Laboratory Reports
; -- Check for dups created after the install but before this option: |
|
| SETX | ||
| PARENT(NUM) | ; Return IEN of parent new DDEF should be added to
|
|
| STOP() | ;on screen paging check
; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^TIU(8925.1 - [#8925.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925.1 - [#8925.1] | SERIAL+7, ADDITEM+5 |
| ^TMP("TIU137" | MAIN+2!, MAIN+5*, MAIN+6*, MAIN+7*, MAIN+13*, MAIN+14*, MAIN+24*, MAIN+25*, MAIN+31*, MAIN+32* , MAIN+33*, MAIN+34*, MAINX+1*, MAINX+2*, MAINX+5!, PRINT+5, PRINT+7, ADDX+2*, ADDX+3*, ADDX+4* , FILE+7*, FILE+8* |
| ^TMP("USR23" | MAINX+5!, PRINT+10, PRINT+12 |
| ^XTMP("TIU137" | MAIN+2!, MAIN+12*, MAIN+18, MAIN+22, MAIN+24, MAIN+26!, MAIN+27!, MAIN+31, MAIN+33, MAIN+38! , MAIN+41!, MAINX+3, PARENT+6, PARENT+10, PARENT+14, ADDITEM+15, ADDITEM+20, FILE+5, CREATE+6, CREATE+7 , CREATE+10* |
| Name | Line Occurrences |
|---|---|
| $$CREATE | MAIN+29 |
| $$PARENT | ADDITEM+4 |
| $$SETCONT | PRINT+6, PRINT+11 |
| $$STOP | SETCONT+4 |
| ADDITEM | MAIN+40 |
| ADDX | ADDITEM+5, ADDITEM+18 |
| FILE | MAIN+37 |
| MAIN | BEGIN+10 |
| MAINX | MAIN+11 |
| PARENTX | PARENT+8 |
| MAINX+4 | |
| SERIAL | ADDX+7 |
| SETX | SETCONT+3, SETCONT+4, SETCONT+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | BEGIN+3* |
| D | SERIAL+2~, ADDITEM+23~ |
| D0 | SERIAL+2~, ADDITEM+23~ |
| DA | SERIAL+2~, SERIAL+5*, SERIAL+7*, ADDITEM+6~, ADDITEM+22~, ADDITEM+25*, CREATE+1~ |
| DA(1 | SERIAL+5*, ADDITEM+8*, ADDITEM+9, ADDITEM+24* |
| DI | SERIAL+2~, ADDITEM+23~ |
| DIC | ADDITEM+6~, ADDITEM+9*, ADDITEM+25, CREATE+1~, CREATE+5* |
| DIC("S" | CREATE+7* |
| DIC(0 | ADDITEM+9*, CREATE+6* |
| DIE | SERIAL+2~, SERIAL+6*, ADDITEM+2~, ADDITEM+22~, ADDITEM+25* |
| DIR | STOP+2~ |
| DIR(0 | STOP+3* |
| DIY | ADDITEM+7~ |
| DLAYGO | ADDITEM+6~, ADDITEM+10*, CREATE+1~, CREATE+5* |
| DQ | SERIAL+2~, ADDITEM+23~ |
| DR | SERIAL+2~, SERIAL+8*, ADDITEM+2~, ADDITEM+22~, ADDITEM+26* |
| FDA | FILE+3~ |
| FDA( | FILE+5* |
| I | ADDITEM+7~ |
| IEN | MAIN+19~, MAIN+22*, MAIN+23 |
| IO | BEGIN+10 |
| IO("Q" | BEGIN+4! |
| IOF | PRINT+3, STOP+5, SETCONT+6 |
| IOP | BEGIN+3! |
| IOSL | SETCONT+3, SETCONT+5 |
| IOST | PRINT+3, SETCONT+3, SETCONT+4 |
| MENUTXT | ADDITEM+1~, ADDITEM+20*, ADDITEM+21 |
| NUM | MAIN+17~*, MAIN+18*, MAIN+22, MAIN+24, MAIN+26, MAIN+27, MAIN+29, MAIN+31, MAIN+33, MAIN+37 , MAIN+38, MAIN+40, MAIN+41, PARENT~, PARENT+6, PARENT+10, ADDITEM~, ADDITEM+4, ADDITEM+15, ADDITEM+20 , ADDX+7, FILE~, FILE+5, CREATE~, CREATE+6, CREATE+7, CREATE+10 |
| ORULT | SERIAL+12~ |
| PIEN | PARENT+1~, PARENT+6*, PARENT+8, PARENT+14*, PARENTX, ADDITEM+1~, ADDITEM+4*, ADDITEM+5!, ADDITEM+8, ADDITEM+18! , ADDITEM+24, ADDX+1 |
| PNUM | PARENT+1~, PARENT+10*, PARENT+11, PARENT+14 |
| POP | BEGIN+3! |
| SILENT | MAIN+4~, MAIN+8*, MAIN+9 |
| TIUCNT | PRINT+1~, PRINT+4*, PRINT+5*, PRINT+7, PRINT+9*, PRINT+10*, PRINT+12 |
| TIUCONT | PRINT+1~, PRINT+4*, PRINT+5, PRINT+6*, PRINT+8, PRINT+10, PRINT+11*, STOP+2~, STOP+4*, STOP+5 , STOP+6, SETCONT+1~, SETCONT+2*, SETCONT+4*, SETX |
| TIUDA | MAIN+19~, MAIN+35*, MAIN+37, MAIN+40, ADDITEM~, ADDITEM+5, ADDITEM+17, FILE~, FILE+5 |
| TIUDUPS | MAIN+4~, MAIN+9, MAIN+11 |
| TIUERR | FILE+3~, FILE+7 |
| TIUFISCR | ADDITEM+1~, ADDITEM+17* |
| TIUFPRIV | SERIAL+4~, SERIAL+5*, ADDITEM+1~, ADDITEM+3*, FILE+3~, FILE+4*, CREATE+1~, CREATE+2* |
| TIUI | SERIAL+4~, SERIAL+5*, SERIAL+8* |
| TMPCNT | MAIN+4~*, MAIN+5*, MAIN+6*, MAIN+7*, MAIN+13*, MAIN+14*, MAIN+24*, MAIN+25*, MAIN+31*, MAIN+32* , MAIN+33*, MAIN+34*, MAIN+37, MAIN+40, MAINX+1*, MAINX+2*, ADDITEM~, ADDX+2*, ADDX+3*, ADDX+4* , FILE~, FILE+7*, FILE+8* |
| U | MAIN+30, ADDITEM+18, CREATE+10 |
| X | SERIAL+2~, SERIAL+12~, ADDITEM+6~, ADDITEM+15*, CREATE+1~, CREATE+6* |
| XQORM | SERIAL+12~, SERIAL+13* |
| Y | STOP+2~, STOP+4, SERIAL+2~, SERIAL+12~, ADDITEM+6~, ADDITEM+18, ADDITEM+25, CREATE+1~, CREATE+10, CREATE+11 |
| YDDEF | MAIN+19~, MAIN+29*, MAIN+30, MAIN+35 |
| ZTDESC | BEGIN+6*, BEGIN+8! |
| ZTDTH | BEGIN+8! |
| ZTIO | BEGIN+8! |
| >> ZTQUEUED | PRINT+2 |
| >> ZTREQ | PRINT+2* |
| ZTRTN | BEGIN+5*, BEGIN+8! |
| ZTSAVE | BEGIN+8! |
| ZTSK | BEGIN+7, BEGIN+8! |