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

Package: Drug Accountability

Routine: PSAVERA


Information

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

Source Information

Source file <PSAVERA.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Drug Accountability 7 PSANDC1^PSAHELP  SITES^PSAUTL1  VERDISP^PSAUTL4  RECORD^PSAVER2  50^PSAVER7  (,UPDATE)^PSAVERA1  ^PSAVERA3  
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Kernel 1 HOME^%ZIS  

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

Package Total Caller Graph
Drug Accountability 1 PSA EDIT VERIFIED INVOICE  

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)

External References

Name Field # of Occurrence
HOME^%ZIS PSAVERA+6
^DIC ORDR+1, INV+1, DRG1
^DIE DRG1+6, DRG1+7, ASK+8, FILE+1, NOCHNG+2
^DIR DISP+3, PHARMLOC+18, MSTVAULT+17
PSANDC1^PSAHELP DRGAGN+2
SITES^PSAUTL1 PHARMLOC+6
VERDISP^PSAUTL4 LINEASK+10
RECORD^PSAVER2 ASK+13
50^PSAVER7 ASK+13
^PSAVERA1 INV+4
UPDATE^PSAVERA1 FILE+3
^PSAVERA3 DRG+1

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
Routine Call
  • %ZIS
  • Line Location:
    • PSAVERA+6
Routine Call
  • DIC
  • Line Location:
    • ORDR+1
    • INV+1
    • DRG1
Routine Call
  • DIE
  • Line Location:
    • DRG1+6
    • DRG1+7
    • ASK+8
    • FILE+1
    • NOCHNG+2
Routine Call
  • DIR
  • Line Location:
    • DISP+3
    • PHARMLOC+18
    • MSTVAULT+17

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] DISP+1
^PSD(58.8 - [#58.8] PHARMLOC+2, PHARMLOC+3, PHARMLOC+4, PHARMLOC+5, PHARMLOC+6, MSTVAULT+2, MSTVAULT+3
^PSD(58.81 - [#58.81] LINEASK+14, LINEASK+15
^PSD(58.811 - [#58.811] INV+2, LINEASK+5, LINEASK+6, LINEASK+7, LINEASK+11, DRG1+9, DRG1+11, FILE+2
^PSDRUG - [#50] DRGAGN+1, DRGAGN+5, DRGAGN+6, DRG1+4, DRG1+5, DRG1+6, DRG1+7, DRG1+10, DRG1+12, ASK+4
ASK+6, ASK+7, ASK+8, ASK+11

Label References

Name Line Occurrences
ASK ASK+1
DISP DISP+4
DRG DRG
DRGAGN DRGAGN+3
HDR INV+5, DISP+3
LINEASK DISPLINEASK+2, LINEASK+3, LINEASK+5
MSTVAULT DRG1+10
NOCHNG DRG1+10, DRG1+12, ASKASK+2
PHARMLOC DRG1+12
Q PSAVERA+5, ORDR+1, INV+1, DISP+3, LINEASK+1, DRGDRG+1, DRGAGN+7, DRG1FILE+2
FILE+3, NOCHNG+3

Naked Globals

Name Field # of Occurrence
^(0 PHARMLOC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AN LINEASK+1*, LINEASK+2, LINEASK+3!, LINEASK+4, LINEASK+5, DRG*!, DRG+1, ASK*, ASK+1*, ASK+2
, Q!
D INV+1*, Q!
DA INV+5!, DRG1+6*, DRG1+7*, DRG1+8!, ASK+6*, ASK+7, ASK+8, FILE+1*, Q!, NOCHNG+1!
NOCHNG+2*
DA(1 FILE+1*
DA(2 FILE+1*
DATA INV+2*, INV+3, INV+5!, DISP+1*, DISP+2, LINEASK+4*, DRG+3, DRGAGN+1*, DRGAGN+5*, Q!
DIC ORDR+1*!, INV+1*!, INV+5!, DRG1*!, Q!
DIC("A" ORDR+1*, INV+1*, DRG1*
DIC(0 ORDR+1*, INV+1*, DRG1*
DIE DRG1+6*, DRG1+7*, DRG1+8!, ASK+6*, FILE+1*, NOCHNG+1!, NOCHNG+2*
DILOCKTM ASK+7
DIR Q!, PHARMLOC+1~, PHARMLOC+18!, MSTVAULT+1~, MSTVAULT+17!
DIR("?" PHARMLOC+17*, MSTVAULT+16*
DIR("??" PHARMLOC+18*, MSTVAULT+17*
DIR("A" PHARMLOC+17*, MSTVAULT+16*
DIR("L" PHARMLOC+9*, PHARMLOC+10*, PHARMLOC+14*, PHARMLOC+15*, MSTVAULT+8*, MSTVAULT+9*, MSTVAULT+13*, MSTVAULT+14*
DIR(0 DISP+3*, PHARMLOC+8*, PHARMLOC+16*, MSTVAULT+7*, MSTVAULT+15*
DIRUT PHARMLOC+1~, PHARMLOC+18, MSTVAULT+17
DR INV+5!, DRG1+6*, DRG1+7*, DRG1+8!, ASK+6*, FILE+1*, NOCHNG+1!, NOCHNG+2*
DT PHARMLOC+4
DTIME LINEASK+1, DRGASK
>> DTOUT DRG1+1
>> DUOT DRG1+1
>> DUOUT DISP+3
FMDATA ASK+6*, ASK+8!
INVARRAY Q!
INVARRAY( DISPDISP+1, LINEASK+4
IOF PSAVERA+6, HDR
IOM PSAVERA+6
IOSL DISP+3
IOST DISP+3
LINENUM INV+5!, DISP*, LINEASK+2, Q!
POP Q!
PSA MSTVAULT+1~, MSTVAULT+10*, MSTVAULT+12*, MSTVAULT+13, MSTVAULT+14, MSTVAULT+15
PSA50IEN Q!
PSA581 LINEASK+14*, Q!
PSAABAL Q!
PSAAFTER ASK+3*, ASK+9, Q!
>> PSAAOU DISP+2
PSAAQTY Q!
PSABAL Q!
PSABFR DRG+3*, DRGAGN+1, DRGAGN+5, DRGAGN+6, DRG1*, ASK+3, Q!
PSABFR("NDC" DRG+3*, DRGAGN+1, DRGAGN+3*
PSABFR("Q" LINEASK+15*, ASK+5, ASK+6
PSABFR("SYNNODE" DRGAGN+1*, DRGAGN+3, DRGAGN+4
PSABFR(1 DRG+3*, DRGAGN+8, ASK+5
PSABFR(581 LINEASK+14*, LINEASK+15, ASK+4
PSACNT PHARMLOC+1~, PHARMLOC+11*, PHARMLOC+13*, PHARMLOC+14, PHARMLOC+15, PHARMLOC+16
PSACOMB PHARMLOC+1~, PHARMLOC+6
PSACS LINEASK+8*, Q!
PSACSLOC DRG1+8~, DRG1+9*, DRG1+10, MSTVAULT+19*
PSADASH DRGAGN+2*, Q!
PSADATA LINEASK+6*, LINEASK+8, LINEASK+9, DRG+3, Q!
PSADJ DRG1+2*, ASK+13*, Q!
PSADJD Q!
PSADJFLD ASK+13*, Q!
PSADJO Q!
PSADJP Q!
PSADJQ Q!
PSADRG LINEASK+14, DRG1DRG1+2*, DRG1+4, DRG1+5, DRG1+6, DRG1+7, DRG1+10, DRG1+12, ASK+3*
ASK+4, ASK+6, ASK+9*, ASK+11, ASK+13, Q!, NOCHNG+2
PSADRUGN Q!
PSADT Q!
PSADU DRGAGN+6*, DRG1+6*, Q+1!
PSADUOU LINEASK+12, DRGAGN+5*, DRGAGN+7, DRG1+7*, ASK+11, FILE+1, Q+1!
PSADUREC Q+1!
PSAEDTT Q+1!
PSAGAIN DRG1*, Q+1!
PSAIEN ORDR+1*, INV+1, INV+2, LINEASK+5, LINEASK+6, LINEASK+7, LINEASK+11, DRG1+9, DRG1+11, FILE+1
FILE+2, Q+1!
PSAIEN1 INV+1*, INV+2, LINEASK+5, LINEASK+6, LINEASK+7, DRG1+9, DRG1+11, FILE+1, FILE+2, Q+1!
PSAIN LINEASK+5*, Q+1!
PSAINV INV+1*, DISPDISP+1, LINEASK+4, LINEASK+14, Q+1!
PSAISIT PHARMLOC+1~, PHARMLOC+5*, PHARMLOC+6
PSAISITN PHARMLOC+1~
PSAITM INV+5!, DISP*, DISP+1, DISP+2, Q+1!
PSALIDAT INV+5!, LINEASK+7*
PSALINE LINEASK+5*, LINEASK+6, FILE+1, Q+1!
PSALINEN LINEASK+10*, Q+1!
PSALOC INV+3*, Q+1!, PHARMLOC+1~, PHARMLOC+2*, PHARMLOC+3, PHARMLOC+4, PHARMLOC+5, PHARMLOC+6, PHARMLOC+12*, PHARMLOC+13
PSALOCA PHARMLOC+1~
PSALOCA( PHARMLOC+6*, PHARMLOC+11, PHARMLOC+12, PHARMLOC+14
PSALOCN PHARMLOC+1~, PHARMLOC+11*, PHARMLOC+12, PHARMLOC+13, PHARMLOC+14, PHARMLOC+15, PHARMLOC+16, PHARMLOC+20*
PSAMENU PHARMLOC+1~
PSAMENU( PHARMLOC+13*, PHARMLOC+20
PSAMV MSTVAULT+1~, MSTVAULT+2*, MSTVAULT+3
PSAMV( MSTVAULT+3*, MSTVAULT+10, MSTVAULT+11, MSTVAULT+13
PSAMVA MSTVAULT+1~, MSTVAULT+10*, MSTVAULT+11, MSTVAULT+12, MSTVAULT+13, MSTVAULT+14, MSTVAULT+15, MSTVAULT+19*
PSAMVIEN MSTVAULT+1~, MSTVAULT+11*, MSTVAULT+12
PSAMVN MSTVAULT+1~, MSTVAULT+2*, MSTVAULT+3*, MSTVAULT+4
PSANCSLO DRG1+8~, DRG1+11*, DRG1+12, PHARMLOC+20*
PSANDC LINEASK+9*, Q+1!
PSANDCX DRGAGN+2!
PSANDUOU Q+1!
PSANEW Q+1!
PSANLOC PHARMLOC+1~
PSANODE Q+1!
PSANPDU Q+1!
PSANQTY Q+1!
PSANUM PHARMLOC+1~, PHARMLOC+2*, PHARMLOC+5*
PSAODASH Q+1!
PSAODU DRG1+4*, Q+1!
PSAODUOU LINEASK+12*, Q+1!
PSAONDC Q+1!
PSAONE PHARMLOC+1~, PHARMLOC+5*
PSAONEMV MSTVAULT+1~, MSTVAULT+3*
PSAORD ORDR+1*, DISPDISP+1, LINEASK+4, Q+1!
PSAOSIT PHARMLOC+1~, PHARMLOC+5*, PHARMLOC+6
PSAOSITN PHARMLOC+1~
PSAOU DISP+1*, DISP+2, DRGAGN+5*, DRGAGN+7, DRG1+5, Q+2!
PSAOU(1 DISP+1*, DISP+2
PSAOUT DRG1DRG1+1*, DRG1+10, DRG1+12, Q+2!, PHARMLOC+18*, MSTVAULT+4*, MSTVAULT+17*
>> PSAPDUOU DRGAGN+5*, DRGAGN+7
PSAPOU DRGAGN+5*, DRGAGN+7, ASK+10*, Q+2!
PSAPRICE ASK+10, Q+2!
PSAQTY ASK+11, Q+2!
PSAREA ASK+13*, Q+2!
PSAREORD Q+2!
PSASEL PHARMLOC+1~, PHARMLOC+19*, PHARMLOC+20, MSTVAULT+1~, MSTVAULT+18*, MSTVAULT+19
PSASET Q+2!
PSASLN LINEASK+10, HDRHDR+1, Q+2!
PSASTOCK Q+2!
PSASUB DRGAGN+4*, DRGAGN+5, Q+2!
PSASUP LINEASK+6*, Q+2!
PSASUPP Q+2!
PSAT Q+2!
PSATEMP Q+2!
PSAUPC Q+2!
PSAVAULT MSTVAULT+1~
PSAVAULT( MSTVAULT+12*, MSTVAULT+19
PSAVDUZ Q+2!
PSAVEND LINEASK+11*, Q+2!
PSAVER Q+2!
PSAVSN Q+2!
PSAXDUOU DRG1+4*, Q+2!
PSDTRN LINEASK+15*, Q+2!
U ORDR+1, INV+1, LINEASK+14, LINEASK+15
X INV+5!, Q+2!, PHARMLOC+1~, MSTVAULT+1~
X1 INV+5!, DRGAGN+1*, Q+2!
X2 INV+5!, Q+2!
X3 INV+5!, Q+2!
XX PSAVERA+6*, Q+2!, PHARMLOC+1~
XXX Q+2!
Y ORDR+1, INV+1, DRG1+1, DRG1+2, Q+2!, PHARMLOC+1~, PHARMLOC+18, PHARMLOC+19, MSTVAULT+1~, MSTVAULT+17
MSTVAULT+18
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