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 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^DG(47.76 - [#47.76] | FIND1^DIC |
