Routine: GMTSRS1

Package	Total	Call Graph
VA Fileman	3	^DIC IX1^DIK ^DIR
Health Summary	1	(DIS,INA,RES)^GMTSRS1B

Package	Total	Caller Graph
Health Summary	1	GMTSRS

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main Entry Point
VER(INA,OPA,GMTST)	; Verify Resequence
MAX(ARY,X)	; Maximum # Components
DTE(X)	; Display Type Error
VER2
RESEQ(ARY)	; Resequence - .ARY
ST(X)	; Screen for Type - Assumes Y
ASK(ARY,X)	; Ask for order of Components
LKT	; Lookup HS Type
RCS	; Resequence Component Structure - Needs DA array
LKT2	; Re-prompt for Type

External References

Name	Field # of Occurrence
^DIC	LKT2+3, LKT2+6
IX1^DIK	EN+4, VER2+8
^DIR	ASK+7, VER+12
DIS^GMTSRS1B	RESEQ+4
INA^GMTSRS1B	RCS+1
RES^GMTSRS1B	RESEQ+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Resequence the Components of a Health Summary Type.",! Line Location: EN+2
Function Call: WRITE	Prompt: !,"Health Summary Type not selected ",! Line Location: EN+3
Function Call: WRITE	Prompt: !,"Can not resequence, no components found." Line Location: RCS+2
Function Call: WRITE	Prompt: !,"Resequencing not required (1 component)" Line Location: RCS+3
Function Call: WRITE	Prompt: !,"Component structure not resequenced (sequence not fully specified)" Line Location: RCS+5
Function Call: WRITE	Prompt: ! Line Location: ASK+7
Function Call: WRITE	Prompt: !,"No changes in the Health Summary Component sequence." Line Location: VER+7
Function Call: WRITE	Prompt: !,$J(GMTSC,5),?8,GMTSON,?40,GMTSNN Line Location: VER+11
Function Call: WRITE	Prompt: ! Line Location: VER+12
Function Call: WRITE	Prompt: !,"Components not resequenced" Line Location: VER+13
Function Call: WRITE	Prompt: !!," No Health Summary Type selected.",! Line Location: DTE+1
Function Call: WRITE	Prompt: !!," Health Summary Type not found.",! Line Location: DTE+2
Function Call: WRITE	Prompt: !!," Can not resequence AD HOC Health Summary Type.",! Line Location: DTE+3
Function Call: WRITE	Prompt: !!," Health Summary Type LOCKED",! Line Location: DTE+4
Function Call: WRITE	Prompt: !!," Can not resequence a Health Summary Type you do not own.",! Line Location: DTE+5
Function Call: WRITE	Prompt: !!," Can not resequence a Nationally exported Health Summary Type.",! Line Location: DTE+6
Function Call: WRITE	Prompt: !!," Health Summary Type does not have any components." Line Location: DTE+7
Function Call: WRITE	Prompt: !!," Can not resequence, selected Health Summary Type only has",!," one (1) component.",! Line Location: DTE+8
Routine Call	DIC Line Location: LKT2+3 LKT2+6
Routine Call	DIR Line Location: ASK+7 VER+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMT(142 - [#142]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMT(142 - [#142]	VER2!, VER2+3!, VER2+6, VER2+7*, ST+3, ST+8, ST+9
^XUSEC(	ST+6
^XUSEC("GMTSMGR"	ST+5

Label References

Name	Line Occurrences
$$ASK	RESEQ+5
$$MAX	RCS+2, RCS+5, RESEQ+2, ASK+2
DTE	LKT2+4
LKT	EN+3
LKT2	LKT2+4
RCS	EN+4
RESEQ	RCS+4
VER	RCS+6
VER2	VER+1, VER+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	RCS+1~!, RCS+2, RCS+4, RESEQ~, RESEQ+2, RESEQ+4, RESEQ+5, RESEQ+7!, ASK~, ASK+2 , ASK+8!, MAX~
ARY(	RESEQ+9, RESEQ+11, RESEQ+12, RESEQ+13, RESEQ+14!, MAX+1
DA	EN+1~, EN+4!, VER+3~, VER2+2, VER2+5, VER2+6, VER2+8!*
DA(1	EN+4, RCS+1, RCS+6, VER2+2
DA(2	VER2*, VER2+6, VER2+7
DIC	LKT+1~, LKT2+1, LKT2+6~
DIC("A"	LKT2+2*
DIC("S"	LKT2+1*
DIC(0	LKT2+1, LKT2+6
DIK	EN+1~, EN+4, VER+3~, VER2+8
DIR	ASK+1~, VER+3~, LKT+1~
DIR("A"	ASK+6, ASK+7, VER+12*
DIR("B"	ASK+7, VER+12
DIR(0	ASK+5, VER+12
DIROUT	ASK+1~, ASK+8, VER+3~, LKT+1~, LKT2+3
DIRUT	ASK+1~, ASK+8, VER+3~, LKT+1~, LKT2+3
DTOUT	ASK+1~, ASK+8, VER+3~, LKT+1~, LKT2+3
DUOUT	ASK+1~, ASK+8, VER+3~, LKT+1~, LKT2+3
DUZ	ST+5, ST+6
GMTS	RESEQ+1~, RESEQ+9*, RESEQ+10
GMTS0	RESEQ+1~, RESEQ+8~, RESEQ+9*, RESEQ+10
GMTS1	RESEQ+1~, RESEQ+8~
GMTS3	VER+3~, VER2+6*, VER2+7
GMTS4	VER+3~, VER2+6*, VER2+7
GMTSC	RESEQ+1~, RESEQ+11, RESEQ+13, VER+2~, VER+4, VER+10, VER+11
GMTSCHG	VER+2~, VER+4, VER+6, VER+7
GMTSERR	EN+1~, LKT+1~, LKT2+1, LKT2+4, ST+2, ST+3, ST+7, ST+8, ST+11
GMTSEX	VER+2~, VER2+2, VER2+5
GMTSF	ASK+1~, ASK+3*, ASK+4
GMTSI	RESEQ+1~, RESEQ+7, RESEQ+8, ASK+1~, ASK+3, MAX+1~, VER+2~, VER+4, VER+5, VER+6 , VER+8, VER+9
GMTSI1	VER+2~, VER+4, VER2+1, VER2+2, VER2+3, VER2+4, VER2+5
GMTSI2	VER+2~, VER2+4*, VER2+5
GMTSIN	RESEQ+1~, RESEQ+8~*, RESEQ+9, RESEQ+11, RESEQ+12, RESEQ+13, RESEQ+14
GMTSINM	RCS+1~, RCS+2*, RCS+3, RCS+5
GMTSKEY	ST+1~, ST+4*, ST+6
GMTSLOCK	ST+1~, ST+5, ST+6
GMTSMAX	RCS+1~, RCS+5, RCS+6, RESEQ+1~, RESEQ+2, RESEQ+3, RESEQ+4, ASK+1~, ASK+2*, ASK+3 , ASK+5, ASK+6
GMTSMGR	ST+1~, ST+5*
GMTSN0	ST+1~, ST+3*, ST+4, ST+7
GMTSNN	VER+2~, VER+6, VER+9, VER+11
GMTSNXT	RESEQ+1~, RESEQ+5, RESEQ+6, RESEQ+7, RESEQ+8
GMTSO	ST+1~, ST+2, ST+9, ST+10*, ST+11
GMTSON	VER+2~, VER+6, VER+9, VER+11
GMTSOP	RESEQ+1~, RESEQ+8~, RESEQ+10*, RESEQ+13
>> GMTSRO	RESEQ+3, RESEQ+4, ASK+4, VER+1, VER+7
GMTSS	EN+1~, RESEQ+1~, RESEQ+11, RESEQ+12, RESEQ+13, ST+1~, ST+9
GMTST	EN+1~, EN+4*, RCS+1~, VER~, VER+4, VER2, VER2+3, VER2+8
GMTSU	ST+1~, ST+4*
GMTSVAL	VER+2~
GMTSY	ST+1~, ST+2*, ST+3, ST+8, ST+9
INA	RCS+1~!, RCS+6, VER~
INA(	VER+5, VER+6, VER+8, VER+9
OPA	RCS+1~!, RCS+5, RCS+6, VER~
OPA(	RESEQ+10, RESEQ+13, VER+6, VER+9, VER2+1, VER2+2, VER2+3, VER2+4, VER2+5
OPA(" "	RESEQ+10
X	EN+1~, ASK~, ASK+4, ASK+8, ASK+9, MAX~, MAX+1, MAX+2, VER+3~, LKT2+6~* , ST~, ST+11*, DTE~, DTE+1, DTE+2, DTE+3, DTE+4, DTE+5, DTE+6, DTE+7 , DTE+8
Y	EN+1~, EN+3, EN+4, ASK+1~, ASK+9, VER+3~, VER+13, LKT2+3*, LKT2+5, LKT2+6 , ST+2

Customize PDF page

Package: Health Summary

Routine: GMTSRS1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: