Routine: PSOARCF4

Package	Total	Call Graph
Outpatient Pharmacy	6	EXIT^PSOARCCO ^PSOARCCV (,TAPE1)^PSOARCF5 TAPE^PSOARCF6 ^PSOARCTG ^PSOARX
Kernel	2	^%ZIS ^%ZISC
VA Fileman	2	^DIE ^DIR
Pharmacy Data Management	1	(PSOL,PSOUL)^PSSLOCK
Registration	1	KVA^VADPT

Package

Total

Call Graph

Outpatient Pharmacy

EXIT^PSOARCCO ^PSOARCCV (,TAPE1)^PSOARCF5 TAPE^PSOARCF6 ^PSOARCTG ^PSOARX

Kernel

^%ZIS ^%ZISC

VA Fileman

^DIE ^DIR

Pharmacy Data Management

(PSOL,PSOUL)^PSSLOCK

Registration

KVA^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSO ARCHIVE FILE SAVE PSOARC PSOARCF2 PSOARCF3

Package

Total

Caller Graph

Outpatient Pharmacy

PSO ARCHIVE FILE SAVE PSOARC PSOARCF2 PSOARCF3

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	PDV+1, TDV, TDV+1
^%ZISC	TDV+2, DEVICE+1
^DIE	ARCRX+3
^DIR	AC+2, EN01, PDV1+1, END1, PDVQ
EXIT^PSOARCCO	END1, DEVICE+1
^PSOARCCV	RX+1
^PSOARCF5	FILE1+3
TAPE1^PSOARCF5	ARC
TAPE^PSOARCF6	RX+1
^PSOARCTG	ARC
^PSOARX	RX
PSOL^PSSLOCK	ARCRX+2
PSOUL^PSSLOCK	ARCRX+3
KVA^VADPT	EX1+1

Interaction Calls

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
Routine Call	DIE Line Location: ARCRX+3
Routine Call	DIR Line Location: AC+2 EN01 PDV1+1 END1 PDVQ
Routine Call	%ZIS Line Location: PDV+1 TDV TDV+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	AC
^DPT("SSN"	ARC
^PSOARC - [#52.8]	AC, EX1+2
^PSOARC("B"	RST+1, FILE1, ARC, GAT+1
^PSOARC(0	AC+1, AC+2, EX
^PSRX - [#52]	RX, GAT+4, TAP1+1, TAP1+2
^TMP($J	GAT+1!*, GAT+4, TAP0+1

Name	Line Occurrences
ARC	FILE1
ARCRX	ARC
EN01	END1
END1	PDV+2, PDV1
EX	AC+1
EX1	AC+2, EN01, PDV+1, PDV1, TDV+1
GAT	RST+1
HD	RST+1, GAT+3
HD1	RX
HDT	RST+1
PDVQ	PDV+2
RX	ARC
TAP0	GAT+5
TAP1	TAP0+1
TDV	EN01, TDV+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%MT	EX1!
%ZIS	PDV+1!*, TDV!, TDV+1!
%ZIS("A"	PDV+1, TDV!
%ZIS("B"	TDV*
%ZIS("HFSMODE"	TDV*
DA	FILE1+2!, ARC, RX, ARCRX+1~, ARCRX+2*, EX1!
DFN	FILE1+2!, EX1!
DIE	ARCRX+1~, ARCRX+2*, ARCRX+3!
DIR	AC+2!, EN01!, PDV1+1!, END1!, PDVQ!, EX1!
DIR("?"	PDV1+1*
DIR("A"	AC+2, EN01, PDV1+1, END1, PDVQ*
DIR("B"	AC+2, EN01
DIR(0	AC+2, EN01, PDV1+1, END1, PDVQ*
DIRUT	AC+2, EN01, END1, PDVQ, EX1!
DR	ARCRX+1~, ARCRX+2*
DT	HD, HD1+1
DTOUT	PDV1, EX1!
DUOUT	PDV1, EX1!
I	FILE1+2!, EX1!
I1	FILE1+2!, EX1!
IO	PDV+2, TDV+3
IO(0	RX
>> IOBS	TDV+3
IOF	PDV+2, TDV+3
IOM	PDV+2, TDV+3
ION	AC+1
IOP	PDV+1!, TDV+1!
>> IOPAR	TDV+3
IOSL	PDV+2
IOST	PDV+2
>> IOT	TDV+2, TDV+3
J	FILE1*, EX1!
JJ	ARC*, EX1!
KK	GAT+1, GAT+4, TAP0+1*, EX1!
LL	GAT, GAT+1, GAT+3, EX1!
LMI	FILE1+2!, EX1!
NM	GAT*, GAT+3, GAT+4, TAP0+1, EX1!
PG	AC+1, HD, EX1!
POP	PDV+1!, TDV+1!
PSOABS	TDV+3*, FILE1+2!, EX1!
PSOACDS	PDV1+1*, HD1+1, EX1!
PSOACEOT	EX1!
PSOACPF	PDV!, PDV+2*, HD, HD1+1, EX1!
PSOACPL	PDV!, PDV+2*, RX, GAT+3, EX1!
PSOACPM	PDV!, PDV+2*, GAT+4, EX1!
PSOACRS	AC+1*, EX1!
PSOAEOT	FILE1+2!
PSOAF	TDV+3*, EX1!
PSOAIO	TDV+3*, EX1+1!
PSOAIOT	TDV+3*, EX1+1!
PSOAM	TDV+3*, EX1+1!
PSOAP	PDV!, PDV+2*, PDV1, RST+1, RX, GAT+2, GAT+3, HD, EX1+1!
PSOAPAR	TDV+3*, EX1+1!
PSOAPG	AC+1, HD1+1, EX1!
PSOARCDA	ARCRX+2*!
PSOARCRX	ARCRX+2*!, ARCRX+3!
PSOAT	TDV+3*, RST+1, ARC, RX+1, GAT+5, HDT, TAP0+1, TAP0+2, TAP1+2, EX1+1!
PSOATNM	PDV!, PDV+2, TDV+3, EX1+1!
PSOION	AC+1*, PDV+1!, TDV+1, EX1+1!
PSOK	RST+1, FILE1, FILE1+2!, EX1+1!
PSOMSG	ARCRX+2!, ARCRX+3!
RX0	FILE1+2!, RX*, ARCRX+2, EX1+1!
SS	GAT*, TAP0+1, EX1+1!
SSN	RST+1, FILE1, ARC, GAT, GAT+1, GAT+3, EX1+1!
STOP	PDV, PDV+2, END1, PDVQ*, EX1+1!
TA	FILE1+2!, EX1+1!
VAR1	FILE1+2!, TAP0+1, TAP0+2, TAP1+1, TAP1+2*, EX1+1!
X	PDV1+1!, EX1+1!
XAR1	FILE1+2!, TAP0+3*, EX1+1!
XTYPE	FILE1+2!, EX1+1!
Y	AC+2, EN01, END1, PDVQ, EX1+1!
ZI	RST+1, FILE1, ARC, GAT, GAT+1, EX1+1!
ZII	ARC, RX, GAT, GAT+1, GAT+3, GAT+4, TAP0+1, TAP1+1, TAP1+2, EX1+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOARCF4

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END1
TAP0	; PRINTS INDEX TO FILE
AC
PDVQ
GAT
HD1	;Invoked from ^PSOARCF3,PSOARCF2
PDV
TAP1	;PRINT "NAME-RX LIST"
PDV1
EN01
FILE1
DEVICE
ARC
HDT
EX
EX1
RST	;Invoked from ^PSOARCCO
ARCRX	;Mark Rx as archived in 52 by setting field 36
TDV
HD
RX