Routine: ORWD

Information

ORWD ; SLC/KCM - Utilities for Windows Dialogs ;7/2/01 13:31

Source Information

Source file <ORWD.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Order Entry Results Reporting	8	$$VALID^ORCACT0 ($$EXT,GETDLG,GETDLG1,GETORDER)^ORCD ($$ACTION,EN,RN,XX)^ORCSAVE CANCEL^ORCSAVE2 EN^ORCSEND NOTIF^ORCSIGN PRINTS^ORWD1 GETBYIFN^ORWORR
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR
Toolkit	1	GETLST^XPAR
VA Fileman	1	^%DT

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSPESG2 APSPESLP
IHS Electronic Health Record	1	BEHOOGP

Entry Points

Name	Comments	DBIA/ICR reference
OI(Y,XREF,DIR,FROM)	; Return a bolus of orderable items ; .Return Array, Cross Reference (S.xxx), Direction, Starting Text
FORMID(VAL,ORIFN)	; procedure ; Returns the Dialog Form ID
WRLST(Y,TYP)	; Return list of dialogs for writing orders ; .Y(n): DlgName^ListBox Text ; TYP: 'I' = inpatient, 'O' = outpatient
ODEF(Y,DLG)	; Return the definition for a dialog
DT(Y,X)	; Returns internal Fileman Date/Time
VALIDACT(VAL,ORIFN,ACTION)	;procedure ; Return 1 if action is valid for this order, otherwise 0^error
KEY(VAL,KEYNAME,USERID)	; Returns 1 if user possesses the key
SIGN(ERRLST,DFN,ORNP,LOC,ORWSIGN)	; procedure ; Sign orders (ORIFN;ACT^RELSTS^SIGSTS^NATR)
PROVKEY(VAL,USERID)	; Returns 1 if user possesses the provider key
DEF(Y,DLG)	; Return format mapping for a dialog ; Y(n): CtrlName^DlgPtr^FmtSeq^Fmt^Omit^Lead^Trail^Mult?^chd1~chd2~...
GET4EDIT(LST,ORIFN)	; procedure ; return responses in format that can be used by dialog
EXTDT(X)	; Return an external date time that can be interpreted by %DT
SAVE(Y,DFN,ORNP,LOC,DLG,ORWDACT,RSP)	; procedure ; Save order
SAVEACT(LST,ORIFN,ACTION,REASON,DFN,ORNP,LOC)	;procedure ; Save this action for the order (it is still unsigned/unreleased)

External References

Name	Field # of Occurrence
^%DT	DT+1
$$VALID^ORCACT0	VALIDACT+2
$$EXT^ORCD	GET4EDIT+13
GETDLG^ORCD	SAVE+6, SAVEACT+26, SAVEACT+29
GETDLG1^ORCD	GET4EDIT+5
GETORDER^ORCD	GET4EDIT+5, SAVEACT+26
$$ACTION^ORCSAVE	SAVEACT+20
EN^ORCSAVE	SAVE+9
RN^ORCSAVE	SAVEACT+35
XX^ORCSAVE	SAVE+12
CANCEL^ORCSAVE2	SAVEACT+11
EN^ORCSEND	SIGN+9
NOTIF^ORCSIGN	SIGN+8
PRINTS^ORWD1	SIGN+15
GETBYIFN^ORWORR	SAVE+10, SAVE+13, SAVEACT+9, SAVEACT+38
$$FMTE^XLFDT	GET4EDIT+15
$$UP^XLFSTR	GET4EDIT+15
GETLST^XPAR	WRLST+5

Used in RPC

RPC Name	Call Tags
ORWD DEF	DEF
ORWD SAVE	SAVE
ORWD SIGN	SIGN
ORWD OI	OI
ORWD FORMID	FORMID
ORWD GET4EDIT	GET4EDIT
ORWD VALIDACT	VALIDACT
ORWD SAVEACT	SAVEACT
ORWD DT	DT
ORWD PROVKEY	PROVKEY
ORWD KEY	KEY

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	FORMID+3, GET4EDIT+4, SAVEACT+7, SAVEACT+17, SAVEACT+18, SAVEACT+23, SAVEACT+25, SAVEACT+32
^ORD(101.41 - [#101.41]	ODEF+2, ODEF+3, ODEF+6, ODEF+7, ODEF+8, DEF+3, DEF+5, DEF+7, DEF+8, DEF+9 , DEF+10, DEF+12, DEF+13, DEF+14, FORMID+5, WRLST+8, SAVE+3, SAVE+4, SAVEACT+28, SAVEACT+30 , SAVEACT+33
^ORD(101.43 - [#101.43]	OI+5, OI+6, OI+10, OI+11
^TMP("ORWORD"	SAVEACT+31, SAVEACT+32*
^VA(200 - [#200]	PROVKEY+1, PROVKEY+2
^XUSEC(	KEY+1
^XUSEC("ORES"	SIGN+4

Naked Globals

Name	Field # of Occurrence
^(	ODEF+7, GET4EDIT+12
^(5	WRLST+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DT+1~*
ACTDA	SAVEACT+2~, SAVEACT+20, SAVEACT+36, SAVEACT+37*, SAVEACT+38, SAVEACT+39
ACTION	VALIDACT~, VALIDACT+2, SAVEACT~, SAVEACT+6, SAVEACT+8, SAVEACT+17, SAVEACT+18, SAVEACT+19, SAVEACT+20, SAVEACT+21 , SAVEACT+37
ANERROR	SIGN+2~, SIGN+8*, SIGN+9, SIGN+10, SIGN+11
ASTS	SAVEACT+2~, SAVEACT+7*, SAVEACT+8
>> CHLD	DEF+11, DEF+14, DEF+15
CNT	OI+2~*, OI+5, OI+7, OI+10
DFN	SAVE~, SAVE+5, SIGN~, SIGN+3, SAVEACT~, SAVEACT+3
DIR	OI~, OI+4, OI+9
DLG	ODEF~, ODEF+1, ODEF+2, ODEF+3, ODEF+6, ODEF+7, ODEF+8, DEF~, DEF+2, DEF+3 , DEF+5, DEF+7, DEF+8, DEF+9, DEF+10, DEF+12, DEF+13, DEF+14, GET4EDIT+2~, GET4EDIT+4* , GET4EDIT+5, SAVE~, SAVE+3, SAVE+4, SAVE+6, SAVE+7
DPTR	DEF+4~, DEF+8*, DEF+11, DEF+12, DEF+13
DUZ	SIGN+4
ERR	WRLST+3~, WRLST+5, VALIDACT+2, VALIDACT+3
ERRCNT	SIGN+2~, SIGN+3, SIGN+11
ERRLST	SIGN~
ERRLST(	SIGN+11*
ERRLST(1	SIGN+4*
FROM	OI~, OI+5, OI+6, OI+10, OI+11
I	OI+2~, OI+5, OI+6, OI+7, OI+10, OI+11, ODEF+4~, ODEF+5, ODEF+7, DEF+4~ , DEF+6, DEF+7, DEF+8, DEF+9, DEF+10, GET4EDIT+11~, GET4EDIT+12, WRLST+3~, WRLST+6*, WRLST+7
IDX	ODEF+4~, ODEF+5, ODEF+8, SIGN+2~, SIGN+5*, SIGN+11, SIGN+12, SIGN+13, SIGN+14
IEN	OI+2~, ODEF+4~, ODEF+7, ODEF+8, WRLST+3~, WRLST+7, WRLST+8
ILST	GET4EDIT+2~, GET4EDIT+8, GET4EDIT+9, GET4EDIT+12, GET4EDIT+13, GET4EDIT+15
INST	GET4EDIT+2~, GET4EDIT+7*, GET4EDIT+8, GET4EDIT+9, GET4EDIT+10, GET4EDIT+11, GET4EDIT+13, GET4EDIT+15
J	DEF+4~, DEF+12*, DEF+13
K	DEF+4~, DEF+13*, DEF+14
KEYNAME	KEY~, KEY+1
LOC	SAVE~, SAVE+5, SIGN~, SIGN+3, SIGN+15, SAVEACT~, SAVEACT+3
LST	GET4EDIT~, GET4EDIT+3*, SAVEACT~, SAVEACT+9, SAVEACT+38
LST(	GET4EDIT+8, GET4EDIT+9, GET4EDIT+12, GET4EDIT+13, GET4EDIT+15*
LST(1	SAVEACT+10, SAVEACT+39
LST(2	SAVEACT+10*
N	DEF+4~, DEF+6, DEF+11, DEF+15
NAM	PROVKEY+1~*, PROVKEY+2
>> NATR	SIGN+7*, SIGN+9
ORCAT	SAVE+2~, SAVE+3, SAVE+4, SAVEACT+25*
ORDA	SAVE+2~, SAVE+13, SAVEACT+22~, SAVEACT+36
ORDG	SAVE+2~, SAVEACT+2~
ORDIALOG	GET4EDIT+2~, SAVE+2~, SAVE+7, SAVEACT+2~, SAVEACT+22~, SAVEACT+25, SAVEACT+26, SAVEACT+28*, SAVEACT+29
ORDIALOG(	GET4EDIT+6, GET4EDIT+7, GET4EDIT+8, GET4EDIT+9, GET4EDIT+10, GET4EDIT+11, GET4EDIT+14, GET4EDIT+15, SAVEACT+31, SAVEACT+34
ORDUZ	SAVE+2~, SAVEACT+2~
OREVENT	SAVE+2~, SAVEACT+2~
ORIFN	FORMID~, FORMID+3, GET4EDIT~, GET4EDIT+3, GET4EDIT+4, GET4EDIT+5, SAVE+2~, SAVE+10, SAVE+12, SAVE+13* , SIGN+7, SIGN+9, VALIDACT~, VALIDACT+2, SAVEACT~, SAVEACT+5, SAVEACT+7, SAVEACT+9, SAVEACT+11, SAVEACT+16 , SAVEACT+17, SAVEACT+18, SAVEACT+20, SAVEACT+23, SAVEACT+25, SAVEACT+26, SAVEACT+32, SAVEACT+35, SAVEACT+36*, SAVEACT+38
ORL	SAVE+2~, SAVE+5, SIGN+2~, SIGN+3, SAVEACT+2~
ORL(2	SAVE+5, SIGN+3, SAVEACT+3*
ORNP	SAVE~, SIGN~, SAVEACT~, SAVEACT+20
ORSTS	SAVE+2~, SAVEACT+2~
ORVP	SAVE+2~, SAVE+5, SIGN+2~, SIGN+3, SAVEACT+2~, SAVEACT+3*
ORWDACT	SAVE~, SAVE+8, SAVE+11, SAVE+12, SAVE+13
ORWSIGN	SIGN~, SIGN+15
ORWSIGN(	SIGN+5, SIGN+11, SIGN+12!, SIGN+13!, SIGN+14*
PAR	WRLST+3~, WRLST+4*, WRLST+5
PRMT	GET4EDIT+2~, GET4EDIT+6, GET4EDIT+7, GET4EDIT+8, GET4EDIT+9, GET4EDIT+10, GET4EDIT+11, GET4EDIT+13, GET4EDIT+14, GET4EDIT+15 , SAVEACT+22~, SAVEACT+30, SAVEACT+31, SAVEACT+32, SAVEACT+33*, SAVEACT+34
REASON	SAVEACT~, SAVEACT+20
REF	GET4EDIT+11~*, GET4EDIT+12
RELSTS	SIGN+7, SIGN+9, SIGN+13, SAVEACT+2~, SAVEACT+4, SAVEACT+6*
RSP	SAVE~, SAVE+7
SAVIFN	SAVEACT+22~, SAVEACT+23*, SAVEACT+36
SEQ	WRLST+3~, WRLST+7*, WRLST+8
SIGSTS	SIGN+7, SIGN+8, SIGN+9, SAVEACT+2~, SAVEACT+4, SAVEACT+6*
TYP	WRLST~, WRLST+4
U	PROVKEY+1, DEF+5, DEF+8, DEF+11, DEF+14, DEF+15, FORMID+3, FORMID+5, GET4EDIT+4, GET4EDIT+8 , GET4EDIT+10, GET4EDIT+13, GET4EDIT+15, WRLST+7, WRLST+8, SAVE+3, SAVE+4, SAVE+11, SAVE+12, SAVE+13 , SIGN+4, SIGN+7, SIGN+11, SIGN+14, VALIDACT+3, SAVEACT+7, SAVEACT+10, SAVEACT+17, SAVEACT+18, SAVEACT+24 , SAVEACT+25, SAVEACT+34, SAVEACT+39
USERID	PROVKEY~, PROVKEY+1, PROVKEY+2, KEY~, KEY+1
VAL	PROVKEY~, PROVKEY+2, KEY~, KEY+1, FORMID~, FORMID+3, FORMID+5, VALIDACT~, VALIDACT+2, VALIDACT+3
X	DT~, FORMID+2~, FORMID+3, FORMID+4, FORMID+5, EXTDT~, EXTDT+1, EXTDT+2, WRLST+3~, WRLST+5 , SIGN+5, SIGN+7
X(	WRLST+6, WRLST+7
X0	DEF+4~, DEF+8, SAVEACT+22~, SAVEACT+23, SAVEACT+24, SAVEACT+25, SAVEACT+34
X2	DEF+4~, DEF+9*, DEF+11
XREF	OI~, OI+5, OI+6, OI+10, OI+11
XW	DEF+4~, DEF+10*, DEF+11
Y	DT~, OI~, ODEF~, DEF~, WRLST~, SAVE~, SAVE+10, SAVE+13
Y(	OI+6, OI+7, OI+11, ODEF+8, DEF+11, DEF+15, WRLST+8*
Y(0	ODEF+6, DEF+2, DEF+5*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWD

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: