Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call