Prompt: !,$C(7),"You Must Hold the 'PSORPH' key in order to be able to use this option!",!
Line Location: PSOSUP+3
Function Call: READ
Prompt: "Select PHARMACIST: "
Formatting: !!
Timeout: DTIME
Variable: X
Line Location: ASK+0
Function Call: WRITE
Prompt: !,$P(^VA(200,PSN,0),"^")_" DOES NOT hold the 'PSORPH' Security Key",!
Line Location: ASK+2
Function Call: WRITE
Prompt: !,$P(^VA(200,PSN,0),"^")_" now holds the 'PSORPH' Security Key",!
Line Location: ASK+3
Function Call: WRITE
Prompt: !,"The pharmacist is an entry in the NEW PERSON file and holds the PSORPH",!,"key in the SECURITY KEY file.",!,"To delete a pharmacist, enter the name at the Select Pharmacist prompt and"
Line Location: PHASK+0
Function Call: WRITE
Prompt: !,"when the key PSORPH is shown as a default enter @ press return.",!,"The current list of PSORPH holders are:"