Routine: PSOARCF4

Information

PSOARCF4 ;BIR/SAB/LGH/LC-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 ^PSOARCF3,PSOARCF2
HDT
DEVICE
TAP0	; PRINTS INDEX TO FILE
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 HFS device" Line Location: TDV+2
Function Call: WRITE	Prompt: "!" 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