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

Package: Drug Accountability

Routine: PSAVER5


Information

PSAVER5 ;BIR/JMB-Verify Invoices - CONT'D ;10/6/97

Source Information

Source file <PSAVER5.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Drug Accountability 2 SITES^PSAUTL1  PHARM^PSAVER2  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Drug Accountability 2 PSAVER1  PSAVER3  

Entry Points

Name Comments DBIA/ICR reference
NONE ;No DA pharmacy locations
GETLOC ;Gets pharmacy locations
MANY ;If more than one pharmacy location, display invoices.
SELLOC ;Select the Pharmacy Location to be assigned to the order.
ONE ;Only one location
DISPMV ;Displays active master vaults
MASTER ;Assigns invoice to Master Vault
DISPLOC ;Displays the active pharmacy locations.
CS ;Sets invoice's CONTROLLED SUBSTANCES field if a drug changed from CS to
LOCHELP ;Extended help for the select "Pharmacy Location" prompt
SELMV ;Select displayed master vaults

External References

Name Field # of Occurrence
^DIR SELMV+2, SELLOC+2
SITES^PSAUTL1 GETLOC+5
PHARM^PSAVER2 MASTER+8, SELMV+4, ONE+5, SELLOC+4
$$FMTE^XLFDT MASTER+7, MASTER+9, ONE+4, MANY+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No master vaults are set up. You must set up a master vault then",!,"select the Process Uploaded Prime Vendor Invoices Data option."
  • Line Location: MASTER+3
Function Call: WRITE
  • Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN)
  • Line Location: MASTER+9
Function Call: WRITE
  • Prompt: @IOF,!?22,"<<< ASSIGN A MASTER VAULT SCREEN >>>",!,PSASLN
  • Line Location: DISPMV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPMV+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SELMV+1
Function Call: WRITE
  • Prompt: !!,"There are no Drug Accountability pharmacy locations.",!!,"Use the Set Up/Edit a Pharmacy Location option on Pharmacy Location menu"
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: !,"to setup one or more pharmacy locations. Then select the Process Uploaded",!,"Prime Vendor Invoice Data option to process the invoices."
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !!,"The non-controlled substance items on the invoice have",!,"been automatically assigned to the Pharmacy Location."
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: !!,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN)
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN)
  • Line Location: MANY+1
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!,PSASLN
  • Line Location: DISPLOC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLOC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SELLOC+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the pharmacy location for which you want to assign",!?5,"the order. The invoiced drugs in the assigned pharmacy location will be"
  • Line Location: LOCHELP+1
Function Call: WRITE
  • Prompt: !?5,"incremented with the quantity received after the order is verified."
  • Line Location: LOCHELP+2
Routine Call
  • DIR
  • Line Location:
    • SELMV+2
    • SELLOC+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] MASTER+1, MASTER+2, MASTER+6, GETLOC+1, GETLOC+2, GETLOC+3, GETLOC+4, GETLOC+5
^PSD(58.811 - [#58.811] CS+2, CS+3, CS+5*, CS+6

Label References

Name Line Occurrences
DISPLOC MANY+1
DISPMV MASTER+9
MANY GETLOC+6
NONE GETLOC+6
ONE GETLOC+6
SELLOC MANY+1
SELMV MASTER+9

Naked Globals

Name Field # of Occurrence
^(0 GETLOC+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR SELMV+2!, SELLOC+1!, SELLOC+2!
DIR("?" SELMV+1*, SELLOC+1*
DIR("??" SELMV+2*, SELLOC+2*
DIR("A" SELMV+1*, SELLOC+1*
DIR(0 SELMV+1*, SELLOC+1*
>> DIRUT SELMV+2, SELLOC+2
>> DR MASTER+8*, SELMV+4*, ONE+5*, SELLOC+4*
DT GETLOC+3
IOF DISPMV+1, DISPLOC+1
>> PSA DISPMV+2*, DISPMV+4*, DISPMV+5, SELMV+1
>> PSA10 CS+2*, CS+3*, CS+4, CS+5
>> PSACNT ONE+1*, DISPLOC+2*, DISPLOC+4*, DISPLOC+5, SELLOC+1
>> PSACOMB GETLOC+5
>> PSAIEN CS+2, CS+3, CS+5, CS+6
>> PSAIEN1 CS+2, CS+3, CS+5, CS+6
>> PSAIN MASTER+7, MASTER+9, ONE+4, MANY+1, CS+6*
>> PSAINV MASTER+7, MASTER+9, ONE+4, MANY+1
>> PSAISIT GETLOC+4*, GETLOC+5
>> PSAL CS+2*, CS+3
>> PSALOC GETLOC+1*, GETLOC+2, GETLOC+3, GETLOC+4, GETLOC+5, ONE+1*, DISPLOC+3*, DISPLOC+4, SELLOC+4*
>> PSALOCA( GETLOC+5*, DISPLOC+2, DISPLOC+3
>> PSALOCA("" ONE+1
>> PSALOCN ONE+1*, ONE+3, DISPLOC+2*, DISPLOC+3, DISPLOC+4, DISPLOC+5, SELLOC+4*
>> PSAMENU( DISPLOC+4*, SELLOC+4
>> PSAMV MASTER+1*, MASTER+2
>> PSAMV( MASTER+2*, DISPMV+2, DISPMV+3
>> PSAMVA DISPMV+2*, DISPMV+3, DISPMV+4, DISPMV+5, SELMV+4*
>> PSAMVIEN DISPMV+3*, DISPMV+4, SELMV+4*
>> PSAMVN MASTER+1*, MASTER+2*, MASTER+3, MASTER+4, MASTER+9
>> PSAN10 CS+2*, CS+4*, CS+5
>> PSANUM GETLOC+1*, GETLOC+4*, GETLOC+6
>> PSAONE GETLOC+4*, ONE+1, ONE+5
>> PSAONEMV MASTER+2*, MASTER+6, MASTER+8
>> PSAORD MASTER+7, MASTER+9, ONE+4, MANY+1
>> PSAOSIT GETLOC+4*, GETLOC+5
>> PSAOUT MASTER+3*, SELMV+2*, SELLOC+2*
>> PSASEL SELMV+3*, SELMV+4, SELLOC+3*, SELLOC+4
>> PSASLN DISPMV+1, DISPLOC+1
>> PSAVAULT( DISPMV+4*, SELMV+4
>> Y SELMV+2, SELMV+3, SELLOC+2, SELLOC+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All