Routine: GMTSPREI

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

Information

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

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

Package	Total	Caller Graph
Health Summary	1	GMTSPOST

Name	Comments	DBIA/ICR reference
NOW()	; Extrinsic special variable to return current date/time
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

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	DIE Line Location: RENMED+5
Routine Call	DIC Line Location: RENMED+4

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

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