Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call