DG950PST ;OAK/ELZ-PATCH DG*5.3*950 POST INSTALLATION ROUTINE ;10/13/17
Source file <DG950PST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ;
|
|
| UPDTFLE | ;Create a new entries in SUPPORTING DOCUMENTATION TYPES (#47.75) file
|
|
| BRFILE | ; populate business new rules into file. To ensure this is only done once, check the
; file to make sure they are not already just in case the patch is re-installed. |
|
| BRDATA | ; data to populate into the 47.761 file
; Format: IEN of Source of Notification^Active^Supporting Document Type (Type Code)^Active |
|
| QUE | ;Queue the validation of the FULL ICN (#991.1) against the ICN (#991.01) and ICN CHECKSUM (#991.02)
|
|
| VFULLICN | ;entry point for queued job to loop on Patient file to validate FULL ICN
|
|
| EMAILS | ;Send email to person who ran the INIT, letting them know results
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | QUE+5 |
| BRDATA^DGDTHBR | BRFILE+7 |
| $$FIND1^DIC | UPDTFLE+5 |
| UPDATE^DIE | UPDTFLE+10, VFULLICN+13 |
| WP^DIE | UPDTFLE+14 |
| $$SITE^VASITE | EMAILS+19 |
| $$FMTE^XLFDT | VFULLICN+2, VFULLICN+15 |
| $$NOW^XLFDT | VFULLICN+2, VFULLICN+15 |
| ^XMD | EMAILS+12, EMAILS+33 |
| BMES^XPDUTL | POST+1, POST+5, UPDTFLE+2, UPDTFLE+16, QUE+1 |
| MES^XPDUTL | UPDTFLE+5, UPDTFLE+6, UPDTFLE+11, UPDTFLE+15, BRFILE+2, BRFILE+4, BRFILE+8, BRFILE+9, QUE+6, QUE+7 |
| $$PROD^XUPROD | EMAILS+16 |
| FileNo | Call Tags |
|---|---|
| ^DG(47.75 - [#47.75] | FIND1^DIC, WP^DIE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(47.75 | UPDTFLE+6 |
| ^DPT - [#2] | VFULLICN+4, VFULLICN+5, VFULLICN+6, VFULLICN+12, VFULLICN+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CKSUM | VFULLICN+1~, VFULLICN+7*, VFULLICN+9, VFULLICN+13 |
| DFN | VFULLICN+1~, VFULLICN+3*, VFULLICN+4*, VFULLICN+5, VFULLICN+6, VFULLICN+12, VFULLICN+13, VFULLICN+14 |
| DFNCNT | VFULLICN+1~, VFULLICN+3*, VFULLICN+4*, EMAILS+25 |
| DGCOUNT | BRFILE+3~, BRFILE+5*, BRFILE+6* |
| DGDATA | BRFILE+3~, BRFILE+6*, BRFILE+7 |
| DGDATA( | BRFILE+6* |
| DGDOCTYP | UPDTFLE+1~, UPDTFLE+3*, UPDTFLE+5, UPDTFLE+6, UPDTFLE+7, UPDTFLE+8, UPDTFLE+9, UPDTFLE+11, UPDTFLE+13, UPDTFLE+15 |
| DGERRMSG | UPDTFLE+4~, UPDTFLE+11, VFULLICN+1~ |
| DGERRMSG("DIERR" | UPDTFLE+11 |
| DGFDA | UPDTFLE+4~, VFULLICN+1~, VFULLICN+10! |
| DGFDA( | UPDTFLE+7*, UPDTFLE+8* |
| DGFDA(2 | VFULLICN+13* |
| DGIEN | UPDTFLE+4~, UPDTFLE+13*, UPDTFLE+14 |
| DGIEN(1 | UPDTFLE+9* |
| DGLINE | BRFILE+3~, BRFILE+6*, BRFILE+9* |
| DGRTN | BRFILE+3~, BRFILE+7 |
| DGRTN( | BRFILE+9 |
| DGRTN(1 | BRFILE+8 |
| DGSITE | EMAILS+18~, EMAILS+20*, EMAILS+21, EMAILS+28 |
| DGSNAME | EMAILS+18~, EMAILS+20*, EMAILS+21 |
| DGTMP | UPDTFLE+4~ |
| DGTMP("WP" | UPDTFLE+13* |
| DONE | VFULLICN+1~, VFULLICN+15*, EMAILS+6, EMAILS+23 |
| DUZ | EMAILS+11, EMAILS+29 |
| FICNT | VFULLICN+1~, VFULLICN+3*, VFULLICN+11*, EMAILS+7, EMAILS+27 |
| FULLICN | VFULLICN+1~, VFULLICN+7*, VFULLICN+9 |
| ICN | VFULLICN+1~, VFULLICN+7*, VFULLICN+8, VFULLICN+9, VFULLICN+13 |
| MPINODE | VFULLICN+1~, VFULLICN+6*, VFULLICN+7 |
| 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* |
| START | VFULLICN+1~, VFULLICN+2*, EMAILS+5, EMAILS+23 |
| X | EMAILS+1~, EMAILS+19*, EMAILS+20 |
| XMDUN | EMAILS+1~, EMAILS+18~ |
| XMDUZ | EMAILS+1~, EMAILS+10*, EMAILS+18~, EMAILS+29* |
| XMSUB | EMAILS+1~, EMAILS+9*, EMAILS+18~, EMAILS+28* |
| XMTEXT | EMAILS+1~, EMAILS+9*, EMAILS+18~, EMAILS+28* |
| XMY | EMAILS+1~, EMAILS+18~ |
| XMY( | EMAILS+11* |
| XMY("Christine.Chesney@domain.ext" | EMAILS+30* |
| XMY("Christine.Link@domain.ext" | EMAILS+32* |
| XMY("John.Williams30ec0c@domain.ext" | EMAILS+31* |
| 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+6 |
