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

Package: Inpatient Medications

Routine: PSJDOSE


Information

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

Source Information

Source file <PSJDOSE.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 3 NOW^%DTC  ^DIE  ^DIR  
Kernel 2 ($$ABS,$$SQRT)^XLFMTH  $$UP^XLFSTR  
Inpatient Medications 1 ENHLP^PSGOEM  
List Manager 1 PAUSE^VALM1  
Pharmacy Data Management 1 DOSE^PSSORPH  

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

Package Total Caller Graph
Inpatient Medications 9 PSGOE4  PSGOE8  PSGOE82  PSGOE9  PSGOE92  PSGOEE0  PSGOEF  PSGOEV  
PSJCOM  

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 ;

External References

Name Field # of Occurrence
NOW^%DTC DOSECHK+6, DOSECHK1+4
^DIE EDITDD+2
^DIR AGAIN+7, AGAIN+12, CONT+4
ENHLP^PSGOEM AGAIN+35, DUPD+5, DUPD+6, DUPD+8
DOSE^PSSORPH DOSE+5, AGAIN+29, AGAIN+31, DOSECHK1+12, DOSECHK1+18
PAUSE^VALM1 EDITDOSE+9, DSPWARN+4
$$ABS^XLFMTH PTPLANE+11
$$SQRT^XLFMTH DOSECHK1+27, PTPLANE+13
$$UP^XLFSTR AGAIN+13

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
Routine Call
  • DIE
  • Line Location:
    • EDITDD+2
Routine Call
  • DIR
  • Line Location:
    • AGAIN+7
    • AGAIN+12
    • CONT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.45 - [#53.45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.45 - [#53.45] EDITDOSE+4, SETDUPD+2, SETDUPD+4*, EDITDD+3, DOSECHK+7, DOSECHK+8, DOSECHK+9*, DOSECHK1+7, DOSECHK1+8

Label References

Name Line Occurrences
$$CONT AGAIN+21, AGAIN+30, AGAIN+39
$$PTPLANE DOSECHK1+27
AGAIN AGAIN+18, AGAIN+26, AGAIN+35, AGAIN+38, AGAIN+40
BCMAUPD DOSECHK1+18
DOSE EDITDOSE+5, GETDOSE+2
DOSECHK EDITDOSE+6, GETDOSE+6
DOSECHK1 DOSECHK+13
DUPD GETDOSE+4, DUPD+5, DUPD+6, DUPD+8
ONEDD DOSECHK1+17, DOSECHK1+19
SELDOSE AGAIN+23, AGAIN+32, AGAIN+42
SETDUPD GETDOSE+5, DUPD+10
SETVAR DOSE+4, DSPWARN+2

Naked Globals

Name Field # of Occurrence
^( EDITDOSE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DOSECHK+6~, DOSECHK1+4~
C PTPLANE~, PTPLANE+7, PTPLANE+11
CHK ONEDD+6~*
CNT DOSECHK1+1~, DOSECHK1+2*, DOSECHK1+22*, DOSECHK1+26, DOSECHK1+27, PTPLANE+6~, PTPLANE+8*, PTPLANE+9*, PTPLANE+10*, PTPLANE+12*
DA DOSE+3~, EDITDD+1~, EDITDD+2*
DEN PTPLANE+6~, PTPLANE+8*, PTPLANE+12*, PTPLANE+13*, PTPLANE+14
DGTS ONEDD+6~*
DIE EDITDD+1~, EDITDD+2*
DIR DOSE+3~, AGAIN+2~, AGAIN+9!, CONT+1~, CONT+2!
DIR("?" AGAIN+12*
DIR("A" AGAIN+10*, CONT+3*
DIR("B" AGAIN+11*, CONT+3*
DIR(0 AGAIN+7*, AGAIN+9*, CONT+3*
DIROUT CONT+1~, CONT+4
DIRUT DOSE+3~, AGAIN+15, CONT+1~, CONT+2!, CONT+4
DR DOSE+3~, EDITDD+1~, EDITDD+2*
DR(2 EDITDD+2*
DTIME DUPD+3
DTOUT DOSE+3~, AGAIN+15
DUOUT DOSE+3~, AGAIN+4, AGAIN+15, CONT+2!, CONT+5!
N PTPLANE+6~, PTPLANE+8*, PTPLANE+9*, PTPLANE+10, PTPLANE+12
NUM PTPLANE+6~, PTPLANE+8*, PTPLANE+10*, PTPLANE+11*, PTPLANE+14
P PTPLANE~, PTPLANE+7
P( PTPLANE+9, PTPLANE+10
>> PSGDO AGAIN+11, AGAIN+43*, SELDOSE+2*, DOSECHK+3, DOSECHK1+5, DOSECHK1+23, DOSECHK1+27, ONEDD+3, ONEDD+6, ONEDD+7
>> PSGOEE EDITDOSE+10*
PSGOER1 EDITDOSE+2~
>> PSGOROE1 AGAIN+15*, AGAIN+18*, AGAIN+26*, AGAIN+39*, DUPD+3*
>> PSGUD DUPD+2*, DUPD+3, DUPD+5, SETDUPD+1*, SETDUPD+3*, SETDUPD+4
PSJBCMA BCMAUPD+2!
PSJBCMA( BCMAUPD+6*
PSJCNT DOSECHK+4~*, DOSECHK+12*, DOSECHK1+17, DOSECHK1+19, DOSECHK1+23, BCMAUPD+1~, BCMAUPD+5*, BCMAUPD+6
PSJCONT DOSE+3~, AGAIN+18, AGAIN+21*, AGAIN+22, AGAIN+26, AGAIN+27*, AGAIN+30*, AGAIN+31, AGAIN+39*, AGAIN+40
PSJDD EDITDOSE+2~, EDITDOSE+4*, EDITDOSE+5, GETDOSE~, GETDOSE+2, DOSE~, DOSE+5, AGAIN+23, AGAIN+29, AGAIN+31
, AGAIN+32, AGAIN+42, AGAIN+43, SELDOSE~, SELDOSE+4, BCMAUPD~, BCMAUPD+6
PSJDL DOSE+3~, AGAIN+4*, AGAIN+6
PSJDOSE DSPWARN+1~
PSJDOSE("DO" SELDOSE+3*
PSJDOSE("WARN" EDITDOSE+8, GETDOSE+8, SETVAR+1*, DSPWARN+3
PSJDOSE("WARN1" EDITDOSE+8, GETDOSE+8, SETVAR+2*, DSPWARN+3
>> PSJDOX DOSE+5, DOSE+6, AGAIN+29, AGAIN+31
>> PSJDOX( AGAIN+4, AGAIN+6, AGAIN+18, AGAIN+19, AGAIN+42, SELDOSE+1
>> PSJDOX(1 DOSE+6*, DOSE+7, DOSE+8*, AGAIN+3, AGAIN+29, AGAIN+30
PSJDRGDOSE DOSECHK1+1~, DOSECHK1+27
PSJDRGDOSE( DOSECHK1+22*
PSJDRGUD DOSECHK1+1~, DOSECHK1+27
PSJDRGUD( DOSECHK1+22*
PSJDSFLG EDITDOSE+7, GETDOSE+7, DOSECHK+1!*, DOSECHK1+6*, DOSECHK1+7, DOSECHK1+17, DOSECHK1+25*, DOSECHK1+27*, ONEDD+1*, ONEDD+2
, ONEDD+3, ONEDD+6*, ONEDD+7*
PSJDSSEL EDITDOSE+2~, GETDOSE+1~, GETDOSE+3, GETDOSE+5, AGAIN+41!, AGAIN+43*, SELDOSE+4*, SELDOSE+5*, SELDOSE+6*, DUPD+9*
, SETDUPD+1
PSJDSUPD EDITDOSE+2~, GETDOSE+1~, GETDOSE+4, GETDOSE+5, AGAIN+43*
>> PSJDT DOSECHK+6*, DOSECHK+11, DOSECHK1+4*, DOSECHK1+11
PSJPIECE DOSE+3~, DOSE+7*, DOSE+8, AGAIN+6, AGAIN+19, AGAIN+26, AGAIN+42, SELDOSE+2, SELDOSE+4, SELDOSE+6
>> PSJSYSP EDITDOSE+4, SETDUPD+2, SETDUPD+4, EDITDD+2, EDITDD+3, DOSECHK+7, DOSECHK+8, DOSECHK+9, DOSECHK1+7, DOSECHK1+8
>> PSJSYSU DOSECHK+2
PSJTOT DOSECHK1+1~, DOSECHK1+6*, DOSECHK1+20*, DOSECHK1+23
PSJUNIT DOSECHK1+1~, DOSECHK1+5*, DOSECHK1+15, DOSECHK1+16
PSJUNITNM DOSECHK1+1~
PSJUNITNM( DOSECHK1+22*, DOSECHK1+26
PSJUNITNM(1 DOSECHK1+26
PSJX EDITDOSE+2~, EDITDOSE+4*, DOSE+3~, AGAIN+1*, AGAIN+5*, AGAIN+6, AGAIN+7, AGAIN+10, DUPD+1~, SETDUPD+2*
, SETDUPD+4, DOSECHK+4~, DOSECHK+7*, DOSECHK+8, DOSECHK+9, DOSECHK1+1~, DOSECHK1+7*, DOSECHK1+8
PSJXDD DOSECHK+4~, DOSECHK+8*, DOSECHK+9, DOSECHK+11, DOSECHK1+1~, DOSECHK1+8*, DOSECHK1+9, DOSECHK1+11, DOSECHK1+12, DOSECHK1+18
>> PSJXDOSE AGAIN+42*
>> PSJXDOX DOSECHK1+12, DOSECHK1+13, DOSECHK1+18
>> PSJXDOX( ONEDD+2, ONEDD+3, ONEDD+6, ONEDD+7, BCMAUPD+3, BCMAUPD+4, BCMAUPD+6
>> PSJXDOX(1 DOSECHK1+13, DOSECHK1+20, DOSECHK1+22
>> PSJXDUP DOSECHK1+9*, DOSECHK1+18, ONEDD+3, ONEDD+6, ONEDD+7
PSJXFLG DOSECHK1+1~, DOSECHK1+6*, DOSECHK1+7, DOSECHK1+13*
PSJXUNIT DOSECHK1+1~, DOSECHK1+14*, DOSECHK1+15*, DOSECHK1+16*, ONEDD+3
>> PSJY AGAIN+13*, AGAIN+18, AGAIN+19, AGAIN+23, AGAIN+26, AGAIN+28, AGAIN+29, AGAIN+35, AGAIN+38, AGAIN+39
, AGAIN+42, AGAIN+43
U GETDOSE+5, DOSE+7, DOSE+8, AGAIN+3, AGAIN+6, AGAIN+19, AGAIN+29, AGAIN+30, AGAIN+42, AGAIN+43
, SELDOSE+2, SELDOSE+3, SELDOSE+4, SELDOSE+5, SELDOSE+6, DUPD+9, SETDUPD+1, SETDUPD+4, DOSECHK+9, DOSECHK+11
, DOSECHK1+9, DOSECHK1+11, DOSECHK1+13, DOSECHK1+22, ONEDD+3, ONEDD+6, ONEDD+7, BCMAUPD+4, BCMAUPD+6
UNITCNT DOSECHK1+24~, DOSECHK1+26*
UNITERR DOSECHK1+24~, DOSECHK1+26*, DOSECHK1+27
X AGAIN+19~*, AGAIN+20, AGAIN+21, AGAIN+42*, SELDOSE~, SELDOSE+1*, SELDOSE+2, SELDOSE+3, SELDOSE+4, SELDOSE+5
, SELDOSE+6, CONT~, CONT+3, DUPD+1~, DUPD+3*, DUPD+4*, DUPD+5*, DUPD+6, DUPD+7*, DUPD+8*
, DUPD+9, DUPD+10, SETDUPD~, SETDUPD+1*, SETDUPD+2, DOSECHK+6~, DOSECHK1+4~, DOSECHK1+16*, ONEDD+1~, ONEDD+2*
, ONEDD+3, ONEDD+6, ONEDD+7, PTPLANE~, PTPLANE+7, BCMAUPD+3*, BCMAUPD+4, BCMAUPD+6
X( PTPLANE+10, PTPLANE+12
Y EDITDOSE+2~, AGAIN+13, CONT+1~, CONT+6
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