TIUP336 ;SLC/TDP - Copy/Paste Clean-up of Division ;Jul 29, 2020@10:24:36
Source file <TIUP336.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ;pre-init
|
|
POST | ;post-init
|
|
CNVRT(TST) | ;Convert Station Numbers stored as Institution IEN pointers
; If TST = 1, then print data for conversion but don't actually convert ; If TST = 2, |
|
SRCH | ;Entry point for Post-Init
|
|
SEARCH(TST) | ;Search for Copy/Paste data stored with wrong division
|
|
REVERT | ;Task off the Reversion process
|
|
RVRTJB | ;Reversion Tasked Job entry
|
|
RVRTJOB(TST) | ;Revert changed data back to original value
|
|
REQ2STOP() | ;
; Check for task stop request ; Returns 1 if stop request made. ; If process was queued/tasked, then ZTQUEUED variable exists |
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | POST+6, REVERT+5 |
$$S^%ZTLOAD | REQ2STOP+7, REQ2STOP+10 |
$$FIND1^DIC | SEARCH+25 |
EN^DIQ1 | SEARCH+20 |
$$FMADD^XLFDT | POST+3, SEARCH+47, REVERT+2 |
$$FMTE^XLFDT | SEARCH+31, RVRTJOB+27 |
$$NOW^XLFDT | POST+3, REVERT+2 |
BMES^XPDUTL | POST+2, POST+8, POST+10, CNVRT+5, CNVRT+6, RVRTJOB+34, RVRTJOB+37, RVRTJOB+38 |
MES^XPDUTL | CNVRT+7, CNVRT+9, SEARCH+5, SEARCH+6, SEARCH+30, SEARCH+31, SEARCH+32, SEARCH+33, SEARCH+34, SEARCH+40 , SEARCH+41, RVRTJOB+2, RVRTJOB+3, RVRTJOB+6, RVRTJOB+7, RVRTJOB+26, RVRTJOB+27, RVRTJOB+28, RVRTJOB+29, RVRTJOB+30 , RVRTJOB+32, RVRTJOB+35 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(4 - [#4] | Classic Fileman Calls, FIND1^DIC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | SEARCH+32, SEARCH+33, RVRTJOB+28, RVRTJOB+29 |
^TIUP(8928 - [#8928] | SEARCH+12, SEARCH+14, SEARCH+16, SEARCH+27*, SEARCH+31, RVRTJOB+17, RVRTJOB+18, RVRTJOB+19, RVRTJOB+23*, RVRTJOB+27 |
^XTMP("TIUP336 - Post-Init" | SEARCH+47*, SEARCH+51*, RVRTJOB+9, RVRTJOB+10, RVRTJOB+12, RVRTJOB+13, RVRTJOB+36! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%H | SEARCH+43~ |
CNT | SEARCH+1~, SEARCH+2*, SEARCH+28, SEARCH+35*, SEARCH+40, SEARCH+47, RVRTJOB+1~, RVRTJOB+8*, RVRTJOB+24*, RVRTJOB+32 , RVRTJOB+35 |
CNT1 | SEARCH+1~, SEARCH+7*, SEARCH+15*, SEARCH+38, RVRTJOB+1~, RVRTJOB+8*, RVRTJOB+31 |
DA | SEARCH+1~, SEARCH+19*, SEARCH+21 |
DIC | SEARCH+1~, SEARCH+8* |
DIQ | SEARCH+1~, SEARCH+10* |
DIQ(0 | SEARCH+11* |
DIV | SEARCH+1~, SEARCH+7*, SEARCH+16*, SEARCH+17, SEARCH+19, SEARCH+24, SEARCH+25, SEARCH+32, SEARCH+36, SEARCH+37 , SEARCH+42, SEARCH+48*, SEARCH+49*, SEARCH+50, SEARCH+51, RVRTJOB+1~, RVRTJOB+11*, RVRTJOB+12*, RVRTJOB+13, RVRTJOB+15 , RVRTJOB+21*, RVRTJOB+22, RVRTJOB+23, RVRTJOB+29 |
DIV1 | SEARCH+1~, SEARCH+25*, SEARCH+26, SEARCH+27, SEARCH+33, SEARCH+37, SEARCH+50*, SEARCH+51, RVRTJOB+1~, RVRTJOB+13* , RVRTJOB+14, RVRTJOB+15, RVRTJOB+19*, RVRTJOB+20, RVRTJOB+21, RVRTJOB+28 |
DR | SEARCH+1~, SEARCH+9* |
DT | SEARCH+47 |
PREVCNT | RVRTJOB+1~, RVRTJOB+10*, RVRTJOB+34 |
RSLT | SEARCH+1~, SEARCH+18! |
RSLT(4 | SEARCH+21 |
STATUS | REQ2STOP+4~, REQ2STOP+5*, REQ2STOP+9*, REQ2STOP+12 |
STN | SEARCH+1~, SEARCH+21*, SEARCH+22, SEARCH+23, SEARCH+24 |
STOP | SEARCH+1~, SEARCH+7*, SEARCH+14, SEARCH+38*, RVRTJOB+1~, RVRTJOB+8*, RVRTJOB+18, RVRTJOB+31*, RVRTJOB+36, RVRTJOB+37 , RVRTJOB+38 |
TIUIEN | SEARCH+1~, SEARCH+12*, SEARCH+13, SEARCH+14*, SEARCH+16, SEARCH+27, SEARCH+28, SEARCH+30, SEARCH+31, RVRTJOB+1~ , RVRTJOB+9*, RVRTJOB+17*, RVRTJOB+18*, RVRTJOB+19, RVRTJOB+23, RVRTJOB+26, RVRTJOB+27 |
TMP | SEARCH+1~, SEARCH+28*, SEARCH+47, RVRTJOB+1~, RVRTJOB+16 |
TMP( | SEARCH+36, SEARCH+37*, SEARCH+42, SEARCH+49, SEARCH+50, RVRTJOB+15*, RVRTJOB+20, RVRTJOB+21 |
TST | CNVRT~, CNVRT+3*, CNVRT+4*, CNVRT+5, CNVRT+8, SEARCH~, SEARCH+3*, SEARCH+4, SEARCH+27, SEARCH+29 , SEARCH+39, RVRTJOB~, RVRTJOB+4*, RVRTJOB+5, RVRTJOB+23, RVRTJOB+25, RVRTJOB+33, RVRTJOB+36 |
U | SEARCH+12, SEARCH+16, SEARCH+27, SEARCH+31, SEARCH+32, SEARCH+33, SEARCH+47, RVRTJOB+10, RVRTJOB+17, RVRTJOB+19 , RVRTJOB+23, RVRTJOB+27, RVRTJOB+28, RVRTJOB+29 |
X | SEARCH+43~, REQ2STOP+4~, REQ2STOP+7*, REQ2STOP+8, REQ2STOP+10* |
X1 | SEARCH+43~ |
X2 | SEARCH+43~ |
ZTDESC | POST+1~, POST+4*, REVERT+1~, REVERT+3* |
ZTDTH | POST+1~, POST+3*, REVERT+1~, REVERT+2* |
ZTIO | POST+1~, POST+5*, REVERT+1~, REVERT+4* |
>> ZTQUEUED | REQ2STOP+6 |
ZTRTN | POST+1~, POST+4*, REVERT+1~, REVERT+3* |
ZTSK | POST+1~, POST+7, POST+10, REVERT+1~, REVERT+6, REVERT+9 |