Routine: GMRAXPST

Package

Total

Call Graph

(BMES,MES)^XPDUTL

$$MG^XMBGRP

^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	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

Information