DG967PST ;BIR/CML-PATCH DG*5.3*967 POST INSTALLATION ROUTINE ;8/14/18
Source file <DG967PST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ;queue off post-init to identify patients marked as "sensitive" and trigger A31 to MPI and clean up ZIP+4 records
|
|
| QUE | ; Queue off seeding job of sensitivity updates to MPI and ZIP+4 cleanup to run after 10:00pm
|
|
| SECLOOP | ; entry point for queued job to loop on DG SECURITY LOG FILE
|
|
| EMAILS1 | ; Send email to person who ran the INIT, letting them know results
|
|
| ZIP4LOOP | ; start cleanup of ZIP+4 records
|
|
| EMAILS2 | ; Send email to person who ran the INIT, letting them know results
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | QUE+10 |
| ^DIE | ZIP4LOOP+7 |
| $$A31^MPIFA31B | SECLOOP+7 |
| $$SITE^VASITE | EMAILS1+18, EMAILS2+19 |
| $$FMTE^XLFDT | SECLOOP+2, SECLOOP+9, ZIP4LOOP+2, ZIP4LOOP+9 |
| $$NOW^XLFDT | QUE+5, QUE+7, SECLOOP+2, SECLOOP+9, ZIP4LOOP+2, ZIP4LOOP+9 |
| ^XMD | EMAILS1+11, EMAILS1+32, EMAILS2+12, EMAILS2+33 |
| $$PATCH^XPDUTL | POST+3 |
| BMES^XPDUTL | POST+2, POST+3, POST+5, QUE+1 |
| MES^XPDUTL | QUE+11, QUE+12 |
| $$PROD^XUPROD | EMAILS1+15, EMAILS2+16 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGSL(38.1 - [#38.1] | SECLOOP+4, SECLOOP+6 |
| ^DPT - [#2] | SECLOOP+5, SECLOOP+7, ZIP4LOOP+4, ZIP4LOOP+5, ZIP4LOOP+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A31CNT | SECLOOP+1~, SECLOOP+3*, SECLOOP+7*, EMAILS1+7, EMAILS1+26 |
| DA | ZIP4LOOP+7*! |
| DAY | QUE+2~, QUE+5*, QUE+6 |
| DFN | SECLOOP+1~, SECLOOP+3*, SECLOOP+4*, SECLOOP+5, SECLOOP+6, SECLOOP+7, ZIP4LOOP+1~, ZIP4LOOP+3*, ZIP4LOOP+4*, ZIP4LOOP+5 , ZIP4LOOP+6, ZIP4LOOP+7 |
| DFNCNT | SECLOOP+1~, SECLOOP+3*, SECLOOP+4*, EMAILS1+6, EMAILS1+25, ZIP4LOOP+1~, ZIP4LOOP+3*, ZIP4LOOP+4*, EMAILS2+6, EMAILS2+26 |
| DGFLDS | POST+1~ |
| DGI | POST+1~ |
| DGSITE | EMAILS1+17~, EMAILS1+19*, EMAILS1+20, EMAILS1+27, EMAILS2+18~, EMAILS2+20*, EMAILS2+21, EMAILS2+28 |
| DGSNAME | EMAILS1+17~, EMAILS1+19*, EMAILS1+20, EMAILS2+18~, EMAILS2+20*, EMAILS2+21 |
| DIE | ZIP4LOOP+7*! |
| DONE | QUE+2~, SECLOOP+1~, SECLOOP+9*, EMAILS1+5, EMAILS1+23, ZIP4LOOP+1~, ZIP4LOOP+9*, EMAILS2+5, EMAILS2+24 |
| DR | ZIP4LOOP+7*! |
| DUZ | EMAILS1+10, EMAILS1+28, EMAILS2+11, EMAILS2+29 |
| EDCNT | ZIP4LOOP+1~, ZIP4LOOP+3*, ZIP4LOOP+6*, EMAILS2+7, EMAILS2+27 |
| EDZIP | ZIP4LOOP+1~, ZIP4LOOP+7* |
| ICN | SECLOOP+1~, SECLOOP+7* |
| NODE | ZIP4LOOP+1~, ZIP4LOOP+6* |
| QUE+2~, QUE+5* | |
| R | EMAILS1+1~, EMAILS1+17~, EMAILS2+1~, EMAILS2+18~ |
| R(1 | EMAILS1+2*, EMAILS1+20*, EMAILS2+2*, EMAILS2+21* |
| R(2 | EMAILS1+3*, EMAILS1+21*, EMAILS2+3*, EMAILS2+22* |
| R(3 | EMAILS1+4*, EMAILS1+22*, EMAILS2+4*, EMAILS2+23* |
| R(4 | EMAILS1+5*, EMAILS1+23*, EMAILS2+5*, EMAILS2+24* |
| R(5 | EMAILS1+6*, EMAILS1+24*, EMAILS2+6*, EMAILS2+25* |
| R(6 | EMAILS1+7*, EMAILS1+25*, EMAILS2+7*, EMAILS2+26* |
| R(7 | EMAILS1+26*, EMAILS2+8*, EMAILS2+27* |
| R(8 | EMAILS2+8* |
| SCH | QUE+5!, QUE+6*, QUE+7*, QUE+8 |
| SENSI | SECLOOP+1~, SECLOOP+6* |
| START | SECLOOP+1~, SECLOOP+2*, EMAILS1+4, EMAILS1+23, ZIP4LOOP+1~, ZIP4LOOP+2*, EMAILS2+4, EMAILS2+24 |
| TIME | QUE+2~, QUE+5*, QUE+6, QUE+7 |
| TRY | SECLOOP+1~, SECLOOP+7* |
| X | EMAILS1+1~, EMAILS1+18*, EMAILS1+19, ZIP4LOOP+7*, EMAILS2+1~, EMAILS2+19*, EMAILS2+20 |
| XMDUN | EMAILS1+1~, EMAILS1+17~, EMAILS2+1~, EMAILS2+18~ |
| XMDUZ | EMAILS1+1~, EMAILS1+9*, EMAILS1+17~, EMAILS1+28*, EMAILS2+1~, EMAILS2+10*, EMAILS2+18~, EMAILS2+29* |
| XMSUB | EMAILS1+1~, EMAILS1+8*, EMAILS1+17~, EMAILS1+27*, EMAILS2+1~, EMAILS2+9*, EMAILS2+18~, EMAILS2+28* |
| XMTEXT | EMAILS1+1~, EMAILS1+8*, EMAILS1+17~, EMAILS1+27*, EMAILS2+1~, EMAILS2+9*, EMAILS2+18~, EMAILS2+28* |
| XMY | EMAILS1+1~, EMAILS1+17~, EMAILS2+1~, EMAILS2+18~ |
| XMY( | EMAILS1+10*, EMAILS2+11* |
| XMY("Christine.Chesney@domain.ext" | EMAILS1+29*, EMAILS2+30* |
| XMY("Christine.Link@domain.ext" | EMAILS1+31*, EMAILS2+32* |
| XMY("John.Williams30ec0c@domain.ext" | EMAILS1+30*, EMAILS2+31* |
| XMZ | EMAILS1+1~, EMAILS1+17~, EMAILS2+1~, EMAILS2+18~ |
| Y | QUE+2~ |
| ZIP4 | ZIP4LOOP+1~, ZIP4LOOP+6*, ZIP4LOOP+7 |
| ZTDESC | QUE+2~, QUE+9* |
| ZTDTH | QUE+2~, QUE+8* |
| ZTIO | QUE+2~, QUE+3* |
| ZTRTN | QUE+2~, QUE+3* |
| ZTSAVE | QUE+2~ |
| ZTSK | QUE+2~, QUE+11, QUE+12 |
