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* |