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

Package: Outpatient Pharmacy

Routine: PSOPRVW1


Information

PSOPRVW1 ;BIR/BI,MHA-enter/edit/view provider ; 11/9/2018

Source Information

Source file <PSOPRVW1.m>

Entry Points

Name Comments DBIA/ICR reference
WS(X,PSOIENS,PSOWSDWN)
INS(X)
NULL(X,DIIENS)
DEAEDT(NPIEN)
DEAEDT1(NPIEN) ; Select one DEA number and edit it
DEAEDTST(X,NPDEALST,NPIEN,PSOWSDWN)
DEAEDTSX ; Subroutine Exit Tag
INPUSE(NPIEN)
IPSLOOP ; Loop to prevent the user from existing without selecting a DEA number for inpatient usage.
; Set up the user interface prompt to select the "ONE" DEA NUMBER to be used for inpatient orders.
; If there are more than one DEA NUMBER currently and none selected, make it a required response.
; If there are more than one DEA NUMBER currently selected, make it a required response.
; If there is only one DEA NUMBER, make it a required response, and default to 1.
DELDEA(NPDEALST,NPIEN) ; -- Code used to add/edit/delete the VA Number
DELDEAQ
NPDEACNT(NPIEN) ; -- Function used to count the number of DEA numbers for a provider.
DEAHELP ; DEA prompt help text for ^DIR(0)
REDISP ; Redisplay DEA numbers

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEAEDT+5
Function Call: WRITE
  • Prompt: !!,"DEA NUMBERS",!
  • Line Location: DEAEDT1+23
Function Call: WRITE
  • Prompt: ?5," * NO DEA NUMBERS ON FILE *",!
  • Line Location: DEAEDT1+24
Function Call: WRITE
  • Prompt: $E(" ",1,5-$L(CNT)),CNT," - ",$P(NPDEALST(CNT),U,1)
  • Line Location: DEAEDT1+27
Function Call: WRITE
  • Prompt: " ",$P(NPDEALST(CNT),U,5)
  • Line Location: DEAEDT1+29
Function Call: WRITE
  • Prompt: !
  • Line Location: DEAEDTST+20
Function Call: WRITE
  • Prompt: !!,"*** "_$P(RESPONSE,U,2)_" ***"
  • Line Location: DEAEDTST+24
Function Call: WRITE
  • Prompt: !!,"DOJ NAME: ",FG("name")
  • Line Location: DEAEDTST+30
Function Call: WRITE
  • Prompt: !,"VISTA NAME: ",LNAME,!
  • Line Location: DEAEDTST+31
Function Call: WRITE
  • Prompt: "USE FOR INPATIENT ORDERS",!
  • Line Location: INPUSE+32
Function Call: WRITE
  • Prompt: $E(" ",1,5-$L(CNT)),CNT," - ",$P(NPDEALST(CNT),U,1)," - "_$P(NPDEALST(CNT),U,3)
  • Line Location: INPUSE+34
Function Call: WRITE
  • Prompt: !!,"THERE MUST BE ONE DEA SELECTED FOR INPATIENT ORDERS."
  • Line Location: IPSLOOP+11
Function Call: WRITE
  • Prompt: !!,"THERE CAN BE ONLY ONE DEA SELECTED FOR INPATIENT ORDERS."
  • Line Location: IPSLOOP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: IPSLOOP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: IPSLOOP+14
Function Call: WRITE
  • Prompt: !,"DEA # "_$P(NPDEALST(CNT),U,1)_" is already flagged as ""Use for Inpatient Orders""."
  • Line Location: IPSLOOP+22
Function Call: WRITE
  • Prompt: !
  • Line Location: IPSLOOP+36
Function Call: WRITE
  • Prompt: " ",NPDEATXT," - "_$S(UFIO="YES":"YES",1:"NO"),!
  • Line Location: IPSLOOP+42
Function Call: WRITE
  • Prompt: " ** No DEA Numbers to Delete ** "
  • Line Location: DELDEA+5
Function Call: WRITE
  • Prompt: !,"Enter a New DEA Number."
  • Line Location: DEAHELP+2
Function Call: WRITE
  • Prompt: !,"Select a choice from the list above or,"
  • Line Location: DEAHELP+3
Function Call: WRITE
  • Prompt: !,"Or type '@' to delete an existing entry."
  • Line Location: DEAHELP+4
Function Call: WRITE
  • Prompt: !,"DEA NUMBERS must be valid, 2 letters and 7 numbers."
  • Line Location: DEAHELP+5
Function Call: WRITE
  • Prompt: !!,"DEA NUMBERS",!
  • Line Location: REDISP+14
Function Call: WRITE
  • Prompt: ?5," * NO DEA NUMBERS ON FILE *",!
  • Line Location: REDISP+15
Function Call: WRITE
  • Prompt: $E(" ",1,5-$L(CNT)),CNT," - ",$P(NPDEALST(CNT),U,1)
  • Line Location: REDISP+18
Function Call: WRITE
  • Prompt: " ",$P(NPDEALST(CNT),U,5)
  • Line Location: REDISP+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
200.5321 GET1^DIQ
^XTV(8991.9 - [#8991.9] FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call