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