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 |  Marked Items  | All
Print Page as PDF
Routine: ORCDPS3

Package: Order Entry Results Reporting

Routine: ORCDPS3


Information

ORCDPS3 ;SLC/MKB-Pharmacy dialog utilities ;10/30/14 07:49

Source Information

Source file <ORCDPS3.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Order Entry Results Reporting 4 $$ORDITEM^ORCACT  $$PTR^ORCD  CHANGED^ORCDPS1  $$VALUE^ORCSAVE2  
VA FileMan 3 ^%DT  ^DIE  ^DIR  
Kernel 2 $$FMTE^XLFDT  ($$STRIP,$$UP)^XLFSTR  
Inpatient Medications 1 $$STARTSTP^PSJORPOE  
Outpatient Pharmacy 1 SCNEW^PSOCP  
Pharmacy Data Management 1 AP^PSS51P1  
Registration 1 DIS^DGRPDB  

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

Package Total Caller Graph
Order Entry Results Reporting 3 ORCDPS2  ORCSEND1  ORWDPS2  

Entry Points

Name Comments DBIA/ICR reference
START ; -- Start Date entry action
ADMIN ; -- Return default admin time for order in ORSD
; Called from EXDOSE^ORCDPS2
FIRST(DFN,WARD,OI,DATA,ORDER,ADMIN)
NUMCHAR(STRING,SUB) ;
NOW ; -- First dose now?
DEFSTRT ; -- Returns default start date/time in Y
; Expects PROMPT,INST,ORDIALOG,ORSD to be defined
FMDUR(X)
CONV ;;unit;unit;factor
ASKDUR()
ADQ ;
CKDUR(X) ; -- Returns validated form of duration X, or null if invalid
DUR ; -- Process duration [from P-S Action]
TEST(START,DURTN)
SC ; -- Dialog validation, to ask SC questions
; Expects ORIFN, ORDA, and ORDER
PRI ; Validate Priority for Outpatient orders

External References

Name Field # of Occurrence
^%DT DEFSTRT+11
DIS^DGRPDB SC+14
^DIE SC+16
^DIR NOW+17
$$ORDITEM^ORCACT SC+15
$$PTR^ORCD ADMIN+6, NOW+7, DEFSTRT+5, DEFSTRT+8
CHANGED^ORCDPS1 DUR+3
$$VALUE^ORCSAVE2 SC+9
$$STARTSTP^PSJORPOE FIRST+8
SCNEW^PSOCP SC+3, SC+10
AP^PSS51P1 NOW+5, ASKDUR+4
$$FMTE^XLFDT NOW+15
$$STRIP^XLFSTR CKDUR+3
$$UP^XLFSTR CKDUR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!," >> First Dose NOW is in addition to those already entered. <<"
  • Line Location: NOW+20
Function Call: WRITE
  • Prompt: !," >> Please adjust the duration of the first one, if necessary. <<"
  • Line Location: NOW+21
Function Call: WRITE
  • Prompt: $C(7),!,ORDIALOG(PROMPT,"?"),!
  • Line Location: DUR+2
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: TEST+4
Function Call: WRITE
  • Prompt: !!,"Is "_$$ORDITEM^ORCACT(ORDER)_" for treatment related to:"
  • Line Location: SC+15
Routine Call
  • DIE
  • Line Location:
    • SC+16
Routine Call
  • DIR
  • Line Location:
    • NOW+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100 - [#100] ADMIN+5, SC+4, SC+7, SC+8
^ORD(101.43 - [#101.43] ADMIN+4
^TMP($J NOW+2!, NOW+4!, NOW+8, NOW+10!, NOW+18!, NOW+22!, ASKDUR+1!, ASKDUR+5, ASKDUR+7, ADQ+1!

Label References

Name Line Occurrences
$$CKDUR DUR+1
$$FIRST ADMIN+8
$$FMDUR DEFSTRT+10
$$NUMCHAR FIRST+4
ADQ ASKDUR+3, ASKDUR+5
DEFSTRT TEST+4

Naked Globals

Name Field # of Occurrence
^(0 SC+4
^(8 SC+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DEFSTRT+11~*
ADMIN FIRST~, FIRST+7*, FIRST+8
CNJ ADMIN+3~, ADMIN+6*, ADMIN+7
CNT FIRST+1~, FIRST+5*, FIRST+6, NUMCHAR+1~, NUMCHAR+3*
D1 DEFSTRT+4~, DEFSTRT+13*, DEFSTRT+16, DEFSTRT+18, DEFSTRT+19
D2 DEFSTRT+4~, DEFSTRT+13*, DEFSTRT+16, DEFSTRT+17, DEFSTRT+18, DEFSTRT+19
DA SC+6~, SC+11*
DATA FIRST~, FIRST+3
DFN FIRST~, FIRST+2, FIRST+8, SC+6~, SC+14*
DIE SC+6~, SC+11*
DIR NOW+1~
DIR("?" NOW+16*
DIR("A" NOW+13*, NOW+15*
DIR("B" NOW+14*
DIR(0 NOW+13*
DONE DUR+2!
DR SC+6~, SC+11*, SC+12*, SC+13*
DTOUT NOW+17, SC+6~, SC+16
>> DUOUT NOW+17
DUR DEFSTRT+4~, DEFSTRT+8*, DEFSTRT+9, DEFSTRT+10*, DEFSTRT+11, DEFSTRT+13, DEFSTRT+14
DURTN TEST~, TEST+3
F1 DEFSTRT+4~, DEFSTRT+15*, DEFSTRT+16, DEFSTRT+18, DEFSTRT+19
F2 DEFSTRT+4~, DEFSTRT+15*, DEFSTRT+16, DEFSTRT+17, DEFSTRT+18, DEFSTRT+19
I DEFSTRT+4~, DEFSTRT+17*, SC+6~, SC+12*
INST START+2, NOW+4, NOW+10, NOW+14, NOW+18, NOW+19, DEFSTRT+5, ASKDUR+2, TEST+1~, TEST+2*
J FIRST+1~, FIRST+9*, FIRST+10*, FIRST+11, DEFSTRT+4~, DEFSTRT+20*, SC+6~, SC+11*, SC+12*
LAST DEFSTRT+4~, DEFSTRT+5*, DEFSTRT+6, DEFSTRT+7, DEFSTRT+8
OFF DEFSTRT+4~, DEFSTRT+14*, DEFSTRT+15
OI FIRST~, FIRST+2, FIRST+8
OR3 SC+6~, SC+7*, SC+8
>> ORCAT START+1, START+2, ADMIN+2, NOW+4, DEFSTRT+3
ORCNT FIRST+1~, FIRST+3*, FIRST+6*, FIRST+7, FIRST+8, FIRST+10
>> ORCOMPLX NOW+19, ASKDUR+2
>> ORDA SC+3, SC+4
ORDER FIRST~, FIRST+8, SC+15
ORDIALOG TEST+1~
ORDIALOG( START+1*, START+2!, ADMIN+7, NOW+4!, NOW+7, NOW+8, NOW+10!, NOW+14, NOW+18!, NOW+19*
DEFSTRT+5, DEFSTRT+6, DEFSTRT+8, ASKDUR+2!, DUR+1, DUR+2, DUR+3*
ORDIALOG(136 TEST+2*
ORDIALOG(153 TEST+3*
ORDIALOG(6 TEST+3*
ORDRUG SC+6~, SC+9*, SC+10
>> OREDIT START+2
>> ORENEW START+2, ADMIN+5, NOW+4
>> ORESET DUR+3
>> OREVENT NOW+4
>> OREWRITE START+2
ORI ADMIN+3~, ADMIN+7*, FIRST+1~, FIRST+3*, FIRST+10*, DUR+1, DUR+3
>> ORIFN ADMIN+5, SC+3, SC+4, SC+7, SC+9, SC+11
ORIGVIEW SC+6~, SC+13*
>> ORINPT NOW+15
>> ORIVTYPE NOW+4
>> OROI ADMIN+4
>> ORQUIT NOW+17*, NOW+18, SC+16*
>> ORSCH ASKDUR+3, ASKDUR+5
ORSD START+2!, ADMIN+2, ADMIN+8*, ADMIN+9*, NOW+4, NOW+15, DEFSTRT+7, TEST+1~, TEST+2*
>> ORTYPE DEFSTRT+3
>> ORVP ADMIN+8, SC+10, SC+14
>> ORWARD ADMIN+8
ORX ADMIN+3~, ADMIN+6*, ADMIN+7*, ADMIN+8, FIRST+1~, SC+6~, SC+10
ORX( FIRST+8*, FIRST+10, FIRST+11, SC+12
ORX("SC" SC+14
ORZ FIRST+1~, FIRST+3*, FIRST+4, FIRST+6, FIRST+10*
PROMPT START+1, START+2, ADMIN+7, NOW+4, NOW+10, NOW+14, NOW+18, NOW+19, DEFSTRT+6, ASKDUR+2
DUR+1, DUR+2, DUR+3, TEST+1~, TEST+2*
PSIFN ADMIN+3~, ADMIN+5*, ADMIN+8, SC+6~, SC+8*, SC+10
PSOI ADMIN+3~, ADMIN+4*, ADMIN+8
RESULT NUMCHAR+1~, NUMCHAR+2*, NUMCHAR+3*, NUMCHAR+4
SCH ADMIN+3~, ADMIN+6*, ADMIN+7, FIRST+1~, FIRST+6*, FIRST+8, NOW+1~, NOW+8*
START TEST~, TEST+3
STRING NUMCHAR~, NUMCHAR+3
STRT DEFSTRT+4~, DEFSTRT+6*, DEFSTRT+7, DEFSTRT+9, DEFSTRT+10, DEFSTRT+11, DEFSTRT+12, DEFSTRT+13*, DEFSTRT+14, DEFSTRT+15
DEFSTRT+16, DEFSTRT+21
SUB NUMCHAR~, NUMCHAR+3
TNUM FIRST+1~, FIRST+4*, FIRST+5
U ADMIN+4, ADMIN+7, ADMIN+9, FIRST+3, FIRST+10, NOW+15, DEFSTRT+7, CKDUR+4, SC+4, SC+7
SC+8
UNT DEFSTRT+4~, DEFSTRT+15*, DEFSTRT+16, DEFSTRT+17*, DEFSTRT+18, DEFSTRT+19, DEFSTRT+20, DEFSTRT+21
WARD FIRST~, FIRST+8
X NOW+1~, NOW+7*, NOW+8, DEFSTRT+11~*, FMDUR~, FMDUR+1, FMDUR+2, ASKDUR+2~, ASKDUR+5*, ASKDUR+7
, CKDUR~, CKDUR+2, DUR+1~*, DUR+2, DUR+3, SC+6~, SC+7*, SC+8, SC+12*, PRI+1!
X1 DEFSTRT+18*, DEFSTRT+19*, DEFSTRT+21, FMDUR+1~, FMDUR+2*, FMDUR+3, CKDUR+1~, CKDUR+2*, CKDUR+5
X2 DEFSTRT+18*, DEFSTRT+19*, DEFSTRT+20, FMDUR+1~, FMDUR+2*, FMDUR+3, CKDUR+1~, CKDUR+2*, CKDUR+3*, CKDUR+4
Y FIRST+1~, FIRST+9*, FIRST+10*, FIRST+11*, FIRST+12, NOW+1~, NOW+7*, NOW+8*, NOW+10, NOW+18
DEFSTRT+4!, DEFSTRT+7*, DEFSTRT+9*, DEFSTRT+12*, DEFSTRT+14*, DEFSTRT+15*, DEFSTRT+16*, DEFSTRT+21*, FMDUR+1~, FMDUR+3*
, FMDUR+4, ASKDUR+2~, ASKDUR+3*, ASKDUR+7*, ADQ+2, CKDUR+1~*, CKDUR+4*, CKDUR+5*, CKDUR+6, TEST+4
SC+6~, SC+8*, SC+16
Y1 DEFSTRT+4~, DEFSTRT+18*, DEFSTRT+19*, DEFSTRT+21
Y2 DEFSTRT+4~, DEFSTRT+20*, DEFSTRT+21
Z DEFSTRT+20*, CKDUR+1~, CKDUR+4*

Marked Items

Name Field # of Occurrence
$T(CONV+J DEFSTRT+20
$T(SCNEW^PSOCP SC+3
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 |  Marked Items  | All