DG944PST ;BIR/CML-PATCH DG*5.3*944 POST INSTALLATION ROUTINE ;5/1/17
Source file <DG944PST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ;queue off post-init to identify and cleanup any names with lowercase characters or missing FULL ICN
|
|
| AUDIT(DGFILE,DGFLD,DGFNAME) | ;Turn on Auditing for Field in File
|
|
| UPDTFLE | ;Create a new entry in SOURCE OF NOTIFICATIONS file (#47.76)
|
|
| QUE | ; Queue off the cleanup of names with lowercase letters and missing FULL ICNs
|
|
| DFNLOOP | ; entry point for queued job to loop on Patient file
|
|
| EMAILS | ; Send email to person who ran the INIT, letting them know results
|
|
| UPDNM | ; convert lowercase letters to uppercase letters and edit .01 in Patient file
|
|
| FULLCHK | ; check and populate FULL ICN field if needed
|
|
| BRFILE | ; populate business rules into new file. To ensure this is only done once, check the
; file to make sure there are no entries in it already just in case the patch is re-installed. ; This way if there are changes broadcast from the MPI, they are not overwritten. |
|
| BRDATA | ; data to populate into the 47.761 file
; Format: Source of Notification^Document Type |
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | QUE+5 |
| TURNON^DIAUTL | AUDIT+1 |
| $$FIND1^DIC | UPDTFLE+3 |
| ^DIE | UPDNM+5, FULLCHK+7 |
| UPDATE^DIE | UPDTFLE+7, BRFILE+19, BRFILE+24 |
| $$SITE^VASITE | EMAILS+19 |
| $$FMTE^XLFDT | DFNLOOP+2, DFNLOOP+8 |
| $$NOW^XLFDT | DFNLOOP+2, DFNLOOP+8 |
| ^XMD | EMAILS+12, EMAILS+35 |
| BMES^XPDUTL | POST+6, POST+12, UPDTFLE+2, QUE+1 |
| MES^XPDUTL | POST+6, AUDIT+2, UPDTFLE+3, UPDTFLE+8, UPDTFLE+9, UPDTFLE+10, QUE+6, QUE+7, BRFILE+3, BRFILE+7 , BRFILE+11, BRFILE+20, BRFILE+25, BRFILE+27 |
| $$PROD^XUPROD | EMAILS+16 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^DG(47.76 - [#47.76] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(47.75 - [#47.75] | BRFILE+10 |
| ^DG(47.761 - [#47.761] | BRFILE+6, BRFILE+13 |
| ^DPT - [#2] | DFNLOOP+4, DFNLOOP+5, DFNLOOP+6, UPDNM+3, UPDNM+6, FULLCHK+1, FULLCHK+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHK | UPDNM+1~, UPDNM+2* |
| CKSUM | DFNLOOP+1~, FULLCHK+3*, FULLCHK+5, FULLCHK+6 |
| DA | UPDNM+4*, UPDNM+5!, FULLCHK+7* |
| DFN | DFNLOOP+1~, DFNLOOP+3*, DFNLOOP+4*, DFNLOOP+5, DFNLOOP+6, UPDNM+3, UPDNM+4, UPDNM+6, FULLCHK+1, FULLCHK+2 , FULLCHK+7 |
| DFNCNT | DFNLOOP+1~, DFNLOOP+3*, DFNLOOP+4*, EMAILS+25 |
| DGCOUNT | BRFILE+4~, BRFILE+5*, BRFILE+26*, BRFILE+27 |
| DGDATA | BRFILE+4~, BRFILE+8*, BRFILE+10, BRFILE+11, BRFILE+12, BRFILE+20, BRFILE+25 |
| DGERRMSG | UPDTFLE+1~, UPDTFLE+8 |
| DGERRMSG("DIERR" | UPDTFLE+8 |
| DGFDA | UPDTFLE+1~, BRFILE+9~, BRFILE+14~ |
| DGFDA( | UPDTFLE+4*, UPDTFLE+5*, UPDTFLE+6* |
| DGFDA(1 | BRFILE+15*, BRFILE+16*, BRFILE+17*, BRFILE+21*, BRFILE+22* |
| DGFILE | AUDIT~, AUDIT+1, AUDIT+2 |
| DGFLD | AUDIT~, AUDIT+1, AUDIT+2 |
| DGFLDS | POST+1~, POST+5*, POST+8 |
| DGFNAME | AUDIT~, AUDIT+2 |
| DGI | POST+1~, POST+8* |
| DGIEN | BRFILE+9~, BRFILE+12*, BRFILE+13, BRFILE+15, BRFILE+18, BRFILE+21, BRFILE+22 |
| DGIEN(1 | BRFILE+18* |
| DGLINE | BRFILE+4~, BRFILE+8* |
| DGROOT | BRFILE+9~, BRFILE+20, BRFILE+25 |
| DGROOT("DIERR" | BRFILE+20 |
| DGSITE | EMAILS+18~, EMAILS+20*, EMAILS+21, EMAILS+30 |
| DGSNAME | EMAILS+18~, EMAILS+20*, EMAILS+21 |
| DGTIEN | BRFILE+4~ |
| DGTIEN(1 | BRFILE+23* |
| DGTYPE | BRFILE+9~, BRFILE+10*, BRFILE+11, BRFILE+21, BRFILE+23 |
| DIE | UPDNM+4*, UPDNM+5!, FULLCHK+7* |
| DONE | DFNLOOP+1~, DFNLOOP+8*, EMAILS+5, EMAILS+23 |
| DR | UPDNM+4*, UPDNM+5!, FULLCHK+7* |
| DT | BRFILE+17 |
| DUZ | EMAILS+11, EMAILS+31 |
| FICNT | DFNLOOP+1~, DFNLOOP+3*, EMAILS+7, EMAILS+29, FULLCHK+7* |
| FULLICN | DFNLOOP+1~, FULLCHK+3*, FULLCHK+4, FULLCHK+6* |
| ICN | DFNLOOP+1~, FULLCHK+3*, FULLCHK+5, FULLCHK+6 |
| LCCNT | DFNLOOP+1~, DFNLOOP+3*, DFNLOOP+6*, EMAILS+6, EMAILS+27 |
| MPINODE | DFNLOOP+1~, FULLCHK+2*, FULLCHK+3 |
| NEWNM | UPDNM+1~, UPDNM+2* |
| NM | DFNLOOP+1~, DFNLOOP+6*, UPDNM+2 |
| QUIT | DFNLOOP+1~ |
| R | EMAILS+1~, EMAILS+18~ |
| R(1 | EMAILS+2*, EMAILS+21* |
| R(2 | EMAILS+3*, EMAILS+22* |
| R(3 | EMAILS+4*, EMAILS+23* |
| R(4 | EMAILS+5*, EMAILS+24* |
| R(5 | EMAILS+6*, EMAILS+25* |
| R(6 | EMAILS+7*, EMAILS+26* |
| R(7 | EMAILS+8*, EMAILS+27* |
| R(8 | EMAILS+8*, EMAILS+28* |
| R(9 | EMAILS+29* |
| START | DFNLOOP+1~, DFNLOOP+2*, EMAILS+4, EMAILS+23 |
| X | EMAILS+1~, EMAILS+19*, EMAILS+20 |
| XMDUN | EMAILS+1~, EMAILS+18~ |
| XMDUZ | EMAILS+1~, EMAILS+10*, EMAILS+18~, EMAILS+31* |
| XMSUB | EMAILS+1~, EMAILS+9*, EMAILS+18~, EMAILS+30* |
| XMTEXT | EMAILS+1~, EMAILS+9*, EMAILS+18~, EMAILS+30* |
| XMY | EMAILS+1~, EMAILS+18~ |
| XMY( | EMAILS+11* |
| XMY("Christine.Chesney@domain.ext" | EMAILS+32* |
| XMY("Christine.Link@domain.ext" | EMAILS+34* |
| XMY("John.Williams30ec0c@domain.ext" | EMAILS+33* |
| XMZ | EMAILS+1~, EMAILS+18~ |
| Y | QUE+2~ |
| ZTDESC | QUE+2~, QUE+4* |
| ZTDTH | QUE+2~, QUE+3* |
| ZTIO | QUE+2~, QUE+3* |
| ZTRTN | QUE+2~, QUE+3* |
| ZTSAVE | QUE+2~ |
| ZTSK | QUE+2~, QUE+6, QUE+7 |
| Name | Field # of Occurrence |
|---|---|
| $T(BRDATA+DGLINE | BRFILE+8 |
