Routine: PSOERX

Information

PSOERX ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm

Source file <PSOERX.m>

Name	Comments	DBIA/ICR reference
EN(SRCH,SORTT,PCV)	; -- main entry point for PSO ERX HOLDING QUEUE
HDR	; -- header code
INIT	; -- init variables and list array
BLDITEM(ERXIEN,CNT)	;
HELP	; -- help code
EXIT	; -- exit code
EX	; early exit logic
EXPND	; -- expand code
SEARCH	;
SORT	;
DIR(SORT,CNT,SLIST)	;
PAT()	;
DOB()	;
RDT()	;
PRVNM()	;
ESTAT()	; ; prompt for erx status
DNAME()	;
MTYPE()	;
MTYPE2	;
EREFNUM()	;
CHKKEY(DUZ)	;
CHKEXP(IEN,MTYPE)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"eRx could not be found." Line Location: SEARCH+11
Function Call: WRITE	Prompt: !!,"eRx does not belong to this division.",! Line Location: SEARCH+13