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

Package: Order Entry Results Reporting

Routine: ORCDPS1


Information

ORCDPS1 ;SLC/MKB-Pharmacy dialog utilities ; 08 May 2002 2:12 PM

Source Information

Source file <ORCDPS1.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Pharmacy Data Management 6 EN^PSSDIN  EN^PSSGS0  START^PSSJORDF  DOSE^PSSORUTL  EN1^PSSUTIL1  $$OIDEA^PSSUTLA1  
Order Entry Results Reporting 5 ($$INPT,$$PTR)^ORCD  $$TYPE^OREVNTX  IMOLOC^ORIMO  $$HL7DUR^ORMBLDPS  $$DRAFT^ORWDX2  
Outpatient Pharmacy 3 $$SC^PSOCP  QTYX^PSOSIG  (DSUP,MAX)^PSOSIGDS  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Order Entry Results Reporting 4 ORCDPS  ORCDPS3  ORCMED  ORWDPS3  

Entry Points

Name Comments DBIA/ICR reference
EN(TYPE) ; -- entry action for Meds dialogs
CHANGED(X) ; -- Kill dependent values when prompt X changes
ORDITM(OI) ; -- Check OI, get dependent info
DEFRTE ; -- Get default route
DEA ; -- ck DEA# of ordering provider if SchedII drug
MAXREFS ; -- Get max refills allowed [Entry Action]
OI2 ; -get routes, doses [also called from NF^ORCDPS]
OI1 ; -ck NF status
QTY() ; -- Return default quantity [Expects ORDSUP]
ENOI ; -- setup OI prompt
EN1 ; -- setup Meds dialog for quick order editor using ORDG
ROUTES ; -- Get med routes
WAIT ; -- Wait for user
DEFCONJ ; -- Set default conjuction for previous instance [P-S Action]
DSUP ; -- Get max/default days supply
QTYQ
CONT() ; -- Cont or stop?
ENCONJ ; -- Get allowable values, if req'd for INST
NFI(OI) ; -- Show NFI restrictions, if exist
PTR(X) ; -- Return ptr to prompt OR GTX X
EXIT ; -- exit action for Meds
CKSCH ; -- validate schedule [Called from P-S Action]
ASKSC() ; -- Return 1 or 0, if SC prompt should be asked

External References

Name Field # of Occurrence
^DIR OI1+13, CONT+3
$$INPT^ORCD EN+1
$$PTR^ORCD EN+16
$$TYPE^OREVNTX MAXREFS+4
IMOLOC^ORIMO EN+2
$$HL7DUR^ORMBLDPS QTY+9
$$DRAFT^ORWDX2 EN+15
$$SC^PSOCP ASKSC+1
QTYX^PSOSIG QTY+14
DSUP^PSOSIGDS DSUP+3
MAX^PSOSIGDS MAXREFS+5
EN^PSSDIN NFI+3
EN^PSSGS0 CKSCH+2
START^PSSJORDF OI2+1
DOSE^PSSORUTL OI2+3
EN1^PSSUTIL1 OI1+4
$$OIDEA^PSSUTLA1 DEA+3, ORDITM+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This order may not be placed at this location!"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: $C(7),!!,"NOTE: This will create an outpatient prescription for an inpatient!",!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: $C(7),!,$P($G(^(0)),U)_" must have a DEA# or VA# to order this drug!"
  • Line Location: DEA+4
Function Call: WRITE
  • Prompt: $C(7),!,"This order will require a wet signature!"
  • Line Location: DEA+5
Function Call: WRITE
  • Prompt: $C(7),!,"This drug may not be used in an outpatient order."
  • Line Location: ORDITM+4
Function Call: WRITE
  • Prompt: $C(7),!,"This drug may not be used in an inpatient order."
  • Line Location: ORDITM+6
Function Call: WRITE
  • Prompt: $C(7),!,"This drug may not be ordered for an outpatient."
  • Line Location: ORDITM+7
Function Call: WRITE
  • Prompt: $C(7),!,$P($G(^(0)),U)_" must have a DEA# or VA# to order this drug!"
  • Line Location: ORDITM+10
Function Call: WRITE
  • Prompt: $C(7),!,"This order will require a wet signature!"
  • Line Location: ORDITM+11
Function Call: WRITE
  • Prompt: !!,"*** This medication is not in the formulary! ***"
  • Line Location: OI1+2
Function Call: WRITE
  • Prompt: !," There are no formulary alternatives entered for this item."
  • Line Location: OI1+5
Function Call: WRITE
  • Prompt: !," Please consult with your pharmacy before ordering it."
  • Line Location: OI1+6
Function Call: WRITE
  • Prompt: !," Formulary alternatives:"
  • Line Location: OI1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: NFI+4
Function Call: WRITE
  • Prompt: !,X
  • Line Location: NFI+8
Function Call: WRITE
  • Prompt: !
  • Line Location: NFI+9
Function Call: WRITE
  • Prompt: !,"Press <return> to continue ..."
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a standard schedule for administering this medication"
  • Line Location: CKSCH+4
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: CKSCH+5
Function Call: WRITE
  • Prompt: " or one of your own,",!,"up to 20 characters.",!
  • Line Location: CKSCH+6
Function Call: WRITE
  • Prompt: !,"No refills allowed."
  • Line Location: MAXREFS+7
Routine Call
  • DIR
  • Line Location:
    • OI1+13
    • CONT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100 - [#100] EN+10
^ORD(100.98 - [#100.98] EN+6, EN1+1
^ORD(101.41 - [#101.41] PTR+1
^ORD(101.43 - [#101.43] EN+11, DEA+2, ORDITM+2, OI1+8, OI1+10, NFI+2, ROUTES+4, MAXREFS+2
^TMP("ORWORD" EN+15!, EN+16!, CHANGED+10!
^TMP("PSJINS" CHANGED+5!
^TMP("PSJMR" EN+7!, EN1+4!, CHANGED+5!, OI2+1, ROUTES+2, DEFRTE+2, EXIT+3!
^TMP("PSJNOUN" EN+7!, EN1+4!, CHANGED+5!, EXIT+3!
^TMP("PSJSCH" EN+7!, EN1+4!, CHANGED+5!, EXIT+3!
^TMP("PSSDIN" NFI+3, NFI+5, NFI+6, NFI+9!
^VA(200 - [#200] DEA+4, ORDITM+10

Label References

Name Line Occurrences
$$CONT NFI+7
$$PTR EN+12, EN+13, EN+14, CHANGED+8, DEFCONJ+3, DEFCONJ+4, ENCONJ+1, QTY+3, QTY+4, QTY+5
CHANGED OI1+15, CKSCH+3
QTYQ QTY+2, QTY+11
WAIT ORDITM+4, ORDITM+6, ORDITM+7, ORDITM+8

Naked Globals

Name Field # of Occurrence
^( NFI+6, ROUTES+2
^("PS" DEA+4, ORDITM+10
^(0 DEA+4, ORDITM+2, ORDITM+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT OI1+3~, OI1+7*, OI1+9*, OI1+10, OI1+11, OI1+13, ROUTES+1~*, ROUTES+2*, ROUTES+3
CONJ DEFCONJ+1~, DEFCONJ+3*, DEFCONJ+5, QTY+4*, QTY+10
D ENOI+1~*, ENOI+2, ENOI+3
DEAFLG DEA+1~, DEA+3*, DEA+5, ORDITM+9~*, ORDITM+11
DG EN1+1~*, EN1+2
DIR OI1+3~, CONT+1~
DIR("?" OI1+12*
DIR("A" OI1+10*, OI1+11*, CONT+2*
DIR(0 OI1+11*, CONT+1*
DIROUT CONT+1~
DIRUT CONT+1~
DONE DEA+4!, CKSCH+5!
DOSE QTY+1~, QTY+4*, QTY+7
DTIME WAIT+1
DTOUT OI1+3~, OI1+14, CONT+1~, CONT+3
DUOUT OI1+3~, OI1+14, CONT+1~, CONT+3
DUR DEFCONJ+1~, DEFCONJ+4*, DEFCONJ+5, QTY+1~, QTY+5*, QTY+9
>> EDITONLY DEFRTE+3*
I CHANGED+1~, CHANGED+9*, NFI+1~, NFI+4*, NFI+5*, NFI+6, ROUTES+1~*, ROUTES+2*, QTY+1~, QTY+6*
, QTY+7, QTY+8, QTY+9, QTY+10
>> INST OI1+16, DEFRTE+1, DEFRTE+2, ENCONJ+2, MAXREFS+6, MAXREFS+7, MAXREFS+10
INST1 DEFRTE+1~*, DEFRTE+2, DEFRTE+3
INSTR QTY+1~, QTY+3*, QTY+6
>> IOBM NFI+4
>> IOTM NFI+4
J NFI+1~, NFI+6*
LAST DEFCONJ+1~, DEFCONJ+2*, DEFCONJ+3, DEFCONJ+4, DEFCONJ+5
LCNT NFI+1~, NFI+4*, NFI+7*
MAX NFI+1~, NFI+4*, NFI+7
NAME CHANGED+1~, CHANGED+7*, CHANGED+8
OI EN+10~*, EN+11, ORDITM~, ORDITM+1, ORDITM+2, OI1+15, OI1+16*, NFI~, NFI+2
>> OR0 EN+4
ORCAT EN+1*, EN+2, EN+3, EN+4*, EN+5*, EN+6, EN+9, EN+13, EN+17, EN1+2*
, EN1+3*, ENOI+2, ENOI+3, DEA+3, ORDITM+4, ORDITM+5, ORDITM+9, OI1+4, OI2+1, OI2+3
, ROUTES+4, CKSCH+2, CKSCH+5, ENCONJ+3, ENCONJ+4, MAXREFS+1, EXIT+2!
ORCOMPLX EXIT+2!
ORCOPAY CHANGED+4!, EXIT+2!
>> ORDG EN+6*, EN1+1
>> ORDIALOG( EN+12!, EN+13!, EN+15!, EN+16, ENOI+1, ENOI+2*, ENOI+4*, ENOI+5*, CHANGED+9!, CHANGED+10!
, OI1+16*, ROUTES+1, ROUTES+2*, ROUTES+3*, DEFRTE+1, DEFRTE+3, CKSCH+1, CKSCH+3*, DEFCONJ+2, DEFCONJ+3
, DEFCONJ+4, DEFCONJ+5*, ENCONJ+2, ENCONJ+3*, ENCONJ+4*, DSUP+5*, QTY+6, QTY+7, QTY+8, QTY+9
, QTY+10, MAXREFS+6, MAXREFS+7*, MAXREFS+8*, MAXREFS+9*, MAXREFS+10*
ORDOSE CHANGED+4!, OI2+2, OI2+3, OI2+4!, EXIT+2!
ORDOSE(1 OI2+4
ORDRUG CHANGED+4!, DSUP+2, QTY+2, QTY+12, MAXREFS+3, ASKSC+1, EXIT+2!
ORDSUP CHANGED+4!, QTY+2, QTY+13, MAXREFS+5, EXIT+2!
>> OREDIT EN+4, EN+8, EN+16
OREFILLS CHANGED+4!, CHANGED+6!, MAXREFS+6*, MAXREFS+7, MAXREFS+8, MAXREFS+9, MAXREFS+10, EXIT+2!
>> ORENEW EN+4, EN+8, OI1+1
>> ORESET CKSCH+1
>> OREVENT MAXREFS+4
>> OREWRITE EN+4, EN+8
>> ORI CKSCH+1, CKSCH+3, DEFCONJ+2
>> ORIFN EN+10, EN+15
ORINPT EN+1*, EN+2*, EN+5, EN+9, EN+17, EN1+2*, EN1+3*, ENOI+3, ORDITM+6, ORDITM+7
, EXIT+2!
ORIV ORDITM+3*, ORDITM+7, EXIT+2!
>> ORL EN+2
>> ORNP DEA+4, ORDITM+10, EXIT+1*
OROI OI1+16*, ROUTES+4, MAXREFS+2, EXIT+2!
OROUTE CHANGED+4!, EXIT+2!
ORPKG EXIT+2!
ORPS ORDITM+2~*, ORDITM+3, ORDITM+4, ORDITM+6, OI1+1
ORPSOI ORDITM+2~*, ORDITM+9, OI1+4, OI1+17*, OI2+1, OI2+3
ORPSOI( OI1+7
ORPSOI("OI" OI1+9*, OI1+15, OI1+16, OI1+17
ORPSOI(0 OI1+4
ORQTY CHANGED+4!, EXIT+2!
ORQTYUNT CHANGED+4!, EXIT+2!
>> ORQUIT EN+8, EN+9, EN+11*, ORDITM+4*, ORDITM+5, ORDITM+6*, ORDITM+7*, ORDITM+8, ORDITM+10*, OI1+14*
ORSCH CHANGED+4!, EXIT+2!
ORSD CHANGED+4!, CKSCH+1!, EXIT+2!
>> ORTYPE DEA+1, ORDITM+8, ROUTES+4, DSUP+5
>> ORVP EN+2, OI2+3, DSUP+2, QTY+12, MAXREFS+3, ASKSC+1
ORX OI1+3~, OI1+8*, OI1+9, OI1+10, CKSCH+1~*, CKSCH+2, CKSCH+3, DSUP+1~, DSUP+3, QTY+1~
, QTY+6, QTY+7!, QTY+11, QTY+14, MAXREFS+1~, MAXREFS+5
ORX("CONJUNCTION" QTY+10*
ORX("DAYS SUP PLY" , DSUP+3, QTY+13*, MAXREFS+5*
ORX("DISCHARGE" MAXREFS+4*
ORX("DOSE ORD ERED" , QTY+8*
ORX("DRUG" DSUP+2*, QTY+12*, MAXREFS+3*
ORX("DURATION" QTY+9*
ORX("ITEM" MAXREFS+2*
ORX("MAX" MAXREFS+6
ORX("PATIENT" DSUP+2*, QTY+12*, MAXREFS+3*
ORX("QTY" QTY+14
ORX("SCHEDULE" QTY+8*
>> ORXFER EN+8, EN+15
ORXNP EXIT+1, EXIT+2!
P CHANGED+1~, CHANGED+7*, ENCONJ+1~*, ENCONJ+2
>> PROMPT ENOI+1, ENOI+2, ENOI+4, ENOI+5, OI1+16, ROUTES+1, ROUTES+2, ROUTES+3, DEFRTE+1, DEFRTE+3
, CKSCH+1, CKSCH+3, DEFCONJ+2, ENCONJ+3, ENCONJ+4, DSUP+5, MAXREFS+6, MAXREFS+7, MAXREFS+8, MAXREFS+9
, MAXREFS+10
PROMPTS CHANGED+1~, CHANGED+2*, CHANGED+3*, CHANGED+6*, CHANGED+7
PSJNOPC EXIT+2!
PSOI DEA+1~, DEA+2*, DEA+3, NFI+1~, NFI+2*, NFI+3, NFI+5, NFI+6, NFI+9
PSX OI1+3~, OI1+7*, OI1+8, OI1+9
PTR CHANGED+1~, CHANGED+8*, CHANGED+9, CHANGED+10
>> REQD ROUTES+4*, ENCONJ+2*
SCH QTY+1~, QTY+5*, QTY+8
STOP NFI+1~, NFI+6, NFI+7*
TYPE EN~, EN+1
U EN+4, EN1+1, DEA+2, DEA+4, CHANGED+7, ORDITM+2, ORDITM+3, ORDITM+4, ORDITM+6, ORDITM+10
, OI1+1, OI1+9, OI1+10, OI1+17, NFI+2, ROUTES+2, ROUTES+4, DEFRTE+2, ENCONJ+4, MAXREFS+2
, MAXREFS+8
WP EN+14~*, EN+15
X CHANGED~, CHANGED+2, CHANGED+6, OI1+3~, NFI+1~, NFI+6*, NFI+8, CONT+1~, WAIT+1~*, ROUTES+1~
, ROUTES+2*, QTY+1~, QTY+7*, QTY+8, QTY+9*, MAXREFS+1~, MAXREFS+6*, MAXREFS+10, PTR~, PTR+1
Y DEA+2, OI1+3~, OI1+14, OI1+15, OI1+16, OI1+17, CONT+1~, CONT+3*, CONT+4, DEFRTE+2*!
, DEFRTE+3*!, DSUP+1~, DSUP+3*, DSUP+5, QTY+1~, QTY+2*, QTY+14*, QTYQ
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All