Routine: PSIVORE1

Information

PSIVORE1 ;BIR/RGY,PR,MLM - ACT,NEW ORDER ;Dec 09, 2020@08:26:32

Name	Comments	DBIA/ICR reference
S	;
STR	;
EC	;
P	;*305
ACT	; Prompt and process label action.
B
B1	;
SS	;
GSTRING	; Setup edit "^" string.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: P+5
Function Call: WRITE	Prompt: !!,"Next delivery time is " Line Location: P+5
Function Call: WRITE	Prompt: !!,"Next delivery time is " Line Location: P+5
Function Call: WRITE	Prompt: ! Line Location: B1+1
Function Call: WRITE	Prompt: !!,"There ",$S(SNM>1:"are",1:"is")," already ",SNM," LABEL",$E("S",SNM>1)," suspended for this order." Line Location: B1+3
Function Call: WRITE	Prompt: !! Line Location: SS+1
Function Call: WRITE	Prompt: !,"Enter # labels, less than 100, to act on." Line Location: SS+2
Function Call: WRITE	Prompt: " No action taken ***" Line Location: SS+3
Function Call: WRITE	Prompt: $C(7),"NO Labels suspended, Wait 8 seconds and try again." Line Location: SS+4
Function Call: WRITE	Prompt: " ... ",PSIVLABN," Label",$E("s",PSIVLABN>1)," suspended !" Line Location: SS+9
Function Call: WRITE	Prompt: ! Line Location: SS+11