Routine: PSAVERA

Information

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

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Drug Accountability	6	PSANDC1^PSAHELP VERDISP^PSAUTL4 RECORD^PSAVER2 50^PSAVER7 ^PSAVERA1 ^PSAVERA3
VA Fileman	6	^%DT NOW^%DTC ^DIC FILE^DICN ^DIE ^DIR
Kernel	1	HOME^%ZIS

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Drug Accountability	1	PSA EDIT VERIFIED INVOICE

Entry Points

Name	Comments	DBIA/ICR reference
DISP
DRG1
FILE581	;Update transaction file
DRGAGN
INV	;Get Invoice Number
FIND
Q
LINEASK	;ask for line number
FILE	;File dispense units per order units into 58.811
ASK
NOCHNG	;*53 said no to changes, backout the edits on the new drug choice.
ORDR	;Get Order Number
DRG
HDR

External References

Name	Field # of Occurrence
^%DT	FILE+33
NOW^%DTC	FILE+17
HOME^%ZIS	PSAVERA+6
^DIC	ORDR+1, INV+1, DRG1, FILE+32, FILE+33, FIND+1
FILE^DICN	FILE+22
^DIE	DRG1+6, DRG1+8, ASK+11, FILE+4, FILE+34, FILE+35, FIND+5, NOCHNG+2
^DIR	DISP+4
PSANDC1^PSAHELP	DRGAGN+2
VERDISP^PSAUTL4	LINEASK+9
RECORD^PSAVER2	ASK+18
50^PSAVER7	ASK+19
^PSAVERA1	INV+5
^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,?10,$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+3
Function Call: READ	Timeout: DTIME Variable: AN 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+9
Function Call: READ	Timeout: DTIME Variable: AN 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 : ",PSABEFOR(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+8
Function Call: READ	Prompt: "Are you sure about this ? NO// " Formatting: !! Timeout: DTIME Variable: AN 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+16
Function Call: WRITE	Prompt: !,"Entering new drug selection as an adjustment." Line Location: ASK+17
Function Call: WRITE	Prompt: !,"updating pharmacy location file." Line Location: FILE+37
Function Call: WRITE	Prompt: !,"updating transaction file." Line Location: FIND+5
Function Call: WRITE	Prompt: @IOF,!?25,"EDIT VERIFIED INVOICED ITEM SCREEN",!,PSASLN,! Line Location: HDR+0
Function Call: WRITE	Prompt: !,?44,"Order",!,"#",?10,"Drug/Item Name",?45,"Unit",?56,"Qnty.",?67,"NDC",!,PSASLN,! Line Location: HDR+1
Function Call: WRITE	Prompt: !,"NO CHANGE",! Line Location: NOCHNG+3
Routine Call	%ZIS Line Location: PSAVERA+6
Routine Call	DIE Line Location: DRG1+6 DRG1+8 ASK+11 FILE+4 FILE+34 FILE+35 FIND+5 NOCHNG+2
Routine Call	DIC Line Location: ORDR+1 INV+1 DRG1 FILE+32 FILE+33 FIND+1
Routine Call	DIR Line Location: DISP+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	FILE+19
^DD(58.8001	FILE+30
^DIC(51.5 - [#51.5]	DISP+2
^PSD(58.8 - [#58.8]	FILE+9, FILE+11, FILE+12, FILE+13, FILE+18, FILE+19, FILE+21, FILE+22, FILE+23, FILE+24 , FILE+25, FILE+26, FILE+27, FILE+28, FILE+29*, FILE+30, FILE+31, FILE+36
^PSD(58.81 - [#58.81]	FIND*, FIND+1, FIND+4, FIND+5
^PSD(58.811 - [#58.811]	INV+3, LINEASK+5, LINEASK+6, LINEASK+10
^PSDRUG - [#50]	DRGAGN+1, DRGAGN+5, DRGAGN+6, DRG1+4, DRG1+5, DRG1+6, DRG1+8, ASK+5, ASK+8, ASK+10 , ASK+12, ASK+16

Label References

Name	Line Occurrences
ASK	ASK+1
DISP	DISP+5
DRG	DRG
DRGAGN	DRGAGN+3
FIND	FIND
HDR	INV+7, DISP+4
LINEASK	DISP, LINEASK+2, LINEASK+3, LINEASK+5
NOCHNG	ASK, ASK+2
Q	PSAVERA+5, ORDR+1, INV+1, DISP+4, LINEASK+1, DRG, DRGAGN+7, DRG1, NOCHNG+3

Naked Globals

Name	Field # of Occurrence
^(0	FILE+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FILE+17
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+7!, DRG1+6, DRG1+8, DRG1+9!, ASK+9, ASK+10, ASK+12, FILE+2, FILE+20, FILE+22! , FILE+33, FILE+35, FIND+2, FIND+4, FIND+5, Q!, NOCHNG+1!, NOCHNG+2*
DA(1	FILE+2, FILE+20, FILE+32, FILE+34, FILE+35*
DA(2	FILE+2, FILE+32, FILE+34, FILE+35
DATA	INV+3, INV+4, INV+7!, DISP+1, DISP+2, DISP+3, LINEASK+4, DRG+3, DRGAGN+1, DRGAGN+5* , Q!
DIC	ORDR+1!, INV+1!, INV+7!, DRG1!, FILE+20, FILE+22!, FILE+32!, FILE+33!, FIND+1*!, Q!
DIC("A"	ORDR+1, INV+1, DRG1*
DIC("DR"	FILE+32*
DIC("P"	FILE+19, FILE+30
DIC(0	ORDR+1, INV+1, DRG1, FILE+20, FILE+32, FILE+33, FIND+1*
DIE	DRG1+6, DRG1+8, DRG1+9!, ASK+9, FILE+1, FILE+34!, FILE+35!, FIND+2, FIND+5!, NOCHNG+1! , NOCHNG+2
DINUM	FILE+20, FILE+32, FILE+33, FIND+1!
DIR	Q!
DIR(0	DISP+4*
DLAYGO	FILE+20, FILE+22!, FILE+32, FILE+33!, FIND+1*!
DR	INV+7!, DRG1+6, DRG1+8, DRG1+9!, ASK+9, FILE+3, FILE+34, FILE+35, FIND+2, FIND+3 , NOCHNG+1!, NOCHNG+2*
DT	FILE+31, FILE+32, FILE+35
DTIME	LINEASK+1, DRG, ASK
>> DTOUT	DRG1+1
>> DUOT	DRG1+1
>> DUOUT	DISP+4
DUZ	FILE581+1
FMDATA	ASK+8*, ASK+9, ASK+13!
INVARRAY	Q!
INVARRAY(	DISP, DISP+1, LINEASK+4
IOF	PSAVERA+6, HDR
IOM	PSAVERA+6
IOSL	DISP+4
IOST	DISP+4
LINENUM	INV+7!, DISP*, LINEASK+2, Q!
PSA50IEN	Q!
>> PSAAFTER	ASK+4*, ASK+14, FILE+15
>> PSAAOU	DISP+3
PSABAL	FILE+11, FILE+12, FILE+24, FILE+26, Q!
PSABEFOR	DRG+3, DRGAGN+1, DRGAGN+5, DRGAGN+6, DRG1, ASK+4, FILE+8, Q!
PSABEFOR("NDC"	DRG+4, DRGAGN+1, DRGAGN+3
PSABEFOR("SYNNODE"	DRGAGN+1*, DRGAGN+3, DRGAGN+4
PSABEFOR(1	DRG+3*, DRGAGN+8, ASK+7
PSACS	LINEASK+7*, FIND+3, Q!
>> PSADASH	DRGAGN+2*
PSADATA	LINEASK+6*, LINEASK+7, LINEASK+8, DRG+4, Q!
PSADJ	DRG1+2, ASK+18, Q!
PSADJFLD	ASK+18*, Q!
PSADRG	DRG1, DRG1+2, DRG1+4, DRG1+5, DRG1+6, DRG1+8, ASK+4, ASK+5, ASK+8, ASK+9 , ASK+14, ASK+16, ASK+18, FILE+8, FILE+9, FILE+11, FILE+12, FILE+13, FILE+15*, FILE+18 , FILE+20, FILE+23, FILE+24, FILE+25, FILE+26, FILE+28, FILE+29, FILE+30, FILE+31, FILE+32 , FILE+33, FILE+34, FILE+35, FILE+36, Q!, NOCHNG+2
PSADT	FILE+17*, Q!
>> PSADU	DRGAGN+6, DRG1+6
>> PSADUOU	LINEASK+12, DRGAGN+5, DRGAGN+7, DRG1+8, ASK+16, FILE+3, FILE+16
PSADUREC	FILE+10, FILE+12, FILE+16, FILE+26, FILE+35, Q!
PSAGAIN	DRG1*, Q!
PSAIEN	ORDR+1*, INV+1, INV+3, LINEASK+5, LINEASK+6, LINEASK+10, FILE+1, FILE+2, Q!
PSAIEN1	INV+1*, INV+3, LINEASK+5, LINEASK+6, FILE+1, FILE+2, Q!
PSAIN	LINEASK+5*, Q!
PSAINV	INV+1*, DISP, DISP+1, LINEASK+4, Q!
PSAITM	INV+7!, DISP*, DISP+1, DISP+3
PSALINE	LINEASK+5*, LINEASK+6, FILE+2, Q!
PSALINEN	LINEASK+9*, Q!
PSALOC	INV+4*, FILE+9, FILE+11, FILE+12, FILE+13, FILE+18, FILE+19, FILE+20, FILE+21, FILE+22 , FILE+23, FILE+24, FILE+25, FILE+26, FILE+27, FILE+28, FILE+29, FILE+30, FILE+31, FILE+32 , FILE+33, FILE+34, FILE+35, FILE+36, Q+1!
PSANDC	LINEASK+8*, Q+1!
PSANDCX	DRGAGN+2!
PSAODU	DRG1+4*, Q+2!
PSAODUOU	LINEASK+12*, ASK+7, ASK+8, FILE+10, Q+1!, Q+2!
PSAORD	ORDR+1*, DISP, DISP+1, LINEASK+4, Q+1!
>> PSAOU	DISP+2, DISP+3, DRGAGN+5, DRGAGN+7, DRG1+5
>> PSAOU(1	DISP+2*, DISP+3
PSAOUT	DRG1, DRG1+1*, Q+1!
>> PSAPDUOU	DRGAGN+5*, DRGAGN+7
>> PSAPOU	DRGAGN+5, DRGAGN+7, ASK+15
>> PSAPRICE	ASK+15
PSAQTY	ASK+7, ASK+8, ASK+16, FILE+10, FILE+16, Q+1!
PSAREA	ASK+18*, Q+1!
PSAREORD	FILE+29, Q+1!
PSASLN	LINEASK+9, HDR, HDR+1, Q+1!
PSASTOCK	FILE+28, Q+1!
PSASUB	DRGAGN+4*, DRGAGN+5, Q+1!
PSASUP	LINEASK+6*, Q+1!
PSASUPP	Q+1!
PSAT	FIND*, FIND+1, FIND+2, Q+1!
>> PSAVDUZ	FILE581+1*
>> PSAVEND	LINEASK+10*
PSAVER	Q+1!
PSAXDUOU	DRG1+4*, Q+2!
U	ORDR+1, INV+1
X	INV+7!, FILE+20, FILE+32, FILE+33, FIND+1, Q+1!
X1	INV+7!, DRGAGN+1*, Q+1!
X2	INV+7!, Q+1!
X3	INV+7!, Q+1!
XX	PSAVERA+6*, Q+1!
XXX	Q+1!
Y	ORDR+1, INV+1, DRG1+2, FILE+33, Q+1!

Customize PDF page

Package: Drug Accountability

Routine: PSAVERA

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

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: