Routine: PXRMLPOE

Information

PXRMLPOE ;SLC/PJH,PKR - Build OE/RR Team from Patient List ;02/21/2014

Name	Comments	DBIA/ICR reference
ASK(PLIEN,OPT)	;Verify patient list name
LOCK(LIST)	;Lock the list
OERR(IENO)	;Copy patient list to OE/RR Team
OK	;Option to overwrite existing list
OTEAM(LIST,NAME,TEXT)	;Select OERR/Team
OT1
UPDLST(IENO,LIST,NAME)	;Update patient list
UNLOCK(LIST)	;Unlock the list

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+7
Function Call: WRITE	Prompt: !!?5,"Another user is using this OE/RR team list" Line Location: LOCK+2
Function Call: WRITE	Prompt: ! Line Location: OK+8
Function Call: WRITE	Prompt: ! Line Location: OTEAM+2
Function Call: WRITE	Prompt: !,"To overwrite an existing list you must be the creator of the list and" Line Location: OTEAM+3
Function Call: WRITE	Prompt: !,"the OE/RR team list must be defined as a Team List." Line Location: OTEAM+4
Function Call: WRITE	Prompt: ! Line Location: OT1+3
Function Call: WRITE	Prompt: !,"An OE/RR Team name must be entered" Line Location: OT1+5
Function Call: WRITE	Prompt: !,"Updating "_NAME Line Location: UPDLST+13
Function Call: WRITE	Prompt: ! Line Location: UPDLST+29
Function Call: WRITE	Prompt: !!,"Completed copy of patient list '"_ONAME_"'" Line Location: UPDLST+43
Function Call: WRITE	Prompt: !,"into OE/RR Team '"_NNAME_"'",! Line Location: UPDLST+44