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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ORCDPS2

Package: Order Entry Results Reporting

Routine: ORCDPS2


Information

ORCDPS2 ;SLC/MKB - Pharmacy dialog utilities ;06/08/20 09:12

Source Information

Source file <ORCDPS2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Order Entry Results Reporting 4 ($$DISPDRUG,NF,RESETID)^ORCDPS  ADMIN^ORCDPS3  TXT^ORCHTAB  SHOWSIG^ORCMED  
Pharmacy Data Management 3 ALL^PSS51P2  DOSE^PSSORUTL  SCH^PSSUTIL1  
Inpatient Medications 1 $$ENDCM^PSJORUTL  
Kernel 1 $$UP^XLFSTR  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Order Entry Results Reporting 6 ORCDPS  ORCMED  ORCSEND1  ORMPS1  ORWDPS3  ORWDXR  

Entry Points

Name Comments DBIA/ICR reference
COMPLEX() ; -- Single or complex?
CP1
DOSES ; -- Available common doses
D1 ; -- Entry from ORCMED,NF^ORCDPS to build list
CHDOSE ; -- Kill dependent values if inst ORI of dose changes
EXDOSE ; -- Exit Action
EXD1 ; -- Kill dangling conjunction, [re]build Sig, get Qty info
SIG ; -- Create ORDIALOG(SIG) from Instructions PROMPT,ORDOSE,ORDRUG,ORCAT
; Return text in ^TMP("ORWORD",$J,SIG,INST)
; [also called from PSJ^ORCSEND1 to build child orders]
PTR(X) ; -- Ptr to prompt OR GTX X
DOSE() ; -- Dosage
WORD(X) ; -- Words for number X
RTE() ; -- Expansion of route
SCH() ; -- [outpatient] expansion of schedule
DUR() ; -- Duration
CONJ() ; -- Conjunction
DOSETEXT
PI ; -- Include Pt Instructions w/Sig in Outpt order?
CLEARWP ; -- Clear INST of wp field PROMPT

External References

Name Field # of Occurrence
^DIR CP1+2, PI+10
$$DISPDRUG^ORCDPS EXDOSE+2
NF^ORCDPS CHDOSE+15
RESETID^ORCDPS EXDOSE+7
ADMIN^ORCDPS3 EXD1+2
TXT^ORCHTAB PI+6
SHOWSIG^ORCMED DOSES+4
$$ENDCM^PSJORUTL EXD1+5
ALL^PSS51P2 RTE+3
DOSE^PSSORUTL DOSETEXT+5
SCH^PSSUTIL1 SCH+2
$$UP^XLFSTR DUR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Enter the amount of this drug that the patient is to receive as a dose,",!,"NOT as the number of units per dose."
  • Line Location: CHDOSE+3
Function Call: WRITE
  • Prompt: $C(7),!,"Instructions may not be longer than 60 characters."
  • Line Location: CHDOSE+5
Function Call: WRITE
  • Prompt: $C(7),!,"WARNING: Dosage check may not occur."
  • Line Location: CHDOSE+16
Function Call: WRITE
  • Prompt: $C(7),!,$P($G(^(0)),U)_" must have a DEA# or VA# to order this drug!"
  • Line Location: EXDOSE+4
Function Call: WRITE
  • Prompt: $C(7),!,"This order will require a wet signature!"
  • Line Location: EXDOSE+5
Function Call: WRITE
  • Prompt: $C(7),!,"Cannot determine dispense drug - some defaults and order checks may not occur!"
  • Line Location: EXDOSE+12
Function Call: WRITE
  • Prompt: !,$S(I=1:"Patient Instructions: ",1:" ")_ORTX(I)
  • Line Location: PI+9
Routine Call
  • DIR
  • Line Location:
    • CP1+2
    • PI+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(100.98 - [#100.98] COMPLEX+3
^ORD(101.41 - [#101.41] PTR+1
^ORD(101.43 - [#101.43] EXDOSE+10
^TMP("ORWORD" CHDOSE+10!, SIG+14!, SIG+15, PI+4, PI+8, PI+12!, PI+13*, PI+14*, PI+16!, CLEARWP+1!
^TMP($J RTE+2!, RTE+5, RTE+7

Label References

Name Line Occurrences
$$COMPLEX DOSES+5
$$CONJ SIG+11
$$DOSE SIG+11
$$DUR SIG+11
$$PTR COMPLEX+2, CHDOSE+8, CHDOSE+9, CHDOSE+10, CHDOSE+11, EXDOSE+6, EXDOSE+9, EXDOSE+11, EXD1+1, SIG+5
SIG+6, DOSETEXT+23
$$RTE SIG+11
$$SCH SIG+11
$$WORD DOSE+4
CLEARWP PI+2, PI+5
CP1 COMPLEX+6
SIG EXD1+2, DOSETEXT+23

Naked Globals

Name Field # of Occurrence
^( PI+4
^(1 SIG+14*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT D1+1~, D1+2*, D1+11*, D1+18, SIG+4~, SIG+9*, SIG+12*, SIG+13, PI+1~, PI+12*
PI+13*, PI+14
COMPLX COMPLEX+1~, COMPLEX+2*, COMPLEX+3, COMPLEX+4, COMPLEX+5, COMPLEX+6, COMPLEX+7
CONJ D1+1~, D1+2*, D1+8, DOSETEXT+3~, DOSETEXT+6*, DOSETEXT+14
COST D1+1~, D1+7*, D1+10
DD D1+1~, D1+4*, D1+13, D1+14, D1+16*, D1+17, CHDOSE+1~, CHDOSE+12*, CHDOSE+13, CHDOSE+14*
CHDOSE+15, CHDOSE+16
DIR COMPLEX+1~, PI+1~
DIR("?" CP1+1*, PI+8*
DIR("A" CP1*, PI+7*
DIR("B" CP1*, PI+8*
DIR(0 CP1*, PI+7*
DIRUT PI+1~
DONE CHDOSE+3!, CHDOSE+5!
DOSE D1+1~, D1+7*, D1+8*, D1+10, D1+11, D1+12, D1+13, D1+14, D1+17, CHDOSE+1~
CHDOSE+11*, CHDOSE+13, CHDOSE+14, SIG+4~, SIG+10*, DOSE+2, DOSETEXT+11
DRUG D1+1~, D1+4*, D1+8, D1+10, D1+14, D1+16*, D1+17, EXDOSE+1~, EXDOSE+2*, EXDOSE+8
EXDOSE+9, EXD1+4, DOSETEXT+7
DRUG0 DOSETEXT+3~, DOSETEXT+7*, DOSETEXT+8, DOSETEXT+14
DT SIG+13, PI+14
DTOUT COMPLEX+1~, CP1+2, PI+1~, PI+10
DUOUT COMPLEX+1~, PI+1~, PI+10
>> FIRST COMPLEX+3, COMPLEX+4, COMPLEX+7, DOSES+4
I D1+1~, D1+2*, D1+3*, D1+4, D1+14, D1+15, D1+16, D1+17, PI+1~, PI+3*
PI+4*, PI+6*, PI+9*, PI+13*
>> INST PI+4, PI+12, PI+13, PI+14, PI+15, PI+16, CLEARWP+1
>> INSTR DOSETEXT+9, DOSETEXT+10, DOSETEXT+21, DOSETEXT+23
>> ISIMO SIG+8, RTE+5, RTE+7, SCH+2
J D1+1~, D1+15*, D1+16, D1+17
LAST EXDOSE+1~, EXD1+1*
LDOSE DOSETEXT+3~, DOSETEXT+10*, DOSETEXT+17, DOSETEXT+19, DOSETEXT+21
MED EXDOSE+8~, EXDOSE+10*, EXDOSE+11
MISC EXDOSE+1~, EXD1+5*, EXD1+6
>> MULT DOSES+5*
NAME CHDOSE+1~, CHDOSE+8*
>> ORCAT DOSES+2, EXDOSE+7, EXDOSE+11, EXDOSE+12, EXD1+3, SIG+8, DOSE+4, RTE+5, RTE+7, SCH+2
DOSETEXT+4, PI+2
ORCNJ SIG+4~, SIG+6*, CONJ+1
>> ORCOMPLX COMPLEX+6, COMPLEX+7, DOSES+5*
ORDD SIG+4~
>> ORDG COMPLEX+3
>> ORDIALOG( COMPLEX+2, COMPLEX+4, DOSES+2*, DOSES+3*, DOSES+4, DOSES+6, D1+11*, D1+12*, D1+13*, D1+18*
CHDOSE+1, CHDOSE+5, CHDOSE+8!, CHDOSE+9!, CHDOSE+11, CHDOSE+12, CHDOSE+13*, CHDOSE+14, EXDOSE+1, EXDOSE+6*
EXDOSE+9*, EXDOSE+11*, EXD1+1!, SIG+9, SIG+10, SIG+14*, SIG+15*, DOSE+1, RTE+1, SCH+1
, DUR+1, CONJ+1, DOSETEXT+7, DOSETEXT+9, DOSETEXT+10, DOSETEXT+11, DOSETEXT+21*, DOSETEXT+23, PI+15*, PI+16!
CLEARWP+1!
ORDLGDOSE DOSETEXT+3~, DOSETEXT+11*, DOSETEXT+12, DOSETEXT+13
ORDOSE DOSES+6, DOSETEXT+3~, DOSETEXT+5
ORDOSE( D1+3, D1+4, D1+14, D1+15, D1+16, D1+17
ORDOSE("DD" D1+4, D1+14*, D1+16, D1+17*, CHDOSE+13, CHDOSE+15, EXDOSE+2, DOSETEXT+7
ORDOSE("LOCAL" CHDOSE+16
ORDOSE("MISC" D1+2, SIG+7, DOSETEXT+6
ORDOSE("PI" PI+4!*, PI+5, PI+6, PI+13
ORDOSE(1 EXDOSE+9, EXDOSE+11, DOSETEXT+9
ORDRUG CHDOSE+9!, EXDOSE+2*, EXDOSE+3, EXDOSE+6, EXDOSE+12, EXD1+3, EXD1+5, DOSE+2, DOSETEXT+3~, DOSETEXT+7*
ORDUR SIG+4~, SIG+5*, DUR+1
>> OREDIT COMPLEX+6, PI+4
>> ORENEW COMPLEX+5, PI+3
>> ORESET CHDOSE+6
>> OREWRITE COMPLEX+5, PI+4
ORI CHDOSE+1, CHDOSE+8, CHDOSE+11, CHDOSE+13, CHDOSE+14, SIG+4~, SIG+9*, SIG+10, DOSE+1, RTE+1
, SCH+1, DUR+1, CONJ+1, DOSETEXT+3~, DOSETEXT+9*, DOSETEXT+10, DOSETEXT+11, DOSETEXT+21
ORID SIG+4~, SIG+6*, DOSE+1
>> ORIV DOSES+2, DOSES+3
ORJ DOSETEXT+3~, DOSETEXT+17*, DOSETEXT+19
ORK DOSETEXT+3~, DOSETEXT+18*, DOSETEXT+19
ORMAX PI+1~, PI+3*
ORMISC SIG+4~, SIG+7*, SIG+8
>> OROI EXDOSE+10
ORPREP SIG+4~, SIG+7*, RTE+7
ORQTY CHDOSE+9!, EXD1+5*
ORQTYUNT CHDOSE+9!, EXD1+4*
>> ORQUIT DOSES+5*, EXDOSE+3*, PI+10*
ORS SIG+4~, SIG+6*, SIG+14, SIG+15
ORSCH SIG+4~, SIG+5*, SCH+1
ORSIG SIG+4~, SIG+14
ORSIG( SIG+12*
ORSIG(0 SIG+13*
ORT SIG+4~, SIG+5*, RTE+1
ORTEXTADD DOSETEXT+3~, DOSETEXT+14*, DOSETEXT+18, DOSETEXT+19, DOSETEXT+21
ORTX PI+1~
ORTX( PI+9
ORTYPE COMPLEX+3, COMPLEX+4, EXD1+2, DOSETEXT+3~, DOSETEXT+4*, DOSETEXT+5
>> ORVP DOSETEXT+5
ORX SIG+4~, SIG+8*, SIG+11*, SIG+12*
>> ORXFER COMPLEX+5, DOSES+4
P CHDOSE+1~, CHDOSE+8*
PROMPT COMPLEX+2, COMPLEX+4, DOSES+2, DOSES+3, DOSES+4, DOSES+6, D1+11, D1+12, D1+13, D1+18
CHDOSE+1, CHDOSE+5, CHDOSE+12, EXDOSE+1, EXD1+1, SIG+9, SIG+10, SIG+14, DOSETEXT+3~, DOSETEXT+23*
PI+4, PI+8, PI+12, PI+13, PI+14, PI+15, PI+16, CLEARWP+1
PROMPTS CHDOSE+1~, CHDOSE+7*, CHDOSE+8
>> PSOI DOSETEXT+5
QUIT EXDOSE+1~, EXDOSE+3
>> S CONJ+2*
STR EXDOSE+8~*, EXDOSE+9, EXDOSE+11
STRG DOSETEXT+3~, DOSETEXT+8*, DOSETEXT+14
TEXT D1+1~, D1+10*, D1+11, D1+12
U D1+2, D1+4, D1+7, D1+8, D1+10, D1+11, D1+14, D1+16, D1+17, CHDOSE+8
CHDOSE+15, EXDOSE+8, EXDOSE+9, EXDOSE+10, EXD1+4, EXD1+5, EXD1+6, SIG+7, SIG+8, SIG+13
DOSETEXT+6, DOSETEXT+8, DOSETEXT+14, PI+14
UD D1+1~, D1+7*
X COMPLEX+1~, D1+1~, D1+4*, D1+7, D1+8, CHDOSE+1~*, CHDOSE+3, CHDOSE+5, CHDOSE+6, CHDOSE+11
CHDOSE+12, CHDOSE+13, PTR~, PTR+1, WORD~, WORD+1, RTE+1~*, RTE+3, RTE+5, RTE+7
, SCH+1~*, SCH+2, SCH+3, DUR+1~*, DUR+2, CONJ+1~*, CONJ+2*, CONJ+3, PI+1~, PI+6*
X0 DOSE+1~*, DOSE+2, DOSE+3, DOSE+4, RTE+1~
X1 WORD+1~*, WORD+2
X2 WORD+1~*, WORD+3
Y COMPLEX+1~, COMPLEX+7*, CP1+2*, CP1+3, DOSE+1~, DOSE+2*, DOSE+3*, DOSE+4*, DOSE+5, WORD+1~
, WORD+2*, WORD+3*, WORD+4, RTE+1~, RTE+5*, RTE+7*, RTE+8, SCH+1~, SCH+3*, SCH+4
, DUR+1~*, DUR+2*, DUR+3, CONJ+1~, CONJ+3*, CONJ+4, PI+1~, PI+11, PI+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All