Routine: ORCDFHTF

Information

ORCDFHTF ; SLC/MKB - Utility functions for FH Tubefeeding dialog ;07/16/15 11:07

Name	Comments	DBIA/ICR reference
EN	; -- entry action
EX	; -- exit action
QUANTITY	; -- Validation code for TF quantity
VALIDQTY(X)	; -- Validates quantity X=amt units/freq X times
CC(INST)	; -- Returns #cc ordered for INSTance
QUANHELP	; -- ??-help for Quantity
TOTALQTY(ORDER)	; -- Returns total cc's for ORDER
CANCEL	; -- Cancel active TF with new diet? [Called from FHW1 Exit Action]
DATES	; -- get existing outpatient meal dates

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"This patient is not an inpatient!" Line Location: EN+2
Function Call: WRITE	Prompt: !!,"An ACTIVE TUBEFEEDING ORDER exists for this patient:",! Line Location: EN+9
Function Call: WRITE	Prompt: !,ORTX(I) Line Location: EN+10
Function Call: WRITE	Prompt: !,"Total Quantity: "_$$TOTALQTY(ORTF)_" ml",! Line Location: EN+11
Function Call: WRITE	Prompt: " (Amount: "_$$CC(ORI)_"ml)" Line Location: QUANTITY+4
Function Call: WRITE	Prompt: $C(7),!!,"WARNING: Total quantity ordered is "_TOT_"ml which exceeds the limit of 5000ml!",! Line Location: QUANTITY+6
Function Call: WRITE	Prompt: !!,"Units may be K for Kcals, M for ml, C for cc's, O For oz. or U for units (e.g. cans)." Line Location: QUANHELP+1
Function Call: WRITE	Prompt: !,"Frequency may be DAY, HOUR, QD, QH, BID, TID, QID, Q2H, Q3H, Q4H, or Q6H." Line Location: QUANHELP+2
Function Call: WRITE	Prompt: !,"May also input 100ML/HR X 16 for 16 hours. Valid quantity for powder form" Line Location: QUANHELP+3
Function Call: WRITE	Prompt: !,"product can be ""# GRAMS"" as 20 G, GRAMS, or GMS, or as 1 PKG or 1 U, and the" Line Location: QUANHELP+4
Function Call: WRITE	Prompt: !,"frequency (e.g. 20 GRAMS/DAY or 1 PKG/TID)." Line Location: QUANHELP+5
Function Call: WRITE	Prompt: !!,"An active tubefeeding order exists for this patient:" Line Location: CANCEL+4
Function Call: WRITE	Prompt: !,ORTX(I) Line Location: CANCEL+5