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

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 ^DIE  ^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: 5

Package Total Caller Graph
Drug Accountability 5 PSAPROC  PSAPROC1  PSAPROC2  PSAPROC6  PSAPROC9  

Entry Points

Name Comments DBIA/ICR reference
DU ;Prompts Dispense Unit if blank
DUOU ;Gets Dispense Units per Order Unit
OK ;
PRICE ;Price per Order Unit changed
REORDER ;Enter reorder level for drug if the field is blank.
STOCK ;Enter stock level for drug if the field is blank.
DISPYN ;Extended help to enter dispense units
DUOUYN ;Extended help to enter dispense units per order units
PRICEOU ;Extended help to 'Is invoice's price per order unit correct'
REORD ;Extended help for 'Reorder level'
STKLEVEL ;Extended help for 'Stock level'
PLOCK(PSATYP) ;SET ^XTMP("PSAPV",PSACRTL WITH A LOCK INDENTIFER <- PSA*3*70 RJS
PSAUNLCK ;CLEANUP LOCK INDICATOR <- PSA*3*70 RJS

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
Function Call: WRITE
  • Prompt: !!,?5,"YOU ARE CURRENTLY PROCESSING ORDER# ",PSAORD," IN ANOTHER SESSION"
  • Line Location: PLOCK+8
Function Call: WRITE
  • Prompt: !!,?5,"ORDER# ",PSAORD," IS CURRENTLY BEING PROCESSED BY ",$P($P(^VA(200,+PSADUZ,0),"^",1),",",2)," ",$P($P(^VA(200,+PSADUZ,0),"^",1),",",1)
  • Line Location: PLOCK+9
Function Call: WRITE
  • Prompt: !!,?5,"ORDER# ",PSAORD," HAS ALREAY BEEN PROCESSED BY ANOTHER USER"
  • Line Location: PLOCK+10
Function Call: WRITE
  • Prompt: !!,?5,"YOU ARE CURRENTLY PROCESSING ORDER# ",PSAORD," IN ANOTHER SESSION"
  • Line Location: PLOCK+18
Function Call: WRITE
  • Prompt: !!,?5,"ORDER# ",PSAORD," IS CURRENTLY BEING PROCESSED BY ",$P($P(^VA(200,+PSADUZ,0),"^",1),",",2)," ",$P($P(^VA(200,+PSADUZ,0),"^",1),",",1)
  • Line Location: PLOCK+19
Function Call: WRITE
  • Prompt: !!,?5,"ORDER# ",PSAORD," HAS ALREAY BEEN PROCESSED BY ANOTHER USER"
  • Line Location: PLOCK+20
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
^PSD(58.811 - [#58.811] PLOCK+10, PLOCK+20
^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
^VA(200 - [#200] PLOCK+9, PLOCK+19, PSAUNLCK+10
^XTMP("PSAPV" OK+1, PRICE+1, PRICE+3, PRICE+4, PRICE+6*, PRICE+7*, REORDER+6*, STOCK+7*, PLOCK+10, PLOCK+20
PSAUNLCK+5, PSAUNLCK+6, PSAUNLCK+8, PSAUNLCK+9, PSAUNLCK+10
^XTMP("PSAPVL" PLOCK+2, PLOCK+6, PLOCK+7!, PLOCK+8, PLOCK+9, PLOCK+11*, PLOCK+16, PLOCK+17!, PLOCK+18, PLOCK+19
, PLOCK+21*, PLOCK+24, PSAUNLCK+2, PSAUNLCK+3, PSAUNLCK+4!, PSAUNLCK+5!, PSAUNLCK+6, PSAUNLCK+7!, PSAUNLCK+9

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*!
DILOCKTM DU+1, DU+4, DUOU+3, PLOCK+2
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, PLOCK+8, PLOCK+9, PLOCK+11, PLOCK+18, PLOCK+19, PLOCK+21, PSAUNLCK+6, PSAUNLCK+9
>> PSA PLOCK+14*, PLOCK+15, PLOCK+16
>> PSABEFOR DUOUYN+2
>> PSACNTOK OK+1*
PSACTRL OK+1, PRICE+1, PRICE+3, PRICE+4, PRICE+6, PRICE+7, REORDER+6, STOCK+7, PLOCK+6*, PLOCK+7
, PLOCK+8, PLOCK+9, PLOCK+10, PLOCK+11, PLOCK+16*, PLOCK+17, PLOCK+18, PLOCK+19, PLOCK+20, PLOCK+21
, PLOCK+22, PSAUNLCK+1~, PSAUNLCK+2*, PSAUNLCK+3, PSAUNLCK+4, PSAUNLCK+5, PSAUNLCK+6, PSAUNLCK+7, PSAUNLCK+8, PSAUNLCK+9
PSAUNLCK+10
>> 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*
PSADUZ PLOCK+1~, PLOCK+6*, PLOCK+7, PLOCK+8, PLOCK+9, PLOCK+16*, PLOCK+17, PLOCK+18, PLOCK+19, PSAUNLCK+1~
PSAUNLCK+3*, PSAUNLCK+4, PSAUNLCK+10
>> PSAERR( PLOCK+5, PLOCK+6
>> 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
PSALCK PLOCK+12*, PLOCK+22*, PSAUNLCK+11!
>> PSALINE PRICE+1, PRICE+3, PRICE+4, PRICE+6, PRICE+7, REORDER+6, STOCK+7
>> PSALOC REORDER+2, REORDER+4, STOCK+2, STOCK+4
PSAMENU PLOCK+1~, PLOCK+4*, PLOCK+5, PLOCK+6, PLOCK+12
>> PSAOK( OK+1*, PLOCK+15, PLOCK+16
PSAORD PLOCK+1~, PLOCK+6*, PLOCK+8, PLOCK+9, PLOCK+10, PLOCK+16*, PLOCK+18, PLOCK+19, PLOCK+20
>> PSAOUT DU+10*, DUOU+5*, DUOU+11*, PRICE+5*, REORDER+5*, STOCK+5*, PLOCK+4
PSAPC PLOCK+1~, PLOCK+4*, PLOCK+14*
>> PSASEL PLOCK+4, PLOCK+14, PLOCK+23*
>> PSASUB DUOU+4, DUOU+6, PRICE+1, PRICE+3, PRICE+7
PSATMP PLOCK+1~*, PLOCK+12*, PLOCK+22*, PLOCK+23
PSATYP PLOCK~, PLOCK+3, PLOCK+13, PLOCK+23!
>> 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