Routine: PSDSITE

Information

PSDSITE ;BIR/JPW,LTL-Site Parameters for CS ; 3 May 95

Source file <PSDSITE.m>

Package	Total	Call Graph
VA Fileman	3	^DIC DQ^DICQ ^DIE

Package	Total	Caller Graph
Controlled Substances	1	PSD SITE
Drug Accountability	1	^PSD(58.8

Name	Comments	DBIA/ICR reference
END
MSG2	;prints msg if not in dispensing range
SITE	;entry for selecting inpatient sites in file 59.4
HIGH	;validates high range for dispensing numbers
LAST1	;checks LOW/HIGH range and LAST dispensed
LOW	;if auto generate, check low range for numbers
MSG	;prints message if range already in use
LAST	;checks range for 'last dispensed'
MSG1	;prints message if not in dispensing range

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SITE+2
Function Call: WRITE	Prompt: ! Line Location: SITE+3
Function Call: WRITE	Prompt: !!,"High dispensing # must be larger than your low dispensing # "_PSDL_".",!! Line Location: HIGH+5
Function Call: WRITE	Prompt: $C(7),!!,?12," => Dispensing Site "_$S($P(^PSD(58.8,PSD,0),"^")]"":$P(^(0),"^"),1:"NAME MISSING")_" <=",!,"has set aside the range "_$P($G(^PSD(58.8,PSD,2)),"^",2)_" through "_$P($G(^(2)),"^",3)_"." Line Location: MSG+1
Function Call: WRITE	Prompt: $C(7),!!,"Last number dispensed must be within the range "_$P($G(^PSD(58.8,DA,2)),"^",2)_" to "_$S($P($G(^(2)),"^",3):$P($G(^(2)),"^",3),1:999999999)_".",! Line Location: MSG1+1
Function Call: WRITE	Prompt: $C(7),!!,"Last number dispensed must be within the range ",LOW," to ",HIGH,".",! Line Location: MSG2+2
Routine Call	DIE Line Location: SITE+3
Routine Call	DIC Line Location: SITE+2

FileNo	Call Tags
^PS(59.4 - [#59.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	LOW+2, LOW+3, LOW+5, HIGH+2, HIGH+3, HIGH+4, MSG+1, LAST+3, LAST+4, MSG1+1

Name	Field # of Occurrence
^(0	MSG+1
^(2	LOW+2, LOW+3, LOW+5, HIGH+2, HIGH+3, MSG+1, MSG1+1

Name	Field # of Occurrence
D	SITE+1*, SITE+2!
DA	SITE+3!*, END!, LOW+5, HIGH+4, LAST+3, LAST+4, MSG1+1
DIC	SITE+1!*, SITE+2!, END!
DIC(0	SITE+1*
DIE	SITE+3!*, END!
DLAYGO	SITE+1!*, END!
DR	SITE+3!*, END!
DTOUT	END!
DUOUT	END!
DZ	SITE+1*, SITE+2!
HIGH	LAST+2!, LAST1+2, MSG2+2
LOW	LAST+2!, LAST1+1, MSG2+2
PSD	LOW+2!, LOW+3, LOW+4, LOW+5, LOW+6!, HIGH+2!, HIGH+3, HIGH+4, HIGH+7!, MSG+1
PSDCHK	LAST+2!, MSG2+1*
>> PSDEN	LAST+2
PSDFLAG	LOW+1, LOW+2!, LOW+5, LOW+6, HIGH+1, HIGH+2!, HIGH+5, HIGH+6, HIGH+7, LAST+1 , LAST+3, LAST+4, LAST1+1, LAST1+2
PSDH	HIGH+2!, HIGH+4*, HIGH+6, HIGH+7!
PSDL	LOW+2!, LOW+6!, HIGH+2!, HIGH+4*, HIGH+5, HIGH+7!
PSDL(	LOW+3, LOW+4, HIGH+3, HIGH+4
PSDL(0	LOW+4
U	SITE+3
X	END!, LOW+1, LOW+5, HIGH+1, HIGH+5, HIGH+6, LAST+1, LAST+3, LAST+4, LAST1+1 , LAST1+2
Y	SITE+2, SITE+3, END!