Routine: GMPLISRV

Information

GMPLISRV ; SLC/MKB -- Problem List Service file utility ;8/26/93 16:30

Source file <GMPLISRV.m>

Package	Total	Call Graph
VA Fileman	4	^DIC DQ^DICQ ^DIE ^DIR
Problem List	1	$$INCLCHLD^GMPLPRF1

Package	Total	Caller Graph
Problem List	1	GMPLIPST

Name	Comments	DBIA/ICR reference
CURRENT	; Display currently designated clinical services, in GMPSERV()
EN	; Main entry point
HELP	; Write [introductory] help text
ENQ
REMOVE	; Delete clinical flag
NOTE	; Display additional note
EN1
ADD	; Add clinical flag to service
CKPG	; Check paging
LISTALL	; Display all entries in the Service file

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+0
Function Call: WRITE	Prompt: !!,"CURRENTLY SELECTED CLINICAL SERVICES" Line Location: CURRENT+1
Function Call: WRITE	Prompt: !!,"ALL "_$P($G(^DIC(4,+$G(DUZ(2)),0)),U)_" SERVICES" Line Location: LISTALL+1
Function Call: WRITE	Prompt: !?3,$P(^DIC(49,I,0),U) Line Location: ADD+7
Function Call: WRITE	Prompt: !?3,$P(^DIC(49,I,0),U)_" ... Clinical flag added" Line Location: ADD+11
Routine Call	DIE Line Location: REMOVE+3 ADD+3 ADD+10
Routine Call	DIC Line Location: REMOVE+2 ADD+2
Routine Call	DIR Line Location: EN1 CKPG+2

FileNo	Call Tags
^DIC(49 - [#49]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LISTALL+1
^DIC(49 - [#49]	EN1, ADD+5, ADD+6, ADD+7, ADD+9, ADD+11

Name	Field # of Occurrence
D	CURRENT+1~, CURRENT+3, LISTALL+1~, LISTALL+2
DA	REMOVE+1~, REMOVE+3, ADD+1~, ADD+3, ADD+5, ADD+6, ADD+10*
DIC	CURRENT+1~, CURRENT+2, LISTALL+1~, LISTALL+2, REMOVE+1~, REMOVE+2, REMOVE+3, ADD+1~, ADD+2, ADD+3
DIC("S"	CURRENT+2*
DIC(0	CURRENT+2, LISTALL+2, REMOVE+2, ADD+2
DIE	REMOVE+1~, REMOVE+3, ADD+1~, ADD+3
DIR	CKPG+1~
DIR(0	EN1, CKPG+2
DR	REMOVE+1~, REMOVE+3, ADD+1~, ADD+3, ADD+10*
DTIME	EN1+2
DUZ(2	LISTALL+1
DZ	CURRENT+1~, CURRENT+3, LISTALL+1~, LISTALL+2
GMPDONE	EN1+1, EN1+4*, ENQ!
GMPIFN	ADD+1~, ADD+6*, ADD+7, ADD+8, ADD+9
GMPQUIT	EN1+1, EN1+3, ENQ!, CKPG+2
GMPRMOVE	ENQ!
GMPSERV	ENQ!
>> I	ADD+7, ADD+9, ADD+10, ADD+11
IOF	EN1
IOSL	CKPG+2
U	LISTALL+1, ADD+6, ADD+7, ADD+11
X	EN+2~, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, CKPG+1~, REMOVE+2
Y	EN1, CKPG+1~, CKPG+2, REMOVE+2, REMOVE+3, ADD+2, ADD+3