Routine: PSAVERA

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

Package	Total	Caller Graph
Drug Accountability	1	PSA EDIT VERIFIED INVOICE

Name	Comments	DBIA/ICR reference
ORDR	;Get Order Number
INV	;Get Invoice Number
DISP
LINEASK	;ask for line number
DUOU	;
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)

Name	Field # of Occurrence
HOME^%ZIS	PSAVERA+6
^DIC	ORDR+1, INV+1, DRG1
^DIE	DUOU+4, DRG1+6, DRG1+7, ASK+8, FILE+1, NOCHNG+2
$$GET1^DIQ	DUOU+8
^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: WRITE	Prompt: !,"Dispense Units per Order Unit must be populated" Line Location: DUOU+9
Function Call: WRITE	Prompt: !,"for this line item before proceeding." Line Location: DUOU+10
Function Call: WRITE	Prompt: ! Line Location: DUOU+20
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: DUOU+4 DRG1+6 DRG1+7 ASK+8 FILE+1 NOCHNG+2
Routine Call	DIR Line Location: DISP+3 PHARMLOC+18 MSTVAULT+17

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

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
^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

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

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!, DUOU+2~, DUOU+3, DRG1+6, DRG1+7, DRG1+8!, ASK+6, ASK+7, ASK+8, FILE+1* , Q!, NOCHNG+1!, NOCHNG+2*
DA(1	DUOU+3, 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	DUOU+2~, DUOU+3, DRG1+6, DRG1+7, DRG1+8!, ASK+6, FILE+1, NOCHNG+1!, NOCHNG+2
>> DILOCKTM	ASK+7
DIR	DUOU+2~, 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!, DUOU+2~, DUOU+3, DRG1+6, DRG1+7, DRG1+8!, ASK+6, FILE+1, NOCHNG+1!, NOCHNG+2
DT	PHARMLOC+4
DTIME	LINEASK+1, DRG, ASK
>> DTOUT	DRG1+1
>> DUOT	DRG1+1
>> DUOUT	DISP+3
FMDATA	ASK+6*, ASK+8!
INVARRAY	Q!
INVARRAY(	DISP, DISP+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"	DUOU+16*, ASK+5, ASK+6
PSABFR("SYNNODE"	DRGAGN+1*, DRGAGN+3, DRGAGN+4
PSABFR(1	DRG+3*, DRGAGN+8, ASK+5
PSABFR(581	LINEASK+14*, 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, DUOU+3, DUOU+8, DRG1, DRG1+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, DUOU+1, DUOU+12, DUOU+16, 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*, DISP, DISP+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*, DISP, DISP+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	DRG1, DRG1+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	DUOU+16, 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, HDR, HDR+1, Q+2!
PSASTOCK	Q+2!
PSASTOP	LINEASK+17~, LINEASK+18, DUOU+6, DUOU+7, DUOU+15, DUOU+19*
PSASUB	DUOU+3, DUOU+8, 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	Q+2!
U	ORDR+1, INV+1, LINEASK+14
X	INV+5!, DUOU+2~, DUOU+8, DUOU+12, 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, DUOU+2~, DUOU+6, DRG1+1, DRG1+2, Q+2!, PHARMLOC+1~, PHARMLOC+18, PHARMLOC+19 , MSTVAULT+1~, MSTVAULT+17, MSTVAULT+18

Customize PDF page

Package: Drug Accountability

Routine: PSAVERA

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: