DIKCBLD ;SFISC/MKO-AUTOBUILD A ROUTINE THAT CALLS CREIXN^DDMOD ;11:30 AM 9 Jul 2002 [ 12/09/2003 4:45 PM ]
Source file <DIKCBLD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
Q1 | ||
QT(X) | ;Return string X quoted, if noncanonic
|
|
Q3 | ||
Q2 | ||
Q4 | ||
AD(X) | ;Add a routine line to ^UTILITY
|
|
ASKRTN() | ;Prompt for routine name; return ^ if timeout, null, or ^
|
|
ASKNMSP() | ;Prompt for a namespace
|
|
BCC(NS,XR,CV,ON,SUB,ND,PC) | ;Build code that sets an array element
|
|
BCW(NS,XR,SUB,ND) | ;Build code that sets array for wp field
|
|
ASKITL() | ;Ask for programmer initials
|
|
BC(NS,XR,SUB,ND,PC) | ;Build code that sets an array element
|
|
BUILD(DIKCRTN,DIKCITL,NS,XR) | ;Build routine DIKCRTN
|
|
NOW() | ;Return current time in external form
|
|
ASKXR() | ;Prompt for file/xref
|
|
MAIN | ;Main process
|
|
ASKREPL(DIKCRTN) | ;Ask whether to replace the existing routine
|
|
SAVE(DIKCRTN) | ;Save routine DIKCRTN
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | ASKRTN+12 |
^DD("IX" - [#.11] | BUILD+8, BUILD+16, BUILD+23, BUILD+25, BUILD+26, BUILD+28, BUILD+31, BC+2, BC+3, BCW+2 , BCW+3, BCC+2, BCC+3 |
^DD("OS" - [#.7] | MAIN+5, SAVE+3 |
^UTILITY($J | Q4+11!, BUILD+2!, AD+2, AD+3*, SAVE+2* |
Name | Line Occurrences |
---|---|
$$ASKITL | Q2 |
$$ASKNMSP | Q3 |
$$ASKREPL | ASKRTN+13 |
$$ASKRTN | Q1 |
$$ASKXR | Q4 |
$$NOW | SAVE+2 |
$$QT | BUILD+32, BC+5, BCW+4, BCC+5 |
AD | BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+29, BUILD+32, BUILD+42, BUILD+43, BC+5, BCW+4 , BCC+5 |
BC | BUILD+7, BUILD+8, BUILD+9, BUILD+10, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+17, BUILD+18 , BUILD+19, BUILD+20, BUILD+21 |
BCC | BUILD+33, BUILD+34, BUILD+35, BUILD+36, BUILD+38, BUILD+39, BUILD+40 |
BCW | BUILD+15 |
BUILD | Q4+3 |
Q1 | Q2 |
Q2 | Q3 |
Q3 | Q4 |
SAVE | Q4+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | MAIN+1~, NOW+1~, NOW+3 |
%H | NOW+1~ |
%I | NOW+1~ |
%I(1 | NOW+9 |
%I(2 | NOW+10 |
%I(3 | NOW+10 |
%Y | SAVE+1~ |
AP | NOW+1~, NOW+5*, NOW+10 |
CV | BUILD+1~, BUILD+23*, BUILD+25, BUILD+26, BUILD+28, BUILD+31, BUILD+33, BUILD+34, BUILD+35, BUILD+36 , BUILD+38, BUILD+39, BUILD+40, BCC~, BCC+2, BCC+3 |
D | ASKXR+1~ |
DDS1 | ASKXR+1~, ASKXR+2* |
DIC | ASKXR+1~, ASKXR+3 |
DIKCCNT | ASKXR+1~, ASKXR+6, ASKXR+7, ASKXR+8 |
DIKCFILE | ASKXR+1~, ASKXR+4*, ASKXR+6 |
DIKCITL | MAIN+1~, Q2*, Q4+3, BUILD~, BUILD+3 |
DIKCNMSP | MAIN+1~, Q3*, Q4+3 |
DIKCROOT | ASKXR+1~ |
DIKCRTN | MAIN+1~, Q1*, Q4+3, Q4+4, BUILD~, BUILD+3, SAVE~, SAVE+3, SAVE+4, ASKRTN+9 , ASKRTN+10*, ASKRTN+11*, ASKRTN+13, ASKRTN+14*, ASKRTN+15, ASKREPL~, ASKREPL+3, ASKREPL+5, ASKREPL+6 |
DIKCTOP | ASKXR+1~, ASKXR+3*, ASKXR+4 |
DIKCXR | MAIN+1~, Q4*, Q4+3 |
DIR | ASKRTN+1~, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~ |
DIR("?" | ASKRTN+4*, ASKRTN+5*, ASKRTN+6*, ASKRTN+7*, ASKRTN+8*, ASKREPL+5*, ASKITL+4*, ASKITL+5*, ASKNMSP+4*, ASKNMSP+5* , ASKNMSP+6*, ASKNMSP+7*, ASKNMSP+8* |
DIR("A" | ASKRTN+3*, ASKREPL+3*, ASKITL+3*, ASKNMSP+3* |
DIR("B" | ASKREPL+4* |
DIR(0 | ASKRTN+2*, ASKREPL+2*, ASKITL+2*, ASKNMSP+2* |
DIROUT | ASKRTN+1~, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~ |
DIRUT | ASKRTN+1~, ASKRTN+10, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~ |
>> DISYS | MAIN+4, MAIN+5, SAVE+3 |
DTOUT | ASKRTN+1~, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~ |
DUOUT | ASKRTN+1~, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~ |
HR | NOW+1~, NOW+4*, NOW+5, NOW+6*, NOW+10 |
I | BCW+1~, BCW+2*, BCW+3, BCW+4 |
LN | AD+1~, AD+2*, AD+3 |
MIN | NOW+1~, NOW+7*, NOW+10 |
MON | NOW+1~, NOW+9*, NOW+10 |
ND | BC~, BC+2, BC+3, BCW~, BCW+2, BCW+3, BCC~, BCC+2, BCC+3 |
NS | BUILD~, BUILD+6, BUILD+7, BUILD+8, BUILD+9, BUILD+10, BUILD+11, BUILD+12, BUILD+13, BUILD+14 , BUILD+15, BUILD+17, BUILD+18, BUILD+19, BUILD+20, BUILD+21, BUILD+29, BUILD+32, BUILD+33, BUILD+34 , BUILD+35, BUILD+36, BUILD+38, BUILD+39, BUILD+40, BUILD+42, BC~, BC+5, BCW~, BCW+4 , BCC~, BCC+5 |
ON | BUILD+24~, BUILD+25*, BUILD+29, BUILD+32, BUILD+33, BUILD+34, BUILD+35, BUILD+36, BUILD+38, BUILD+39 , BUILD+40, BCC~, BCC+5 |
PC | BC~, BC+2, BC+3, BCC~, BCC+2, BCC+3 |
SUB | BC~, BC+5, BCW~, BCW+4, BCC~, BCC+5 |
TIM | NOW+1~, NOW+3*, NOW+4, NOW+7 |
TP | BUILD+24~, BUILD+26*, BUILD+27, BUILD+37 |
U | Q1, Q2, Q3, BUILD+8, BUILD+16, BUILD+25, BUILD+26, BUILD+28, BC+3, BCC+3 , ASKRTN+10, ASKXR+3, NOW+9 |
VAL | BUILD+24~, BUILD+28*, BUILD+29, BUILD+31*, BUILD+32, BC+1~, BC+2*, BC+3*, BC+4, BC+5 , BCW+1~, BCW+3*, BCW+4, BCC+1~, BCC+2*, BCC+3*, BCC+4, BCC+5 |
X | QT~, QT+1, QT+2, QT+3*, QT+4, AD~, AD+3, SAVE+1~, SAVE+3*, ASKRTN+1~ , ASKRTN+11, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~, ASKXR+1~, NOW+1~ |
X( | QT+3* |
X("" | QT+3 |
XR | BUILD~, BUILD+7, BUILD+8, BUILD+9, BUILD+10, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15 , BUILD+16, BUILD+17, BUILD+18, BUILD+19, BUILD+20, BUILD+21, BUILD+23, BUILD+25, BUILD+26, BUILD+28 , BUILD+31, BUILD+33, BUILD+34, BUILD+35, BUILD+36, BUILD+38, BUILD+39, BUILD+40, BC~, BC+2 , BC+3, BCW~, BCW+2, BCW+3, BCC~, BCC+2, BCC+3 |
Y | ASKRTN+1~, ASKREPL+1~, ASKREPL+8, ASKITL+1~, ASKITL+7, ASKNMSP+1~, ASKNMSP+10, ASKXR+1~, ASKXR+2 |