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

Package Total Call Graph
VA FileMan 6 ^DIC  FILE^DICN  FIELD^DID  ^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 2 $$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
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 PSO*7.0*450
; PSO*7*630; 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 STARTASK+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" EDTKEY+4
^DD(200 KEY+2
^VA(200 - [#200] START+4, ASK+3, ASK1+4, EDTEDT+2, EDT+10, EDT+11, EDT+13, EDT+15, QX
QX+2, ADD+7, ADD+9, NPRVNPRV+1, KEYKEY+1, KEY+2*, KEY+4, DISPLAY+7
, DISPLAY+23

Label References

Name Line Occurrences
$$EDITCHK DR1+4
ADD QXADD+10, NPRV+2
ASK ASK+2, QXNPRV+2
ASK1 ADD+9
DISPLAY START+6, ASK1+7
ED1 QX+2
EDT NPRV+3
EX STARTASK+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 STARTSTART+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, EDTEDT+2, EDT+5, EDT+6, EDT+7
EDT+10, EDT+11, EDT+13, EDT+15, ED1+2, QXQX+2, ADD+2, ADD+6*, ADD+7
ADD+10!, NPRVNPRV+1, KEYKEY+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, QXADD+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 QXADD+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!
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