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! |