Routine: GMPLBLD3

Package	Total	Call Graph
VA Fileman	5	^DIC DQ^DICQ ^DIE ^DIK ^DIR
Problem List	3	($$LIST,$$VALLIST)^GMPLBLD2 BUILD^GMPLMENU $$MSG^GMPLX
DRG Grouper	1	$$STATCHK^ICDAPIU
Registration	1	FULL^VALM1

Package	Total	Caller Graph
Problem List	3	GMPL DE-ASSIGN LIST GMPL DELETE LIST GMPLBLD2

Entry Points

Name	Comments	DBIA/ICR reference
ASQ
READ	; prompt for username, respond
MENU	; -- init variables and list array for GMPL LIST MENU list template ; Expects GMPLSLST=selection list
DEL1
USR
USERS(ADD)	; -- select user(s) to de-/assign list
ASSIGN	; Assign list to clinic, users: Expects GMPLSLST
DELETE	; Delete Selection List

External References

Name	Field # of Occurrence
^DIC	READ+6
DQ^DICQ	READ+5
^DIE	ASSIGN+13, USR+3
^DIK	DEL1+6, DEL1+7
^DIR	ASSIGN+8, USERS+9, DEL1+3
$$LIST^GMPLBLD2	DELETE+2
$$VALLIST^GMPLBLD2	ASSIGN+2
BUILD^GMPLMENU	MENU+15
$$MSG^GMPLX	ASQ
$$STATCHK^ICDAPIU	MENU+12
FULL^VALM1	ASSIGN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"This Selection List contains problems with inactive ICD9 codes associated with" Line Location: ASSIGN+3
Function Call: WRITE	Prompt: !,"them. The codes must be edited and corrected before the list can be assigned",!,"to users or clinics." Line Location: ASSIGN+4
Function Call: WRITE	Prompt: !!,"If you have edited the list during this session to correct inactive codes, " Line Location: ASSIGN+5
Function Call: WRITE	Prompt: !,"save the list prior to attempting to assign it." Line Location: ASSIGN+6
Function Call: WRITE	Prompt: !!,"You may assign this list to a clinic as its default selection list," Line Location: ASSIGN+11
Function Call: WRITE	Prompt: !,"as well as to individual users as a preferred selection list.",! Line Location: ASSIGN+12
Function Call: WRITE	Prompt: !!,"No users selected.",! Line Location: USERS+5
Function Call: WRITE	Prompt: !,$S(ADD:"Assigning ",1:"Removing ")_$P(GMPLSLST,U,2)_" list ..." Line Location: USR+0
Function Call: WRITE	Prompt: !?4,$P($G(^VA(200,DA,0)),U) Line Location: USR+3
Function Call: WRITE	Prompt: !!,"DONE." Line Location: USR+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: READ+1
Function Call: WRITE	Prompt: !!,"Enter the name of the user you wish this list to be "_$S(ADD:"assigned to;",1:"removed from;"),!,"enter '??' to see users currently assigned this list, or '???' to see",!,"all users on this system.",! Line Location: READ+2
Function Call: WRITE	Prompt: !!,"Users currently assigned "_$P(GMPLSLST,U,2)_" list:" Line Location: READ+4
Function Call: WRITE	Prompt: !!,"Checking the New Person file for use of this list ..." Line Location: DELETE+3
Function Call: WRITE	Prompt: "." Line Location: DELETE+6
Function Call: WRITE	Prompt: $C(7),!!,GMPCOUNT_" user(s) are currently assigned this list!",!,"CANNOT DELETE",! Line Location: DELETE+7
Function Call: WRITE	Prompt: !,"0 users found." Line Location: DELETE+8
Function Call: WRITE	Prompt: !!,"Deleting "_$P(GMPLSLST,U,2)_" selection list ..." Line Location: DEL1+4
Function Call: WRITE	Prompt: "." Line Location: DEL1+6
Function Call: WRITE	Prompt: "." Line Location: DEL1+7
Function Call: WRITE	Prompt: !,"DONE.",! Line Location: DEL1+8
Function Call: WRITE	Prompt: !!,"Retrieving list of "_$P(GMPLSLST,U,2)_" problems ..." Line Location: MENU+4
Function Call: WRITE	Prompt: !!,"No items available. Returning to Problem List ..." Line Location: MENU+14
Routine Call	DIE Line Location: ASSIGN+13 USR+3
Routine Call	DIC Line Location: READ+6
Routine Call	DIR Line Location: ASSIGN+8 USERS+9 DEL1+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMPL(125 - [#125]	Classic Fileman Calls
^GMPL(125.1 - [#125.1]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMPL(125.1 - [#125.1]	DEL1+6, MENU+5, MENU+6, MENU+7
^GMPL(125.12 - [#125.12]	MENU+9, MENU+10, MENU+11
^TMP("GMPLMENU"	MENU+3!, MENU+8, MENU+13, MENU+14
^VA(200 - [#200]	USR+3, DELETE+4, DELETE+5

Label References

Name	Line Occurrences
ASQ	ASSIGN+1, ASSIGN+2
READ	USERS+4, READ+2, READ+3, READ+6
USERS	ASSIGN+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	USERS~, USERS+7, USR, USR+1, READ+2
CODE	MENU+2~, MENU+11*, MENU+12
D	READ+5*!
DA	ASSIGN+1~, ASSIGN+13, USERS+1~, USR+2, USR+3, DELETE+1~, DEL1+5, DEL1+6, DEL1+7*
DIC	USERS+1~, USERS+3*
DIC("A"	USERS+3, USERS+4, READ+1
DIC("S"	READ+4*, READ+5!
DIC(0	USERS+3*
DIE	ASSIGN+1~, ASSIGN+13, USERS+1~, USR+1
DIK	DELETE+1~, DEL1+5, DEL1+7
DIR	ASSIGN+7~, USERS+1~, DELETE+1~
DIR("?"	USERS+7, USERS+8, DEL1+2*
DIR("A"	USERS+6, DEL1+1
DIR("B"	USERS+6, DEL1
DIR(0	ASSIGN+8, USERS+6, DEL1*
DIRUT	ASSIGN+7~
DR	ASSIGN+1~, ASSIGN+13, USERS+1~, USR+1
DT	MENU+12
DTIME	READ+1
DTOUT	ASSIGN+7~, ASSIGN+13
DUOUT	ASSIGN+7~, ASSIGN+13
DZ	READ+5*!
GCNT	MENU+2~, MENU+3, MENU+8, MENU+13
GMPCOUNT	DELETE+1~, DELETE+2, DELETE+6, DELETE+7
GMPLI	USERS+1~, USR+2*
GMPLSLST	ASSIGN+1, ASSIGN+2, ASSIGN+13, USERS+2, USERS+7, USR, USR+1, READ+4, DELETE+1~, DELETE+2* , DELETE+5, DEL1+4, DEL1+6, DEL1+7, MENU+4, MENU+5, MENU+6
GMPLUSER	USERS+1~, USERS+2, USERS+4, USERS+5, USERS+8, USR+2
GMPQUIT	DELETE+1~
GROUP	MENU+2~, MENU+7*, MENU+9, MENU+10
GSEQ	MENU+2~, MENU+3, MENU+5, MENU+6
HDR	MENU+2~, MENU+7*, MENU+8
IFN	MENU+2~, MENU+6, MENU+7, MENU+10, MENU+11
ITEM	MENU+2~, MENU+7, MENU+11, MENU+13
LCNT	MENU+2~, MENU+3*
PCNT	MENU+2~, MENU+8, MENU+13
PSEQ	MENU+2~, MENU+8, MENU+9, MENU+10
TEXT	MENU+2~, MENU+11*
U	USERS+4, USERS+7, USERS+8, USR, USR+2, USR+3, READ+4, DELETE+5, DEL1+4, MENU+4 , MENU+7, MENU+11, MENU+13
USER	DELETE+1~, DELETE+4*, DELETE+5
>> VALMBCK	ASQ, MENU+14
>> VALMQUIT	MENU+14*
>> VALMSG	ASQ*
VIEW	DELETE+1~, DELETE+5*
X	USERS+1~, READ+1*, READ+2, READ+3, READ+4, DELETE+1~
Y	USERS+1~, USERS+4, USERS+9, READ+1*, READ+6, DELETE+1~, DEL1+3

Customize PDF page

Package: Problem List

Routine: GMPLBLD3

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: