Routine: DGPTOM1

Information

DGPTOM1 ;ALB/AS - PTF MEANS TEST INDICATOR OF 'U' REPORT ; 19 MAR 87 14:00

Source file <DGPTOM1.m>

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: RD+0
Function Call: WRITE	Prompt: !!,"Choose DATE RANGE by ",!?4,"(D)ISCHARGE DATE or (A)DMISSION DATE: DISCHARGE// " Line Location: ASK+0
Function Call: WRITE	Prompt: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!?12,"CHOOSE FROM:",!?12,"A - to choose beginning and ending report dates by admission dates",!?12,"or",!?12,"D - to choose by discharge dates",! Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: DT+0
Function Call: WRITE	Prompt: !,*7,?12,"Please limit your date range to no more than 1 year." Line Location: DT+2
Function Call: WRITE	Prompt: !!,"Sort by (P)ATIENT NAME or (T)ERMINAL DIGIT ORDER: PATIENT// " Line Location: P+0
Function Call: WRITE	Prompt: X Line Location: P+0
Function Call: WRITE	Prompt: !!?12,"CHOOSE FROM:",!?12,"T - to have report sorted by terminal digit order or",!?12,"P - to sort by patient last name",! Line Location: P+1
Function Call: WRITE	Prompt: !!,"You have selected output for: ",!?4,"Patients ",$S(DGD:"discharged",1:"admitted")," between " Line Location: P+3
Function Call: WRITE	Prompt: ?4,Y," and " Line Location: P+4
Function Call: WRITE	Prompt: Y,"." Line Location: P+4
Function Call: WRITE	Prompt: !?4,"Report to be sorted by ",$S(DGP:"patient last name.",1:"terminal digit order."),! Line Location: P+5
Function Call: WRITE	Prompt: !!?6,"Enter <RET> if this information is correct",!?10,"Enter 'N' for NO to exit",!! Line Location: OK+0