Routine: PRCNEQA2

Information

PRCNEQA2 ;SSI/ALA-Equipment Committee Approval ;[ 09/11/96 2:01 PM ]

Name	Comments	DBIA/ICR reference
BEG
BLST	; Build list of Equipment Requests
BPRT	; Update display number and print a screenful
BLP	; Main loop: get input & process help
SEL
SEL1	;
HDR	; Prints NX header and up to 12 lines of NX data
GETSUMS	; Get line item total & display stuff

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO RECORDS TO PROCESS" Line Location: BLP+3
Function Call: WRITE	Prompt: !,"No Next Page" Line Location: SEL+4
Function Call: WRITE	Prompt: !,"No Previous Page" Line Location: SEL+5
Function Call: WRITE	Prompt: @IOF,?15,EQXT_" in the following Equipment Requests",! Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Num#",?7,"Rank",?13,"Request #",?33,"Service",?60,"# Items",?70,"Amount",! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+4
Function Call: WRITE	Prompt: !,Y,?7,$P($G(^PRCN(413,D0,6)),U,3) Line Location: HDR+6
Function Call: WRITE	Prompt: ?13,$P($G(^PRCN(413,D0,0)),U) Line Location: HDR+7
Function Call: WRITE	Prompt: ?33,$E(SERV,1,25),?62,TQTY,?70,"$",$J(TOTAL,8,2) Line Location: HDR+8