Routine: GMPLBLD2

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Problem List	4	(BUILD,GETLIST,HDR)^GMPLBLD USERS^GMPLBLD3 (BUILD,GETLIST,HDR)^GMPLBLDC $$MSG^GMPLX
VA Fileman	4	^DIC ^DIE (,IX1)^DIK ^DIR
DRG Grouper	1	$$STATCHK^ICDAPIU
Registration	1	FULL^VALM1

Package	Total	Caller Graph
Problem List	7	GMPL ASSIGN LIST GMPL DE-ASSIGN LIST GMPLBLCK GMPLBLD GMPLBLD3 GMPLBLDC GMPLBLDF

Package

Total

Caller Graph

Problem List

GMPL ASSIGN LIST GMPL DE-ASSIGN LIST GMPLBLCK GMPLBLD GMPLBLD3 GMPLBLDC GMPLBLDF

Entry Points

Name	Comments	DBIA/ICR reference
NL1
NLQ
CKSAVE()	; Save [changes] ??
LAST(ROOT)	; Returns last subscript
GROUP(L)	; Lookup into Problem Selection Group file #125.11
SAVLST	; Save changes to existing list
VALGRP(GMPLCAT)	; check all problems in the category for inactive codes ; Input: ; GMPLCAT = ien from file 125.11
ASSIGN	; allow lookup of PROB SEL LIST and assign to users
NEWLST	; Change selection lists
NEWGRP	; Change problem groups
DEL1	; Ok, go for it ...
NGQ
VALLIST(LIST)	;check all categories in list for probs w/ inactive codes ; Input: ; LIST = ien from file 125	ICR #6735 Status: Active Usage: Private
SAVGRP	; Save changes to existing group
LIST(L)	; Lookup into Problem Selection List file #125
SAVE	; Save changes to group/list
DELETE	; Delete problem group
NEW(DIK,LIST,ITEM)	; Create new entry in Contents file #125.1 or #125.12
NG1

External References

Name	Field # of Occurrence
^DIC	GROUP+4, LIST+4, ASSIGN+4
^DIE	SAVGRP+12, SAVLST+12
^DIK	SAVGRP+6, SAVLST+6, DEL1+2, DEL1+3
IX1^DIK	NEW+6
^DIR	CKSAVE+4, SAVE+15, SAVE+30, DELETE+5
BUILD^GMPLBLD	NL1+4
GETLIST^GMPLBLD	NL1+4
HDR^GMPLBLD	NL1+4
USERS^GMPLBLD3	ASSIGN+12
BUILD^GMPLBLDC	NG1+4
GETLIST^GMPLBLDC	NG1+4
HDR^GMPLBLDC	NG1+4
$$MSG^GMPLX	NGQ, NLQ
$$STATCHK^ICDAPIU	SAVE+9, VALGRP+16
FULL^VALM1	NEWGRP+1, NEWLST+1, SAVE+11, SAVE+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"This category is currently being edited by another user!",! Line Location: NG1+2
Function Call: WRITE	Prompt: $C(7),!!,"This list is currently being edited by another user!",! Line Location: NL1+2
Function Call: WRITE	Prompt: !!,$C(7),"This Group contains problems with inactive ICD9 codes associated with them." Line Location: SAVE+12
Function Call: WRITE	Prompt: !,"The codes must be edited and corrected before the group can be saved." Line Location: SAVE+13
Function Call: WRITE	Prompt: !!,$C(7),"This Selection List contains problems with inactive ICD9 codes associated with" Line Location: SAVE+27
Function Call: WRITE	Prompt: !,"them. The codes must be edited and corrected before the list can be saved." Line Location: SAVE+28
Function Call: WRITE	Prompt: !!,"Saving ..." Line Location: SAVE+33
Function Call: WRITE	Prompt: " done." Line Location: SAVE+37
Function Call: WRITE	Prompt: $C(7),!!,">>> This category belongs to at least one problem selection list!",!," CANNOT DELETE" Line Location: DELETE+2
Function Call: WRITE	Prompt: !!,"Deleting category items ..." Line Location: DEL1+1
Function Call: WRITE	Prompt: "." Line Location: DEL1+2
Function Call: WRITE	Prompt: "." Line Location: DEL1+3
Function Call: WRITE	Prompt: " <done>" Line Location: DEL1+4
Function Call: WRITE	Prompt: !!,$C(7),"This Selection List contains problems with inactive ICD9 codes associated with" Line Location: ASSIGN+8
Function Call: WRITE	Prompt: !,"them. The codes must be edited and corrected before the list can be assigned to",!,"users.",!! Line Location: ASSIGN+9
Routine Call	DIE Line Location: SAVGRP+12 SAVLST+12
Routine Call	DIC Line Location: GROUP+4 LIST+4 ASSIGN+4
Routine Call	DIR Line Location: CKSAVE+4 SAVE+15 SAVE+30 DELETE+5

FileNo	Call Tags
^GMPL(125 - [#125]	Classic Fileman Calls
^GMPL(125.1 - [#125.1]	Classic Fileman Calls
^GMPL(125.11 - [#125.11]	Classic Fileman Calls
^GMPL(125.12 - [#125.12]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMPL(125 - [#125]	NL1+1, NL1+3
^GMPL(125.1 - [#125.1]	SAVLST+7, DELETE+2, VALLIST+12, VALLIST+14
^GMPL(125.11 - [#125.11]	NG1+1, NG1+3, DEL1+4
^GMPL(125.12 - [#125.12]	SAVGRP+7, DEL1+2, VALGRP+12, VALGRP+14
^TMP("GMPLIST"	SAVE+6, SAVE+8, SAVE+22, SAVE+35, SAVGRP+4, SAVGRP+5, SAVGRP+6, SAVGRP+8, SAVGRP+11, SAVLST+4 , SAVLST+5, SAVLST+6, SAVLST+8, SAVLST+11

Name	Line Occurrences
$$CKSAVE	NEWGRP+2, NEWLST+2
$$GROUP	NG1
$$LIST	NL1
$$VALGRP	SAVE+23, VALLIST+15
$$VALLIST	ASSIGN+7
@(	SAVE+35
ASSIGN	ASSIGN+7
NEW	SAVGRP+5, SAVLST+5
NEWGRP	DEL1+5
NG1	NG1+1
NGQ	NG1
NL1	NL1+1
NLQ	NL1
SAVE	NEWGRP+2, NEWLST+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CODE	SAVE+4~, SAVE+8*, SAVE+9
DA	SAVE+1~, SAVE+34, SAVE+35, SAVGRP+3, SAVGRP+4, SAVGRP+5, SAVGRP+6, SAVGRP+7, SAVGRP+8, SAVGRP+11 , SAVLST+3, SAVLST+4, SAVLST+5, SAVLST+6, SAVLST+7, SAVLST+8, SAVLST+11, NEW+1~, NEW+4, NEW+5 , DELETE+1~, DEL1+2, DEL1+3*
DIC	GROUP+1~, GROUP+2, LIST+1~, LIST+2, ASSIGN+2~, ASSIGN+3*
DIC("A"	GROUP+2, LIST+2, ASSIGN+3*
DIC(0	GROUP+2, GROUP+3, LIST+2, LIST+3, ASSIGN+3*
DIE	SAVGRP+1~, SAVGRP+9, SAVLST+1~, SAVLST+9
DIK	SAVGRP+1~, SAVGRP+2, SAVGRP+5, SAVGRP+9, SAVLST+1~, SAVLST+2, SAVLST+5, SAVLST+9, NEW~, NEW+2 , NEW+3, NEW+4, NEW+5, DELETE+1~, DEL1+2, DEL1+3*
DIR	CKSAVE+1~, SAVE+14~, SAVE+29~, DELETE+1~
DIR("?"	CKSAVE+3, DELETE+4
DIR("A"	CKSAVE+2, DELETE+3
DIR("B"	CKSAVE+2, DELETE+3
DIR(0	CKSAVE+4, SAVE+15, SAVE+30, DELETE+3
DIRUT	SAVE+14~, SAVE+29~
DLAYGO	GROUP+1~, GROUP+3, LIST+1~, LIST+3
DR	SAVGRP+1~, SAVGRP+9, SAVGRP+11, SAVGRP+12, SAVLST+1~, SAVLST+9, SAVLST+11, SAVLST+12
DT	SAVE+9, VALGRP+16
DTOUT	SAVE+14~, SAVE+29~, ASSIGN+2~, ASSIGN+5
DUOUT	SAVE+14~, SAVE+29~, ASSIGN+2~, ASSIGN+5
GMI	SAVE+7~, SAVE+9, VALGRP+13~, VALGRP+16
GMPLCAT	VALGRP~, VALGRP+9, VALGRP+12, VALLIST+13~, VALLIST+14*, VALLIST+15
GMPLCOD	VALGRP+13~, VALGRP+14*, VALGRP+15, VALGRP+16
>> GMPLGRP	NG1, NG1+3, CKSAVE+1, SAVE+3, SAVE+19, SAVE+34, SAVE+36, SAVGRP+5, DELETE+2, DELETE+3 , DEL1+2, DEL1+3, DEL1+4, DEL1+5
GMPLIEN	VALLIST+9~, VALLIST+11, VALLIST+12, VALLIST+14
>> GMPLMODE	NG1+4, NL1+4
GMPLQT	SAVE+1~, SAVE+2, SAVE+3, SAVE+6, SAVE+9, SAVE+10, SAVE+16, SAVE+19, SAVE+22, SAVE+24 , SAVE+25, SAVE+31*
GMPLSAVE	NEWGRP+2, NEWLST+2, SAVE+36!, DEL1+4!
GMPLSLST	NL1, NL1+3, SAVE+19, SAVLST+5, ASSIGN+2~, ASSIGN+11
GMPLVAL	VALLIST+9~, VALLIST+11, VALLIST+12, VALLIST+15, VALLIST+17
GMPLVALC	VALGRP+10~, VALGRP+11, VALGRP+12, VALGRP+16, VALGRP+18
>> GMPSAVED	SAVE+36*
GRP	SAVE+20~, SAVE+21, SAVE+22, SAVE+23
HDR	NEW+1~, NEW+2*
I	LAST+1~, LAST+2, SAVGRP+10, SAVGRP+11, SAVLST+10, SAVLST+11, NEW+1~, NEW+3*, NEW+4
IFN	DELETE+1~, DEL1+2*
ITEM	SAVGRP+1~, SAVGRP+7, SAVGRP+8, SAVGRP+11, SAVLST+1~, SAVLST+7, SAVLST+8, SAVLST+11, NEW~, NEW+4
ITM	SAVE+4~, SAVE+5, SAVE+6, SAVE+8
J	LAST+1~, LAST+2, LAST+3
L	GROUP~, GROUP+2, LIST~, LIST+2
LABEL	SAVE+1~, SAVE+34*, SAVE+35
LAST	NEW+1~, NEW+2*, NEW+3
LIST	NEW~, NEW+4, VALLIST~, VALLIST+10, VALLIST+12
NEWGRP	NEWGRP+1~, NG1*, NG1+1, NG1+3
NEWLST	NEWLST+1~, NL1*, NL1+1, NL1+3
PROB	VALGRP+10~, VALGRP+11, VALGRP+12, VALGRP+14
ROOT	LAST~, LAST+2
TEXT	CKSAVE+1~*, CKSAVE+2, CKSAVE+3
TMPITEM	SAVGRP+1~, SAVGRP+5*
TMPLST	SAVLST+1~, SAVLST+5*
TOTAL	NEW+1~, NEW+2*, NEW+5
U	GROUP+4, LIST+4, SAVE+8, SAVGRP+7, SAVGRP+11, SAVLST+7, SAVLST+11, NEW+2, NEW+4, NEW+5 , DELETE+3, VALGRP+14, VALLIST+14
>> VALMBCK	NGQ, NLQ, SAVE+16, SAVE+31, SAVE+37, DELETE+1, DEL1+5*
>> VALMCC	DELETE+1
>> VALMSG	NGQ, NLQ
X	GROUP+1~, LIST+1~, CKSAVE+1~, DELETE+1~, ASSIGN+2~
Y	GROUP+1~, GROUP+4, GROUP+5, LIST+1~, LIST+4, LIST+5, CKSAVE+1~, CKSAVE+5, DELETE+1~, DELETE+5 , ASSIGN+2~, ASSIGN+6, ASSIGN+7, ASSIGN+11
Y(0	GROUP+4, LIST+4

Customize PDF page

Package: Problem List

Routine: GMPLBLD2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: