Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: PSOARCIN

Package: Outpatient Pharmacy

Routine: PSOARCIN

Information

PSOARCIN ;BHAM ISC/LGH,SAB - tape index search ; 07/07/92

Source Information

Source file <PSOARCIN.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
Outpatient Pharmacy	2	^PSOARCR1 ^PSOARCRR
VA Fileman	2	^DIC ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO ARCHIVE TAPE RETRIEVE PSOARC

Entry Points

Name	Comments	DBIA/ICR reference
R5
PQ
END
R1
R2
P
R
NOT
QNM
RN

External References

Name	Field # of Occurrence
^%ZIS	PQ, PQ+1, END, END+1
^%ZISC	PQ, END, END+1
^DIC	RN
^DIR	R2, RN
^PSOARCR1	P+3
^PSOARCRR	P+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Must select a MAGTAPE device",!! Line Location: PQ+0
Function Call: WRITE	Prompt: !! Line Location: PQ+1
Function Call: WRITE	Prompt: !! Line Location: PQ+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: R2+1
Function Call: WRITE	Prompt: !,X Line Location: R2+1
Function Call: WRITE	Prompt: @%MT("REW") Line Location: R2+2
Function Call: WRITE	Prompt: !! Line Location: RN+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: R+0
Function Call: READ	Timeout: $P(X,"^",2)="NEW" Variable: S Line Location: R+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: R5+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: R1+0
Function Call: WRITE	Prompt: @PSOACPF,!,"The following scripts were archived on this tape for : ",!! Line Location: P+1
Function Call: WRITE	Prompt: $P(^TMP($J,"ZRX",I),"^",2) Line Location: P+2
Function Call: WRITE	Prompt: !!,NM_" does not have archived scripts on this tape." Line Location: NOT+0
Function Call: WRITE	Prompt: !!,"Enter the name or Social Security Number of the patient whose archived",!,"prescriptions you wish to retrieve. Social Security Number must be in the",!,"form : ######### (NO DASHES)!!" Line Location: QNM+0
Routine Call	DIC Line Location: RN
Routine Call	DIR Line Location: R2 RN
Routine Call	%ZIS Line Location: PQ PQ+1 END END+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOT"	R, R5
^%ZOSF("MAGTAPE"	PQ+2
^TMP($J	R+3, R5, R1*, P+2, END+2!

Label References

Name	Line Occurrences
END	PQ, PQ+1, R2, RN, R, R5, R1
NOT	R, R5
P	R1
PQ	PQ
R1	R+3, R1
R5	R+1, R+2, R+3, R5
RN	R2

Naked Globals

Name	Field # of Occurrence
^(1	P+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%MT	END+2!
%MT("REW"	PQ+2, R2+2
>> %ZIS("A"	PQ!, PQ+1!
>> %ZIS("B"	PQ*
DIC	RN*!
DIC(0	RN*
DIR	R2!, RN!
DIR("?"	RN*
DIR("A"	R2, RN
DIR("T"	R2, RN
DIR(0	R2, RN
DIRUT	RN, END+2!
DTIME	R2, R2+1, RN, R, R5, R1
>> DTOUT	R2
>> DUOUT	R2
I	P+2*, END+2!
IO	PQ, PQ+1
IO(0	PQ, PQ+1, R2+2, NOT, END, END+1
IOF	PQ+1
IOM	PQ+1
IOP	END!, END+1!
IOSL	PQ+1
IOST	PQ
NM	RN, RN+1, R+3, R5, P+2*, P+3, NOT, END+2!
NMPSOAT	END+2!
POP	PQ, PQ+1, END+2!
PSOACDS	P+3*, END+2!
PSOACPF	PQ+1*, P+1, END+2!
PSOACPL	PQ+1*, END+2!
PSOACPM	PQ+1*, END+2!
PSOAP	PQ+1*, R2+1, P+1, END+1, END+2!
PSOAPF	END+2!
PSOAPG	P+3*, END+2!
PSOAT	PQ*, R2+1, R2+2, R, R5, END, END+2!
>> PSOATNM	PQ*
SS	RN, RN+1, R+3, R5, P+2*, END+2!
TEST	END+2!
TZ	RN, R+3, R5, R1, P*, P+2, END+2!
X	R2+1, RN+1, R, R+1, R+2, R+3, R5, R1, END+2!
XNEW	PQ, R+1, R+2*, P+3, END+2!
XNM	R+3, R5, END+2!
XSS	R+3, R5, END+2!
Y	R2, RN, RN+1, R, R5, END+2!
Y(0	RN

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All