Routine: GMTSRM1A

Information

GMTSRM1A ;SLC/JER,SBW - Create/Modify Health Summary (cont) ; 08/27/2002

Source file <GMTSRM1A.m>

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIR
Health Summary	1	(APPND,DELCMP,INSRT)^GMTSRM4

Package	Total	Caller Graph
Health Summary	2	GMTSRM1 GMTSRM3

Name	Comments	DBIA/ICR reference
LOADSEL	; Load Selection Item Multiple
CHKSO	; Checks for existence of Summary Order (SO). ; ; Allows for overwrite or insertion prior ; to existing "structure" records ;
GETSEL(CMP)	; Get Default Selection Items ; ; Taken from Ad Hoc for Local Components

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(^GMT(142.1,$P(^GMT(142,GMTSIFN,1,SO,0),U,2),0),U)," Already exists at SUMMARY ORDER ",SO Line Location: CHKSO+10
Routine Call	DIE Line Location: LOADSEL+3
Routine Call	DIR Line Location: CHKSO+11

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	CHKSO+9, CHKSO+10, LOADSEL+2, GETSEL+4, GETSEL+5, GETSEL+6, GETSEL+7
^GMT(142.1 - [#142.1]	CHKSO+10

Name	Field # of Occurrence
^(0	LOADSEL+2*

Name	Field # of Occurrence
CMP	GETSEL~, GETSEL+5
CMP(	CHKSO+7, CHKSO+9, CHKSO+12, LOADSEL+2, LOADSEL+3, GETSEL+7
CMP(0	CHKSO+6*
DA	LOADSEL+1~, LOADSEL+3*
DA(1	LOADSEL+3*
DA(2	LOADSEL+3*
DC	LOADSEL+1~
DIC	LOADSEL+1~, LOADSEL+3*
DIE	LOADSEL+1~, LOADSEL+3*
DIEL	LOADSEL+1~
DIR	CHKSO+5~, CHKSO+11!
DIR("A"	CHKSO+11*
DIR(0	CHKSO+11*
>> DIRUT	CHKSO+11
DK	LOADSEL+1~
DL	LOADSEL+1~
DM	LOADSEL+1~
DP	LOADSEL+1~
DR	LOADSEL+1~, LOADSEL+3*
GMI	GETSEL+3~, GETSEL+4*, GETSEL+5, GETSEL+6, GETSEL+7
GMJ	GETSEL+3~, GETSEL+5*, GETSEL+6, GETSEL+7
GMK	GETSEL+3~, GETSEL+6*, GETSEL+7
>> GMTSIFN	CHKSO+9, CHKSO+10, LOADSEL+2, LOADSEL+3
>> GMTSNEW	CHKSO+9, CHKSO+12
>> GMTSQIT	CHKSO+11*
>> IEN	LOADSEL+3
>> OLDSO	CHKSO+7, CHKSO+8, CHKSO+12*
SO	CHKSO+5~, CHKSO+6*, CHKSO+7, CHKSO+8, CHKSO+9, CHKSO+10, CHKSO+12
SOACTION	CHKSO+5~, CHKSO+8, CHKSO+12
U	CHKSO+10
>> Y	CHKSO+6, CHKSO+12, CHKSO+13, CHKSO+14