Routine: PSDADJI

Information

PSDADJI ;B'ham ISC/LTL - Balance Initializer ; 3 June 92

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC ^DIE ^DIR
Controlled Substances	2	^PSDSET ^PSDSP

Package	Total	Caller Graph
Controlled Substances	1	PSD BALANCE INITIALIZE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSDLOCN Line Location: CHKD+0
Function Call: WRITE	Prompt: !!,"Give me a second to alphabetize.",! Line Location: CHKD+1
Function Call: WRITE	Prompt: @IOF Line Location: CHKD+5
Function Call: WRITE	Prompt: !!,PSDRUGN," may have to be adjusted.",!!,"There's already ",$P($G(^PSD(58.8,+PSDLOC,1,+PSDRUG,0)),U,4)," on hand." Line Location: CHKD+7
Function Call: WRITE	Prompt: @IOF Line Location: CHKD+8
Routine Call	DIE Line Location: CHKD+16 MON+2 FIND+2
Routine Call	DIC Line Location: LOOK+1 MON+1 FIND+1 FIND+5
Routine Call	DIR Line Location: CHKD+8 CHKD+12

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

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	PSDADJI+4, CHKD, CHKD+3, CHKD+7, CHKD+10, CHKD+11, CHKD+13, CHKD+17, MON, MON+1 , FIND+3
^PSD(58.81 - [#58.81]	TR, FIND*, FIND+1
^PSDRUG - [#50]	CHKD+3, CHKD+4
^TMP("PSDB"	CHKD+4*, CHKD+6, QUIT!

Name	Field # of Occurrence
^(0	CHKD+10, MON, FIND+3

Name	Field # of Occurrence
%	PSDADJI+3~, CHKD+14
%H	PSDADJI+3~
%I	PSDADJI+3~
D0	PSDADJI+3~
D1	PSDADJI+3~
D2	PSDADJI+3~
DA	PSDADJI+3~, CHKD+15, MON+2, FIND+2*, FIND+5!
DA(1	CHKD+15, MON+1, MON+2, FIND+5
DA(2	MON+1, MON+2, FIND+5*
DIC	PSDADJI+3~, LOOK, LOOK+1!, MON+1!, FIND+1!, FIND+4, FIND+5!
DIC("A"	LOOK*
DIC("S"	LOOK*
DIC(0	LOOK, MON+1, FIND+1, FIND+4
DIE	PSDADJI+3~, CHKD+15, MON+2, FIND+2*!
>> DILOCKTM	CHKD+11, TR
DINUM	PSDADJI+3~, MON+1, FIND+1, FIND+5*
DIR	PSDADJI+3~, CHKD+8!, CHKD+12!
DIR("A"	CHKD+12*
DIR(0	CHKD+8, CHKD+12
DIRUT	PSDADJI+3~, CHKD+13
DLAYGO	PSDADJI+3~, MON+1!, FIND+1!, FIND+4*, FIND+5!
DR	PSDADJI+3~, CHKD+15, MON+2, FIND+2*
DT	MON+1, MON+2
DTOUT	PSDADJI+3~, LOOK+1, CHKD+7
DUOUT	PSDADJI+3~, LOOK+1, CHKD+7
IOF	CHKD+5, CHKD+8
IOSL	CHKD+7
PSAC	PSDADJI+3~, CHKD+6*
PSAQ	PSDADJI+3~
PSDAT	PSDADJI+3~, CHKD+14*
PSDLOC	PSDADJI+3~, PSDADJI+4, LOOK+1, CHKD, CHKD+3, CHKD+7, CHKD+10, CHKD+11, CHKD+13, CHKD+15 , CHKD+17, MON, MON+1, MON+2, FIND+3, FIND+5
PSDLOCN	PSDADJI+3~, PSDADJI+4, LOOK+1, CHKD
PSDR	PSDADJI+3~
PSDREC	PSDADJI+3~, CHKD+14*, CHKD+15, CHKD+18
PSDRUG	PSDADJI+3~, CHKD+2, CHKD+3, CHKD+4, CHKD+6*, CHKD+7, CHKD+10, CHKD+11, CHKD+13, CHKD+15 , CHKD+17, MON, MON+1, MON+2, FIND+3, FIND+5
PSDRUGN	PSDADJI+3~, CHKD+2, CHKD+6, CHKD+7, CHKD+9
PSDS	PSDADJI+3~, PSDADJI+4
>> PSDSITE	PSDADJI+2
PSDT	PSDADJI+3~, FIND*, FIND+1, FIND+2, FIND+5
U	PSDADJI+4, LOOK+1, CHKD+3, CHKD+4, CHKD+7, CHKD+10, FIND
X	PSDADJI+3~, MON+1, FIND+1, FIND+5*
Y	PSDADJI+3~, LOOK+1, CHKD+4!, CHKD+6, CHKD+8!, CHKD+13*, CHKD+14, FIND+5!