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

Package: Pharmacy Data Management

Routine: PSSDOS


Information

PSSDOS ;BIR/RTR-Dose edit option ;03/10/00

Source Information

Source file <PSSDOS.m>

Entry Points

Name Comments DBIA/ICR reference
DOSN ;
DOSNX ;
DOSA
WXF ;
DOSA1
DOSLOC ;
LOCX ;
LOC ; Edit local dose
LPD ; Display local dose before edit
CHECK ;
END
ULK ;No need to unlock, called from Drug enter/edit
QUES ;
STUN
NATND
PR
XNW ;
XNWS ;
QASK ;Ask to continue
WXFPT(PSSWDXVL) ;Add print fields with PSS*1*147

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Strength from National Drug File match => "_$S($E($G(PSSNATST),1)=".":"0",1:"")_$G(PSSNATST)_" "_$P($G(^PS(50.607,+$G(PSSUN),0)),"^")
  • Line Location: DOSNX+9
Function Call: WRITE
  • Prompt: !,"This drug has been set within the National Drug File to auto create "_$S(PSSUPRA="NO":"only one ",PSSUPRA="NB":"two ",1:""),!,"possible dosage"_$S(PSSUPRA="NO":".",1:"s."),!
  • Line Location: DOSNX+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DOSA+1
Function Call: WRITE
  • Prompt: !,"POSSIBLE DOSAGES:"
  • Line Location: DOSA+3
Function Call: WRITE
  • Prompt: !," DISPENSE UNITS PER DOSE: ",$S($E($P(POSDOS,U),1)=".":"0",1:"")_$P(POSDOS,U)
  • Line Location: DOSA+6
Function Call: WRITE
  • Prompt: ?38,"DOSE: ",X,?60,"PACKAGE: ",$P(POSDOS,U,3)
  • Line Location: DOSA+7
Function Call: WRITE
  • Prompt: !!,"LOCAL POSSIBLE DOSAGES:"
  • Line Location: DOSA+9
Function Call: WRITE
  • Prompt: !," LOCAL POSSIBLE DOSAGE: "
  • Line Location: DOSA+11
Function Call: WRITE
  • Prompt: $P(LPDOS,U),?55,"PACKAGE: ",$P(LPDOS,U,2)
  • Line Location: DOSA+12
Function Call: WRITE
  • Prompt: !!,"Due to National Drug File settings no possible dosages were auto-created."
  • Line Location: WXF+2
Function Call: WRITE
  • Prompt: !!,"Due to National Drug File settings only ONE possible dosage was auto-created.",!,"If other dosages are needed, create POSSIBLE DOSAGES or LOCAL POSSIBLE DOSAGES",!,"as appropriate."
  • Line Location: WXF+3
Function Call: WRITE
  • Prompt: !!,"Due to National Drug File settings TWO possible dosages were auto-created."
  • Line Location: WXF+4
Function Call: WRITE
  • Prompt: !!,"This drug has been set within the National Drug File to "_$S(PSSUPRA="NN":"not ",1:"")_"auto create "_$S(PSSUPRA="NO":"only one ",PSSUPRA="NB":"two ",1:""),!,"possible dosage"_$S(PSSUPRA="NO":".",1:"s.")
  • Line Location: WXF+6
Function Call: WRITE
  • Prompt: !
  • Line Location: WXF+12
Function Call: WRITE
  • Prompt: !!,"Changing the strength will update all possible dosages for this Drug.",!
  • Line Location: WXF+13
Function Call: WRITE
  • Prompt: !
  • Line Location: WXF+15
Function Call: WRITE
  • Prompt: !
  • Line Location: WXF+15
Function Call: WRITE
  • Prompt: !
  • Line Location: WXF+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DOSA1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DOSA1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DOSLOC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+5
Function Call: WRITE
  • Prompt: !!,"LOCAL POSSIBLE DOSAGES:"
  • Line Location: LPD+1
Function Call: WRITE
  • Prompt: !," "
  • Line Location: LPD+3
Function Call: WRITE
  • Prompt: $P(LPDOS,U),?55,"PACKAGE: ",$P(LPDOS,U,2)
  • Line Location: LPD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !!,"Strength: ",?30,"Unit: "
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: !!,"Strength from National Drug File match => "_$S($E($G(PSSNATST),1)=".":"0",1:"")_$G(PSSNATST)_" "_$P($G(^PS(50.607,+$G(PSSUN),0)),"^")
  • Line Location: XNWS+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QASK+3
Function Call: WRITE
  • Prompt: !?4,"BCMA UNITS PER DOSE: "_PSSWDX1
  • Line Location: WXFPT+7
Function Call: WRITE
  • Prompt: !?4," NUMERIC DOSE: "_PSSWDX5,?38,"DOSE UNIT: "_PSSWDX4
  • Line Location: WXFPT+8
Function Call: WRITE
  • Prompt: !,?4," NUMERIC DOSE: "_PSSWDX5
  • Line Location: WXFPT+9
Function Call: WRITE
  • Prompt: !,?38,"DOSE UNIT: "_PSSWDX4
  • Line Location: WXFPT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call