Routine: RTNQ1

Information

RTNQ1 ;TROY ISC/MJK-Record Trace Routine ; 5/8/87 8:43 AM ; 1/17/03 9:23am

Source file <RTNQ1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"[ ",RTD("T"),"]" Line Location: PRT2+0
Function Call: WRITE	Prompt: !,RTD("D"),?20,RTVL(RT),?25,RTD("B"),?50,$E(M,1,24),?75,D Line Location: PRT2+2
Function Call: WRITE	Prompt: !?25,"(",RTD("PROV"),")" Condition for execution: $D(RTD("PROV")) Line Location: PRT2+2
Function Call: WRITE	Prompt: !!,"[ Clinic History Profile ]",!?3,"Clinic",?30,"Appointment Date/Time",?55,"Status",!?3,"------",?30,"---------------------",?55,"------" Line Location: HD+2
Function Call: WRITE	Prompt: !,"[SORT: ",$S(RTSORT="M":"By date charged,record type display order and then volume",1:"By record type display order,volume and then date charged"),"]" Line Location: HD+3
Function Call: WRITE	Prompt: !!,"Date Charged",?20,"Vol",?25,"Borrower",?50,"Type of Movement",?70,"# of Days" Line Location: HD+4