Routine: RTT3

Information

RTT3 ;MJK/TROY ISC;Record Transaction Selection Utility; ; 5/18/87 9:44 AM ;

Source file <RTT3.m>

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Select Record: " Variable: X Timeout: DTIME Line Location: SEL+4
Function Call: WRITE	Prompt: !!,RTN," Selected record",$S(RTN>1:"s",1:"")," will now be ",$P(RTMV0,"^",2),"..." Line Location: SELQ+1
Function Call: WRITE	Prompt: "." Line Location: SELQ+2
Function Call: WRITE	Prompt: !?3,RTN1," ...record",$S(RTN1>1:"s have",1:" has")," been ",$S(RTN1>$P(RTSYS,"^",2):"QUEUED to be ",1:""),$P(RTMV0,"^",2) Line Location: SELQ1+0
Function Call: WRITE	Prompt: " to '",Y,"'." Line Location: SELQ1+0
Function Call: WRITE	Prompt: !!,"Records selected to be ",$P(RTMV0,"^",2),":",!,"Record #",?10,"Name",?40,"Record Type",?65,"Vol",!,"--------",?10,"----",?40,"-----------",?65,"---" Line Location: HELP+1
Function Call: WRITE	Prompt: !?3,Y Line Location: SHOW+0
Function Call: WRITE	Prompt: ?10,$E(Y,1,20),?31,S,?40,$E(T,1,20),?65,V Line Location: SHOW+1
Function Call: WRITE	Prompt: !,*7,RTD("N"),"'s ",RTD("T"),"is already charged to " Line Location: CHK+4
Function Call: WRITE	Prompt: Y,"." Line Location: CHK+4
Function Call: WRITE	Prompt: !!?3,"Also, you can delete a selected record by entering a",!?3,"'minus' sign(-) before the record number (eg. Select Record: -342)." Line Location: DEL+0