Routine: PSDADJC

Information

PSDADJC ;B'ham ISC/LTL,JPW - Balance Shift Checker for NAOU ; 16 Feb 94

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Controlled Substances	4	DEV^PSDBAN ^PSDORSU ^PSDRFM ^PSDSET
VA FileMan	4	NOW^%DTC ^DIC ^DIE ^DIR
Kernel	1	$$WITNESS^XUVERIFY

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Controlled Substances	1	PSD NURSE ONLINE COUNT

Entry Points

Name	Comments	DBIA/ICR reference
LOOK
CHKD
WIT
BAL
INV
MON
TRA
TR
FIND
MM
REP
QUIT

External References

Name	Field # of Occurrence
NOW^%DTC	BAL+8, INV
^DIC	LOOK+1, MON+1, FIND+1, FIND+5
^DIE	BAL+16, MON+2, FIND+2
^DIR	BAL+4, BAL+11, BAL+14, REP+1
DEV^PSDBAN	REP+1
^PSDORSU	BAL+13
^PSDRFM	MM
^PSDSET	PSDADJC+2
$$WITNESS^XUVERIFY	WIT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LOOK+1
Function Call: WRITE	Prompt: !!,"This NAOU does not maintain a perpetual inventory balance to check.",!! Line Location: LOOK+4
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSDLOCN Line Location: CHKD+0
Function Call: WRITE	Prompt: ! Line Location: WIT+0
Function Call: WRITE	Prompt: !!,"Wait a second, you can't witness yourself!",$C(7) Line Location: WIT+1
Function Call: WRITE	Prompt: !!,"Thank you, ",$S($P($G(^VA(200,NUR2,.1)),U,4)]"":$P($G(^(.1)),U,4),1:$P($G(^VA(200,NUR2,0)),U)) Line Location: WIT+3
Function Call: WRITE	Prompt: !!,"Give me a second to alphabetize.",! Line Location: WIT+4
Function Call: WRITE	Prompt: @IOF Line Location: WIT+10
Function Call: WRITE	Prompt: !!,"That's no change." Line Location: BAL+12
Function Call: WRITE	Prompt: ! Line Location: BAL+14
Routine Call	DIC Line Location: LOOK+1 MON+1 FIND+1 FIND+5
Routine Call	DIE Line Location: BAL+16 MON+2 FIND+2
Routine Call	DIR Line Location: BAL+4 BAL+11 BAL+14 REP+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	LOOK+4, CHKD, WIT+6, WIT+7, WIT+8, WIT+12, BAL+1, BAL+6, BAL+7, BAL+13 , BAL+17*, BAL+18, MON, MON+1, FIND+3
^PSD(58.81 - [#58.81]	TR, FIND*, FIND+1
^PSDRUG - [#50]	WIT+7, WIT+9
^TMP("PSDB"	WIT+9*, WIT+11, WIT+13, QUIT!
^VA(200 - [#200]	WIT+3

Label References

Name	Line Occurrences
BAL	BAL+13
FIND	FIND
INV	BAL+5, BAL+12
LOOK	LOOK+4
QUIT	PSDADJC+2, LOOK+1, CHKD, WIT+2, WIT+11
TRA	INV+1
WIT	WIT+1

Naked Globals

Name	Field # of Occurrence
^(	WIT+3
^(0	WIT+8, MON, FIND+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PSDADJC+3~, BAL+8, INV
%H	PSDADJC+3~
%I	PSDADJC+3~
D0	PSDADJC+3~
D1	PSDADJC+3~
D2	PSDADJC+3~
DA	PSDADJC+3~, BAL+15, MON+2, FIND+2*, FIND+5!
DA(1	BAL+15, MON+1, MON+2, FIND+5
DA(2	MON+1, MON+2, FIND+5*
DIC	PSDADJC+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	PSDADJC+3~, BAL+15, MON+2, FIND+2*!
>> DILOCKTM	BAL+6, TR
DINUM	PSDADJC+3~, MON+1, FIND+1, FIND+5*
DIR	PSDADJC+3~, BAL+4!, BAL+11!, BAL+14!, REP+1!
DIR("A"	BAL+3, BAL+10, REP*
DIR("B"	BAL+3, BAL+11, REP+1*
DIR(0	BAL+3, BAL+10, BAL+14, REP
DIRUT	PSDADJC+3~, WIT+11, BAL+4, BAL+11, BAL+14
DLAYGO	PSDADJC+3~, MON+1!, FIND+1!, FIND+4*, FIND+5!
DR	PSDADJC+3~, BAL+16, MON+2, FIND+2*
DT	MON+1, MON+2
DTOUT	PSDADJC+3~, LOOK+1
DUOUT	PSDADJC+3~, LOOK+1
DUZ	WIT+1, FIND+2, MM
IOF	WIT+10
>> NAOU	LOOK+3, FIND+6
>> NAOU(1	BAL+13*
>> NAOUN	LOOK+3, FIND+6
NODE	PSDADJC+3~, WIT+13*, BAL+2, BAL+9
>> NUR2	WIT*, WIT+1, WIT+2, WIT+3, FIND+2
>> PHARM1	MM*
PSAC	PSDADJC+3~
PSAQ	PSDADJC+3~
PSDAT	PSDADJC+3~, BAL+8, INV, FIND+2, MM
PSDBKU	PSDADJC+3~, WIT+8*, WIT+9
PSDLOC	PSDADJC+3~, LOOK+3*, LOOK+4!, CHKD, WIT+6, WIT+7, WIT+12, BAL+1, BAL+6, BAL+7 , BAL+13, BAL+15, BAL+17, BAL+18, MON, MON+1, MON+2, FIND+2, FIND+3, FIND+5 , FIND+6
PSDLOCN	PSDADJC+3~, LOOK+3*, LOOK+4!, CHKD, FIND+6
PSDOUT	PSDADJC+3~, WIT+11, BAL+13
PSDPKG	PSDADJC+3~, WIT+8*, WIT+9
PSDR	PSDADJC+3~, MM*
>> PSDRE	BAL+14, FIND+2, MM
PSDREC	PSDADJC+3~, BAL+1, BAL+2, BAL+11, BAL+12, BAL+13, INV+1, TRA, FIND+2, MM
PSDREC(1	BAL+1, BAL+7, BAL+11*, BAL+16, INV+1
PSDREC(2	BAL+1*, FIND+2
PSDRUG	PSDADJC+3~, WIT+5, WIT+6, WIT+7, WIT+8, WIT+9, WIT+10, WIT+11, WIT+12, WIT+13 , BAL+1, BAL+6, BAL+7, BAL+13, BAL+15, BAL+17, BAL+18, MON, MON+1, MON+2 , FIND+2, FIND+3, FIND+5, MM
PSDRUGN	PSDADJC+3~, WIT+5, WIT+10, WIT+11*, WIT+13, BAL
PSDS	PSDADJC+3~, LOOK+3*, LOOK+4!, WIT+8
>> PSDSITE	PSDADJC+2
PSDT	PSDADJC+3~, FIND, FIND+1, FIND+2, FIND+5, MM
>> QTY	MM*
U	LOOK+3, WIT+3, WIT+7, WIT+9, BAL+1, BAL+2, BAL+7, FIND
X	PSDADJC+3~, MON+1, FIND+1, FIND+5*
Y	PSDADJC+3~, LOOK+1, LOOK+3, WIT+9!, BAL+5, BAL+11, BAL+12, BAL+13, BAL+14, FIND+5! , REP+1
Y(0	LOOK+3

Customize PDF page

Package: Controlled Substances