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

Package: Outpatient Pharmacy

Routine: PSOPRVW


Information

PSOPRVW ;BIR/SAB,MHA-enter/edit/view provider ;29-May-2012 15:05;PLS

Source Information

Source file <PSOPRVW.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 4

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

Entry Points

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

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