©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XT73P129 ;OAK/MKO-POST-INSTALL ROUTINE FOR XT*7.3*129 ;25 Jan 2011 10:17 PM
Source file <XT73P129.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUEUE | ; Queue the purging process
|
|
| EN | ; **129,MPIC_2382
; This entry point is called from the POST-INSTALL of patch XT*7.3*129. ; It queues a process to purge File #15 of entries that meet the following criteria: ; - STATUS (Field #.03) = 'P' for POTENTIAL DUPLICATE, UNVERIFIED ; - MERGE STATUS (Field #.05) = 0 or "" ; - WHO CREATED (field #.09) = POSTMASTER (.5) |
|
| SETXTMP() | ; Set up nodes in ^XTMP("XT73P129")
; Return the string ^XTMP("XT73P129",fmStartTime) |
|
| EMAIL(XTMPNAME) | ; Send e-mail with summary information
|
|
| PURGE | ; Purge records. This is the entry point for the queued task.
|
|
| MSG | ; Display/log introductory message
|
|
| ADD(ARRAY,TXT) | ; Add text to an array (passed by reference)
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(15 - [#15] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^VA(15 - [#15] | PURGE+9, PURGE+10, PURGE+12, PURGE+18 |
| ^XTMP("XT73P129" | SETXTMP+4*, SETXTMP+5 |
| Name | Line Occurrences |
|---|---|
| $$SETXTMP | PURGE+4 |
| ADD | MSG+2, MSG+3, MSG+4, MSG+5, MSG+6, MSG+7, MSG+8, MSG+9, MSG+10, MSG+11 , MSG+12, MSG+13, MSG+14, MSG+15, MSG+16, EMAIL+17, EMAIL+18, EMAIL+19, EMAIL+20, EMAIL+21 , EMAIL+22, EMAIL+23, EMAIL+24, EMAIL+25, EMAIL+26, EMAIL+27, EMAIL+28 |
| PURGE+34 | |
| MSG | EN+6 |
| QUEUE | EN+7 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PURGE+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | ADD~ |
| ARRAY( | ADD+1* |
| ARRAY("" | ADD+1 |
| CNT | EMAIL+1~, EMAIL+6*, EMAIL+22 |
| COMPLETE | EMAIL+1~, EMAIL+8*, EMAIL+20 |
| DA | PURGE+1~, PURGE+10*, PURGE+12, PURGE+16, PURGE+18 |
| DIFROM | EMAIL+1~ |
| DIK | PURGE+1~, PURGE+8* |
| DUZ | SETXTMP+7, QUEUE+6 |
| MSG | PURGE+1~, MSG+1~, MSG+2, MSG+3, MSG+4, MSG+5, MSG+6, MSG+7, MSG+8, MSG+9 , MSG+10, MSG+11, MSG+12, MSG+13, MSG+14, MSG+15, MSG+16, MSG+17 |
| PAIR | PURGE+1~, PURGE+9*, PURGE+10, PURGE+16 |
| START | EMAIL+1~, EMAIL+7*, EMAIL+19, EMAIL+26 |
| STATUS | EMAIL+1~, EMAIL+5* |
| STR | PURGE+15~, PURGE+16*, PURGE+17, PURGE+19, PURGE+24 |
| TSTAMP | SETXTMP+2~, SETXTMP+3*, SETXTMP+4, SETXTMP+5, SETXTMP+9 |
| TXT | ADD~, ADD+1 |
| U | PURGE+12, SETXTMP+4 |
| X | PURGE+1~ |
| XMDUZ | EMAIL+1~, EMAIL+12* |
| XMMG | EMAIL+1~ |
| XMSUB | EMAIL+1~, EMAIL+13* |
| XMTEXT | EMAIL+1~, EMAIL+16* |
| XMY | EMAIL+1~ |
| XMY( | EMAIL+14*, EMAIL+15* |
| >> XPDABORT | EN+7, QUEUE+10* |
| >> XPDNM | QUEUE+10 |
| XTMPNAME | PURGE+1~, PURGE+4*, PURGE+17, PURGE+18, PURGE+23, PURGE+24, PURGE+27, PURGE+28, PURGE+34, PURGE+36 , SETXTMP+2~, SETXTMP+5*, SETXTMP+6, SETXTMP+7, SETXTMP+8, SETXTMP+9, SETXTMP+10, EMAIL~, EMAIL+4, EMAIL+5 , EMAIL+6, EMAIL+7, EMAIL+8 |
| XTQUEDUZ | SETXTMP+7, QUEUE+1~, QUEUE+6*, EMAIL+1~, EMAIL+4*, EMAIL+14 |
| XTTEXT | EMAIL+1~, EMAIL+17, EMAIL+18, EMAIL+19, EMAIL+20, EMAIL+21, EMAIL+22, EMAIL+23, EMAIL+24, EMAIL+25 , EMAIL+26, EMAIL+27, EMAIL+28 |
| Y | PURGE+1~ |
| ZTDESC | QUEUE+1~, QUEUE+3* |
| ZTDTH | QUEUE+1~, QUEUE+4* |
| ZTIO | QUEUE+1~, QUEUE+5* |
| >> ZTQUEUED | PURGE+19, PURGE+32 |
| >> ZTREQ | PURGE+33* |
| ZTRTN | QUEUE+1~, QUEUE+2* |
| >> ZTSAVE("XTQUEDUZ" | QUEUE+6* |
| ZTSK | QUEUE+1~, QUEUE+8, QUEUE+12 |