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 |