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

Package: Drug Accountability

Routine: PSAUTL5


Information

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

Source Information

Source file <PSAUTL5.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: 1

Package Total Caller Graph
Drug Accountability 1 PSAPROC6  

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+2
SITES^PSAUTL1 ORDER+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No Drug Accountability location has been created yet."
  • Line Location: PSAUTL5+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+8
Function Call: WRITE
  • Prompt: !,"There are no Drug Accountability pharmacy locations with data."
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+7
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+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] PSAUTL5+5, ORDER+2, ORDER+3, ORDER+4, ORDER+7, 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+10
EXIT PSAUTL5+6, ORDER+9, ONE+4, SELECT+2
ONE ORDER+8

Naked Globals

Name Field # of Occurrence
^(0 ORDER+7

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+2!
DIR("?" SELECT+1*
DIR("??" SELECT*
DIR("A" SELECT*
DIR(0 SELECT*
DT ORDER+4
>> PSACHK ORDER+9*
>> PSACNT ORDER+1*, ORDER+6*, ORDER+8, DISP+1*, DISP+4*, DISP+5, SELECT
>> PSACOMB ORDER+7
PSADA SETAORD+2*, SETAORD+3, SETAORD+4!
PSADA(1 SETAORD+1*, SETAORD+2, SETAORD+3
>> PSALOC PSAUTL5+5*, PSAUTL5+6, ORDER+1*, ORDER+2*, ORDER+3, ORDER+4, ORDER+6, ORDER+7, ONE+1*, ONE+2
, ONE+3*, DISP+3*, DISP+4, SELECT+4*, SELECT+5
>> PSALOC( ONE+3*, SELECT+5*
PSALOCA PSAUTL5+4!
PSALOCA( ORDER+7*, ONE+3, DISP+2, DISP+3, SELECT+5
PSALOCA("" ORDER+9
>> PSALOCN ONE+3*, DISP+1*, DISP+2*, DISP+3, DISP+4, DISP+6, SELECT+4*, SELECT+5
PSAMNU PSAUTL5+4!
PSAMNU( DISP+4*, SELECT+4
>> PSANUM SELECT+3*, SELECT+4
>> PSAONE ORDER+6*, ONE+1
>> PSAOUT PSAUTL5+6*, ORDER+8*, SELECT+2*
>> PSAPCC SELECT+3*
>> PSASL SELECT+3*
>> PSATRAN ORDER+8
>> X SETAORD+1, SETAORD+3, KILLAORD+1, SLOC+2, KLOC+1, SLOCDT+1, SLOCDT+2, KLOCDT+1, KLOCDT+2
>> Y SELECT+2, SELECT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All