Routine: ORWDFH

Information

ORWDFH ; SLC/KCM/JLI - Diet Order calls for Windows Dialogs ;12/12/00 14:44

Source Information

Source file <ORWDFH.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Order Entry Results Reporting	8	($$PTR,GETDLG)^ORCD ($$CURRENT,$$DIET,$$FUTURE)^ORCDFH $$VALIDQTY^ORCDFHTF EN^ORCSAVE $$IP^ORMBLD TEXT^ORQ12 GETBYIFN^ORWORR $$VALUE^ORX8
Dietetics	3	($$MAXDAYS,$$NFSLOC,DIETLST)^FHOMAPI $$QUAN^FHWOR5R (EN,EN1,EN2)^FHWOR8
Kernel	2	($$FMTE,$$NOW)^XLFDT $$VERSION^XPDUTL
VA Fileman	1	(,DD)^%DT

Entry Points

External References

Name	Field # of Occurrence
^%DT	ASKLATE+5
DD^%DT	CURMEALS+6
$$MAXDAYS^FHOMAPI	PARAM+23
$$NFSLOC^FHOMAPI	NFSLOC+1, OPLOCOK+2
DIETLST^FHOMAPI	PARAM+24, OPDIETS+2
$$QUAN^FHWOR5R	QTY2CC+6
EN^FHWOR8	ASKLATE+7
EN1^FHWOR8	PARAM+13
EN2^FHWOR8	CURMEALS+3
$$PTR^ORCD	ADDLATE+8, ADDLATE+9, ADDLATE+10, ADDLATE+11, ADDLATE+12, ADDLATE+13
GETDLG^ORCD	ADDLATE+7
$$CURRENT^ORCDFH	PARAM+20
$$DIET^ORCDFH	TXT+1
$$FUTURE^ORCDFH	PARAM+21
$$VALIDQTY^ORCDFHTF	QTY2CC+2
EN^ORCSAVE	ADDLATE+14
$$IP^ORMBLD	CURISO+1
TEXT^ORQ12	FUT+6
GETBYIFN^ORWORR	ADDLATE+15
$$VALUE^ORX8	ASKLATE+2
$$FMTE^XLFDT	TXT+5
$$NOW^XLFDT	FUT+2, PARAM+10, ATTR+1, DIETS+3, OPDIETS+3, TFPROD+2, ADDLATE+4
$$VERSION^XPDUTL	PARAM+22

RPC Name	Call Tags
ORWDFH TXT	TXT
ORWDFH PARAM	PARAM
ORWDFH TFPROD	TFPROD
ORWDFH ATTR	ATTR
ORWDFH DIETS	DIETS
ORWDFH QTY2CC	QTY2CC
ORWDFH ADDLATE	ADDLATE
ORWDFH ISOIEN	ISOIEN
ORWDFH CURISO	CURISO
ORWDFH ISOLIST	ISOLIST
ORWDFH FINDTYP	FINDTYP
ORWDFH OPDIETS	OPDIETS
ORWDFH CURRENT MEALS	CURMEALS
ORWDFH NFSLOC READY	OPLOCOK

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FH(119.4 - [#119.4]	ISOLIST+2, ISOLIST+3
^OR(100 - [#100]	FUT+3, FUT+4, FUT+5, ASKLATE+4
^ORD(100.98 - [#100.98]	FUT+2, FINDTYP+1
^ORD(101.41 - [#101.41]	ADDLATE+6
^ORD(101.43 - [#101.43]	PARAM+16, PARAM+17, PARAM+18, PARAM+19, PARAM+25, PARAM+26, PARAM+28, ATTR+1, ATTR+2, DIETS+4 , DIETS+5, DIETS+6, DIETS+8, OPDIETS+5, OPDIETS+6, OPDIETS+8, OPDIETS+9, OPDIETS+10, OPDIETS+14, OPDIETS+15 , TFPROD+3, TFPROD+4, TFPROD+5, QTY2CC+3, ISOIEN+1, ADDLATE+5
^SC - [#44]	PARAM+11

Name	Line Occurrences
$$MILTM	ASKLATE+12
FUT	TXT+2

Name	Field # of Occurrence
^(	ATTR+1, ISOLIST+2
^("FH"	ATTR+2
^(0	PARAM+28, DIETS+8, OPDIETS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	ASKLATE+3~, ASKLATE+5*
BAG	ADDLATE~, ADDLATE+13
CNT	DIETS+2~, DIETS+3*, DIETS+4
CURTM	PARAM+8~, PARAM+10, PARAM+27, DIETS+2~, DIETS+3, DIETS+7, OPDIETS+1~, OPDIETS+3, OPDIETS+7, TFPROD+1~ , TFPROD+2, TFPROD+6
DA	ADDLATE+2~
DATE	ASKLATE+3~, ASKLATE+6*
DFN	TXT~, TXT+1, TXT+2, FUT~, FUT+2, ASKLATE~, ASKLATE+7
DGRP	FUT+1~, FUT+2*, FUT+3, FUT+4, FINDTYP~, FINDTYP+1
DIR	DIETS~, DIETS+4, OPDIETS~
DT	ASKLATE+5, ADDLATE+10, ADDLATE+11
DUR	QTY2CC+1~, QTY2CC+4*, QTY2CC+5
DUZ	ADDLATE+4
FHDIET	OPDIETS+1~
FHDIET(	OPDIETS+4, OPDIETS+5, OPDIETS+6
FHDIET(1	PARAM+24, PARAM+25, PARAM+26
FIRST	ADDLATE+2~, ADDLATE+4*
FROM	DIETS~, DIETS+4*, DIETS+5, DIETS+6, OPDIETS~
FUTLST	TXT+2~
FUTLST(	TXT+4, TXT+5
I	TXT+4, TXT+5, DIETS+2~, DIETS+3, DIETS+4, DIETS+9, DIETS+10, DIETS+11, OPDIETS+1~, OPDIETS+3 , OPDIETS+4, OPDIETS+5, OPDIETS+6, TFPROD+1~, TFPROD+2, TFPROD+7, TFPROD+8, TFPROD+9, ISOLIST+1~, ISOLIST+2 , ISOLIST+3, ASKLATE+3~, ASKLATE+8, ASKLATE+12, CURMEALS+1~, CURMEALS+4*, CURMEALS+5, CURMEALS+6, CURMEALS+7
IEN	PARAM+8~, PARAM+25, PARAM+26, PARAM+28, PARAM+29, DIETS+2~, DIETS+5, DIETS+6, DIETS+8, DIETS+10 , DIETS+11, OPDIETS+1~, OPDIETS+5, OPDIETS+6, OPDIETS+8, OPDIETS+9, OPDIETS+10, OPDIETS+11, OPDIETS+14, OPDIETS+15 , TFPROD+1~, TFPROD+4, TFPROD+5, TFPROD+8, TFPROD+9, ISOLIST+1~, ISOLIST+2*, ISOLIST+3
>> ILST	TXT+3, TXT+6, TXT+7
J	OPDIETS+1~, OPDIETS+10, OPDIETS+14, OPDIETS+15
LST	TXT~, FUT~, ISOLIST~
LST(	TXT+6, FUT+6, ISOLIST+3*
LST(1	TXT+1*
LST(2	TXT+3*
MEAL	ASKLATE+3~, ASKLATE+6, ASKLATE+8, ASKLATE+9, ASKLATE+10, ASKLATE+11, ASKLATE+12*, ASKLATE+13, ADDLATE~, ADDLATE+8
MEALTIME	ASKLATE+3~, ASKLATE+10*, ASKLATE+13
NAM	TFPROD+1~, TFPROD+2, TFPROD+3, TFPROD+4, TFPROD+5
NXTDT	FUT+1~, FUT+2, FUT+3, FUT+4, FUT+6
OI	ATTR~, ATTR+1, ATTR+2
ORCAT	ADDLATE+1~
ORCHECK	ADDLATE+1~
ORDA	ADDLATE+1~
ORDFN	CURMEALS~, CURMEALS+3
ORDG	ADDLATE+2~
ORDIALOG	ADDLATE+2~, ADDLATE+6*, ADDLATE+7
ORDIALOG(	ADDLATE+8, ADDLATE+9, ADDLATE+10, ADDLATE+11, ADDLATE+12, ADDLATE+13
ORDUZ	ADDLATE+1~, ADDLATE+4*
OREVENT	ADDLATE+1~
ORIFN	FUT+1~, FUT+4*, FUT+5, FUT+6, ASKLATE~, ASKLATE+2, ASKLATE+4, ADDLATE+1~, ADDLATE+15
ORL	ADDLATE~, ADDLATE+3*
ORL(2	ADDLATE+3*
ORLOC	PARAM~, PARAM+9, PARAM+11, PARAM+12*, PARAM+13, PARAM+23, NFSLOC~, NFSLOC+1, OPLOCOK~, OPLOCOK+1 , OPLOCOK+2
ORLOG	ADDLATE+1~, ADDLATE+4*
ORLST	PARAM~, PARAM+13
ORLST(3	PARAM+15, PARAM+16, PARAM+17, PARAM+18, PARAM+19, PARAM+21
ORLST(4	PARAM+23*
ORLST(5	PARAM+29*
ORMEAL	CURMEALS~, CURMEALS+2*, CURMEALS+3
ORNEW	ADDLATE+1~
ORNP	ADDLATE~
ORPARAM	ASKLATE+3~, ASKLATE+7
ORPARAM(1	ASKLATE+10
ORPARAM(2	ASKLATE+7, ASKLATE+8, ASKLATE+13
ORSTS	ADDLATE+1~
ORTS	ADDLATE+1~
ORTX	FUT+1~, FUT+6
ORTX(1	FUT+6
ORTYPE	ADDLATE+2~, ADDLATE+4*
ORVP	FUT+1~, FUT+2, FUT+3, FUT+4, PARAM~, PARAM+7, PARAM+9, CURISO~, CURISO+1, ADDLATE~ , ADDLATE+3
ORY	OPDIETS~, CURMEALS~, CURMEALS+3, OPLOCOK~, OPLOCOK+1, OPLOCOK+2
ORY(	OPDIETS+11, OPDIETS+15, CURMEALS+4, CURMEALS+5, CURMEALS+6, CURMEALS+7
PRD	QTY2CC~, QTY2CC+2, QTY2CC+3*, QTY2CC+6
QTY	QTY2CC~, QTY2CC+2
REC	ATTR~, ATTR+1, ATTR+2, ASKLATE~, ASKLATE+2, ASKLATE+13, ASKLATE+14, ADDLATE~, ADDLATE+15
STR	QTY2CC~, QTY2CC+2, QTY2CC+6
STRT	ASKLATE+3~, ASKLATE+6*, ASKLATE+8, ASKLATE+12
SYNCNT	OPDIETS+1~, OPDIETS+10*, OPDIETS+12, OPDIETS+13
SYNTOT	OPDIETS+1~, OPDIETS+3, OPDIETS+13
TF	PARAM+20~*, PARAM+21
TIME	ADDLATE~, ADDLATE+12
TM	MILTM+1~, MILTM+2, MILTM+3, MILTM+4*, MILTM+5
TRAY	ADDLATE+2~, ADDLATE+5*, ADDLATE+9
U	TXT+5, FUT+5, FUT+6, PARAM+16, PARAM+17, PARAM+18, PARAM+19, PARAM+21, PARAM+25, PARAM+26 , PARAM+27, PARAM+28, ATTR+1, ATTR+2, DIETS+7, DIETS+8, DIETS+10, DIETS+11, OPDIETS+5, OPDIETS+6 , OPDIETS+7, OPDIETS+8, OPDIETS+9, OPDIETS+10, OPDIETS+11, OPDIETS+15, TFPROD+6, TFPROD+8, TFPROD+9, QTY2CC+3 , QTY2CC+5, QTY2CC+6, FINDTYP+1, CURISO+1, ISOLIST+3, ASKLATE+8, ASKLATE+10, ASKLATE+12, ASKLATE+13, ASKLATE+14 , CURMEALS+5, CURMEALS+6, CURMEALS+7
VAL	QTY2CC~, QTY2CC+2, QTY2CC+6, FINDTYP~, FINDTYP+1, FINDTYP+2, ISOIEN~, ISOIEN+1, CURISO~, CURISO+1 , CURISO+2*
VQTY	QTY2CC+1~, QTY2CC+2*, QTY2CC+4, QTY2CC+5, QTY2CC+6
X	TXT+5, TXT+6, PARAM+8~, PARAM+26, PARAM+27, DIETS+2~, DIETS+6, DIETS+7, DIETS+10, DIETS+11 , OPDIETS+1~, OPDIETS+6, OPDIETS+7, OPDIETS+9, OPDIETS+11, OPDIETS+15, TFPROD+1~, TFPROD+5, TFPROD+6, TFPROD+8 , TFPROD+9, QTY2CC+1~, QTY2CC+5, QTY2CC+6, ISOLIST+1~, ISOLIST+2, ISOLIST+3, MILTM~, MILTM+2, MILTM+3 , MILTM+4, ASKLATE+3~, ASKLATE+4, ASKLATE+5, ASKLATE+12, CURMEALS+1~, CURMEALS+5*, CURMEALS+7
Y	DIETS~, TFPROD~, ASKLATE+3~, ASKLATE+5, ASKLATE+6, CURMEALS+1~, CURMEALS+6*
Y(	DIETS+10, DIETS+11, TFPROD+8, TFPROD+9

Name	Comments	DBIA/ICR reference
ISOIEN(VAL)
CURISO(VAL,ORVP)	; Return a patient's current isolation
ADDLATE(REC,ORVP,ORNP,ORL,MEAL,TIME,BAG)
TFPROD(Y)
FUT(LST,DFN)
OPLOCOK(ORY,ORLOC)	; OK to order OP Meals from this location
QTY2CC(VAL,PRD,STR,QTY)
DIETS(Y,FROM,DIR)
MILTM(X)
NFSLOC(ORLOC)	;Get NUTRITION LOCATION name for HOSPITAL LOCATION
FINDTYP(VAL,DGRP)
ISOLIST(LST)
CURMEALS(ORY,ORDFN,ORMEAL)
OPDIETS(ORY,FROM,DIR)
ATTR(REC,OI)
PARAM(ORLST,ORVP,ORLOC)
ASKLATE(REC,DFN,ORIFN)
TXT(LST,DFN)

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDFH

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: