Routine: PSOARCS2

Package	Total	Call Graph
Outpatient Pharmacy	3	KILLARC^PSOARCCO EN^PSOHLSN EN^PSOHLSN1
VA Fileman	3	^DIE ^DIK ^DIR
Kernel	2	^%ZIS ^%ZISC

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSO ARCHIVE PURGE PSOARC PSOARCSV PSOARCTP

Entry Points

Name	Comments	DBIA/ICR reference
TAPE1	;Invoked from ^PSOARCSV
PSOAT	;check for eot return psoaeot=1 if eot found
QMES
READ
ARC	;archive info - invoked by ^PSOARC
END
MES	;store archived Rx's in Pharmacy Patient file (#55)
EOT
VAR	;Invoked by ^PSOARCS1 and ^PSOARCS2
CLOSE

External References

Name	Field # of Occurrence
^%ZIS	CLOSE, CLOSE+1
^%ZISC	CLOSE, CLOSE+1, VAR+3
^DIE	MES+2, MES+5
^DIK	ARC+10, ARC+11, ARC+12, ARC+13, ARC+19
^DIR	ARC+4, ARC+6
KILLARC^PSOARCCO	END+3
EN^PSOHLSN	ARC+18
EN^PSOHLSN1	ARC+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @PSOACPF Line Location: CLOSE+1
Function Call: WRITE	Prompt: !!,"Deleting entries from the PRESCRIPTION file",! Line Location: ARC+7
Function Call: WRITE	Prompt: "." Line Location: ARC+8
Function Call: WRITE	Prompt: $C(7),!!!,"Finished purging old prescriptions" Line Location: ARC+14
Function Call: WRITE	Prompt: !!,"Deleting entries from the PENDING file",! Line Location: ARC+15
Function Call: WRITE	Prompt: "." Line Location: ARC+19
Function Call: WRITE	Prompt: "!" Line Location: TAPE1+1
Function Call: WRITE	Prompt: T(1) Line Location: TAPE1+1
Function Call: WRITE	Prompt: T(1) Line Location: TAPE1+1
Function Call: WRITE	Prompt: !!?5," End of tape detected ",!?5,"After current tape rewinds, mount next tape" Line Location: EOT+0
Function Call: WRITE	Prompt: ^%ZOSF("REW") Line Location: EOT+0
Function Call: READ	Timeout: DTIME Variable: XX Line Location: READ+0
Function Call: WRITE	Prompt: !!,"Recording information" Line Location: READ+1
Function Call: WRITE	Prompt: !," Check both the 'OPEN PARAMETERS' and 'ASK RIGHT MARGIN' fields of",!," your device file" Line Location: VAR+2
Routine Call	DIE Line Location: MES+2 MES+5
Routine Call	DIR Line Location: ARC+4 ARC+6
Routine Call	%ZIS Line Location: CLOSE CLOSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls
^PS(52.4 - [#52.4]	Classic Fileman Calls
^PS(52.41 - [#52.41]	Classic Fileman Calls
^PS(52.5 - [#52.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOT"	PSOAT+1
^%ZOSF("OS"	ARC+6
^%ZOSF("REW"	EOT
^PS(52.41 - [#52.41]	ARC+16, ARC+17, ARC+18
^PS(52.5 - [#52.5]	ARC+13
^PS(55 - [#55]	ARC+11, MES+2, MES+3, MES+4*
^PSOARC - [#52.8]	END+3, CLOSE+2
^PSRX - [#52]	ARC+8, ARC+9, ARC+10

Label References

Name	Line Occurrences
CLOSE	PSOARCS2+2
EOT	PSOAT+1
MES	ARC+8
PSOAT	TAPE1+1, TAPE1+2, TAPE1+3, TAPE1+4, TAPE1+5
QMES	MES+2, MES+4
READ	READ
TAPE1	TAPE1+1, TAPE1+2, TAPE1+3, TAPE1+4, TAPE1+5

Naked Globals

Name	Field # of Occurrence
^(0	ARC+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%DT	END+2!, ARC+20!
%MT	END+1!
%Y	END+2!, ARC+20!
A	TAPE1+1*, TAPE1+3, TAPE1+6!
C	END+1!
D	TAPE1+1*, TAPE1+2, TAPE1+6!
D0	END+2!, ARC+20!
D1	END+2!, ARC+20!
D2	END+2!, ARC+20!
DA	END+2!, ARC+10, ARC+11!, ARC+12!, ARC+13, ARC+19!, ARC+20!, MES+2, MES+5*
DA(1	ARC+11*
DG	TAPE1+1*, TAPE1+4, TAPE1+6!
DI	END+2!, ARC+20!
DIE	END+2!, ARC+20!, MES+2!, MES+5!
DIK	ARC+10, ARC+11!, ARC+12!, ARC+13!, ARC+19*!
DIR	END+2!, ARC+1!, ARC+4!, ARC+5!, ARC+6!, ARC+20!
DIR("A"	ARC+1, ARC+2, ARC+3, ARC+6
DIR("B"	ARC+3*
DIR(0	ARC+3, ARC+6
DIRUT	END+1!, ARC+1!, ARC+4, ARC+5!, ARC+6
DLAYGO	END+2!, ARC+20!
DQ	END+2!, ARC+20!
DR	END+2!, ARC+20!, MES+2, MES+5
DR(2	MES+2, MES+5
DT	MES+2, MES+3, MES+4, MES+5
DTIME	READ
DUSYS	END+1!
GD	TAPE1+1*, TAPE1+5, TAPE1+6!
IK	END+2!, ARC+20!
IO(0	CLOSE, CLOSE+1, EOT, READ
IOBS	END+1!
IOHG	END+1!
IOP	END!, CLOSE!, CLOSE+1!, VAR+3!
IOPAR	END+1!
IOUPAR	END+1!
IOXY	END+1!
J	END!
JJ	END!
K	END!
KK	END!
LL	END!, ARC+20!, MES+1, MES+3
LST	ARC+20!, MES+1, MES+3, MES+4
NM	END!
PAT	END+2!, ARC+10*, ARC+11, ARC+20!
PDRX	ARC+16*, ARC+17, ARC+18, ARC+19, ARC+20!
PG	END!
PHYS	END!
PI	END!
PLGTH	ARC+20!, MES+4*
PNODE	ARC+20!, MES+4*
POP	END+1!
PSABS	END!
PSDIS	END!
PSLC	END!
PSOAC	END!
PSOACD	END+2!, ARC+8*, ARC+20!, MES+2, MES+3, MES+4, MES+5
PSOACP	PSOARCS2+2*, END!
PSOACPF	END!, CLOSE+1
PSOACPL	END!
PSOACPM	END!
PSOACRS	END!
PSOACT	PSOARCS2+2, END!
>> PSOAEOT	TAPE1+1, TAPE1+2, TAPE1+3, TAPE1+4, TAPE1+5, PSOAT+1*
PSOAF	END!
PSOAM	END!
PSOAP	PSOARCS2+2!, END!, CLOSE+1
PSOAPAR	END!
PSOAPF	END+1!
PSOAPG	END!
PSOAT	PSOARCS2+2!, END!, CLOSE, PSOAT+1, PSOAT+2, EOT
PSOATNM	END+1!, READ+1*
PSOK	END+2!, ARC+20!
PSOSUSPA	ARC+10*!
PSPRCNT	END!
PSPRNP	END!
PSRST	END+1!
RFDATE	END!
RFL	END!
RFL1	END!
RM	END!
RX	END+2!, ARC+8*, ARC+9, ARC+10, ARC+11, ARC+12, ARC+13, ARC+20!
RX0	END+2!
RX1	ARC+8*, ARC+20!, MES+2, MES+4, MES+5
SS	END+1!
SSN	END+1!
ST	END!
ST0	END!
STAT	ARC+17*, ARC+19!
STOP	END+2!, VAR+1, VAR+3
T	END!
T(1	TAPE1+1
T(2	TAPE1+1, TAPE1+2
T(3	TAPE1+3
T(4	TAPE1+4
T(5	TAPE1+5
TI	TAPE1+2, TAPE1+3, TAPE1+4, TAPE1+5, TAPE1+6!
TZ	END+1!
X	END!, ARC+11*
X1	END!
X2	END!
XNEW	END+1!
XNM	END+1!
XSS	END+1!
XX	END+1!, READ*
>> Y	ARC+4, ARC+6, PSOAT+1
ZI	END!
ZII	END!
ZZI	END+2!, ARC+20!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOARCS2

Information

Source Information

Call Graph

Call Graph Total: 8

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

Naked Globals

Local Variables

Legend: