©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMRAXPST ;HIRMFO/WAA,RM-POST INIT FOR ALLERGY/ADVERSE REACTION ; 1/15/93
Source file <GMRAXPST.m>
| Package | Total | Call Graph |
|---|---|---|
| Adverse Reaction Tracking | 1 | EN1^GMRAXNKA |
| Kernel | 1 | (BMES,MES)^XPDUTL |
| MailMan | 1 | $$MG^XMBGRP |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAILGRP | ; Procedure to update the mail groups for ART bulletins.
|
|
| TEXT | ; This is the mail groups that are being added
|
|
| TITLE | ; This code will update the title in the progress note package
|
|
| EN1 | ; POST INIT PROCEDURES FOR GMRA PACKAGE
|
|
| SEC(FILE) | ;This Function will set the security for my file
|
|
| FILESEC | ; This routine is to check the file security and make the update if
; different |
|
| FLSEC | ; FILE#^AUDIT^DD^DEL^LAYGO^RD^WR
|
|
| 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 |
| Name | Line Occurrences |
|---|---|
| FILESEC | EN1+4 |
| MAILGRP | EN1+2 |
| SEC | FILESEC+3 |
| TITLE | EN1+5 |
| >> | 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 |
| Name | Field # of Occurrence |
|---|---|
| $T(DESC+GMRACNT | MAILGRP+9 |
| $T(FLSEC+GMRACNT | FILESEC+3 |
| $T(TEXT+GMRACNT | MAILGRP+8 |