DIPR162 ;O-OIFO/GMB-Correct NOW function ;8/31/2009
Source file <DIPR162.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENV | ; Environmental Check
|
|
CHKSTOP | ;
; Check XPDENV 0 = Loading; 1 = Installing |
|
INSCHK | ; Do Checks During Install Only
|
|
TMCHK | ; Check to see if TaskMan is still running
|
|
LINH | ; Check to see if Logons are Inhibited
|
|
POSTINIT | ; Post-Init
|
|
FIND | ; Find and replace NOW and TODAY code in triggers
|
|
REPLACE(FUNC,VAL,NODE,CODE) | ;
|
Name | Field # of Occurrence |
---|---|
GETENV^%ZOSV | LINH+1 |
$$TM^%ZTLOAD | TMCHK+1 |
BMES^XPDUTL | ENV+1, ENV+3, TMCHK+4, LINH+4, POSTINIT+1, POSTINIT+2, POSTINIT+11, POSTINIT+13, POSTINIT+16, POSTINIT+18 , POSTINIT+21, FIND+1, FIND+14, REPLACE+9 |
MES^XPDUTL | INSCHK+2, INSCHK+3, INSCHK+4, INSCHK+5, INSCHK+6, INSCHK+7, REPLACE+10, REPLACE+11, REPLACE+16 |
$$OSNUM^ZTMGRSET | POSTINIT+4 |
MOVE^ZTMGRSET | POSTINIT+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%D | POSTINIT+3~, POSTINIT+4* |
%S | POSTINIT+3~, POSTINIT+4* |
CNT | FIND+2~, FIND+3*, FIND+14, REPLACE+8* |
CODE | REPLACE~ |
CODE("AFTER" | REPLACE+14 |
CODE("BEFORE" | REPLACE+5, REPLACE+12, REPLACE+13 |
FILE | FIND+2~, FIND+3*, FIND+4*, FIND+6, FIND+8, FIND+10, FIND+11, FIND+12, FIND+13, REPLACE+3 , REPLACE+4, REPLACE+9, REPLACE+15 |
FLAG | FIND+2~, FIND+9*, REPLACE+6, REPLACE+7* |
FLD | FIND+2~, FIND+5*, FIND+6*, FIND+8, FIND+10, FIND+11, FIND+12, FIND+13, REPLACE+3, REPLACE+4 , REPLACE+9, REPLACE+15 |
FUNC | REPLACE~, REPLACE+10 |
IEN | FIND+2~, FIND+7*, FIND+8*, FIND+10, FIND+11, FIND+12, FIND+13, REPLACE+3, REPLACE+4, REPLACE+9 , REPLACE+15 |
LINE | FIND+2~, REPLACE+1~, REPLACE+4*, REPLACE+5, REPLACE+11, REPLACE+12, REPLACE+13, REPLACE+14*, REPLACE+15, REPLACE+16 |
NODE | REPLACE~, REPLACE+2*, REPLACE+3*, REPLACE+4, REPLACE+10, REPLACE+15 |
NOWX | POSTINIT+5~, FIND+10, FIND+12 |
NOWX("AFTER" | POSTINIT+7*, POSTINIT+10, POSTINIT+14 |
NOWX("BEFORE" | POSTINIT+6* |
P1 | REPLACE+1~, REPLACE+12*, REPLACE+14 |
P2 | REPLACE+1~, REPLACE+13*, REPLACE+14 |
SCR | POSTINIT+3~, POSTINIT+4* |
START | REPLACE+1~, REPLACE+2* |
STOP | REPLACE+1~, REPLACE+2*, REPLACE+3 |
TODAYX | POSTINIT+5~, FIND+11, FIND+13 |
TODAYX("AFTER" | POSTINIT+9*, POSTINIT+15, POSTINIT+19 |
TODAYX("BEFORE" | POSTINIT+8* |
VAL | REPLACE~ |
>> X | TMCHK+1*, TMCHK+2 |
>> XPDENV | CHKSTOP+2 |
>> Y | LINH+2 |
ZTOS | POSTINIT+3~, POSTINIT+4* |