Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls