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

Package: Order Entry Results Reporting

Routine: ORCDFHO


Information

ORCDFHO ;SLC/MKB-Utility functions for Outpt FH dialogs ;8/27/03 15:28

Source Information

Source file <ORCDFHO.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- entry action
EX ; -- exit action
PTR(X) ; -- Returns ptr value of prompt OR GTX X in Dialog file
OPDIETS ; -- Get list of diets ok for outpatients
ONETIME() ; -- Condition for SCHEDULE
TIMES ; -- get existing outpatient meal times
ENDT ; -- setup START
EXDT(X) ; -- populate E/L T values from START
MEALTIME(IFN) ; -- gets meal time for order IFN [from STARTDT^ORCSAVE2]
CKMEAL(Y,DAY,MEAL,LOC) ; -- Returns Y if valid mealtime or not
; Y = 0^msg if invalid
; 1 if valid
; 2 if valid, but latetray will be needed
; RPC = ORCDFHO CKMEAL
FMDATE(X) ; -- Ensure X is in FM date format, return day only
FMTIME(X) ; -- Returns FM format of time
LATETRAY ; -- Check if latetray is needed, if so place order [from VALID^ORCSIGN]
; Expects ORIFN, ORL, ORVP
; Returns ORES(orifn;1)="" of new latetray order
LTRAY ; -- enter here w/ORDATE,ORNP,ORL [reinstated diet after dc'ing NPO]
LT1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This patient is not an outpatient!"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Dietetics v5.5 must be installed to place outpatient diet orders!"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: $C(7),!!,"No late tray ordered!",!
  • Line Location: LT1+7
Function Call: WRITE
  • Prompt: !?10,"... order placed.",!
  • Line Location: LT1+9
Info |  Source |  Entry Points |  Interaction Calls