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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDTRV1

Package: Controlled Substances

Routine: PSDTRV1


Information

PSDTRV1 ;BIR/JPW-Transfer CS Drugs between Vaults (cont'd) ; 17 Nov 93

Source Information

Source file <PSDTRV1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDTRV  

Entry Points

Name Comments DBIA/ICR reference
END
DIE ;update transaction data
CHK ;check for valid bal
UPDATE ;update vault balances
ADD ;find entry number
MSG ;send mailman message with transfer info
CALC ;sub/add qty from dsp sites
FIND

External References

Name Field # of Occurrence
NOW^%DTC CALC+4, MSG+1
^DIC FIND+1
FILE^DICN DIE+7
^DIE DIE+3, DIE+5
^XMD MSG+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Updating vault on-hand balances now..."
  • Line Location: UPDATE+2
Function Call: WRITE
  • Prompt: "done!",!!
  • Line Location: UPDATE+3
Function Call: WRITE
  • Prompt: $S(CNT=2:VAULTN,1:PSDSN)_"..."
  • Line Location: CALC+1
Function Call: WRITE
  • Prompt: !,"Still updating..."
  • Line Location: DIE+3
Routine Call
  • DIE
  • Line Location:
    • DIE+3
    • DIE+5
Routine Call
  • DIC
  • Line Location:
    • FIND+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" MSG+1
^PSD(58.8 - [#58.8] CALC+3, CALC+5, CALC+6, DIE+6*, DIE+7, CHK+1, CHK+2
^PSD(58.81 - [#58.81] ADD+1, FIND*, FIND+2
^TMP("PSDTRV" MSG+1!*, MSG+2*, MSG+3*, MSG+4*, MSG+5*, MSG+7!
^XUSEC("PSDMGR" MSG+6

Label References

Name Line Occurrences
CALC UPDATE+2
CHK UPDATE+1
END UPDATE+1
FIND FIND
MSG UPDATE+3

Naked Globals

Name Field # of Occurrence
^(0 CALC+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, CALC+4
%H END!
%I END!
>> ADD UPDATE+3, UPDATE+4*
BAL END!
BAL( CALC+5*, DIE+2
CNT UPDATE+2*, END!, CALC+1, CALC+2, CALC+5, DIE+2, DIE+5
DA END!, DIE+1!*, DIE+3!, DIE+5!*, DIE+7!
DA(1 DIE+5*, DIE+7*
DA(2 DIE+7*
DD END!, DIE+7!
DIC END!, FIND+1!*, DIE+7!*
DIC(0 FIND+1*, DIE+7*
DIE END!, DIE+1!*, DIE+3!, DIE+5!*
>> DILOCKTM CALC+3, ADD+1
DINUM END!, FIND+1*, DIE+7*
DIR END!
DIROUT END!
DIRUT END!
DLAYGO END!, FIND+1!*
DO END!, DIE+7!
DR END!, DIE+1!, DIE+2*, DIE+3!, DIE+5!*
DTOUT END!
DUOUT END!
EXP END!, DIE+5
JJ END!, MSG+6*
LOT END!, DIE+5
MFG END!, DIE+5
NBKU END!, DIE+5, MSG+5
NPKG END!, DIE+5
PSDLES UPDATE+1, END!, CHK+1*, CHK+2*
>> PSDOUT UPDATE+4*
PSDR END!, CALC+3, CALC+5, CALC+6, DIE+2, DIE+5, DIE+6, DIE+7, CHK+1, CHK+2
PSDREC END!, FIND*, FIND+1, DIE+1, DIE+7
PSDRN END!, MSG+3
>> PSDS CALC+2, CHK+1, CHK+2
>> PSDSN CALC+1, MSG+4
PSDT END!, CALC+4*, DIE+2
>> PSDUZ DIE+2
>> PSDUZN MSG+5
QTY END+1!
RDT END+1!, MSG+1*, MSG+2
TEMP END+1!, CALC+2*, CALC+3, CALC+5, CALC+6, DIE+2, DIE+5, DIE+6, DIE+7
TQTY END+1!, CALC+2*, CALC+5, DIE+2, CHK+1, CHK+2, MSG+5
VAULT END+1!, CALC+2
VAULTN END+1!, CALC+1, MSG+4
X END+1!, FIND+1*, DIE+7*, MSG+1
XMDUZ END+1!, MSG+6*
XMSUB END+1!, MSG+6*
XMTEXT END+1!, MSG+6*
XMY END+1!, MSG+1!, MSG+7!
XMY( MSG+6*, MSG+7*
Y END+1!, MSG+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All