Routine: ORS100

Information

ORS100 ; SLC/RAF-unsigned orders search ;10/19/00 14:02

Source file <ORS100.m>

Name	Comments	DBIA/ICR reference
EN	;
TYPE	;sets DIR call to ask the user to select the type of order status
SORT	;sets DIR call to ask for the sorting criteria
SINGLE	;sets DIR call to ask the user if they want to sort for a single
LONER	;sets DIR call to allow the user to select the specific sort entity
SDATE	;sets DIR call to ask the user for a starting date
EDATE	;sets DIR call to ask the user for an ending date (optional)
SWITCH	;takes the date input from the user and does a switcheroo so the program
SUMONLY	;ask if summary only or full detail
TASK	;
STATS	;SERVICE/SECTION statistics
PV	;PROVIDER statistics
PT	;PATIENT statistics
L	;LOCATION statistics
EB	;ENTERED BY statistics
D	;DIVISION statistics
EXIT
LOC(LOC)	;resolves the location pointer
USER(USER)	;resolves user pointers
STAT(STA)	;resolves pointer to the order status file
SER(SER)	;resolves pointer to the service/section file
DIV(LOC)	;determines the division based on the entry in file 44
HDR	;Print header

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?30,"Unsigned Orders Search",!?15,"This report is formatted for a 132 column output.",! Line Location: EN+6
Function Call: WRITE	Prompt: !,?32,"REQUEST QUEUED" Line Location: TASK+7
Function Call: WRITE	Prompt: !,"There are no statistics for the selected sort range." Line Location: STATS+2
Function Call: WRITE	Prompt: !?41,"Subtotal",?51,LCNT Line Location: D+8
Function Call: WRITE	Prompt: !?5,"Total orders for Division: ",DIV_" = "_DCNT Line Location: D+9
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: @RPDT Line Location: HDR+4
Function Call: WRITE	Prompt: @HDR Line Location: HDR+5
Function Call: WRITE	Prompt: @HDR1 Line Location: HDR+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM),! Line Location: HDR+7