Routine: PRCPUTRS

Information

PRCPUTRS ;WISC/RFJ-transaction history file selection ;07 Jul 92

Name	Comments	DBIA/ICR reference
SELECT(PRCPINPT)
SHOW(GLOBAL)	; present list of matches to user
INFOHELP	; display info help text
HELP(Y)	; display help (if Y="" ask start with)

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select TRANSACTION REGISTER entry: " Line Location: SELECT+5
Function Call: READ	Variable: X Timeout: DTIME Line Location: SELECT+6
Function Call: WRITE	Prompt: ?65,"invalid entry" Line Location: SELECT+26
Function Call: WRITE	Prompt: !,"selected: ",$P(X,"^",2),?20,$P(X,"^",19),?40,$P(X,"^",15),?50,$E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),?60,"IM#",$P(X,"^",5),?70,$E($$DESCR^PRCPUX1(PRCPINPT,+$P(X,"^",5)),1,9) Line Location: SELECT+28
Function Call: WRITE	Prompt: !!?2,"ENTRY",?10,"TRANID",?20,"TRANSACTION",?40,"VOUCHER",?50,"DATE",?60,"ITEM" Line Location: SHOW+10
Function Call: WRITE	Prompt: !?2,ENDLINE,?10,$P(DATA,"^",2),?20,$P(DATA,"^",19),?40,$P(DATA,"^",15),?50,$E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),?60,"IM#",$P(DATA,"^",5),?70,$E($$DESCR^PRCPUX1(PRCPINPT,+$P(DATA,"^",5)),1,9) Line Location: SHOW+13
Function Call: WRITE	Prompt: !?2,"--- end of list ---" Line Location: SHOW+14
Function Call: WRITE	Prompt: !!,"Select an ENTRY from the list (from 1 to ",ENDLINE-1,"): " Line Location: SHOW+16
Function Call: READ	Variable: X Timeout: DTIME Line Location: SHOW+17
Function Call: WRITE	Prompt: ! Line Location: INFOHELP+4
Function Call: WRITE	Prompt: !?2,"tranid:",?10,$P(DATA,"^",2),?20,$P(DATA,"^",19),?40,$P(DATA,"^",15),?50,$E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3) Line Location: HELP+10