Routine: GMTSPREI

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

GMTSPREI ;SLC/SBW - GMTS* Preinit ;4/18/95

Source Information

Source file <GMTSPREI.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	6	NOW^%DTC ^DIC FILE^DICN ^DIE ^DIK EN^DIU2

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Health Summary	1	GMTSPOST

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	; Controls branching
APPGRP	; Add "GMTS" Application Group to file 60, 71, 120.51, 9999999.64, ; 9001017, and 811.9. Done only if not there already.
RENMED	; Rename medicine summary comp. abbreviation
DELFLD	; Deletes obsolete fields in Health Summary Type (#142) file
NOW()	; Extrinsic special variable to return current date/time

External References

Name	Field # of Occurrence
NOW^%DTC	NOW+2
^DIC	RENMED+4
FILE^DICN	APPGRP+3
^DIE	RENMED+5
^DIK	DELFLD+5
EN^DIU2	DELFLD+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"First I need to run a pre-init...." Line Location: MAIN+2
Function Call: WRITE	Prompt: !,"Starting pre-init now...." Line Location: MAIN+3
Function Call: WRITE	Prompt: !,"Pre-init successfully completed!" Line Location: MAIN+7
Function Call: WRITE	Prompt: !!," Renaming Medicine Summary Abbreviation from MED to MEDS " Line Location: RENMED+6
Function Call: WRITE	Prompt: !,"Deleting field # ",GMX," in the Health Summary Type (#142) file." Line Location: DELFLD+5
Routine Call	DIC Line Location: RENMED+4
Routine Call	DIE Line Location: RENMED+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	APPGRP+3
^GMT(142 - [#142]	DELFLD+2
^GMT(142.1 - [#142.1]	RENMED+2

Label References

Name	Line Occurrences
$$NOW	MAIN+4
APPGRP	MAIN+5
DELFLD	MAIN+6
RENMED	MAIN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW+1~, NOW+3
%H	NOW+1~
%I	NOW+1~
DA	APPGRP+3!, RENMED+1~, RENMED+5, DELFLD+1~, DELFLD+4
DA(1	APPGRP+3*
DD	APPGRP+3!
DIC	APPGRP+3!, RENMED+4
DIC(0	APPGRP+3, RENMED+4
DIE	RENMED+1~, RENMED+5*
DIK	DELFLD+1~, DELFLD+4*
DIU	DELFLD+1~, DELFLD+6*
DIU(0	DELFLD+6*
DO	APPGRP+3!
DR	RENMED+1~, RENMED+5*
GMDA	RENMED+1~
GMI	MAIN+1~, APPGRP+2~, APPGRP+3*
>> GMTSIST	MAIN+4*
GMX	DELFLD+1~, DELFLD+3*, DELFLD+4, DELFLD+5
X	APPGRP+3, RENMED+3, NOW+1~
>> Y	APPGRP+3, RENMED+4, RENMED+5