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 ;3/10/22 16:20

Source Information

Source file <PSOPRVW.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 6 ^DIC  FILE^DICN  FIELD^DID  (,FILE)^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 4 $$FMTE^XLFDT  $$DEA^XUSER  $$ADD^XUSERNEW  $$NPI^XUSNPI  
Outpatient Pharmacy 2 $$EDITCHK^PSOPRVW  ($$NPDEACNT,DEAEDT)^PSOPRVW1  

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

Package Total Caller Graph
Outpatient Pharmacy 7 PSO PROVIDER ADD  PSO PROVIDER EDIT  PSO PROVIDER INQUIRE  PSODEAME  PSOPRVW  PSOPRVW1  PSOTPPRV  

Entry Points

Name Comments DBIA/ICR reference
START
EX
ASK ;edit providers
ASK1 ; Prompt for provider
EDT
ED1 ; Edit provider
QX
ADD ;add new providers (kernel 7)
NPRV
KEY
MS ;
DR1 ;Added for processing of JUMP correctly PSO*7.0*450
; PSO*7*630; Use PROVIDER TYPE that was filed into $P(^VA(200,DA,"PS"),U,6), not X. The last field has been re-requenced, so can't rely on local X at this point.
CHKP(ROWPAD)
VANUMEDT(DA) ; -- Code used to add/edit/delete the VA Number
VANUMEDC
EDITCHK(PSOPRDA)
DISPLAY(PRNO)
SKED200 ;
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 - Constant value to be displayed with label 1
; V2 - Constant value to be displayed with label 2
POM() ; Pharmacy Operating Mode
PRNAMDSP(PRNO) ; Display provider name and label

External References

Name Field # of Occurrence
^DIC START, ASK+2, KEY+1
FILE^DICN KEY+4
FIELD^DID LINEP+17, LINEP+20
^DIE EDT+4, EDT+8, EDT+11, EDT+13, EDT+16, ED1+2, ED1+7, ADD+10, ADD+12, VANUMEDC+13
FILE^DIE VANUMEDC+15
$$GET1^DIQ EDT+3, EDT+5, EDT+6, DR1+2, EDITCHK+3, EDITCHK+5, EDITCHK+6, DISPLAY+33, DISPLAY+57, POM+1
GETS^DIQ DISPLAY+4, DISPLAY+11, DISPLAY+13
^DIR NPRV+1, CHKP+3, VANUMEDC+1, VANUMEDC+12
$$EDITCHK^PSOPRVW ADD+8
$$NPDEACNT^PSOPRVW1 VANUMEDC+8
DEAEDT^PSOPRVW1 ED1+3, ADD+6
$$FMTE^XLFDT DISPLAY+28
$$DEA^XUSER DISPLAY+56
$$ADD^XUSERNEW ADD+3
$$NPI^XUSNPI DISPLAY+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+0
Function Call: WRITE
  • Prompt: ?40,$C(7),"* * * INACTIVE AS OF ",$E($P(^("PS"),U,4),4,5),"/",$E($P(^("PS"),U,4),6,7),"/",$E($P(^("PS"),U,4),2,3)," * * *"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+2
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+3
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: @IOF
  • Line Location: CHKP+3
Function Call: WRITE
  • Prompt: !,$C(7)," No Jumping allowed??"
  • Line Location: VANUMEDC+3
Function Call: WRITE
  • Prompt: ?2,"NAME: "_$P(^VA(200,PRNO,0),U)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !?2,"INITIALS: "_$P(^VA(200,PRNO,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+19
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+46
Function Call: WRITE
  • Prompt: SETARRAY(SET,LINE),?40,$G(SETARRAY(SET+1,LINE)),!
  • Line Location: DISPLAY+49
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+52
Function Call: WRITE
  • Prompt: !?2,"SYNONYM(S): "_$S($P($G(^VA(200,PRNO,.1)),U,4)]"":$P(^(.1),U,4)_",",1:"")_$S($P(^(0),U,2)]"":" "_$P(^(0),U,2),1:"")
  • Line Location: DISPLAY+61
Function Call: WRITE
  • Prompt: !?2,"SERVICE/SECTION: "_$G(PSAR(200,PRNO_",",29,"E"))
  • Line Location: DISPLAY+62
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+63
Function Call: WRITE
  • Prompt: !," SCHEDULE II NARCOTIC: "_$S($P(SKED200,U,1):"YES",1:"NO")
  • Line Location: SKED200+2
Function Call: WRITE
  • Prompt: !," SCHEDULE II NON-NARCOTIC: "_$S($P(SKED200,U,2):"YES",1:"NO")
  • Line Location: SKED200+3
Function Call: WRITE
  • Prompt: !," SCHEDULE III NARCOTIC: "_$S($P(SKED200,U,3):"YES",1:"NO")
  • Line Location: SKED200+4
Function Call: WRITE
  • Prompt: !," SCHEDULE III NON-NARCOTIC: "_$S($P(SKED200,U,4):"YES",1:"NO")
  • Line Location: SKED200+5
Function Call: WRITE
  • Prompt: !," SCHEDULE IV: "_$S($P(SKED200,U,5):"YES",1:"NO")
  • Line Location: SKED200+6
Function Call: WRITE
  • Prompt: !," SCHEDULE V: "_$S($P(SKED200,U,6):"YES",1:"NO")
  • Line Location: SKED200+7
Function Call: WRITE
  • Prompt: !,""
  • Line Location: SKED200+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LINEP+19
Function Call: WRITE
  • Prompt: ?2,LB1_": ",PSDATA1
  • Line Location: LINEP+21
Function Call: WRITE
  • Prompt: ?40,LB2_": ",PSDATA2
  • Line Location: LINEP+22
Function Call: WRITE
  • Prompt: !?((PSOMARG/2)-($L(PRVNMLBL)/2)),PRVNMLBL,!
  • Line Location: PRNAMDSP+5
Routine Call
  • DIC
  • Line Location:
    • START
    • ASK+2
    • KEY+1
Routine Call
  • DIE
  • Line Location:
    • EDT+4
    • EDT+8
    • EDT+11
    • EDT+13
    • EDT+16
    • ED1+2
    • ED1+7
    • ADD+10
    • ADD+12
    • VANUMEDC+13
Routine Call
  • DIE
  • Line Location:
    • VANUMEDC+15
Routine Call
  • DIR
  • Line Location:
    • NPRV+1
    • CHKP+3
    • VANUMEDC+1
    • VANUMEDC+12

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
^XTV(8991.9 - [#8991.9] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" EDT, KEY+4
^DD(200 KEY+2
^VA(200 - [#200] ASK+3, EDT, EDT+2, EDT+9, EDT+10, EDT+12, EDT+14, QX, QX+2, ADD+11
, ADD+13, NPRV, NPRV+1, KEY, KEY+1, KEY+2*, KEY+4, DISPLAY+3, DISPLAY+7, DISPLAY+21
, DISPLAY+23, DISPLAY+27, DISPLAY+33, DISPLAY+61, SKED200+1, PRNAMDSP+4
^XTV(8991.9 - [#8991.9] DISPLAY+24, DISPLAY+28, DISPLAY+29, DISPLAY+32

Label References

Name Line Occurrences
$$CHKP DISPLAY+19, DISPLAY+46, DISPLAY+50, DISPLAY+52, DISPLAY+54, DISPLAY+58, DISPLAY+59, DISPLAY+60, DISPLAY+61, DISPLAY+62
, DISPLAY+63
$$EDITCHK DR1+4
$$POM EDITCHK+4
ADD QX, ADD+14, NPRV+2
ASK ASK+2, QX, NPRV+2
ASK1 ADD+13
DISPLAY START+10, ASK1+7
ED1 QX+2
EDT NPRV+3
EX START, ASK+2, ADD+14, NPRV+1
KEY ED1+7, ADD+14
LINEP DISPLAY+12, DISPLAY+15, DISPLAY+54, DISPLAY+58, DISPLAY+59, DISPLAY+60, DISPLAY+63, DISPLAY+64
NPRV ASK+3, ADD+13
PRNAMDSP START+9, ASK1+6, CHKP+3
QX EDT+1, EDT+4, EDT+5, EDT+9, EDT+10, EDT+17, ED1+2, ED1+4
SKED200 DISPLAY+57
START START, START+11, ASK1+7, DISPLAY+19
VANUMEDC VANUMEDC+3
VANUMEDT ED1+4, ADD+7

Naked Globals

Name Field # of Occurrence
^( DISPLAY+61
^("PS" KEY+1
^(0 DISPLAY+61

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EX!
%W EX!
%Y EX!
%Z EX!
ACNT VANUMEDT+1~, VANUMEDC+6*, VANUMEDC+7*, VANUMEDC+9*, VANUMEDC+10*, VANUMEDC+11*
C EX!
D0 EX!
DA EX!, ASK+2*, ASK+3, ASK1+6, ASK1+7, EDT, EDT+2, EDT+5, EDT+6, EDT+9
, EDT+10, EDT+12, EDT+14, ED1+3, ED1+4, ED1+7, QX, QX+2, ADD+4*, ADD+6
, ADD+7, ADD+11, ADD+14!, NPRV, NPRV+1, KEY, KEY+1*, DR1+2, DR1+4, VANUMEDT~
, VANUMEDC+8, VANUMEDC+15, LINEP~, LINEP+12, LINEP+13
DA(1 KEY+3*
DD KEY+4!
DDH EX!
DEA ADD+14!
DI EX!
DIC START*!, EX!, ASK+2*, QX!, ADD+4*, ADD+14!, KEY+1!*, KEY+3*, KEY+4!, DISPLAY+65!
DIC("A" START*, ASK+2*
DIC("DR" KEY+3*
DIC("S" START*
DIC(0 START*, ASK+2*, ADD+13*, KEY+1*, KEY+3*
DIE EX!, ASK+2*, ADD+4*, VANUMEDT+1~, VANUMEDC+13*
DIE("NO^" EDT+8*!, ED1+2*, ED1+7*!, ADD+12*
DIH EX!
DIK ADD+14!
>> DINUM KEY+3*
DIQ QX!
DIR EX!, ASK+1!, CHKP+1~, VANUMEDT+1~
DIR("?" NPRV+1*
DIR("A" NPRV*, VANUMEDC+5*, VANUMEDC+7*, VANUMEDC+9*, VANUMEDC+10*, VANUMEDC+11*
DIR("B" NPRV*
DIR(0 NPRV*, CHKP+3*, VANUMEDC+1*, VANUMEDC+12*
DIROUT EX!, ASK+1!
DIRUT EX!, ASK+1!, NPRV+2, CHKP+1~, CHKP+3
DLAYGO EX!, KEY+3*
DNDEAIEN DISPLAY+18~, DISPLAY+23*, DISPLAY+24, DISPLAY+28, DISPLAY+29, DISPLAY+32, DISPLAY+33
DO KEY+4!
DQ EX!
DR EX!, EDT+4*, EDT+6*, EDT+7*, EDT+8*, EDT+11*, EDT+13*, EDT+16*, ED1+1*, ED1+5*
, QX!, ADD+8!*, ADD+9*, ADD+12*, KEY+4!, DR1+6*, DR1+7*, VANUMEDT+1~, VANUMEDC+13*
DR(1 ED1+6*, DR1+6*, DR1+7*
DSPNUL LINEP~, LINEP+11*, LINEP+16, LINEP+21, LINEP+22
DT KEY+1, KEY+3, DISPLAY+8, DISPLAY+9
DTOUT EX!, ASK+1!, EDT+4, EDT+10, ED1+2, ED1+4!, ADD+7!, NPRV+1, CHKP+1~, VANUMEDC+2*
DUOUT EX!, ASK+1!, CHKP+1~
DUZ EDT+11, EDT+13, EDT+16, ADD+12, KEY+3
EDCHKRET EDITCHK+2!*, EDITCHK+4*, EDITCHK+5*, EDITCHK+7*, EDITCHK+8
EXIT ASK+1!*, ASK1+7, DISPLAY+2*, DISPLAY+18~, DISPLAY+44*, DISPLAY+45, DISPLAY+46*, DISPLAY+47, DISPLAY+50*, DISPLAY+52*
, DISPLAY+54*, DISPLAY+58*, DISPLAY+59*, DISPLAY+60*, DISPLAY+61*, DISPLAY+62*, DISPLAY+63*
F1 LINEP~, LINEP+11*, LINEP+12, LINEP+17
F2 LINEP~, LINEP+11*, LINEP+13, LINEP+20
FADA ASK+2*, ED1+7*, QX!, ADD+4*, ADD+8, KEY+2, KEY+3, KEY+4
FDA VANUMEDC+15~
FDA(200 VANUMEDC+15*
FMG ASK+1!
FMGO ASK+1!
FMGX ASK+1!
HASVANO DISPLAY+55~, DISPLAY+56*, DISPLAY+57
I EX!
IOF CHKP+3, PRNAMDSP+3
IOM PRNAMDSP+2
IOSL CHKP+3
L EX!
L1 LINEP~, LINEP+11
L2 LINEP~, LINEP+11
>> LABEL("LABEL" LINEP+17, LINEP+20
LB1 LINEP+10~, LINEP+11*, LINEP+17*, LINEP+18, LINEP+21
LB2 LINEP+10~, LINEP+11*, LINEP+20*, LINEP+22
LF EX!
LINE DISPLAY+20~, DISPLAY+25*, DISPLAY+26*, DISPLAY+27, DISPLAY+28*, DISPLAY+29*, DISPLAY+34*, DISPLAY+35*, DISPLAY+36*, DISPLAY+37*
, DISPLAY+38*, DISPLAY+39*, DISPLAY+47*, DISPLAY+49, DISPLAY+50, DISPLAY+51!
MSG ASK+1!
NPDEAIEN DISPLAY+18~, DISPLAY+21*, DISPLAY+23, DISPLAY+27
NPI DISPLAY+10~*, DISPLAY+58
POM POM+1~*, POM+2
PRCLS EX!
PRNO START*, START+9, START+10, EX!, CHKP+3, DISPLAY~, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+6
, DISPLAY+7, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+15, DISPLAY+21, DISPLAY+23, DISPLAY+27, DISPLAY+33
, DISPLAY+54, DISPLAY+56, DISPLAY+57, DISPLAY+58, DISPLAY+59, DISPLAY+60, DISPLAY+61, DISPLAY+62, DISPLAY+63, DISPLAY+64
, SKED200+1, PRNAMDSP~, PRNAMDSP+4
PROVTYP EDITCHK+2~, EDITCHK+6*, EDITCHK+7
PRVNMLBL PRNAMDSP+1~, PRNAMDSP+4*, PRNAMDSP+5
PSAR DISPLAY+2~, DISPLAY+12, DISPLAY+15, DISPLAY+54, DISPLAY+58, DISPLAY+59, DISPLAY+60, DISPLAY+63, DISPLAY+64, LINEP~
PSAR(200 DISPLAY+62, LINEP+12, LINEP+13
PSDATA DISPLAY+2~
PSDATA1 LINEP+10~, LINEP+11*, LINEP+12*, LINEP+14*, LINEP+16, LINEP+21
PSDATA2 LINEP+10~, LINEP+11*, LINEP+13*, LINEP+15*, LINEP+16, LINEP+22
PSDRSTR ADD+1~, ADD+2*, ADD+3
>> PSINACT(200 DISPLAY+5, DISPLAY+6
>> PSINACTE DISPLAY+5*, DISPLAY+8, DISPLAY+9
>> PSINACTI DISPLAY+6*, DISPLAY+7, DISPLAY+8, DISPLAY+9
PSLINE DISPLAY+12~, DISPLAY+15~
PSODOJE DISPLAY+22~, DISPLAY+24*, DISPLAY+26
PSOMARG PRNAMDSP+1~, PRNAMDSP+2*, PRNAMDSP+5
PSOPDA KEY+1*!
PSOPOM EDT+3~*
PSOPRDA EDITCHK~, EDITCHK+3, EDITCHK+5, EDITCHK+6
PSOPX DR1+2~*, DR1+3
PSORTPB EDT+14~*, EDT+15, QX!
>> PSOTPBFG EDT+5, EDT+9, EDT+17, QX, ADD+14
RESPONSE CHKP+1~*, CHKP+3*, CHKP+4
ROWPAD CHKP~, CHKP+2*, CHKP+3
RTPB EDT+2~*, EDT+11, EDT+13, EDT+15, QX!
SCHNODE DISPLAY+32~*, DISPLAY+33*, DISPLAY+34, DISPLAY+35, DISPLAY+36, DISPLAY+37, DISPLAY+38, DISPLAY+39
SET DISPLAY+20~*, DISPLAY+25*, DISPLAY+26, DISPLAY+27, DISPLAY+28, DISPLAY+29, DISPLAY+34, DISPLAY+35, DISPLAY+36, DISPLAY+37
, DISPLAY+38, DISPLAY+39, DISPLAY+40, DISPLAY+45*, DISPLAY+48, DISPLAY+49, DISPLAY+50, DISPLAY+51!
SETARRAY DISPLAY+20~, DISPLAY+51!
SETARRAY( DISPLAY+26*, DISPLAY+27*, DISPLAY+28*, DISPLAY+29*, DISPLAY+34*, DISPLAY+35*, DISPLAY+36*, DISPLAY+37*, DISPLAY+38*, DISPLAY+39*
, DISPLAY+40*, DISPLAY+48, DISPLAY+49, DISPLAY+50
SETARRAY(100 DISPLAY+45
SKED200 SKED200+1~*, SKED200+2, SKED200+3, SKED200+4, SKED200+5, SKED200+6, SKED200+7
STAT EX!
T EX!, DISPLAY+28*, DISPLAY+29*
TMPDR DR1+5~*, DR1+6
U START, ASK+2, EDT+10, EDT+11, EDT+12, EDT+13, EDT+15, ADD+5, ADD+11, ADD+13
, NPRV, NPRV+1, NPRV+2, KEY+1, KEY+2, DISPLAY+3, DISPLAY+10, DISPLAY+23, DISPLAY+26, DISPLAY+27
, DISPLAY+28, DISPLAY+29, DISPLAY+34, DISPLAY+35, DISPLAY+36, DISPLAY+37, DISPLAY+38, DISPLAY+39, DISPLAY+61, SKED200+2
, SKED200+3, SKED200+4, SKED200+5, SKED200+6, SKED200+7
V1 LINEP~, LINEP+11*, LINEP+14
V2 LINEP~, LINEP+11*, LINEP+15
VA ADD+14!
VADA QX, ADD+1~, ADD+3*, ADD+4, ADD+5, ADD+11, ADD+13, ADD+14!, NPRV+2
X START, EX!, ASK+2, ADD+14!, KEY+1*, KEY+3, KEY+4!, CHKP+1~, VANUMEDT+1~, VANUMEDC+2
, VANUMEDC+3, VANUMEDC+4, VANUMEDC+15
X1 EX!
XMDT EX!
XMN EX!
Y START, EX!, ASK+2, EDT+4, EDT+10, ED1+2, ED1+7, ADD+14!, NPRV+2, KEY+1
, KEY+4!, CHKP+1~, VANUMEDT+1~, VANUMEDC+13, DISPLAY+65!
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