Routine: PSOPRVW

Package	Total	Call Graph
VA FileMan	6	^DIC FILE^DICN FIELD^DID ^DIE ($$GET1,GETS)^DIQ ^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

Name	Comments	DBIA/ICR reference
START
EX
ASK	;edit providers
ASK1	; Prompt for provider
EDT
ED1
QX
ADD	;add new providers (kernel 7)
NPRV
KEY
MS	;
DR1	;Added for processing of JUMP correctly PSO7.0450 ; PSO7630; Use PROVIDER TYPE that was filed into $P(^VA(200,DA,"PS"),"^",6), not X. The last field has been re-requenced, so can't rely on local X at this point.
EDITCHK(PSOPRDA)
DISPLAY(DA)
LINEP(DA,PSAR,F1,L1,F2,L2,DSPNUL,V1,V2)	; Print Line ; Input: DA - Provider IEN from NEW PERSON file (#200). (required) ; PSAR - Array returned from GETS^DIQ(200,DA. (required) ; F1 - Field number from NEW PERSON file (#200) to display in left column. (required) ; L1 - Label text to display with F1 field. (optional-label from ^DD(200 will be used if not passed). ; F2 - Field number from NEW PERSON file (#200) to display in right column. (optional) ; L2 - Label text to display with F2 field. (optional-label from ^DD(200 will be used if not passed). ; DSPNUL - Display Null data - 1:Only applies to first column/field, 2:Only applies to second column/field, 3: Both fields ; V1 - Static value passed in for display field 1 ; V2 - Static value passed in for display field 2

External References

Name	Field # of Occurrence
^DIC	START, ASK+2, KEY+1
FILE^DICN	KEY+4
FIELD^DID	LINEP+18, LINEP+21
^DIE	EDT+4, EDT+9, EDT+12, EDT+14, EDT+17, ED1+2, ADD+8
$$GET1^DIQ	EDT+3, EDT+5, EDT+6, EDT+7, ADD+2, DR1+2, EDITCHK+2, EDITCHK+3, EDITCHK+4, EDITCHK+5
GETS^DIQ	DISPLAY+3, DISPLAY+11, DISPLAY+13
^DIR	NPRV+1
$$ADD^XUSERNEW	ADD+5
$$NPI^XUSNPI	DISPLAY+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+0
Function Call: WRITE	Prompt: !?((PSOMARG/2)-($L(PRVNMLBL)/2)),PRVNMLBL,! Line Location: START+5
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: !?((PSOMARG/2)-($L(PRVNMLBL)/2)),PRVNMLBL,! Line Location: ASK1+5
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+5
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
Function Call: WRITE	Prompt: ?40,$C(7),"* INACTIVE AS OF ",PSINACTE," *" Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !?2,"INITIALS: "_$P(^VA(200,DA,0),"^",2) Line Location: DISPLAY+7
Function Call: WRITE	Prompt: ?40,"INACTIVE DATE: ",PSINACTE Line Location: DISPLAY+8
Function Call: WRITE	Prompt: ?40,$C(7),"* INACTIVE AS OF ",PSINACTE," *" Line Location: DISPLAY+9
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+15
Function Call: WRITE	Prompt: ?40,"NPI: ",NPI Line Location: DISPLAY+19
Function Call: WRITE	Prompt: !?2,"SYNONYM(S): "_$S($P($G(^VA(200,DA,.1)),"^",4)]"":$P(^(.1),"^",4)_",",1:"")_$S($P(^(0),"^",2)]"":" "_$P(^(0),"^",2),1:"") Line Location: DISPLAY+23
Function Call: WRITE	Prompt: !?2,"SERVICE/SECTION: "_$G(PSAR(200,DA_",",29,"E")) Line Location: DISPLAY+24
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+25
Function Call: WRITE	Prompt: ! Line Location: LINEP+20
Function Call: WRITE	Prompt: ?2,LB1_": ",PSDATA1 Line Location: LINEP+22
Function Call: WRITE	Prompt: ?40,LB2_": ",PSDATA2 Line Location: LINEP+23
Routine Call	DIC Line Location: START ASK+2 KEY+1
Routine Call	DIE Line Location: EDT+4 EDT+9 EDT+12 EDT+14 EDT+17 ED1+2 ADD+8
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, FIELD^DID, GET1^DIQ, GETS^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	EDT, KEY+4
^DD(200	KEY+2
^VA(200 - [#200]	START+4, ASK+3, ASK1+4, EDT, EDT+2, EDT+10, EDT+11, EDT+13, EDT+15, QX , QX+2, ADD+7, ADD+9, NPRV, NPRV+1, KEY, KEY+1, KEY+2*, KEY+4, DISPLAY+7 , DISPLAY+23

Label References

Name	Line Occurrences
$$EDITCHK	DR1+4
ADD	QX, ADD+10, NPRV+2
ASK	ASK+2, QX, NPRV+2
ASK1	ADD+9
DISPLAY	START+6, ASK1+7
ED1	QX+2
EDT	NPRV+3
EX	START, ASK+2, ADD+10, NPRV+1
KEY	ED1+2, ADD+10
LINEP	DISPLAY+12, DISPLAY+16, DISPLAY+17, DISPLAY+18, DISPLAY+20, DISPLAY+21, DISPLAY+22, DISPLAY+25, DISPLAY+26
NPRV	ASK+3, ADD+9
QX	EDT+1, EDT+4, EDT+6, EDT+10, EDT+11, EDT+18
START	START, START+7

Naked Globals

Name	Field # of Occurrence
^(	DISPLAY+23
^("PS"	KEY+1
^(0	DISPLAY+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	EX!, ASK+2, ASK+3, ASK1+4, ASK1+7, EDT, EDT+2, EDT+5, EDT+6, EDT+7 , EDT+10, EDT+11, EDT+13, EDT+15, ED1+2, QX, QX+2, ADD+2, ADD+6, ADD+7 , ADD+10!, NPRV, NPRV+1, KEY, KEY+1*, DR1+2, DR1+4, DISPLAY~, DISPLAY+3, DISPLAY+4 , DISPLAY+5, DISPLAY+7, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+16, DISPLAY+17, DISPLAY+18, DISPLAY+20 , DISPLAY+21, DISPLAY+22, DISPLAY+23, DISPLAY+24, DISPLAY+25, DISPLAY+26, LINEP~, LINEP+14
DA(1	KEY+3*
DD	KEY+4!
DDH	EX!
DEA	ADD+10!
DI	EX!
DIC	START!, EX!, ASK+2, QX!, ADD+6, ADD+10!, KEY+1!, KEY+3*, KEY+4!, DISPLAY+27!
DIC("A"	START, ASK+2
DIC("DR"	KEY+3*
DIC("S"	START*
DIC(0	START, ASK+2, ADD+9, KEY+1, KEY+3*
DIE	EX!, ASK+2, ADD+6
DIE("NO^"	EDT+9!, ED1+2!
DIH	EX!
DIK	ADD+10!
>> DINUM	KEY+3*
DIQ	QX!
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	EX!, EDT+4, EDT+7, EDT+8, EDT+9, EDT+12, EDT+14, EDT+17, ED1, QX! , ADD+8, KEY+4!, DR1+6, DR1+7*
DR(1	ED1+1, DR1+6, DR1+7*
DSPNUL	LINEP~, LINEP+12*, LINEP+17, LINEP+22, LINEP+23
DT	KEY+1, KEY+3, DISPLAY+8, DISPLAY+9
DTOUT	EX!, ASK+1!, EDT+4, EDT+11, NPRV+1
DUOUT	EX!, ASK+1!
DUZ	EDT+12, EDT+14, EDT+17, ADD+8, KEY+3
F1	LINEP~, LINEP+13*, LINEP+14, LINEP+18
F2	LINEP~, LINEP+13*, LINEP+14, LINEP+21
FADA	ASK+2, ED1+2, QX!, ADD+6*, KEY+2, KEY+3, KEY+4
I	EX!
IOF	START+3, ASK1+3
IOM	START+2, ASK1+2
L	EX!
L1	LINEP~, LINEP+12
L2	LINEP~, LINEP+12
>> LABEL("LABEL"	LINEP+18, LINEP+21
LB1	LINEP+11~, LINEP+12, LINEP+18, LINEP+19, LINEP+22
LB2	LINEP+11~, LINEP+12, LINEP+21, LINEP+23
LF	EX!
NPI	DISPLAY+10~*, DISPLAY+18
PRCLS	EX!
PRNO	START*, START+4, START+6, EX!
PROVTYP	EDITCHK+1~, EDITCHK+5*, EDITCHK+6
PRVNMLBL	START+1~, START+4, START+5, ASK1+1~, ASK1+4, ASK1+5
PSAR	DISPLAY+2~, DISPLAY+12, DISPLAY+16, DISPLAY+17, DISPLAY+18, DISPLAY+20, DISPLAY+21, DISPLAY+22, DISPLAY+25, DISPLAY+26 , LINEP~
PSAR(200	DISPLAY+24, LINEP+14
PSDATA	DISPLAY+2~
PSDATA1	LINEP+11~, LINEP+12, LINEP+14, LINEP+15*, LINEP+17, LINEP+22
PSDATA2	LINEP+11~, LINEP+12, LINEP+14, LINEP+16*, LINEP+17, LINEP+23
PSDRSTR	ADD+1~, ADD+3, ADD+4, ADD+5
PSINACT	DISPLAY+2~
PSINACT(200	DISPLAY+4, DISPLAY+5
PSINACTE	DISPLAY+2~, DISPLAY+4*, DISPLAY+8, DISPLAY+9
PSINACTI	DISPLAY+2~, DISPLAY+5*, DISPLAY+7, DISPLAY+8, DISPLAY+9
PSLINE	DISPLAY+12~, DISPLAY+16~
PSOMARG	START+1~, START+2, START+5, ASK1+1~, ASK1+2, ASK1+5
PSOPDA	KEY+1*!
PSOPOM	EDT+3~*
PSOPRDA	EDITCHK~, EDITCHK+2, EDITCHK+4, EDITCHK+5
PSOPX	EDT+5~, ADD+1~, ADD+2~, DR1+2~*, DR1+3
PSORTPB	EDT+15~*, EDT+16, QX!
>> PSOTPBFG	EDT+6, EDT+10, EDT+18, QX, ADD+10
RTPB	EDT+2~*, EDT+12, EDT+14, EDT+16, QX!
STAT	EX!
T	EX!
TMPDR	DR1+5~*, DR1+6
V1	LINEP~, LINEP+15
V2	LINEP~, LINEP+16
VA	ADD+10!
VADA	QX, ADD+1~, ADD+5*, ADD+6, ADD+7, ADD+9, ADD+10!, NPRV+2
X	START, EX!, ASK+2, ADD+10!, KEY+1*, KEY+3, KEY+4!
X1	EX!
XMDT	EX!
XMN	EX!
Y	START, EX!, ASK+2, EDT+4, EDT+11, ED1+2, ADD+10!, NPRV+2, KEY+1, KEY+4! , DISPLAY+27!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOPRVW

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

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: