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

Package: Order Entry Results Reporting

Routine: ORCDPSH


Information

ORCDPSH ;SLC/CLA-Pharmacy dialog utilities-Non-VA Meds ; 09 April 2003 11:00 AM

Source Information

Source file <ORCDPSH.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Pharmacy Data Management 4 EN^PSSDIN  EN^PSSGS0  START^PSSJORDF  DOSE^PSSORUTL  
Order Entry Results Reporting 1 $$PTR^ORCD  
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: 2

Package Total Caller Graph
Order Entry Results Reporting 2 ^ORD(101.41  ITEMS  

Entry Points

Name Comments DBIA/ICR reference
EN(TYPE) ; -- entry action for Meds dialogs
EN1 ; -- setup Non-VA Meds dialog for quick order editor using ORDG
ENOI ; -- setup OI prompt
CHANGED(X) ; -- Kill dependent values when prompt X changes
ORDITM(OI) ; -- Check OI inactive date & type, get dependent info
OI1 ; ck NF status (don't care if Non-VA Meds are formulary or not)
OI2 ; -get selectable routes, doses [also called from NF^ORCDPS]
NFI(OI) ; -- Show NFI restrictions, if exist
CONT() ; -- Press return to cont or ^ to stop
WAIT ; -- Wait for user
ROUTES ; -- Get allowable med routes
DEFRTE ; -- Get default route
CKSCH ; -- validate schedule [Called from P-S Action]
PTR(X) ; -- Return ptr to prompt OR GTX X
EXIT ; -- exit action for Meds dialogs

External References

Name Field # of Occurrence
^DIR CONT+3
$$PTR^ORCD EN+6
EN^PSSDIN NFI+3
EN^PSSGS0 CKSCH+2
START^PSSJORDF OI2+1
DOSE^PSSORUTL OI2+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"This drug may not be used in a non-VA med order."
  • Line Location: ORDITM+4
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 or one of your own,",!,"up to 20 characters.",!
  • Line Location: CKSCH+4
Routine Call
  • DIR
  • Line Location:
    • CONT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(100.98 - [#100.98] EN+1, EN1+1
^ORD(101.41 - [#101.41] PTR+1
^ORD(101.43 - [#101.43] ORDITM+2, NFI+2
^TMP("ORWORD" EN+6!, CHANGED+9!
^TMP("PSJINS" CHANGED+5!
^TMP("PSJMR" EN+2!, EN1+3!, CHANGED+5!, OI2+1, ROUTES+2, DEFRTE+2, EXIT+3!
^TMP("PSJNOUN" EN+2!, EN1+3!, CHANGED+5!, EXIT+3!
^TMP("PSJSCH" EN+2!, EN1+3!, CHANGED+5!, EXIT+3!
^TMP("PSSDIN" NFI+3, NFI+5, NFI+6, NFI+9!

Label References

Name Line Occurrences
$$CONT NFI+7
$$PTR EN+4, EN+5, CHANGED+7
CHANGED CKSCH+3
WAIT ORDITM+4

Naked Globals

Name Field # of Occurrence
^( NFI+6, ROUTES+2
^(0 ORDITM+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT ROUTES+1~*, ROUTES+2*, ROUTES+3
DG EN1+1~*
DIR CONT+1~
DIR("A" CONT+2*
DIR(0 CONT+1*
DIROUT CONT+1~
DIRUT CONT+1~
DONE CKSCH+5!
DTIME WAIT+1
DTOUT CONT+1~, CONT+3
DUOUT CONT+1~, CONT+3
>> EDITONLY DEFRTE+3*
I CHANGED+1~, CHANGED+8*, NFI+1~, NFI+4*, NFI+5*, NFI+6, ROUTES+1~*, ROUTES+2*
>> INST DEFRTE+1, DEFRTE+2
INST1 DEFRTE+1~*, DEFRTE+2, DEFRTE+3
>> IOBM NFI+4
>> IOTM NFI+4
J NFI+1~, NFI+6*
LCNT NFI+1~, NFI+4*, NFI+7*
MAX NFI+1~, NFI+4*, NFI+7
NAME CHANGED+1~, CHANGED+6*, CHANGED+7
OI ORDITM~, ORDITM+1, ORDITM+2, NFI~, NFI+2
ORCAT EN+1*, EN1+2*, OI2+1, EXIT+2!
ORCOMPLX EXIT+2!
ORCOPAY CHANGED+4!, EXIT+2!
>> ORDG EN+1*, EN1+1
>> ORDIALOG( EN+4!, EN+5!, EN+6, ENOI+1*, CHANGED+8!, CHANGED+9!, ROUTES+1, ROUTES+2*, ROUTES+3*, DEFRTE+1
, DEFRTE+3, CKSCH+1, CKSCH+3*
ORDOSE CHANGED+4!, OI2+2, OI2+3, OI2+4!, EXIT+2!
ORDOSE(1 OI2+4
ORDRUG CHANGED+4!, EXIT+2!
ORDSUP CHANGED+4!, EXIT+2!
>> OREDIT EN+3, EN+6
OREFILLS CHANGED+4!, EXIT+2!
>> ORENEW EN+3
>> ORESET CKSCH+1
>> OREWRITE EN+3
>> ORI CKSCH+1, CKSCH+3
ORINPT EN1+2*, EXIT+2!
ORIV ORDITM+3*, EXIT+2!
>> ORNP EXIT+1*
OROI EXIT+2!
OROUTE CHANGED+4!, EXIT+2!
ORPKG EXIT+2!
ORPS ORDITM+2~*, ORDITM+3, ORDITM+4
ORQTY CHANGED+4!, EXIT+2!
ORQTYUNT CHANGED+4!, EXIT+2!
>> ORQUIT ORDITM+4*
ORSCH CHANGED+4!, EXIT+2!
ORSD CHANGED+4!, CKSCH+1!, EXIT+2!
>> ORVP OI2+3
ORX CKSCH+1~*, CKSCH+2, CKSCH+3
>> ORXFER EN+3
ORXNP EXIT+1, EXIT+2!
P CHANGED+1~, CHANGED+6*
>> PROMPT ENOI+1, ROUTES+1, ROUTES+2, ROUTES+3, DEFRTE+1, DEFRTE+3, CKSCH+1, CKSCH+3
PROMPTS CHANGED+1~, CHANGED+2*, CHANGED+3*, CHANGED+6
PSJNOPC EXIT+2!
PSOI ORDITM+2~*, OI2+1, OI2+3, NFI+1~, NFI+2*, NFI+3, NFI+5, NFI+6, NFI+9
PTR CHANGED+1~, CHANGED+7*, CHANGED+8, CHANGED+9
>> REQD ROUTES+4*
STOP NFI+1~, NFI+6, NFI+7*
TYPE EN~
U EN1+1, CHANGED+6, ORDITM+2, ORDITM+3, ORDITM+4, NFI+2, ROUTES+2, DEFRTE+2
X CHANGED~, CHANGED+2, NFI+1~, NFI+6*, NFI+8, CONT+1~, WAIT+1~*, ROUTES+1~, ROUTES+2*, PTR~
, PTR+1
Y CONT+1~, CONT+3*, CONT+4, DEFRTE+2*!, DEFRTE+3*!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All