GMRAXPST ;HIRMFO/WAA,RM-POST INIT FOR ALLERGY/ADVERSE REACTION ; 1/15/93
Source file <GMRAXPST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ; POST INIT PROCEDURES FOR GMRA PACKAGE
|
|
| TITLE | ; This code will update the title in the progress note package
|
|
| MAILGRP | ; Procedure to update the mail groups for ART bulletins.
|
|
| FILESEC | ; This routine is to check the file security and make the update if
; different |
|
| SEC(FILE) | ;This Function will set the security for my file
|
|
| FLSEC | ; FILE#^AUDIT^DD^DEL^LAYGO^RD^WR
|
|
| TEXT | ; This is the mail groups that are being added
|
|
| DESC | ; This is the Description for the mail groups
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | SEC+4* |
| ^GMR(121.1 | TITLE+2 |
| ^GMR(121.2 | TITLE+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | TITLE+4~, TITLE+5* |
| DIE | TITLE+4~, TITLE+5* |
| DR | TITLE+4~, TITLE+5* |
| FILE | SEC~, SEC+3, SEC+4 |
| FILENUM | SEC+1~, SEC+3*, SEC+4, SEC+5 |
| GMRAA | MAILGRP+1~, MAILGRP+7~, MAILGRP+8*, MAILGRP+10, MAILGRP+12, MAILGRP+16 |
| GMRAB | MAILGRP+1~, MAILGRP+2*, MAILGRP+10 |
| GMRAC | MAILGRP+1~, MAILGRP+3*, MAILGRP+10 |
| GMRACNT | MAILGRP+1~, MAILGRP+6*, FILESEC+2~, FILESEC+3* |
| GMRACW | TITLE+1~, TITLE+2*, TITLE+3, TITLE+5 |
| GMRAD | MAILGRP+1~, MAILGRP+4*, MAILGRP+10 |
| GMRAF | MAILGRP+7~, MAILGRP+10 |
| GMRAF(0 | MAILGRP+9* |
| GMRAG | MAILGRP+1~, MAILGRP+5*, MAILGRP+10 |
| GMRATX | FILESEC+2~, FILESEC+3* |
| GMRATXT | TITLE+7~, TITLE+10, MAILGRP+7~, MAILGRP+13, MAILGRP+19, SEC+6 |
| GMRATXT(1 | TITLE+8*, MAILGRP+12*, MAILGRP+16*, SEC+5* |
| GMRATXT(2 | TITLE+9*, MAILGRP+17* |
| GMRATXT(3 | MAILGRP+18* |
| >> GMRAVER | EN1+1 |
| GMRAX | MAILGRP+7~, MAILGRP+10*, MAILGRP+11 |
| NODE | SEC+1~, SEC+2*, SEC+4 |
| NODE2 | SEC+1~, SEC+4* |
| PIECE | SEC+1~, SEC+4* |
| U | TITLE+2, SEC+3, SEC+4 |
