Routine: PSDREC

Information

PSDREC ;BIR/LTL-CS Receiving ; 6 July 94

Package	Total	Call Graph
VA Fileman	7	NOW^%DTC ^DIC DQ^DICQ DT^DICRW ^DIE Y^DIQ ^DIR
Controlled Substances	5	^PSDREC1 ^PSDREC2 ^PSDREC3 DEV^PSDREV ^PSDSET
Kernel	1	EN^XQH

Package	Total	Caller Graph
Controlled Substances	1	PSD RECEIVING

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Sorry, you need the PSJ RPHARM Security key to do receiving.",!! Line Location: PSDREC+3
Function Call: WRITE	Prompt: !!,"Current Prime Vendor P.O.#: ",Y,?40 Line Location: PV+3
Function Call: WRITE	Prompt: "Date Assigned: ",Y Line Location: PV+3
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSDLOCN Line Location: PV+4
Function Call: WRITE	Prompt: !!,"No line items on this P.O.",!! Line Location: LINE+0
Function Call: WRITE	Prompt: !!,"No receipts processed for this P.O.",!! Line Location: PART+0
Function Call: WRITE	Prompt: !!,"Previous receipts have been processed for this P.O.",! Line Location: PRE+0
Function Call: WRITE	Prompt: ! Line Location: CHO+2
Routine Call	DIE Line Location: PO+3
Routine Call	DIC Line Location: LOOK+3 PO+1 PSEL+1
Routine Call	DIR Line Location: PV PRE CHO+2

FileNo	Call Tags
^PSD(58.8 - [#58.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PV+3
^DD(58.8	PV+1
^PRC(442	PV+3, LINE, LINE+1, PART, CHO+4, PSEL
^PSD(58.8 - [#58.8]	LOOK+2, CHKD, PV+1, PV+4, PO+3
^PSD(58.81 - [#58.81]	PRE
^VA(200 - [#200]	PSDREC+4
^XUSEC("PSJ RPHARM"	PSDREC+3

Name	Line Occurrences
CHKD	SETUP+3
PO	PSEL+2
QUIT	PSDREC+2, PSDREC+3, PSDREC+4, LOOK+3, CHKD, PV+4, PO+1, PRE

Name	Field # of Occurrence
^(12	PV+3

Name	Field # of Occurrence
%	SETUP~, SETUP+1
%H	SETUP~
%I	SETUP~
C	SETUP~, PV+1*
D	SETUP~, PSEL*
D0	SETUP~
DA	SETUP~, PO+3*!
DA(1	PSEL*
DIC	SETUP~, LOOK, LOOK+3!, PO, PO+1!, PSEL*, PSEL+1!
DIC("A"	LOOK, PO+1, PSEL*
DIC("B"	LOOK+2, PV+2, PO, PSEL
DIC("S"	LOOK+1, PO+1
DIC(0	LOOK, PO, PSEL*
DIE	SETUP~, PO+3*!
DINUM	SETUP~
DIR	SETUP~, PV!, PRE!, CHO+2!
DIR("?"	PV, CHO
DIR("??"	CHO+1*
DIR("A"	PV, PRE, CHO*
DIR("B"	PV, PRE, CHO*
DIR(0	PV, PRE, CHO*
DIRUT	SETUP~, CHKD, PV, PRE, CHO+3
DLAYGO	SETUP~
DR	SETUP~, PO+3*!
DT	PV+3
DTOUT	SETUP~, PO+1
DUOUT	SETUP~, PO+1
DUZ	PSDREC+3, PSDREC+4
DZ	SETUP~, PSEL*
PSAPV	SETUP~, PV*, PO+3
PSDAT	SETUP~, SETUP+1*
PSDB	SETUP~
PSDCON	SETUP~, PO+2*
PSDI	SETUP~*
PSDIT	SETUP~
PSDL	SETUP~*
PSDLOC	SETUP~, SETUP+2, LOOK+2, LOOK+3, CHKD, PV+1, PV+4, PO+3
PSDLOCN	SETUP~, SETUP+2, LOOK+2, LOOK+3, PV+4
PSDOUT	SETUP~
PSDP	SETUP~, CHO+4, PSEL+1
PSDPI	SETUP~, CHO+4, PSEL+1
PSDPO	SETUP~, PV+1, PV+3, PO, PO+1, PO+3, LINE, LINE+1, PART, PRE , CHO+4, PSEL, PSEL+2
PSDPO(1	PO+1, LINE, LINE+1, PART
PSDREC	SETUP~
PSDRUG	SETUP~
PSDRUGN	SETUP~
PSDS	SETUP~
>> PSDSITE	PSDREC+2, SETUP+2, SETUP+3, LOOK+4*
PSDT	SETUP~
PSDW	SETUP~
U	PSDREC+4, SETUP+2, SETUP+3, LOOK+2, LOOK+3, LOOK+4, CHKD, PV+1, PV+3, PO+2 , PO+3, LINE+1, CHO+4, PSEL, PSEL+1
X	SETUP~
XQH	PSDREC+4~*
Y	SETUP~, LOOK+3, LOOK+4, PV, PV+1, PV+2, PV+3, PO+1, PRE, CHO+3 , CHO+4*, PSEL+1, PSEL+2
Y(0	PO+2