Routine: GMPLPRF1

Information

GMPLPRF1 ; SLC/MKB -- Problem List User Prefs cont ;;9-5-95 11:54am

Name	Comments	DBIA/ICR reference
ADD	; -- add item(s) to view
ADD1
ADD2
REMOVE	; -- delete item(s) from view
INCLCHLD(IFN)	; Returns 1 or 0, to include 'child' services in selection
SELECT()	; Select item(s) from list
DIFFRENT()	; -- Returns 1 if view has changed, else 0
SAVE	; -- save new view in File #200/Field #125
SWITCH	; -- change preferred views (service <--> clinic)
SW1
DELETE	; -- delete preferred view (no view)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You may not have more than 60 "_I_"s included in your view!" Line Location: ADD1+3
Function Call: WRITE	Prompt: !!,"Adding "_(GMPLNO-1)_" "_I_"(s) ..." Line Location: ADD2+0
Function Call: WRITE	Prompt: "." Line Location: ADD2+2
Function Call: WRITE	Prompt: "." Line Location: ADD2+7
Function Call: WRITE	Prompt: !!,"Removing "_(GMPLNO-1)_" "_$S(GMPLMODE="S":"service",1:"clinic")_"(s) ..." Line Location: REMOVE+4
Function Call: WRITE	Prompt: "." Line Location: REMOVE+8
Function Call: WRITE	Prompt: "." Line Location: REMOVE+11
Function Call: WRITE	Prompt: !!,">>> This action will clear your current view of problems by " Line Location: SWITCH+7
Function Call: WRITE	Prompt: $S(GMPLMODE="S":"service",1:"clinic") Line Location: SWITCH+8
Function Call: WRITE	Prompt: !?5,"and present a list of "_$S(GMPLMODE="S":"clinics",1:"services") Line Location: SWITCH+9
Function Call: WRITE	Prompt: " to replace it with.",! Line Location: SWITCH+10
Function Call: WRITE	Prompt: !!,"Deleting preferred view of "_$S(GMPLMODE="S":"services",1:"clinics")_" ..." Line Location: DELETE+5
Function Call: WRITE	Prompt: " done." Line Location: DELETE+7