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 ; 2/9/07 10:39am

Source Information

Source file <PSOPRVW.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 ^DIC  FILE^DICN  ^DIE  EN^DIQ  EN^DIQ1  ^DIR  
Kernel 3 $$FMTE^XLFDT  $$ADD^XUSERNEW  $$NPI^XUSNPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

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
START
NUM
EX
ASK ;edit providers
ASK1
EDT
ED1
QX
ADD ;add new providers (kernel 7)
NPRV
KEY
MS ;
DR1 ;Added for processing of JUMP correctly PSO*7.0*450

External References

Name Field # of Occurrence
^DIC STARTASK+2, KEY+1
FILE^DICN KEY+4
^DIE EDT+3, EDT+7, EDT+10, EDT+12, EDT+15, ED1+2, ADD+5
EN^DIQ ASK1
EN^DIQ1 START+22
^DIR NPRV+1
$$FMTE^XLFDT START+17
$$ADD^XUSERNEW ADD+2
$$NPI^XUSNPI START+20

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: !,"Detox/Maintenance ID#: "_$P(^VA(200,PRNO,"PS"),"^",11)
  • Line Location: START+16
Function Call: WRITE
  • Prompt: ?40,"DEA Expiration Date: "
  • Line Location: START+17
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(T)
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !,"Class: "
  • Line Location: START+18
Function Call: WRITE
  • Prompt: PRCLS,?40,"VA#: "_$P(^VA(200,PRNO,"PS"),"^",3)
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !," Type: "
  • Line Location: START+19
Function Call: WRITE
  • Prompt: $P($P(L,";",I),":",2)
  • Line Location: START+19
Function Call: WRITE
  • Prompt: ?40,"NPI#: "_$S(NPI>0:+NPI,1:"")
  • Line Location: START+20
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+21
Function Call: WRITE
  • Prompt: !,"Service/Section: "
  • Line Location: START+22
Function Call: WRITE
  • Prompt: $G(PSOSECT(49,DA,.01,"E"))
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !!,"Address: ",?10,$P(^VA(200,PRNO,.11),"^")
  • Line Location: START+24
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+24
Function Call: WRITE
  • Prompt: !?10,$P(^VA(200,PRNO,.11),"^",4)
  • Line Location: START+25
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $P(^(.11),"^",4)]""
  • Line Location: START+25
Function Call: WRITE
  • Prompt: $S($D(^DIC(5,STAT,0)):$P(^(0),"^"),1:"")_" "_$P(^VA(200,PRNO,.11),"^",6)
  • Line Location: START+25
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
  • DIC
  • Line Location:
    • START
    • ASK+2
    • KEY+1
Routine Call
  • DIE
  • Line Location:
    • EDT+3
    • EDT+7
    • EDT+10
    • EDT+12
    • EDT+15
    • ED1+2
    • ADD+5
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" EDTKEY+4
^DD(200 START+19, KEY+2
^DIC(5 - [#5] START+25
^DIC(7 - [#7] START+18
^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+17, START+18, START+21, START+22, START+23, START+24, START+25, NUM
NUM+1, NUM+2, NUM+3, NUM+4, NUM+5, ASK+3, ASK1EDTEDT+2, EDT+8
EDT+9, EDT+11, EDT+13, QXQX+2, ADD+4, ADD+6, NPRVNPRV+1, KEY
KEY+1, KEY+2*, KEY+4

Label References

Name Line Occurrences
ADD QXNPRV+2
ASK ASK+2, QXNPRV+2
ASK1 ADD+6
ED1 QX+2
EDT NPRV+3
EX STARTASK+2, ADD+7, NPRV+1
KEY ED1+2, ADD+7
NPRV ASK+3, ADD+6
NUM START+23
QX EDT+1, EDT+3, EDT+4, EDT+8, EDT+9, EDT+16
START STARTNUMNUM+6

Naked Globals

Name Field # of Occurrence
^( START+21, START+24, START+25, NUM+1, NUM+2, NUM+3, NUM+4, NUM+5
^("PS" START+2, START+15, START+19, KEY+1
^("TPB" START+6, START+8, START+11, START+13
^(0 START+15, START+18, START+21, START+25

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+22*, EX!, ASK+2*, ASK+3, ASK1EDTEDT+2, EDT+8, EDT+9, EDT+11
EDT+13, ED1+2, QXQX+2, ADD+3*, ADD+4, ADD+7!, NPRVNPRV+1, KEY
KEY+1*
DA(1 KEY+3*
DD KEY+4!
DDH EX!
DEA ADD+7!
DI EX!
DIC START*!, START+22*!, EX!, ASK+2*, ASK1+1!, QX!, ADD+3*, ADD+7!, KEY+1!*, KEY+3*
KEY+4!
DIC("A" START*, ASK+2*
DIC("DR" KEY+3*
DIC("S" START*
DIC(0 START*, ASK+2*, ADD+6*, KEY+1*, KEY+3*
DIE EX!, ASK+2*, ADD+3*
DIE("NO^" EDT+7*!, ED1+2*!
DIH EX!
DIK ADD+7!
>> DINUM KEY+3*
DIQ START+22!*, QX!
DIQ(0 START+22*
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+22*!, EX!, ASK1*, EDT+3*, EDT+5*, EDT+6*, EDT+7*, EDT+10*, EDT+12*, EDT+15*
, ED1*, QX!, ADD+5*, KEY+4!, DR1+3*, DR1+4*
DR(1 ED1+1*, DR1+3*, DR1+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, EDT+15, ADD+5, KEY+3
FADA ASK+2*, ED1+2*, QX!, ADD+3*, KEY+2, KEY+3, KEY+4
I START+19*, EX!
IOF START+1, ASK1
L START+19*, EX!
LF EX!
NPI START+20~*
PRCLS START+18*, 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+17, START+18, START+20, START+21, START+22, START+23, START+24
START+25, NUMNUM+1, NUM+2, NUM+3, NUM+4, NUM+5, EX!
PSOPDA KEY+1*!
PSORTPB EDT+13~*, EDT+14, QX!
PSOSECT START+22!
PSOSECT(49 START+22
PSOSSDA START+22*!
>> PSOTPBFG EDT+4, EDT+8, EDT+16, QXADD+7
RTPB EDT+2~*, EDT+10, EDT+12, EDT+14, QX!
STAT START+25*, EX!
T START+17*, START+19*, EX!
VA ADD+7!
VADA QXADD+2*, ADD+3, ADD+4, ADD+6, ADD+7!, NPRV+2
X START, EX!, ASK+2, EDT+4, EDT+5, ADD+7!, KEY+1*, KEY+3, KEY+4!, DR1+1
DR1+2
X1 EX!
XMDT EX!
XMN EX!
Y STARTSTART+10*, EX!, ASK+2, ASK1+1!, EDT+3, EDT+9, ED1+2, ADD+7!, 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