Routine: PSXRSUS

Information

PSXRSUS ;BIR/WPB,BAB,HTW-CMOP Transmission Handler ;15 Dec 2001

Source file <PSXRSUS.m>

Name	Comments	DBIA/ICR reference
START
QRY
DIRECT	;Set PSXCS, PSXTRANS & PSXFLAG as per user choice
ASK	;Ask 'all divisions y/n' & date range for data transmission & checks for data
ASK2
DRIV	;calls the remaining routines to build the data for transmission and
QUE	; QUEUE the group/individual PSOSITE jobs for trans or the single job for print labels one division
TRANDIVS	;Entry from transmission tasking; loop all divisions / or process only 1
LOCK	; >>>** LOCK OF FILE 550.1 **<<<
TRANS	;;Called by PSXAUTO Taskman to begin CMOP transmissions one division
RTR	;
PRT	; print from CMOP suspense
PRT1
EXIT	;
EX1
OERRCLR	; clear any locks left in ^XTMP("OERR-"
CANMSG	; lock on 550.1 not achieved send transmission/print cancelled message
TRAPERR	; trap/process error
STOPET	;disable auto error trapping
STARTET	;enable auto error trapping

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You are not authorized to use this option!" Line Location: START+0
Function Call: WRITE	Prompt: !,"You are not authorized to use this option!" Line Location: START+1
Function Call: WRITE	Prompt: !,"A lock on the RX QUEUE file was not obtainable. A transmission is in progress, try later." Line Location: START+3
Function Call: WRITE	Prompt: !,STATUS," no Manual Transmission nor Print CMOP Suspense allowed at this time" Line Location: START+7
Function Call: WRITE	Prompt: ! Line Location: QRY+0
Function Call: WRITE	Prompt: !!,DIR("A",X),! Line Location: QRY+9
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: ASK2+0
Function Call: WRITE	Prompt: !!,$S(PSXFLAG=1:"NOTHING THRU THIS DATE TO TRANSMIT.",PSXFLAG=2:"NOTHING THRU THIS DATE TO PRINT.",1:0) Line Location: ASK2+4
Function Call: WRITE	Prompt: !!,$S(PSXFLAG=1:"NOTHING THRU THIS DATE TO TRANSMIT.",PSXFLAG=2:"NOTHING THRU THIS DATE TO PRINT.",1:0) Line Location: ASK2+5
Function Call: WRITE	Prompt: ! Line Location: ASK2+7
Function Call: WRITE	Prompt: !,TEXT(XX,0) Line Location: TRAPERR+20

FileNo	Call Tags
^PSX(550 - [#550]	Classic Fileman Calls
^PSX(550.1 - [#550.1]	Classic Fileman Calls
^PSX(550.2 - [#550.2]	Classic Fileman Calls, GET1^DIQ
^PS(59 - [#59]	GET1^DIQ