Routine: PSX41PST

Information

PSX41PST ;BIR/PDW-New indexes in PSX patch 41, MOVE 550.1 INTO 550.21 ;08/12/2002

Name	Comments	DBIA/ICR reference
EN	;
5501	; REMOVE ENTRIES FROM 550.1
5502
MSG	; print reminder to use Kernel tasking
TXT	;
COR5502	;correct Total RXs field from PSX241 v25
CMPNDX	; new compound index on CMOP Indicator "CMP"
PIECE(REC,DLM,VP)	; VP="Variable^Piece" : S Variable=$P(REC,DLM,Piece)

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MSG+2
Function Call: WRITE	Prompt: !,$P(X,";;",2) Line Location: MSG+3
Function Call: WRITE	Prompt: !!,"^^^ PLEASE NOTE THE ABOVE ^^^^" Line Location: MSG+4
Function Call: WRITE	Prompt: !,"Pausing 20 seconds" Line Location: MSG+5
Function Call: WRITE	Prompt: "." Line Location: MSG+5
Function Call: WRITE	Prompt: !,"Updating the RX Suspense file's new 'CMP' index." Line Location: CMPNDX+2
Function Call: WRITE	Prompt: !,"Processing the AQ, AL, AX, AP indexes into the CMP index" Line Location: CMPNDX+3
Function Call: WRITE	Prompt: !!,INDX Line Location: CMPNDX+5
Function Call: WRITE	Prompt: "." Line Location: CMPNDX+11