HLUOPTF2 ;ALB/CJM-HL7 -Fast Purge ;02/04/2004
Source file <HLUOPTF2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PAUSE | ;sleep for 10 SECONDS
|
|
EVENT(CNT773,CNT772) | ;
|
|
CHECK1() | ;called by the Master Job to determine whether
|
|
FAST2 | ;entry point for FAST PURGE 2, called by the Event Monitor
|
|
FAST1 | ;entry point for FAST PURGE 1, called by the Event Monitor
|
|
STOP | ;
|
|
PURGE | ;entry point for the FAST PURGE
|
|
START | ;Interactive entry point, asks user whether or not to queue the Fast Purge
|
|
CHECK2() | ;called by the Master Job to determine whether
|
|
FINDHOUR(HOUR) | ;
|
|
CHECKIN(CHECKAT,CNT773,CNT772,LCOUNT) | ;
|
|
COUNT() | ;
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | START+11 |
$$S^%ZTLOAD | CHECKIN+29 |
$$EVENT^HLEME | EVENT+4, EVENT+8 |
$$INC^HLEME | EVENT+5, EVENT+9 |
$$ASKYESNO^HLEMU | START+4 |
$$I^HLEMU | STOP+2, CHECKIN+35 |
CHECKIN^HLEVAPI | CHECKIN+28 |
CHECKOUT^HLEVAPI | PURGE+67 |
START^HLEVAPI | PURGE+21 |
$$COUNT^HLEVAPI3 | CHECK1+5, CHECK2+5 |
DEL772^HLUOPT3 | PURGE+57 |
DEL773^HLUOPT3 | PURGE+53 |
$$FMADD^XLFDT | PURGE+23, CHECKIN+23, FINDHOUR+27 |
$$NOW^XLFDT | PURGE+23, PURGE+36, CHECKIN+20, FINDHOUR+8 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^HLMA("AI" | PURGE+46, PURGE+51, PURGE+55, PURGE+60!, PURGE+63, FINDHOUR+6, FINDHOUR+12, FINDHOUR+21, FINDHOUR+28, FINDHOUR+35 |
^TMP("HLEVFLAG" | START+16!, PURGE+16*, PURGE+68! |
^XTMP("HL7 FAST PURGE JOBS" | STOP+2, COUNT+5, COUNT+9, PURGE+26, PURGE+66, CHECKIN+33, CHECKIN+35 |
Name | Line Occurrences |
---|---|
$$CHECKIN | PURGE+37, PURGE+40, PURGE+49 |
$$COUNT | FAST1+1, FAST2+1, STOP+2 |
$$FINDHOUR | PURGE+30 |
EVENT | PURGE+41, CHECKIN+22 |
PAUSE | PURGE+43 |
PURGE | FAST1+1, FAST2+1, START+15 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ASK | START+2~, START+4*, START+5, START+13 |
CHECKAT | PURGE+18~, PURGE+23*, PURGE+36, PURGE+37, PURGE+40, PURGE+49, CHECKIN~, CHECKIN+21, CHECKIN+23* |
CNT772 | PURGE+18~, PURGE+19*, PURGE+37, PURGE+40, PURGE+41, PURGE+49, PURGE+56*, CHECKIN~, CHECKIN+22, EVENT~ , EVENT+7, EVENT+9, EVENT+10* |
CNT773 | PURGE+18~, PURGE+19*, PURGE+36, PURGE+37, PURGE+40, PURGE+41, PURGE+49, PURGE+52*, CHECKIN~, CHECKIN+22 , EVENT~, EVENT+3, EVENT+5, EVENT+6* |
COUNT | COUNT+2~, COUNT+3*, COUNT+7*, COUNT+10 |
EVENT | EVENT+2~, EVENT+4*, EVENT+5, EVENT+8*, EVENT+9 |
HOUR | PURGE+18~, PURGE+19*, PURGE+30*, PURGE+33, PURGE+47, PURGE+63, FINDHOUR~, FINDHOUR+6, FINDHOUR+11, FINDHOUR+12* , FINDHOUR+15, FINDHOUR+18*, FINDHOUR+20*, FINDHOUR+21, FINDHOUR+23*, FINDHOUR+27*, FINDHOUR+28*, FINDHOUR+29, FINDHOUR+32*, FINDHOUR+35 , FINDHOUR+37 |
I | COUNT+2~, COUNT+4*, COUNT+5, COUNT+9, PURGE+18~, PURGE+26*, PURGE+66* |
IEN772 | PURGE+18~, PURGE+50*, PURGE+55*, PURGE+57 |
IEN773 | PURGE+18~, PURGE+50*, PURGE+51*, PURGE+53 |
LASTCHK | PURGE+18~ |
LCNT | PURGE+18~ |
LCOUNT | PURGE+19*, PURGE+37, PURGE+40, PURGE+48*, PURGE+49, CHECKIN~, CHECKIN+37* |
NOW | CHECKIN+17~, CHECKIN+20*, CHECKIN+21, CHECKIN+23, FINDHOUR+2~, FINDHOUR+8*, FINDHOUR+18, FINDHOUR+32 |
QUIT | PURGE+18~, PURGE+19*, PURGE+29, PURGE+37*, PURGE+38*, PURGE+40*, PURGE+42, PURGE+46, PURGE+49*, CHECKIN+17~ , CHECKIN+18*, CHECKIN+29*, CHECKIN+30, CHECKIN+34*, CHECKIN+38, FINDHOUR+2~, FINDHOUR+3*, FINDHOUR+11, FINDHOUR+15*, FINDHOUR+21* , FINDHOUR+24, FINDHOUR+29*, FINDHOUR+32*, FINDHOUR+35* |
STOP | START+2~, START+3*, PURGE+14 |
TIME | PURGE+18~, PURGE+19*, PURGE+30*, PURGE+46*, PURGE+47*, PURGE+51, PURGE+55, PURGE+60 |
VAR | PURGE+18~, PURGE+21 |
ZTDESC | START+6~, START+8* |
ZTIO | START+6~, START+9* |
>> ZTQUEUED | CHECKIN+24 |
ZTRTN | START+6~, START+7* |
ZTSAVE | START+6~ |
ZTSAVE("STOP" | START+10* |
ZTSK | START+6~, START+12 |
>> ZTSTOP | CHECKIN+30* |