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

Package: Drug Accountability

Routine: PSAPROC


Information

PSAPROC ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data ;10/9/97

Source Information

Source file <PSAPROC.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Drug Accountability 5 ^PSAPROC1  PSAUNLCK^PSAPROC8  ^PSAPTCH  PRINT2^PSAUP  SITES^PSAUTL1  
Kernel 2 $$FMTE^XLFDT  SIG^XUSESIG  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Drug Accountability 14 PSA PROCESS PRIME VENDOR DATA  PSACOST  PSACREDO  PSALEVRP  PSAMON  PSAPROC1  PSAPROC2  PSAPROC6  
PSAPROC9  PSAUP  PSAVER  PSAVER1  PSAVER3  PSAVER4  

Entry Points

Name Comments DBIA/ICR reference
ESIG
CNT ;Count invoices that need a pharm location or master vault assigned.
LOC ;Gets pharmacy locations
NONE ;No DA pharmacy locations
ONE ;Only one location
MANY ;If more than one pharmacy location, display invoices.
DISPLOC ;Displays the active pharmacy locations.
HDR
SELECT ;Select the Pharmacy Location to be assigned to the order.
MASTER ;Assigns invoice to Master Vault
DISPMV ;Displays active master vaults
SELMV ;Select displayed master vaults
END ;Holds screen
EXIT ;Kills processing variables
MV ;Extended help for the select "Master Vault" prompt
PHARM ;Extended help for the select "Pharmacy Location" prompt
DAVE ;Select division

External References

Name Field # of Occurrence
^DIR SELECT+4, SELMV+4, END+2, DAVE+7
^PSAPROC1 CNT+11, LOC+16
PSAUNLCK^PSAPROC8 EXIT+2
^PSAPTCH CNT+6
PRINT2^PSAUP EXIT+1
SITES^PSAUTL1 LOC+5
$$FMTE^XLFDT MANY+5, MASTER+14
SIG^XUSESIG ESIG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You do not hold the key to enter the option."
  • Line Location: PSAPROC+5
Function Call: WRITE
  • Prompt: !!,"There are no Drug Accountability pharmacy locations.",!!,"Use the Set Up/Edit a Pharmacy Location option on Pharmacy Location Maintenance"
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: !,"Menu 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 invoices are being assigned to the pharmacy location. Please wait."
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!,PSASLN
  • Line Location: DISPLOC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLOC+8
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!,PSASLN
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !!?5,"Enter an Up-arrow '^' to abort the process.",!
  • Line Location: SELECT+4
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+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: MASTER+8
Function Call: WRITE
  • Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN)
  • Line Location: MASTER+14
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: !!?5,"A Master Vault must be selected. Otherwise enter an up-arrow '^' to abort.",!
  • Line Location: SELMV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the master vault for which you want to assign",!?5,"the order. The invoiced drugs in the assigned master vault will be"
  • Line Location: MV+1
Function Call: WRITE
  • Prompt: !?5,"incremented with the quantity received after the order is verified."
  • Line Location: MV+2
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: PHARM+1
Function Call: WRITE
  • Prompt: !?5,"incremented with the quantity received after the order is verified."
  • Line Location: PHARM+2
Function Call: WRITE
  • Prompt: !!,"You have invoices on your system for more than one division.",!,"Please select the location for which you want to process invoices.",!,"or Press the up-arrow to process all invoices."
  • Line Location: DAVE+6
Routine Call
  • DIR
  • Line Location:
    • SELECT+4
    • SELMV+4
    • END+2
    • DAVE+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] LOC+1, LOC+2, LOC+3, LOC+4, LOC+5, LOC+8, LOC+9, LOC+10, LOC+11
^XTMP("PSAPV" CNT+1, CNT+2, CNT+3, CNT+4, ONE+4, ONE+5*, MANY+2, MANY+3, SELECT+9*, MASTER+7
, MASTER+8*, MASTER+12, MASTER+13, SELMV+9*, DAVE+2
^XUSEC("PSA ORDERS" PSAPROC+5

Label References

Name Line Occurrences
DAVE ESIG+3
DISPLOC MANY+4
DISPMV MASTER+14
END NONE+3, MANY+7, HDR
EXIT PSAPROC+4, ESIG, CNT+11, LOC+13, LOC+16
HDR DISPLOC+6
MANY LOC+15
MASTER NONE+3, ONE+6, MANY+7
NONE LOC+13
ONE LOC+14
SELECT MANY+6
SELMV MASTER+17

Naked Globals

Name Field # of Occurrence
^(0 LOC+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT DAVE+1*, DAVE+3*, DAVE+5!
CNTR DAVE+1*, DAVE+3*, DAVE+5!
DA EXIT+5!
>> DATA DAVE+2*
DIC EXIT+5!
DIE EXIT+5!
DIK EXIT+5!
DIR SELECT+1!, SELECT+4!, SELMV+4!, END+2!, EXIT+5!
DIR("?" SELECT+1*, SELMV+1*
DIR("??" SELECT+4*, SELMV+4*
DIR("A" SELECT+1*, SELMV+1*
DIR(0 SELECT+1*, SELMV+1*, END+2*, DAVE+3*, DAVE+4*
DIRUT SELECT+5, SELMV+5, END+2, EXIT+5!
DIV DAVE+1*, DAVE+5!
DIV( DAVE+2*, DAVE+3
DIV(0 DAVE+3
DR EXIT+5!
DT LOC+3, LOC+10
DTOUT EXIT+5!
DUOUT EXIT+5!
DUZ PSAPROC+5
IOF DISPLOC+1, HDR+1, DISPMV+1, END+2
IOSL DISPLOC+6
PSA NONE+3*, ONE+6*, MANY+7*, DISPMV+2*, DISPMV+4*, DISPMV+5, SELMV+1, EXIT+5!
PSABEFOR EXIT+5!
PSACHG EXIT+5!
PSACHO EXIT+5!
PSACNT ESIG+1*, CNT+7*, CNT+9*, CNT+10*, CNT+11, ONE+1*, ONE+5*, DISPLOC+2*, DISPLOC+5*, DISPLOC+7
, SELECT+1, EXIT+5!
PSACNT1 EXIT+5!
PSACNTER EXIT+5!
PSACNTOK EXIT+5!
PSACOMB LOC+5*, EXIT+5!
PSACONT EXIT+5!
PSACS EXIT+5!
PSACS( CNT+7*, CNT+9*, MANY+6, MASTER+6, MASTER+11
PSACS("" NONE+3, ONE+6, MANY+7, MASTER+4
PSACTRL ESIG+1*, CNT+1*, CNT+2, CNT+3, CNT+4, CNT+7, CNT+9, CNT+10, ONE+3*, ONE+4
, ONE+5, MANY+1*, MANY+2, MANY+3, MANY+6, SELECT+9, MASTER+4*, MASTER+6*, MASTER+7, MASTER+8
, MASTER+11*, MASTER+12, MASTER+13, SELMV+9, EXIT+5!
PSAD0 EXIT+7!
PSAD1 EXIT+7!
PSAD2 EXIT+7!
PSAD3 EXIT+7!
PSAD4 EXIT+7!
PSAD5 EXIT+7!
PSAD6 EXIT+7!
PSADATA EXIT+7!
PSADIFF EXIT+7!
PSADISP EXIT+7!
PSADJQTY EXIT+7!
PSADLN ESIG+1*, EXIT+7!
PSADONE EXIT+7!
PSADRG1 EXIT+6!
PSADU EXIT+7!
PSAENTRY EXIT+1, EXIT+7!
PSAERR EXIT+7!
PSAFLD EXIT+5!
PSAFLDS EXIT+7!
PSAFND EXIT+7!
PSAFPR EXIT+7!
PSAGET EXIT+7!
PSAHDR EXIT+7!
PSAIEN EXIT+8!
PSAIEN3 EXIT+8!
PSAIEN50 EXIT+8!
PSAIN CNT+4*, CNT+7, CNT+8, CNT+9, CNT+10, MANY+3*, MANY+5, MASTER+13*, MASTER+14, MASTER+15
, MASTER+16, EXIT+8!
PSAINV MANY+3*, MANY+5, MASTER+13*, MASTER+14, EXIT+8!
PSAINVDL CNT+6!
PSAIPR EXIT+8!
PSAISIT LOC+4*, LOC+5, EXIT+8!
PSAISITN EXIT+8!
PSAJUST EXIT+8!
PSAKK END+1*, EXIT+8!
PSALCK PSAPROC+4~*!, EXIT+2
PSALINE EXIT+8!
PSALINES EXIT+8!
PSALLSUP EXIT+8!
PSALN EXIT+8!
PSALNCNT EXIT+8!
PSALNSU EXIT+8!
PSALOC LOC+1*, LOC+2, LOC+3, LOC+4, LOC+5, ONE+1*, ONE+5, DISPLOC+4*, DISPLOC+5, SELECT+8*
, SELECT+9, EXIT+8!
PSALOCA MANY+7!, EXIT+8!
PSALOCA( LOC+5*, DISPLOC+3, DISPLOC+4
PSALOCA("" ONE+1
PSALOCN ONE+1*, DISPLOC+2*, DISPLOC+3*, DISPLOC+4, DISPLOC+5, DISPLOC+7, SELECT+6*, SELECT+7*, SELECT+8, EXIT+8!
PSAMENU MANY+7!, EXIT+9!
PSAMENU( DISPLOC+5*, SELECT+7, SELECT+8
PSAMV LOC+8*, LOC+9, LOC+10, LOC+11, EXIT+9!
PSAMV( LOC+11*, DISPMV+2, DISPMV+3
PSAMVA DISPMV+2*, DISPMV+3, DISPMV+4, DISPMV+5, SELMV+9*, EXIT+9!
PSAMVIEN DISPMV+3*, DISPMV+4, SELMV+9*, EXIT+9!
PSAMVN LOC+8*, LOC+11*, MASTER+1, MASTER+3, MASTER+10, EXIT+9!
PSANCS EXIT+9!
PSANCS( CNT+9*, CNT+10*, ONE+3, MANY+1
PSANDC EXIT+9!
PSANEXT EXIT+9!
PSANODE EXIT+9!
PSANUM LOC+1*, LOC+4*, LOC+13, LOC+14, LOC+15, EXIT+9!
PSAOK EXIT+9!
PSAONE LOC+4*, ONE+1, EXIT+9!
PSAONEMV LOC+11*, MASTER+8, EXIT+9!
PSAORD MANY+3*, MANY+5, MASTER+13*, MASTER+14, EXIT+9!
PSAOSIT LOC+4*, LOC+5, EXIT+9!
PSAOSITN EXIT+9!
PSAOUT PSAPROC+4*!, ESIG*, ESIG+1*, LOC+13*, LOC+14, LOC+15, MANY+1, DISPLOC+6*, SELECT+5*, MASTER+1*
, MASTER+11, SELMV+5*, END+2*, EXIT+2, EXIT+9!
PSAPASS EXIT+9!
PSAPC EXIT+9!
PSAPCF EXIT+9!
PSAPCL EXIT+9!
PSAPHARM EXIT+9!
PSAPICK EXIT+9!
PSAPRICE EXIT+9!
PSAPTR EXIT+9!
PSAREA EXIT+5!
PSARECD EXIT+10!
PSAREORD EXIT+10!
PSASAME EXIT+10!
PSASEL SELECT+6*, SELECT+7, SELECT+8, SELMV+8*, SELMV+9, EXIT+10!
PSASEL1 EXIT+10!
PSASKIP EXIT+10!
PSASLN ESIG+1*, DISPLOC+1, HDR+1, DISPMV+1, EXIT+10!
PSASNODE EXIT+10!
PSASORT CNT+3, EXIT+6!, DAVE+1*, DAVE+7*
PSASS END+1*, EXIT+10!
PSASSUB EXIT+10!
PSASTOCK EXIT+10!
PSASTOP DISPLOC+2*, DISPLOC+3, DISPLOC+4, DISPLOC+6*, DISPLOC+8!
PSASUB EXIT+10!
PSASUP EXIT+10!
PSASUPP EXIT+10!
PSASYN EXIT+10!
PSAVAPN EXIT+10!
PSAVAULT EXIT+10!
PSAVAULT( DISPMV+4*, SELMV+9
PSAVSN EXIT+10!
X DAVE+2*, DAVE+5!
X1 ESIG, EXIT+10!
XX DAVE+4*, DAVE+5!
XXX DAVE+4*, DAVE+5!
Y SELECT+4, SELECT+6, SELMV+4, SELMV+8, EXIT+10!, DAVE+7
Y(0 DAVE+7
ZTDTH EXIT+10!
ZTIO EXIT+10!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All