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

Package: Drug Accountability

Routine: PSAPROC9


Information

PSAPROC9 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;8/19/97

Source Information

Source file <PSAPROC9.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Drug Accountability 7 (,ASKDRUG,CHECK)^PSANDF  END^PSAPROC  (DUOU,GETOU,PRICE,QTY,SETLINE)^PSAPROC3  (MANYNDCS,MANYVSNS)^PSAPROC4  (,NDCDIFF,SUPDIFF,VSNDIFF)^PSAPROC5  (DU,DUOU,REORDER,STOCK)^PSAPROC8  (EDITDISP,SITES)^PSAUTL1  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Drug Accountability 3 PSAPROC1  PSAPROC2  PSAPROC6  

Entry Points

Name Comments DBIA/ICR reference
NOTCS ;If drug is not a CS & no stock level/reorder level, store in XTMP.
NONE ;No DA pharmacy locations
CONTYN ;Extended help for 'Do you want to continue processing invoice# 99'
CONT ;Asks if user wants to continue processing invoice.
GETLOC ;Gets pharmacy locations
NEXT
PRICE
SELLOC ;Select the Pharmacy Location to be assigned to the order.
QTY
DISPMV ;Displays active master vaults
MASTER ;Assigns invoice to Master Vault
ONE ;Only one location
MANY ;If more than one pharmacy location, display invoices.
CS ;If drug is a CS & no stock level/reorder level, store in XTMP.
DISPLOC ;Displays the active pharmacy locations.
OU
DU
SELMV ;Select displayed master vaults
DUOU ;If drug has synonym & no conv factor set conv factor in 50.

External References

Name Field # of Occurrence
^DIR CONT+3, SELMV+2, SELLOC+2
^PSANDF PSAPROC9+11
ASKDRUG^PSANDF NEXT+2
CHECK^PSANDF CS+7
END^PSAPROC NOTCS+3, CS+3, MASTER+14
DUOU^PSAPROC3 DUOU+3
GETOU^PSAPROC3 OU+1, OU+2
PRICE^PSAPROC3 PRICE
QTY^PSAPROC3 QTY
SETLINE^PSAPROC3 CS+7
MANYNDCS^PSAPROC4 PSAPROC9+13
MANYVSNS^PSAPROC4 PSAPROC9+7, PSAPROC9+15
^PSAPROC5 PSAPROC9+9
NDCDIFF^PSAPROC5 PSAPROC9+17
SUPDIFF^PSAPROC5 PSAPROC9+10
VSNDIFF^PSAPROC5 PSAPROC9+14
DU^PSAPROC8 DU
DUOU^PSAPROC8 DUOU+1
REORDER^PSAPROC8 NOTCS+6, CS+6
STOCK^PSAPROC8 NOTCS+5, CS+5
EDITDISP^PSAUTL1 NOTCS+3, CS+3
SITES^PSAUTL1 GETLOC+6
$$FMTE^XLFDT MASTER+12, MASTER+15, ONE+5, MANY+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
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+6
Function Call: WRITE
  • Prompt: !,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN)
  • Line Location: MASTER+15
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: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>"
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: !!,"The non-controlled substance items on the invoice have",!,"been automatically assigned to the Pharmacy Location.",!
  • Line Location: ONE+3
Function Call: WRITE
  • Prompt: !,$P(PSALOCN,"(IP)",1)_"(IP)",!?17,$P(PSALOCN,"(IP)",2)
  • Condition for execution: $L(PSALOCN)>76
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: PSALOCN
  • Condition for execution: $L(PSALOCN)<77
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: !!,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN)
  • Line Location: ONE+5
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 YES to continue processing the current invoice and line item.",!?5,"Enter NO to discontinue processing the current invoice and exit the option."
  • Line Location: CONTYN+1
Routine Call
  • DIR
  • Line Location:
    • CONT+3
    • SELMV+2
    • SELLOC+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] NOTCS+4, NOTCS+5, NOTCS+6, CS+4, CS+5, CS+6, MASTER+2, MASTER+3, MASTER+4, MASTER+5
, MASTER+11, GETLOC+2, GETLOC+3, GETLOC+4, GETLOC+5, GETLOC+6
^PSDRUG - [#50] NEXT+6, NEXT+7, OU+1, DU, DUOU+1
^PSDRUG("C" NEXT+7
^XTMP("PSAPV" NEXT+1, NEXT+2, NEXT+6*, NEXT+8*, NOTCS+1, CONT+1, MASTER+1, MASTER+13*, SELMV+4*, GETLOC+1
, ONE+6*, SELLOC+4*

Label References

Name Line Occurrences
CONT PSAPROC9+7, PSAPROC9+9, PSAPROC9+10, PSAPROC9+11, PSAPROC9+13, PSAPROC9+14, PSAPROC9+15, PSAPROC9+17, NEXT+2, QTY
, OU, DU, DUOU+1, DUOU+3, PRICE, NOTCS+3, NOTCS+5, NOTCS+6, CS+3, CS+5
, CS+6, CS+7
DISPLOC MANY+1
DISPMV MASTER+15
GETLOC NOTCS+3
MANY GETLOC+7
MASTER CS+3
NEXT PSAPROC9+6, PSAPROC9+8, PSAPROC9+12, PSAPROC9+15
NONE GETLOC+7
ONE GETLOC+7
SELLOC MANY+1
SELMV MASTER+15

Naked Globals

Name Field # of Occurrence
^("IN" MASTER+13, SELMV+4, ONE+6, SELLOC+4
^(0 GETLOC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR CONT+3!, SELMV+2!, SELLOC+1!, SELLOC+2!
DIR("?" CONT+2*, SELMV+1*, SELLOC+1*
DIR("??" CONT+2*, SELMV+2*, SELLOC+2*
DIR("A" CONT+2*, SELMV+1*, SELLOC+1*
DIR("B" CONT+2*
DIR(0 CONT+2*, SELMV+1*, SELLOC+1*
>> DIRUT CONT+3, SELMV+2, SELLOC+2
DT MASTER+4, GETLOC+4
IOF MASTER+9, DISPMV+1, ONE+2, DISPLOC+1
>> PSA DISPMV+2*, DISPMV+4*, DISPMV+5, SELMV+1
>> PSACNT ONE+1*, DISPLOC+2*, DISPLOC+4*, DISPLOC+5, SELLOC+1
>> PSACOMB GETLOC+6
>> PSACONT PSAPROC9+5*, NEXT, CONT+3*
>> PSACS CS+2*
>> PSACTRL NEXT+1, NEXT+2, NEXT+6, NEXT+8, NOTCS+1, CONT+1, MASTER+1, MASTER+13, SELMV+4, GETLOC+1
, ONE+6, SELLOC+4
>> PSADATA PSAPROC9+6, PSAPROC9+7, PSAPROC9+9, PSAPROC9+10, PSAPROC9+11, PSAPROC9+13, PSAPROC9+14, PSAPROC9+15, PSAPROC9+17, NEXT+1*
, NEXT+2*, NEXT+5, QTY, OU, DUOU+1, DUOU+3, PRICE, NOTCS+1*, NOTCS+2, NOTCS+4
, NOTCS+5, NOTCS+6, CS+1, CS+5, CS+6
>> PSADU PSAPROC9+5*
>> PSAIEN NEXT+5*, NEXT+6, NEXT+7, OU+1, OU+2, DU, DUOU+1, DUOU+3, NOTCS+5, NOTCS+6
, CS+5, CS+6
>> PSAIN NOTCS+3, NOTCS+4, NOTCS+5, NOTCS+6, CS+3, CS+4, CS+5, CS+6, MASTER+12, MASTER+13*
, MASTER+15, SELMV+4*, ONE+5, ONE+6*, MANY+1, SELLOC+4*
>> PSAINV CONT+1*, CONT+2, MASTER+1*, MASTER+12, MASTER+15, GETLOC+1*, ONE+5, MANY+1
>> PSAISIT GETLOC+5*, GETLOC+6
>> PSALINE NEXT+1, NEXT+2, NEXT+6, NEXT+8, NOTCS+1
>> PSALINES NEXT+4*
>> PSALOC NOTCS+5*, NOTCS+6*, CS+5*, CS+6*, GETLOC+2*, GETLOC+3, GETLOC+4, GETLOC+5, GETLOC+6, ONE+1*
, ONE+6, DISPLOC+3*, DISPLOC+4, SELLOC+4*
>> PSALOCA( GETLOC+6*, DISPLOC+2, DISPLOC+3
>> PSALOCA("" ONE+1
>> PSALOCN ONE+1*, ONE+4, DISPLOC+2*, DISPLOC+3, DISPLOC+4, DISPLOC+5, SELLOC+4*
>> PSAMENU( DISPLOC+4*, SELLOC+4
>> PSAMV CS+5*, CS+6*, MASTER+2*, MASTER+3, MASTER+4, MASTER+5, MASTER+8*, MASTER+11, MASTER+13, SELMV+4*
>> PSAMV( MASTER+5*, DISPMV+2, DISPMV+3
>> PSAMVA DISPMV+2*, DISPMV+3, DISPMV+4, DISPMV+5, SELMV+4*
>> PSAMVIEN DISPMV+3*, DISPMV+4, SELMV+4*
>> PSAMVN MASTER+2*, MASTER+5*, MASTER+6, MASTER+7, MASTER+15
>> PSANDC PSAPROC9+6, PSAPROC9+11, PSAPROC9+12, NEXT+7
>> PSANEXT PSAPROC9+5*, PSAPROC9+6, PSAPROC9+8, PSAPROC9+12, PSAPROC9+15
>> PSANUM GETLOC+2*, GETLOC+5*, GETLOC+7
>> PSAONE GETLOC+5*, ONE+1
>> PSAONEMV MASTER+5*, MASTER+8
>> PSAORD MASTER+12, MASTER+15, ONE+5, MANY+1
>> PSAOSIT GETLOC+5*, GETLOC+6
>> PSAOUT PSAPROC9+6, PSAPROC9+7, PSAPROC9+8, PSAPROC9+9, PSAPROC9+10, PSAPROC9+11, PSAPROC9+12, PSAPROC9+13, PSAPROC9+14, PSAPROC9+15
, PSAPROC9+17, NEXT+2, QTY, OU, DU, DUOU+1, DUOU+3, PRICE, NOTCS+2, NOTCS+3
, NOTCS+4, NOTCS+5, NOTCS+6, CS+1, CS+3, CS+4, CS+5, CS+6, CS+7, CONT+4*
, MASTER+6*, SELMV+2*, SELLOC+2*
>> PSAPASS NEXT+2, NEXT+3
>> PSASEL1 SELMV+3*, SELMV+4, SELLOC+3*, SELLOC+4
>> PSASLN MASTER+11, DISPMV+1, ONE+4, DISPLOC+1
>> PSASUB NEXT+7*, NEXT+8, OU+1, OU+2, DUOU+1, DUOU+3
>> PSASUPP NEXT+4
>> PSAVAULT( DISPMV+4*, SELMV+4
>> PSAVSN PSAPROC9+8
>> Y CONT+3, 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