Routine: PSOPRVW

Package	Total	Call Graph
VA Fileman	6	^DIC FILE^DICN ^DIE EN^DIQ EN^DIQ1 ^DIR
Kernel	2	$$ADD^XUSERNEW $$NPI^XUSNPI

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSO PROVIDER ADD PSO PROVIDER EDIT PSO PROVIDER INQUIRE PSOTPPRV

Entry Points

External References

Name	Field # of Occurrence
^DIC	START, ASK+2, KEY+1
FILE^DICN	KEY+4
^DIE	EDT+3, EDT+7, EDT+10, EDT+12, ED1+2, ADD+7
EN^DIQ	ASK1
EN^DIQ1	START+20
^DIR	NPRV+1
$$ADD^XUSERNEW	ADD+4
$$NPI^XUSNPI	START+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+0
Function Call: WRITE	Prompt: @IOF,"Name: "_$P(^VA(200,PRNO,0),"^") Line Location: START+1
Function Call: WRITE	Prompt: ?40,$C(7),"* * * INACTIVE AS OF ",$E($P(^("PS"),"^",4),4,5),"/",$E($P(^("PS"),"^",4),6,7),"/",$E($P(^("PS"),"^",4),2,3)," * * *" Line Location: START+2
Function Call: WRITE	Prompt: !,"Initials: "_$P(^VA(200,PRNO,0),"^",2) Line Location: START+4
Function Call: WRITE	Prompt: !,"NON-VA Prescriber: " Line Location: START+5
Function Call: WRITE	Prompt: $S($P(^("TPB"),"^"):"Yes",1:"No") Line Location: START+6
Function Call: WRITE	Prompt: ?40,"Tax ID: "_$P($G(^VA(200,PRNO,"TPB")),"^",2) Line Location: START+7
Function Call: WRITE	Prompt: !,"Exclusionary Check Performed: " Line Location: START+8
Function Call: WRITE	Prompt: $S($P(^("TPB"),"^",3):"Yes",1:"No") Line Location: START+8
Function Call: WRITE	Prompt: ?40,"Date Exclusionary List Checked: " Line Location: START+9
Function Call: WRITE	Prompt: $E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3) Line Location: START+10
Function Call: WRITE	Prompt: !,"On Exclusionary List: " Line Location: START+11
Function Call: WRITE	Prompt: $S($P(^("TPB"),"^",5):"Yes",1:"No") Line Location: START+11
Function Call: WRITE	Prompt: !,"Exclusionary Checked By: " Line Location: START+12
Function Call: WRITE	Prompt: $P($G(^VA(200,$P(^("TPB"),"^",6),0)),"^") Line Location: START+13
Function Call: WRITE	Prompt: !,"Authorized to Write Orders: "_$S($P(^VA(200,PRNO,"PS"),"^"):"Yes",1:"No") Line Location: START+14
Function Call: WRITE	Prompt: !,"Requires Cosigner: "_$S($P(^("PS"),"^",7):"Yes",1:"No"),?40,"DEA# "_$P(^VA(200,PRNO,"PS"),"^",2) Line Location: START+15
Function Call: WRITE	Prompt: !,"Usual Cosigner: "_$P(^(0),"^") Line Location: START+15
Function Call: WRITE	Prompt: !,"Class: " Line Location: START+16
Function Call: WRITE	Prompt: PRCLS,?40,"VA# "_$P(^VA(200,PRNO,"PS"),"^",3) Line Location: START+16
Function Call: WRITE	Prompt: !," Type: " Line Location: START+17
Function Call: WRITE	Prompt: $P($P(L,";",I),":",2) Line Location: START+17
Function Call: WRITE	Prompt: ?40,"NPI# "_$S(NPI>0:+NPI,1:"") Line Location: START+18
Function Call: WRITE	Prompt: !,"Remarks: "_$P(^VA(200,PRNO,"PS"),"^",9),!,"Synonym(s): "_$S($P($G(^VA(200,PRNO,.1)),"^",4)]"":$P(^(.1),"^",4)_",",1:"")_$S($P(^(0),"^",2)]"":" "_$P(^(0),"^",2),1:"") Line Location: START+19
Function Call: WRITE	Prompt: !,"Service/Section: " Line Location: START+20
Function Call: WRITE	Prompt: $G(PSOSECT(49,DA,.01,"E")) Line Location: START+20
Function Call: WRITE	Prompt: !!,"Address: ",?10,$P(^VA(200,PRNO,.11),"^") Line Location: START+22
Function Call: WRITE	Prompt: !?10,$P(^(.11),"^",3) Condition for execution: $P(^(.11),"^",2)'="" !?10,$P(^(.11),"^",2) W:$P(^(.11),"^",3)'="" Line Location: START+22
Function Call: WRITE	Prompt: !?10,$P(^VA(200,PRNO,.11),"^",4) Line Location: START+23
Function Call: WRITE	Prompt: ", " Condition for execution: $P(^(.11),"^",4)]"" Line Location: START+23
Function Call: WRITE	Prompt: $S($D(^DIC(5,STAT,0)):$P(^(0),"^"),1:"")_" "_$P(^VA(200,PRNO,.11),"^",6) Line Location: START+23
Function Call: WRITE	Prompt: !,"Phone: "_$P(^VA(200,PRNO,.13),"^"),! Line Location: NUM+1
Function Call: WRITE	Prompt: "Office: ",$P(^(.13),"^",2),! Condition for execution: $P(^(.13),"^",2)]"" Line Location: NUM+1
Function Call: WRITE	Prompt: "Phone #3: "_$P(^(.13),"^",3),?40 Condition for execution: $P(^VA(200,PRNO,.13),"^",3)]"" Line Location: NUM+2
Function Call: WRITE	Prompt: "Voice Pager #: "_$P(^(.13),"^",7) Condition for execution: $P(^(.13),"^",7)]"" Line Location: NUM+2
Function Call: WRITE	Prompt: ! Line Location: NUM+2
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: @IOF,?25,"Provider: "_$P(^VA(200,DA,0),"^"),! Line Location: ASK1+0
Function Call: WRITE	Prompt: ! Line Location: EDT+0
Function Call: WRITE	Prompt: $C(7),!!,"Provider Data is Being Edited by Another User!",! Line Location: EDT+1
Function Call: WRITE	Prompt: ! Line Location: ADD+1
Function Call: WRITE	Prompt: ! Line Location: NPRV+0
Function Call: WRITE	Prompt: !!,$C(7),"This provider will not be selectable during TPB medication order entry!!",! Line Location: MS+1
Routine Call	DIE Line Location: EDT+3 EDT+7 EDT+10 EDT+12 ED1+2 ADD+7
Routine Call	DIC Line Location: START ASK+2 KEY+1
Routine Call	DIR Line Location: NPRV+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19.1 - [#19.1]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls
^DIC(49 - [#49]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	EDT, KEY+4
^DD(200	START+17, KEY+2
^DIC(5 - [#5]	START+23
^DIC(7 - [#7]	START+16
^VA(200 - [#200]	START+1, START+2, START+4, START+6, START+7, START+8, START+10, START+11, START+13, START+14 , START+15, START+16, START+19, START+20, START+21, START+22, START+23, NUM, NUM+1, NUM+2 , NUM+3, NUM+4, NUM+5, ASK+3, ASK1, EDT, EDT+2, EDT+8, EDT+9, EDT+11 , QX, QX+2, ADD+6, ADD+8, NPRV, NPRV+1, KEY, KEY+1, KEY+2*, KEY+4

Label References

Name	Line Occurrences
ADD	QX, NPRV+2
ASK	ASK+2, QX, NPRV+2
ASK1	ADD+8
ED1	QX+2
EDT	NPRV+3
EX	START, ASK+2, ADD+9, NPRV+1
KEY	ED1+2, ADD+9
NPRV	ASK+3, ADD+8
NUM	START+21
QX	EDT+1, EDT+3, EDT+4, EDT+8, EDT+9, EDT+13
START	START, NUM, NUM+6

Naked Globals

Name	Field # of Occurrence
^(	START+19, START+22, START+23, NUM+1, NUM+2, NUM+3, NUM+4, NUM+5
^("PS"	START+2, START+15, START+17, KEY+1
^("TPB"	START+6, START+8, START+11, START+13
^(0	START+15, START+16, START+19, START+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EX!
%W	EX!
%Y	EX!
%Z	EX!
C	EX!
D0	EX!
DA	START+20, EX!, ASK+2, ASK+3, ASK1, EDT, EDT+2, EDT+8, EDT+9, EDT+11 , ED1+2, QX, QX+2, ADD+5, ADD+6, ADD+9!, NPRV, NPRV+1, KEY, KEY+1
DA(1	KEY+3*
DD	KEY+4!
DDH	EX!
DEA	ADD+9!
DI	EX!
DIC	START!, START+20!, EX!, ASK+2, ASK1+1!, ADD+5, ADD+9!, KEY+1!, KEY+3, KEY+4!
DIC("A"	START, ASK+2
DIC("DR"	KEY+3*
DIC("S"	START*
DIC(0	START, ASK+2, ADD+8, KEY+1, KEY+3*
DIE	EX!, ASK+2, ADD+5
DIE("NO^"	EDT+7*!
DIH	EX!
DIK	ADD+9!
>> DINUM	KEY+3*
DIQ	START+20!*
DIQ(0	START+20*
DIR	EX!, ASK+1!
DIR("?"	NPRV+1*
DIR("A"	NPRV*
DIR("B"	NPRV*
DIR(0	NPRV*
DIROUT	EX!, ASK+1!
DIRUT	EX!, ASK+1!, NPRV+2
DLAYGO	EX!, KEY+3*
DO	KEY+4!
DQ	EX!
DR	START+20!, EX!, ASK1, EDT+3, EDT+5, EDT+6, EDT+7, EDT+10, EDT+12, ED1+1* , ADD+7*, KEY+4!
DT	START+2, KEY+1, KEY+3
DTOUT	EX!, ASK+1!, EDT+3, EDT+9, NPRV+1
DUOUT	EX!, ASK+1!
DUZ	EDT+10, EDT+12, ADD+7, KEY+3
FADA	ASK+2, ED1+2, QX!, ADD+5*, KEY+2, KEY+3, KEY+4
I	START+17*, EX!
IOF	START+1, ASK1
L	START+17*, EX!
LF	EX!
NPI	START+18~*
PRCLS	START+16*, EX!
PRNO	START*, START+1, START+2, START+4, START+6, START+7, START+8, START+10, START+11, START+13 , START+14, START+15, START+16, START+18, START+19, START+20, START+21, START+22, START+23, NUM , NUM+1, NUM+2, NUM+3, NUM+4, NUM+5, EX!
PSOPDA	KEY+1*!
PSOSECT	START+20!
PSOSECT(49	START+20
PSOSSDA	START+20*!
>> PSOTPBFG	EDT+4, EDT+8, EDT+13, QX, ADD+9
RTPB	EDT+2~*, EDT+10, EDT+12, QX!
STAT	START+23*, EX!
T	START+17*, EX!
VA	ADD+9!
VADA	QX, ADD+4*, ADD+5, ADD+6, ADD+8, ADD+9!, NPRV+2
X	START, EX!, ASK+2, EDT+4, EDT+5, ADD+9!, KEY+1*, KEY+3, KEY+4!
X1	EX!
XMDT	EX!
XMN	EX!
Y	START, START+10*, EX!, ASK+2, ASK1+1!, EDT+3, EDT+9, ED1+2, ADD+9!, NPRV+2 , KEY+1, KEY+4!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOPRVW

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
MS	;
ASK1
KEY
NPRV
ED1	;S DR="53.1:53.6;I X'=4 S Y=""@1"";29;8932.1;@1;53.7;I 'X S Y=""@2"";53.8;@2;53.9;.111:.116;.131:.134;.136;.137;.138;.141",DR(2,200.05)=".01;2;3"
QX
START
ADD	;add new providers (kernel 7)
NUM
EX
EDT
ASK	;edit providers