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

Package: Pharmacy Data Management

Routine: PSSDOSER


Information

PSSDOSER ;BIR/RTR-Dose edit option ; 21 Sep 2015 8:37 PM

Source Information

Source file <PSSDOSER.m>

Entry Points

Name Comments DBIA/ICR reference
DOS ;Edit dosages
RES ;
SKIP ;
DOSA
DOSLOC ;
LOCX ;
LOC ; Edit local dose
STR ;Edit strength
CHECK ;
END
ULK ;
BCMA ;
BCMA1 ;
STUN
NATND
PR
XNWS ;
MPD ; manually enter poosible dosage

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DOS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DOS+3
Function Call: WRITE
  • Prompt: !!,"This entry is marked for the following PHARMACY packages:"
  • Line Location: DOS+6
Function Call: WRITE
  • Prompt: !," (none)"
  • Line Location: DOS+10
Function Call: WRITE
  • Prompt: !!,$C(7),"Another person is editing this drug.",!
  • Line Location: DOS+11
Function Call: WRITE
  • Prompt: !!,PSSNAME_$S($G(PSSNFID):" *N/F*",1:"")
  • Line Location: DOS+12
Function Call: WRITE
  • Prompt: ?52,"Inactive Date: "_$S($G(PSSIND):$E(PSSIND,4,5)_"/"_$E(PSSIND,6,7)_"/"_$E(PSSIND,2,3),1:"")
  • Line Location: DOS+12
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: RES+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DOSA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DOSA+7
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: !
  • Line Location: STR+4
Function Call: WRITE
  • Prompt: !!,"Changing the strength will not change the concentration."
  • Line Location: STR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: STR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: STR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: STR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: STR+9
Function Call: WRITE
  • Prompt: !!,"Deleting Strength has deleted all Possible Dosages!",!
  • Line Location: STR+10
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+2
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: MPD+6

FileMan Files Accessed Via FileMan Db Call

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