Routine: GMTSRN

Information

GMTSRN ;SLC/JER - Renumber Selected Health Summary Type ; 08/27/2002

Source file <GMTSRN.m>

Package	Total	Call Graph
VA Fileman	2	^DIK ^DIR
Health Summary	1	LOADCMP^GMTSRM5

Package	Total	Caller Graph
Health Summary	5	GMTS IRM/ADPAC TYPE RESEQUENCE GMTSLOAD GMTSOBA2 GMTSOBL GMTSRM

Name	Comments	DBIA/ICR reference
RNMBR	; Traverses GMTSEG(SEQ) - Resets ^GMT(142,GMTSIFN,1,
GETSEL	; Gets Selection Items from Multiple
MAIN	; Initializes Variables and Controls Branching
PURGE	; Deletes Old Node from ^GMT(142,GMTSIFN,1,GMTSI, using ^DIK
COPY	; Copies Structure Multiple into GMTSEG(SEQ,
SELECT	; Select Health Summary Type

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MAIN+1
Function Call: WRITE	Prompt: ! Line Location: SELECT+2
Function Call: WRITE	Prompt: !,$C(7),"This summary is currently locked to prevent alteration.",! Line Location: SELECT+7
Function Call: WRITE	Prompt: !,$C(7),"Alteration of this summary is restricted to its owner.",!,"See the Clinical Coordinator if you need additional help." Line Location: SELECT+8
Function Call: WRITE	Prompt: "." Line Location: COPY+4
Routine Call	DIR Line Location: SELECT+2

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	SELECT+4, COPY+1, COPY+2, COPY+4, GETSEL+1
^XUSEC(	SELECT+5, SELECT+7
^XUSEC("GMTSMGR"	SELECT+5

Name	Field # of Occurrence
^(	COPY+4, GETSEL+1
^(0	SELECT+4, COPY+4

Name	Field # of Occurrence
CCT	RNMBR+1~*
CHANGE	MAIN+1~, COPY+1, COPY+2, COPY+3
DA	PURGE+1~*, RNMBR+1~!
DA(1	PURGE+1, RNMBR+1
DIE	RNMBR+1~*
DIK	PURGE+1~*
DIR	SELECT+1~, SELECT+2!
DIR(0	SELECT+2*
>> DIRUT	SELECT+2
DR	RNMBR+1~
DUZ	SELECT+4, SELECT+5, SELECT+7, SELECT+8
GMTSEG	MAIN+1~, COPY+1!
GMTSEG(	COPY+4, GETSEL+1, RNMBR+1
GMTSI	MAIN+1~, COPY+1~, COPY+2, COPY+4*, GETSEL+1, PURGE+1
GMTSIFN	MAIN+1~, SELECT+3*, SELECT+4, COPY+1, COPY+2, COPY+4, GETSEL+1, PURGE+1, RNMBR+1
GMTSJ	MAIN+1~
GMTSKEY	SELECT+1~, SELECT+4*, SELECT+5, SELECT+7
GMTSMGR	SELECT+1~, SELECT+5*, SELECT+6
GMTSOWN	SELECT+1~, SELECT+4*, SELECT+5, SELECT+8
GMTSQIT	MAIN+1~, SELECT+2, SELECT+7, SELECT+8*
GMTSUM	MAIN+1~, SELECT+3*
ISEQ	RNMBR+1~
SEQ	COPY+1~, COPY+4, GETSEL+1, RNMBR+1~
SN	GETSEL+1~*
U	SELECT+3, SELECT+4, COPY+4
X	SELECT+1~
Y	SELECT+1~, SELECT+3