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