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

Package Total Call Graph
Drug Accountability 4 ^PSAPROC1  ^PSAPTCH  PRINT2^PSAUP  SITES^PSAUTL1  
Kernel 2 $$FMTE^XLFDT  SIG^XUSESIG  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 13

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

Entry Points

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

External References

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