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

Package: Pharmacy Data Management

Routine: PSSDOS


Information

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

Source Information

Source file <PSSDOS.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Pharmacy Data Management 5 (BCMA,BCMA1)^PSSDOSER  SET^PSSDOSLZ  ($$TEST,MS)^PSSDSPOP  (EN2,LOC)^PSSUTIL  ($$CHECK,$$SUPRA)^PSSUTIL3  
VA FileMan 3 ^DIC  ^DIE  ^DIR  
National Drug File 1 $$DFSU^PSNAPIS  

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

Package Total Caller Graph
Pharmacy Data Management 1 PSSDEE  

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

External References

Name Field # of Occurrence
^DIC DOSA1, LOC+2
^DIE WXF+15, DOSA1+3, LOC+6, LOC+7
^DIR DOSNX+13, WXF+12, DOSLOC+4, QUES+1, QASK+2
$$DFSU^PSNAPIS NATND+1
BCMA^PSSDOSER DOSA1+3
BCMA1^PSSDOSER LOC+6
SET^PSSDOSLZ DOSA+7
$$TEST^PSSDSPOP LOC+7
MS^PSSDSPOP XNWS+2
EN2^PSSUTIL DOSNX+13
LOC^PSSUTIL LOCX+6
$$CHECK^PSSUTIL3 WXF+1
$$SUPRA^PSSUTIL3 NATND+2

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
Routine Call
  • DIC
  • Line Location:
    • DOSA1
    • LOC+2
Routine Call
  • DIE
  • Line Location:
    • WXF+15
    • DOSA1+3
    • LOC+6
    • LOC+7
Routine Call
  • DIR
  • Line Location:
    • DOSNX+13
    • WXF+12
    • DOSLOC+4
    • QUES+1
    • QASK+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] CHECK+5, CHECK+7, CHECK+8
^PS(50.607 - [#50.607] DOSA+1, CHECK+5, PR+2, XNWS+1, XNWS+2
^PS(51.24 - [#51.24] WXFPT+4
^PS(59.7 - [#59.7] LOC+4
^PSDRUG - [#50] DOSNX+2!, DOSNX+6, DOSNX+7, DOSNX+8, DOSNX+13, DOSNX+19, DOSA, DOSA+4, DOSA+5, DOSA+10
, DOSA+11, WXF+9, WXF+10, WXF+15!, WXF+16, DOSLOC+2, DOSLOC+3, LOC+6, LPD+2, LPD+3
, ULK+2, STUN, NATND, XNW+1*, XNWS+2

Label References

Name Line Occurrences
CHECK DOSNX+4
DOSA DOSNX+7, DOSNX+8
DOSA1 DOSA1+4
DOSLOC DOSA1, DOSA1+3
DOSNX DOSNX+13
END DOSNX+19, WXF+12, WXF+16, DOSLOC+4, LOC+2, LOC+6, LOC+7
LOC WXF+16, LOCX+1, LOCX+2, LOC+6, LOC+8
LOCX DOSNX+19
LPD DOSNX+19, WXF+16
NATND LOC+1, CHECK+2
PR LOC+1
QASK DOSA+3, DOSA+6, DOSA+11, LPD+1, LPD+3, WXFPT+7, WXFPT+8, WXFPT+9, WXFPT+10
QUES DOSNX+19, WXF+16
STUN DOSNX+1, LOC+1
WXF DOSA+3
WXFPT DOSA+12, DOSA+13, LPD+4, LPD+5
XNW DOSNX+7
XNWS DOSNX+6

Naked Globals

Name Field # of Occurrence
^("DOS" STUN
^("ND" NATND
^(0 DOSA+1, DOSLOC+3, XNWS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DOSN+3, WXF+15*, DOSA1+3*, LOC+5*, LOC+7!*
DA(1 DOSA1*, DOSA1+3*, LOC+2*, LOC+5*, LOC+7*
DIC DOSA1!*, LOC+2!*
DIC("A" DOSA1*
DIC("W" DOSA1+1*, LOC+3*
DIC(0 DOSA1*, LOC+2*
DIDEL LOC+7!
DIE WXF+15!*, DOSA1+3!*, LOC+5!*, LOC+6!, LOC+7!*
DIR DOSNX+13!, DOSNX+14!, WXF+9!, WXF+12!, DOSLOC+4!, QUES+1!, QASK+1~, QASK+2!
DIR("?" DOSNX+14*, DOSNX+15*, DOSNX+16*, WXF+7*, WXF+8*, WXF+11*, DOSLOC+5*, DOSLOC+6*
DIR("A" DOSNX+14*, WXF+9*, DOSLOC+4*, QUES+1*, QASK+2*
DIR("B" DOSNX+14*, WXF+9*, DOSLOC+4*, QUES+1*
DIR(0 DOSNX+14*, WXF+9*, DOSLOC+4*, QUES+1*, QASK+2*
DIROUT QASK+1~
DIRUT QASK+1~
DR WXF+15*, DOSA1+3*, LOC+5*, LOC+7!*
DTOUT DOSA1, DOSA1+3, LOC+2, LOC+6, LOC+7, QASK+1~
DUOUT DOSA1, LOC+2, QASK+1~
IOF QASK+3
IOSL DOSA+3, DOSA+6, DOSA+11, LPD+1, LPD+3, WXFPT+7, WXFPT+8, WXFPT+9, WXFPT+10
LPDOS DOSN+1~, DOSA+11*, DOSA+12, DOSA+13, LPD+3*, LPD+4, LPD+5
>> PDS DOSA+4*, DOSA+5, DOSA+10*, DOSA+11, LPD+2*, LPD+3
POSDOS DOSN+1~, DOSA+5*, DOSA+6, DOSA+7
PSS11 DOSNX+8~
PSSDESTP XNWS+1~, XNWS+2*, XNWS+3!
PSSDIEN DOSN+2~, LOCX+6*!
PSSDOSA DOSN+1~, DOSA1+2*, DOSA1+3, LOC+4*, LOC+5, LOC+6, LOC+7, END!
PSSIEN DOSN+3~*, DOSNX+2, DOSNX+6, DOSNX+7, DOSNX+8, DOSNX+13, DOSNX+19, DOSA, DOSA+4, DOSA+5
, DOSA+10, DOSA+11, WXF+1, WXF+9, WXF+10, WXF+15, WXF+16, DOSA1, DOSA1+3, DOSLOC+2
, DOSLOC+3, LOCX+6, LOC+2, LOC+5, LOC+6, LOC+7, LPD+2, LPD+3, END!, ULK+1
, ULK+2, STUN, NATND, XNW+1, XNWS+2
PSSIENS DOSNX+8~
PSSIND DOSN+1~, END!
PSSIZZ DOSN+2~, DOSNX+3*, LOCX+2, LOCX+4, LOCX+5, CHECK+1!, CHECK+7*
PSSNAME DOSN+1~, END!
PSSNAT DOSN+1~, CHECK+1!, END!, NATND*, NATND+1, NATND+2
PSSNAT1 DOSN+1~, END!, NATND*, NATND+1
PSSNATDF DOSN+1~, CHECK+1!, CHECK+4, CHECK+5, CHECK+7, CHECK+8, END!, NATND+1*
PSSNATND DOSN+1~, CHECK+1!, END!, NATND+1*
PSSNATST DOSN+1~, CHECK+1!, CHECK+4, CHECK+6, END!, NATND+1*, PR, PR+1, XNW+1, XNWS+1
PSSNATUN DOSN+1~, CHECK+1!, CHECK+4, CHECK+5, CHECK+7, CHECK+8, END!, NATND+1*, PR, PR+2
, XNW+1
PSSNFID DOSN+1~, END!
PSSNOCON DOSN+1~, END!
PSSONLYI DOSN+2~, LOCX+3!, LOCX+5*, LOCX+6!
PSSONLYO DOSN+2~, LOCX+3!, LOCX+4*, LOCX+6!
PSSOTH LOC+4*, LOC+6!
PSSOZZ DOSN+2~, DOSNX+3*, LOCX+2, LOCX+4, LOCX+5, CHECK+1!, CHECK+8*
PSSPCI DOSLOC+1*, DOSLOC+3*, DOSLOC+4!, DOSLOC+7!
PSSPCO DOSLOC+1*, DOSLOC+3*, DOSLOC+4!, DOSLOC+7!
PSSPCZ DOSLOC+2*, DOSLOC+3, DOSLOC+4!, DOSLOC+7!
PSSSKIPP DOSN+2~, DOSNX+3*, DOSNX+13*, LOCX+1
PSSST DOSN+1~, DOSNX+2, DOSA*, DOSA+1, WXF+13, WXF+15, END!, STUN*, PR, PR+1
PSSTALK DOSN+2~, LOCX+6*!
PSSUN DOSN+1~, DOSA+1, END!, STUN*, PR, PR+2, XNWS+1, XNWS+2
PSSUPRA DOSN+3~, DOSNX+7, DOSNX+18, WXF+2, WXF+3, WXF+4, WXF+5, WXF+6, WXF+9, WXF+10
, CHECK+1!, NATND+2*
>> PSSUPRAF DOSNX+18, WXF+1, WXF+5
PSSWDX1 WXFPT+1~, WXFPT+3*, WXFPT+7
PSSWDX2 WXFPT+1~, WXFPT+3*, WXFPT+4
PSSWDX3 WXFPT+1~, WXFPT+3*, WXFPT+5
PSSWDX4 WXFPT+1~, WXFPT+2*, WXFPT+4*, WXFPT+8, WXFPT+10
PSSWDX5 WXFPT+1~, WXFPT+5*, WXFPT+6, WXFPT+8, WXFPT+9
PSSWDX6 WXFPT+1~, WXFPT+6*, WXFPT+8
PSSWDXF DOSN+2~, DOSA*, DOSA+3, DOSA+4, DOSA+6, DOSA+9*, DOSA+10, DOSA+11, LPD+1*, LPD+2
, LPD+3, QASK+2*, WXFPT+7, WXFPT+8, WXFPT+9, WXFPT+10
PSSWDXVL WXFPT~, WXFPT+3
PSSXYZ DOSN+1~, DOSNX+4*, DOSNX+7, DOSNX+13, WXF+10, WXF+15!, CHECK+7*, CHECK+8*, END!
U DOSA+6, DOSA+7, DOSA+12, DOSA+13, LPD+4, LPD+5
X DOSN+1~, DOSA+7*, QASK+1~
Y DOSN+1~, DOSNX+13, DOSNX+19, WXF+12, WXF+16, DOSA1, DOSA1+2, DOSA1+3, DOSLOC+4, LOC+2
, LOC+4, LOC+6, LOC+7, QASK+1~, QASK+2
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