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

Package: Drug Accountability

Routine: PSAVERA


Information

PSAVERA ;BHM/DBM - Change verified invoice data;16AUG05

Source Information

Source file <PSAVERA.m>

Entry Points

Name Comments DBIA/ICR reference
ORDR ;Get Order Number
INV ;Get Invoice Number
DISP
LINEASK ;ask for line number
DRG
DRGAGN
DRG1
ASK
FILE ;File dispense units per order units into 58.811
HDR
Q
NOCHNG ;*53 said no to changes, backout the edits on the new drug choice.
PHARMLOC ; Prompt User for Pharmacy Location (Needed for edits from CS Drugs to Non-CS Drugs)
MSTVAULT ; Prompt User for Master Vault (Needed for edits from Non-CS Drugs to CS Drugs)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,?((IOM/2)-($L(XX)/2)),XX,!!
  • Line Location: PSAVERA+6
Function Call: WRITE
  • Prompt: !,PSAITM,?6,$S($P($P(DATA,"^",1),"~",1)'>0:$P($P(DATA,"^",1),"~",1),1:$P($P(DATA,"^",1),"~",2)),?45,$S($G(PSAOU)="":"none",$G(PSAOU(1))'="":$G(PSAOU(1)),1:$G(PSAAOU)),?55,$J($P($G(DATA),"^",2),4),?61,$P(DATA,"^",5)
  • Line Location: DISP+2
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: LINEASK+1
Function Call: WRITE
  • Prompt: !,"Enter the corresponding item number to edit: "
  • Line Location: LINEASK+1
Function Call: WRITE
  • Prompt: !,"Enter a number between 1 & ",LINENUM,!
  • Line Location: LINEASK+2
Function Call: WRITE
  • Prompt: !,"Select the number that corresponds to the line item that needs editing",!
  • Line Location: LINEASK+3
Function Call: WRITE
  • Prompt: !,"Invalid line selection."
  • Line Location: LINEASK+5
Function Call: WRITE
  • Prompt: !,PSASLN,!
  • Line Location: LINEASK+10
Function Call: READ
  • Variable: AN
  • Timeout: DTIME
  • Line Location: DRG+0
Function Call: WRITE
  • Prompt: !,"Enter a 'D' to edit the Drug, or 'O' to edit the order unit",!
  • Line Location: DRG+0
Function Call: WRITE
  • Prompt: !!,"Sorry, I could not find the necessary information to change the drug selection.",!
  • Line Location: DRGAGN+7
Function Call: WRITE
  • Prompt: !,"Current Drug : ",PSABFR(1)
  • Line Location: DRGAGN+8
Function Call: WRITE
  • Prompt: !!,"Comparing drug file data..."
  • Line Location: DRG1+3
Function Call: WRITE
  • Prompt: !,"The Order Units are different between these two drugs."
  • Line Location: DRG1+5
Function Call: WRITE
  • Prompt: !,"Please Enter an appropriate Dispense Unit"
  • Line Location: DRG1+6
Function Call: WRITE
  • Prompt: !,"Please enter the appropriate Dispense Units per order unit"
  • Line Location: DRG1+7
Function Call: READ
  • Formatting: !!
  • Prompt: "Are you sure about this ? NO// "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,"Answer yes, and the data on file for the current drug will be transferred",!,"to the new drug selection.",!,"That includes Order Unit, Dispense Unit, Dispense Units per Order Unit, etc.",!!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Adding "_($G(PSAQTY)*$G(PSADUOU))_" to "_$P($G(^PSDRUG(PSADRG,0)),"^")
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !,"Entering new drug selection as an adjustment."
  • Line Location: ASK+12
Function Call: WRITE
  • Prompt: @IOF,!?25,"EDIT VERIFIED INVOICED ITEM SCREEN",!,PSASLN,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,?44,"Order",!,"#",?6,"Drug/Item Name",?45,"Unit",?56,"Qnty.",?67,"NDC",!,PSASLN,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"NO CHANGE",!
  • Line Location: NOCHNG+3
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< ASSIGN A PHARMACY LOCATION SCREEN >>>",!
  • Line Location: PHARMLOC+7
Function Call: WRITE
  • Prompt: !!,"No master vaults are set up. You must set up a master vault then"
  • Line Location: MSTVAULT+5
Function Call: WRITE
  • Prompt: !,"select the Process Uploaded Prime Vendor Invoices Data option."
  • Line Location: MSTVAULT+6

FileMan Files Accessed Via FileMan Db Call

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