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

Package: Inpatient Medications

Routine: PSJDOSE


Information

PSJDOSE ;BIR/MV - POSSIBLE DOSES UTILITY ; 1/6/20 11:08am

Source Information

Source file <PSJDOSE.m>

Entry Points

Name Comments DBIA/ICR reference
EDITDOSE ;Editing Dosage Ordered for active order
GETDOSE(PSJDD) ;Dosage Order
SETVAR ;
DOSE(PSJDD) ;Prompt for Dosage Ordered
AGAIN ;Prompt for dosage order again
SELDOSE(X,PSJDD) ;
CONT(X) ;Ask if user accepting the dose
DUPD ;
SETDUPD(X) ;
EDITDD ;Editing DDs
DOSECHK ;
DOSECHK1 ;
ONEDD ;
PTPLANE(P,X,C) ;Find the distance from a point to a line/plane
BCMAUPD(PSJDD) ;
DSPWARN ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1"),!
  • Line Location: EDITDOSE+8
Function Call: WRITE
  • Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1"),!
  • Line Location: GETDOSE+8
Function Call: WRITE
  • Prompt: !?4,$J(PSJX,3),". ",$P(PSJDOX(PSJDL),U,PSJPIECE)
  • Line Location: AGAIN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: AGAIN+8
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: AGAIN+20
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DUPD+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: DUPD+5
Function Call: WRITE
  • Prompt: " ("_$E("0",X<1)_X_")"
  • Line Location: DUPD+7
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: DUPD+8
Function Call: WRITE
  • Prompt: $C(7),!!,"WARNING: This order must have at least one dispense drug before pharmacy can",!?9,"verify it!"
  • Line Location: EDITDD+3
Function Call: WRITE
  • Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1"),!
  • Line Location: DSPWARN+3

FileMan Files Accessed Via FileMan Db Call

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