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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSDADJC

Package: Controlled Substances

Routine: PSDADJC


Information

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

Source Information

Source file <PSDADJC.m>

Call Graph

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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, CHKDWIT+6, WIT+7, WIT+8, WIT+12, BAL+1, BAL+6, BAL+7, BAL+13
BAL+17*, BAL+18, MONMON+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, CHKDWIT+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!, CHKDWIT+6, WIT+7, WIT+12, BAL+1, BAL+6, BAL+7
BAL+13, BAL+15, BAL+17, BAL+18, MONMON+1, MON+2, FIND+2, FIND+3, FIND+5
FIND+6
PSDLOCN PSDADJC+3~, LOOK+3*, LOOK+4!, CHKDFIND+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*, TRAFIND+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, MONMON+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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All