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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSAPROC8

Package: Drug Accountability

Routine: PSAPROC8


Information

PSAPROC8 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;7/23/97

Source Information

Source file <PSAPROC8.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Drug Accountability 3 PSAPROC1  PSAPROC6  PSAPROC9  

Entry Points

Name Comments DBIA/ICR reference
OK ;
PRICE ;Price per Order Unit changed
REORD ;Extended help for 'Reorder level'
PRICEOU ;Extended help to 'Is invoice's price per order unit correct'
DUOUYN ;Extended help to enter dispense units per order units
STKLEVEL ;Extended help for 'Stock level'
DISPYN ;Extended help to enter dispense units
DU ;Prompts Dispense Unit if blank
DUOU ;Gets Dispense Units per Order Unit
REORDER ;Enter reorder level for drug if the field is blank.
STOCK ;Enter stock level for drug if the field is blank.

External References

Name Field # of Occurrence
^DIE DU+2, DU+5, DUOU+4
^DIR DU+10, DUOU+11, PRICE+5, REORDER+5, STOCK+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The dispense units must be entered to change",!,"the status of the invoice to Processed."
  • Line Location: DU+8
Function Call: WRITE
  • Prompt: !!,"Price per Order Unit -- Invoice's: $"_$J($FN($P(^XTMP("PSAPV",PSACTRL,"IT",PSALINE),"^",3),",",2),PSAJUST,2),!?24,"File's : $"_$J($FN($P($G(^PSDRUG(PSAIEN,1,PSASUB,0)),"^",6),",",2),PSAJUST,2),!
  • Line Location: PRICE+3
Function Call: WRITE
  • Prompt: !?5,"Enter Yes if you want to enter the dispense units now.",!!?5,"Enter No to bypass entering the dispense units. The invoice will not",!?5,"be placed in a Processed status if the dispense units are not entered."
  • Line Location: DISPYN+1
Function Call: WRITE
  • Prompt: !?5,"Enter Yes if you want to enter the dispense units per order unit now.",!!?5,"Enter No to bypass entering the dispense units per order unit. The"
  • Line Location: DUOUYN+1
Function Call: WRITE
  • Prompt: !?5,"invoice will not be placed in a "_$S($D(PSABEFOR):"Verified",1:"Processed")_" status if the dispense units",!?5,"are not entered."
  • Line Location: DUOUYN+2
Function Call: WRITE
  • Prompt: !?5,"Enter Yes if the invoice's price per order unit is correct. The",!?5,"invoice's price per order unit will be entered into the DRUG file."
  • Line Location: PRICEOU+1
Function Call: WRITE
  • Prompt: !!?5,"Enter No if the invoice's price per order unit is not correct.",!?5,"The DRUG file's price per order unit will remain the same."
  • Line Location: PRICEOU+2
Function Call: WRITE
  • Prompt: !?5,"Enter the lowest amount of "_$P($G(^PSDRUG(PSAIEN,660)),"^",8)_"s to keep in the "_$S($P(PSADATA,"^",19)="CS":"master vault",1:"pharmacy location")_"."
  • Line Location: REORD+1
Function Call: WRITE
  • Prompt: !!?5,"When the amount on hand is lower than the reorder level, a mail",!?5,"message will be sent showing the drug name, reorder level, and",!?5,"quantity on hand."
  • Line Location: REORD+2
Function Call: WRITE
  • Prompt: !?5,"Enter the ideal number of dispense units to keep on the shelf. When the",!?5,"number of dispense units is equal to or less than the reorder level, the"
  • Line Location: STKLEVEL+1
Function Call: WRITE
  • Prompt: !?5,"amount to order is determined by subtracting the current number of dispense",!?5,"units from the stock level."
  • Line Location: STKLEVEL+2
Routine Call
  • DIE
  • Line Location:
    • DU+2
    • DU+5
    • DUOU+4
Routine Call
  • DIR
  • Line Location:
    • DU+10
    • DUOU+11
    • PRICE+5
    • REORDER+5
    • STOCK+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] DUOU+9
^PSD(58.8 - [#58.8] REORDER+2, REORDER+4, STOCK+2, STOCK+4
^PSDRUG - [#50] DU+1, DU+2, DU+3, DU+4, DU+5, DU+6, DUOU+1, DUOU+3, DUOU+4, DUOU+6
, DUOU+9, PRICE+1, PRICE+3, PRICE+7, REORDER+1, STOCK+1, REORD+1
^XTMP("PSAPV" OK+1, PRICE+1, PRICE+3, PRICE+4, PRICE+6*, PRICE+7*, REORDER+6*, STOCK+7*

Label References

Name Line Occurrences
DU DU+3, DU+11
DUOU DUOU+12

Naked Globals

Name Field # of Occurrence
^( PRICE+7*
^("IN" OK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA DU+2*, DU+5*, DUOU+4*
>> DA(1 DUOU+4*
DIE DU+2*!, DU+5*!, DUOU+4*!
DIR DU+10!, DUOU+11!, PRICE+5!, REORDER+5!, STOCK+5!
DIR("?" DU+9*, DUOU+9*, DUOU+10*, PRICE+4*, PRICE+5*, REORDER+3*, STOCK+3*
DIR("??" DU+10*, DUOU+10*, PRICE+5*, REORDER+3*, STOCK+3*
DIR("A" DU+9*, DUOU+8*, PRICE+4*, REORDER+2*, STOCK+2*
DIR("B" DU+9*, DUOU+8*, PRICE+4*, REORDER+4*, STOCK+4*
DIR(0 DU+9*, DUOU+8*, PRICE+4*, REORDER+2*, STOCK+2*
>> DIRUT DU+10, PRICE+5, STOCK+6
>> DR DU+2*, DU+5*, DUOU+4*
DT PRICE+7
>> DTOUT DUOU+5, DUOU+11, REORDER+5, STOCK+5
>> DUOUT DUOU+11, REORDER+5, STOCK+5
DUZ PRICE+7
>> PSABEFOR DUOUYN+2
>> PSACNTOK OK+1*
>> PSACTRL OK+1, PRICE+1, PRICE+3, PRICE+4, PRICE+6, PRICE+7, REORDER+6, STOCK+7
>> PSADATA DUOU+9, REORDER+3, REORDER+4, STOCK+4, REORD+1
>> PSADU DU+6*, DUOU+1, DUOU+2*, REORDER+1, REORDER+2*, STOCK+1, STOCK+2*
>> PSAFPR PRICE+1*, PRICE+2
>> PSAIEN DU+1, DU+2, DU+3, DU+4, DU+5, DU+6, DUOU+1, DUOU+3, DUOU+4, DUOU+6
, DUOU+9, PRICE+1, PRICE+3, PRICE+7, REORDER+1, REORDER+4, STOCK+1, STOCK+4, REORD+1
>> PSAIPR PRICE+1*, PRICE+2
>> PSAJUST PRICE+2*, PRICE+3
>> PSALINE PRICE+1, PRICE+3, PRICE+4, PRICE+6, PRICE+7, REORDER+6, STOCK+7
>> PSALOC REORDER+2, REORDER+4, STOCK+2, STOCK+4
>> PSAOK( OK+1*
>> PSAOUT DU+10*, DUOU+5*, DUOU+11*, PRICE+5*, REORDER+5*, STOCK+5*
>> PSASUB DUOU+4, DUOU+6, PRICE+1, PRICE+3, PRICE+7
>> Y DU+11, DUOU+5, DUOU+12, PRICE+6, PRICE+7, REORDER+6, STOCK+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All