Routine: PSOARCSV

Information

PSOARCSV ;BIR/SAB/LGH-archiving save option ;07/07/92

Name	Comments	DBIA/ICR reference
AC
EN01
PDV
PDV1
TDV
RST	;Invoked from ^PSOARCCO
FILE1
END1
PDVQ
ARC
RX
ARCRX	;Mark Rx as archived in 52 by setting field 36
GAT
HD
HD1	;Invoked from ^PSOARCRR,PSOARCR1
HDT
DEVICE
TAP0	;prints index to tape
TAP1	;print "name-rx list"
EX
EX1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,$C(7),"Archiving is currently in progress on another terminal!...",!!! Line Location: AC+0
Function Call: WRITE	Prompt: !! Line Location: TDV+0
Function Call: WRITE	Prompt: !,"Must select a MAGTAPE device" Line Location: TDV+2
Function Call: WRITE	Prompt: "!",@%MT("WEL") Line Location: FILE1+1
Function Call: WRITE	Prompt: "." Line Location: RX+0
Function Call: WRITE	Prompt: !,NM_" ("_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)_") - " Line Location: GAT+3
Function Call: WRITE	Prompt: !?($L(NM)+3) Condition for execution: ($X+$L(ZII)+1)>(PSOACPM-5) Line Location: GAT+4
Function Call: WRITE	Prompt: $P(^PSRX(ZII,0),"^"),"," Line Location: GAT+4
Function Call: WRITE	Prompt: @PSOACPF,!!?58,"Archiving Index",?120,"Page "_PG,!,?62,$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3),!! Line Location: HD+0
Function Call: WRITE	Prompt: @PSOACPF,?(66-($L(PSOACDS)\2)),PSOACDS,?112,$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3),?122,"Page "_PSOAPG Line Location: HD1+1
Function Call: WRITE	Prompt: ! Line Location: HD1+1
Function Call: WRITE	Prompt: "&^NEW" Line Location: HDT+0
Function Call: WRITE	Prompt: !!,?10,"Device not available, try again later!" Line Location: DEVICE+0
Function Call: WRITE	Prompt: VAR1,! Line Location: TAP0+2
Function Call: WRITE	Prompt: VAR1,! Line Location: TAP1+2
Function Call: WRITE	Prompt: !!,"THE "_$P(^PSOARC(0),"^",1)_" file is empty. Archiving will not be done." Line Location: EX+0

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls