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

Package: Drug Accountability

Routine: PSAUTL3


Information

PSAUTL3 ;BIR/JMB-Upload and Process Prime Vendor Invoice Data Utility - CONT'D ;7/23/97

Source Information

Source file <PSAUTL3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Drug Accountability 1 SITES^PSAUTL1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Drug Accountability 8 PSADAI  PSADJ  PSADJR  PSADRUGP  PSAHIS  PSAREC  PSASIG  PSATRAN  

Entry Points

Name Comments DBIA/ICR reference
DISP ;Displays the available pharmacy locations.
SETAORD ;Set logic for "AORD" X-Ref
HELP ;Extended help to 'Select PHARMACY LOCATION'
FROMHELP ;Extended help to 'Select Transfer from Pharmacy'
SLOCDT ;Set logic for "ALOC" X-Ref on Invoice Date field
KLOCDT ;Kill logic for "ALOC" X-Ref
ONE ;only one
EXIT ;Kills all variables except PSALOC array & PSAOUT
KILLAORD ;Kill logic for "AORD" X-Ref
SLOC ;Set logic for "ALOC" X-Ref on Pharmacy Location & Master Vault fields
TOHELP ;Extended help to 'Select Transfer to Pharmacy'
ORDER ;If more than one pharmacy location, collect them in alpha order.
SELECT
KLOC ;Kill logic for "ALOC" X-Ref on Pharmacy Location & Master Vault fields

External References

Name Field # of Occurrence
^DIR SELECT+5
SITES^PSAUTL1 ORDER+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No Drug Accountability location has been created yet."
  • Line Location: PSAUTL3+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDER+1
Function Call: WRITE
  • Prompt: !?5,"There is only one active pharmacy location.",!?5,"There must be at least two to transfer drugs."
  • Line Location: ORDER+11
Function Call: WRITE
  • Prompt: !,"There are no Drug Accountability pharmacy locations with data."
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the pharmacy location that will transfer the drugs to another pharmacy."
  • Line Location: FROMHELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the pharmacy location you want to select.",!?5,"If you want more than one pharmacy location, enter the numbers",!?5,"separated by a comma."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!?5,"For example: Enter 1,3 or 1-3,5."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the pharmacy location that will receive the transferred the drugs."
  • Line Location: TOHELP+1
Routine Call
  • DIR
  • Line Location:
    • SELECT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] PSAUTL3+5, ORDER+2, ORDER+3, ORDER+4, ORDER+5, ORDER+10, ONE+2
^PSD(58.811 - [#58.811] SETAORD+1, SETAORD+2, SETAORD+3*, KILLAORD+1!, SLOC+1, SLOC+2*, KLOC+1!, SLOCDT+1*, SLOCDT+2*, KLOCDT+1!
, KLOCDT+2!

Label References

Name Line Occurrences
DISP ORDER+13
EXIT PSAUTL3+6, ORDER+12, ONE+4, SELECT+5
ONE ORDER+11

Naked Globals

Name Field # of Occurrence
^(0 ORDER+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA SLOC+1, SLOC+2, KLOC+1, SLOCDT+1, SLOCDT+2, KLOCDT+1, KLOCDT+2
>> DA(1 SLOC+1, SLOC+2, KLOC+1, SLOCDT+1, SLOCDT+2, KLOCDT+1, KLOCDT+2
DIR SELECT+5!, EXIT+1!
DIR("?" SELECT+4*
DIR("??" SELECT*, SELECT+2*, SELECT+3*
DIR("A" SELECT*, SELECT+2*, SELECT+3*
DIR(0 SELECT*, SELECT+1*, SELECT+3*
DT ORDER+4
IOF DISP+1
>> PSACHK ORDER+12*
>> PSACNT ORDER+1*, ORDER+9*, ORDER+11, DISP+5*, DISP+8*, DISP+9, SELECT, SELECT+1, SELECT+3
PSACOMB ORDER+10, EXIT+1!
PSADA SETAORD+2*, SETAORD+3, SETAORD+4!
PSADA(1 SETAORD+1*, SETAORD+2, SETAORD+3
PSAISIT EXIT+1!
PSAISITN EXIT+1!
>> PSALOC PSAUTL3+5*, PSAUTL3+6, ORDER+1*, ORDER+2*, ORDER+3, ORDER+4, ORDER+5, ORDER+9, ORDER+10, ONE+1*
, ONE+2, ONE+3*, DISP+7*, DISP+8, SELECT+7*, SELECT+8
>> PSALOC( ONE+3*, SELECT+8*
>> PSALOCA( ORDER+10*, ONE+3, DISP+6, DISP+7, SELECT+8
>> PSALOCA("" ORDER+12
>> PSALOCN ONE+3*, DISP+5*, DISP+6*, DISP+7, DISP+8, DISP+10, SELECT+7*, SELECT+8
PSAMENU EXIT+1!
PSAMENU( DISP+8*, SELECT+7
PSANUM SELECT+6*, SELECT+7, EXIT+1!
PSAONE ORDER+9*, ONE+1, EXIT+1!
PSAOSIT ORDER+7*, EXIT+1!
PSAOSITN ORDER+7*, EXIT+1!
>> PSAOUT PSAUTL3+6*, ORDER+11*, SELECT+5*
PSAPC SELECT+6*, EXIT+1!
>> PSASEL SELECT+6*
>> PSATRAN ORDER+5, ORDER+11, DISP+2, DISP+3, DISP+4, SELECT, SELECT+1, SELECT+2, SELECT+3
>> X SETAORD+1, SETAORD+3, KILLAORD+1, SLOC+2, KLOC+1, SLOCDT+1, SLOCDT+2, KLOCDT+1, KLOCDT+2
Y SELECT+5, SELECT+6, EXIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All