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: PSDUP3

Package: Controlled Substances

Routine: PSDUP3


Information

PSDUP3 ;BHM/DAV,JPW-IRL Program/Data Download Vault Inv. Insp. ; 5 Oct 94

Source Information

Source file <PSDUP3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Controlled Substances 2 ^PSDFIL3  ^PSDSET  
Kernel 2 ^%ZIS  ^%ZISC  
VA FileMan 1 ^DIC  

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: 2

Package Total Caller Graph
Controlled Substances 2 PSD IRL INSP DATA  PSD IRL INSPECTOR INV  

Entry Points

Name Comments DBIA/ICR reference
VAULT ;vault upload
ASKD ;ask disp location
LOOP ;loop and set ^tmp for trakker
START ;begin
1
2
DATA
QQ
UPLOAD ;upload data to DHCP
UP1
FIL
Q
NOSIGN

External References

Name Field # of Occurrence
^%ZIS START+1
^%ZISC QQ+2, NOSIGN
^DIC ASKD+4
^PSDFIL3 FIL
^PSDSET VAULT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKD+3
Function Call: WRITE
  • Prompt: $C(7),!!,"No action taken!",!!
  • Line Location: ASKD+5
Function Call: WRITE
  • Prompt: !!,"Compiling inventory data...",!
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,"/$",!,".$1",!,"$$",!,"I",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: X,!
  • Line Location: 1+2
Function Call: READ
  • Variable: XX
  • Timeout: DTIME
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: "*"_+PSDS,!
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: DATA,!,$P(DATA(1),U),!,$P(DATA(1),U,2),!
  • Line Location: DATA+0
Function Call: WRITE
  • Prompt: !,"END"
  • Line Location: QQ+0
Function Call: WRITE
  • Prompt: !,"You can now disconnect the TRAKKER.",!!
  • Line Location: QQ+1
Function Call: WRITE
  • Prompt: !,"No vault identified."
  • Line Location: UPLOAD+3
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"upload this data to the trakker.",!!,?12,"The PSJ RPHARM security key is required.",!
  • Line Location: UPLOAD+5
Function Call: WRITE
  • Prompt: !!,"Use the Send Data to DHCP option on the TRAKKER at this time.",!
  • Line Location: UPLOAD+6
Function Call: READ
  • Prompt: !
  • Variable: X
  • Timeout: DTIME
  • Line Location: UP1+0
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"No signal received from the TRAKKER",!
  • Line Location: NOSIGN+0
Routine Call
  • %ZIS
  • Line Location:
    • START+1
Routine Call
  • DIC
  • Line Location:
    • ASKD+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] START+1, 2, 2+1, QQ
^PSD(58.8 - [#58.8] LOOP+4
^PSD(58.88 - [#58.88] 1
^PSDRUG - [#50] LOOP+5
^TMP("PSDUP3" LOOP+2!, LOOP+6*, DATA, Q+1!
^TMP("PSDWN3" UPLOAD+7!, UP1*, UP1+1*, FIL
^XUSEC("PSJ RPHARM" UPLOAD+4

Label References

Name Line Occurrences
1 1+2
2 1
FIL UP1
LOOP ASKD+2
NOSIGN 2
Q ASKD+5, START+1, QQ+3, UPLOAD+3, UPLOAD+5, NOSIGN
QQ DATA
UP1 UP1, UP1+1, UP1+2
VAULT UPLOAD+2

Naked Globals

Name Field # of Occurrence
^(0 LOOP+4, LOOP+5
^(10 START+1, 2+1
^(11 2, QQ

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT UPLOAD+1!, UPLOAD+7!, UP1*, UP1+1, Q!
DA ASKD+3!, UPLOAD+1!, Q!
DATA 2+3!, DATA*, UPLOAD+1!, Q!
DATA(1 DATA*
DIC ASKD+3!*, ASKD+4!, UPLOAD+1!, Q!
DIC("A" ASKD+3*
DIC("B" ASKD+3*
DIC("S" ASKD+3*
DIC(0 ASKD+3*
DIR UPLOAD+1!
DIROUT UPLOAD+1!
DIRUT UPLOAD+1!
DTIME 2, UP1
DTOUT UPLOAD+1!, Q!
DUOUT UPLOAD+1!, Q!
DUZ UPLOAD+4
IO START+1
IOST(0 START+1, 2
OK UPLOAD+4*, UPLOAD+5, Q!
POP START+1, Q!
PROG Q!
PSD LOOP+4*, LOOP+5, LOOP+6, Q!
PSDCON UPLOAD+7*, UP1, UP1+1, Q!
PSDIO START+1*, 2+1, Q!
PSDIO(0 START+1*, 2+1, QQ
PSDN LOOP+5*, LOOP+6, Q!
PSDS ASKD+1*, ASKD+6*, LOOP+4, 2+2, UPLOAD+1!, UPLOAD+3, Q!
>> PSDSITE VAULT+1, ASKD+1, ASKD+2, ASKD+3, ASKD+6*
PSDSN ASKD+1*, ASKD+6*, UPLOAD+1!, Q!
PSDTRAKU LOOP+1, UPLOAD+2*!
QTY LOOP+4*, LOOP+6, Q!
U ASKD+1, ASKD+2, ASKD+3, ASKD+6, DATA
X START+3!, 1*, 1+1*, 1+2, 2*, UPLOAD+1!, UPLOAD+7!, UP1*, UP1+1, Q!
X1 START+3!, 1*, UPLOAD+1!, Q!
XX 2*, 2+2, Q!
Y ASKD+5, ASKD+6, 1+1*, UPLOAD+1!, Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All