Routine: ORMPS2

Information

ORMPS2 ;SLC/MKB - Process Pharmacy ORM msgs cont; June 5, 2023@15:28:03

Package	Total	Call Graph
Order Entry Results Reporting	10	($$ACTION,RESPONSE)^ORCSAVE ORDTEXT^ORCSAVE1 (DATES,RELEASE,SIGN,SIGSTS,STATUS)^ORCSAVE2 SETALL^ORDD100 $$UNESC^ORHLESC $$FIND^ORM ($$ADDFRQCV,$$HL7IVLMT)^ORMBLDP1 ($$RXC,$$RXO,$$RXR)^ORMPS ($$NTE,$$NTXT,$$NUMADDS,$$VALTXT,$$ZSC)^ORMPS3 PRINTS^ORWD1
VA FileMan	1	^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORMPS ORMPS1 ORMPS3 ORY94A

Entry Points

Name	Comments	DBIA/ICR reference
FINISHED()	; -- new order [SN^ORMPS] due to finishing?
WPX()	; -- Compare comments in @ORMSG@(NTE) with order ORIFN ; Returns 1 if different, or 0 if same
WQ
IVX()	; -- Compare ORMSG to Inpt order ORIFN if IV, return 0 if 'diff or 'IV
IV1
CHANGED()	; -- Compare ORMSG to order ORIFN, return 1 if different
CHQ
VALUE(ID)	; -- Return value of ID in ^OR(100,+ORIFN,4.5,"ID")
PTR(X)	; -- Return ptr to prompt OR GTX X
RO	; -- Replacement order (finished)
RO1	; -Update sts of order to active, last action to dc/edit:
RO2	; -Update responses, get/save new order text:
IVLIM(IVDUR)	;
UNESC(STRING)	;
UNESCARR(ARR)	;
PCOMM	; -- Get Provider Comments from previous order, when changed
CLNUPD	;-- Update, if Clinic order ;p413

External References

Name	Field # of Occurrence
^DIE	RO2+5, CLNUPD+8
$$ACTION^ORCSAVE	RO+12
RESPONSE^ORCSAVE	RO2+1
ORDTEXT^ORCSAVE1	RO2+1
DATES^ORCSAVE2	RO1+6
RELEASE^ORCSAVE2	RO1+7
SIGN^ORCSAVE2	RO1+10
SIGSTS^ORCSAVE2	RO1+10
STATUS^ORCSAVE2	RO1+5
SETALL^ORDD100	RO1+5
$$UNESC^ORHLESC	UNESC+1
$$FIND^ORM	IV1, CHANGED+2, CHANGED+12, CHANGED+13, CHANGED+14
$$ADDFRQCV^ORMBLDP1	IV1+23
$$HL7IVLMT^ORMBLDP1	CHANGED+9
$$RXC^ORMPS	IVX+2, RO+6
$$RXO^ORMPS	CHANGED+3, RO+6
$$RXR^ORMPS	IV1+5
$$NTE^ORMPS3	WPX+3, CHANGED+15, CHANGED+17
$$NTXT^ORMPS3	WPX+3, CHANGED+21
$$NUMADDS^ORMPS3	IVX+6
$$VALTXT^ORMPS3	WPX+4, CHANGED+20
$$ZSC^ORMPS3	RO2+9
PRINTS^ORWD1	RO2+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^OR(100 - [#100]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	FINISHED+2, IVX+3, IV1+12, IV1+13, IV1+14, IV1+15, IV1+16, CHANGED+15, CHANGED+16, CHANGED+17 , VALUE+2, VALUE+3, RO+17, RO+18!, RO1+1, RO1+2, RO1+3, RO1+9, RO2+1!, RO2+2 , RO2+3, RO2+6, RO2+9, PCOMM+3, PCOMM+4, PCOMM+5, CLNUPD+2, CLNUPD+6*, CLNUPD+7
^ORD(100.98 - [#100.98]	IVX+3
^ORD(101.41 - [#101.41]	PTR+1
^ORD(101.43 - [#101.43]	IVX+7, IV1+17
^TMP("ORWORD"	RO+3!, PCOMM+5*
^VA(200 - [#200]	RO+4

Label References

Name	Line Occurrences
$$IVX	CHANGED+11
$$PTR	IV1+7
$$UNESC	UNESCARR+5
$$VALUE	IVX+7, IVX+10, IV1+1, IV1+4, IV1+6, CHANGED+2, CHANGED+4, CHANGED+7, CHANGED+12, CHANGED+13 , CHANGED+14
$$WPX	CHANGED+6
@(	RO+8
CHQ	CHANGED+2, CHANGED+4, CHANGED+5, CHANGED+12, CHANGED+13, CHANGED+14, CHANGED+16, CHANGED+19
CLNUPD	RO1+4
UNESCARR	UNESCARR+4

Naked Globals

Name	Field # of Occurrence
^(	RO1+1
^(0	RO1+1, RO2+2*
^(1	IV1+16
^(3	RO1+3
^(6	RO1+3!
^(8	RO2+6*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDFREQ	IVX+1~, IV1+20*, IV1+23
ADMIN	RO+2~
ARR	UNESCARR~, UNESCARR+1, UNESCARR+2, UNESCARR+3, UNESCARR+5
DA	RO2+4~, RO2+5, CLNUPD+1~, CLNUPD+5
DG	IVX+1~, IVX+3*, IVX+4
DIALOG	CLNUPD+1~, CLNUPD+3*, CLNUPD+4
DIE	RO2+4~, RO2+5, CLNUPD+1~, CLNUPD+5
DR	RO2+4~, RO2+5, CLNUPD+1~, CLNUPD+5, CLNUPD+7*, CLNUPD+8
DURU	IVLIM+2~, IVLIM+3, IVLIM+5, IVLIM+6, IVLIM+7, IVLIM+8
DURV	IVLIM+2~, IVLIM+3, IVLIM+4*, IVLIM+5, IVLIM+6, IVLIM+7, IVLIM+8
I	IVX+1~, IV1+7, IV1+8, IV1+11, IV1+12, IV1+14, IV1+15, IV1+16, CHANGED+1~, VALUE+1~ , VALUE+2, VALUE+3, UNESCARR+1~, UNESCARR+2, UNESCARR+3, UNESCARR+5, PCOMM+1~, PCOMM+3*, PCOMM+4, PCOMM+5
ID	VALUE~, VALUE+1, VALUE+2
IND	UNESCARR+2~*, UNESCARR+4
INST	IVX+1~, IV1+13, IV1+14, IV1+19, IV1+21, IV1+22, IV1+23, IV1+26*, IV1+27
IVDUR	IVLIM~, IVLIM+1, IVLIM+3, IVLIM+4, IVLIM+5, IVLIM+6, IVLIM+7, IVLIM+8*, IVLIM+9
IVTYPE	RO+2~
J	IVX+1~, IV1+12*, IV1+13, IV1+14
NEWSTS	RO+1~, RO1+3*, RO1+5
NTE	WPX+2~, WPX+3, CHANGED+1~, CHANGED+15, CHANGED+16, CHANGED+17, CHANGED+18, CHANGED+19, CHANGED+21, CHANGED+22
OI	IVX+1~, IVX+7, IV1+16, IV1+17
OI0	IVX+1~, IV1+16*, IV1+18, IV1+19, IV1+25, IV1+26
OLD	PCOMM+1~, PCOMM+2*, PCOMM+3, PCOMM+4, PCOMM+5
ORA	IVX+1~, IV1+7*, IV1+18
>> ORAPPT	CLNUPD+7
ORB	IVX+1~, IV1+7*, IV1+25
>> ORCAT	CHANGED+5, RO+8, RO2+9
ORDA	RO+1~, RO+12*, RO+13, RO+15, RO+17, RO+18, RO1+1, RO1+3, RO1+7, RO1+10 , RO2+1, RO2+6, RO2+7
>> ORDCNTRL	RO2+7*
ORDG	RO+1~, RO2+3, RO2+5
ORDIALOG	RO+1~, RO2+2, CLNUPD+1~, CLNUPD+2*, CLNUPD+3
ORDIALOG(	PCOMM+6, PCOMM+7
>> ORERR	RO+4, RO+5, RO+7, RO+8, RO+13
>> ORIFN	FINISHED+3, WPX+4, IVX+3, IV1+12, IV1+13, IV1+14, IV1+15, IV1+16, CHANGED+15, CHANGED+16 , CHANGED+17, CHANGED+20, VALUE+2, VALUE+3, RO+6, RO+7, RO+12, RO+17, RO+18, RO1+1 , RO1+2, RO1+3, RO1+5, RO1+6, RO1+7, RO1+9, RO1+10, RO2+1, RO2+2, RO2+3 , RO2+5, RO2+6, RO2+7*, RO2+8, RO2+9, PCOMM+2, CLNUPD+2, CLNUPD+5, CLNUPD+6, CLNUPD+7
ORIG	FINISHED+1~, FINISHED+2*, FINISHED+3
ORIG4	FINISHED+1~, FINISHED+2*, FINISHED+3
>> ORL	RO2+8, CLNUPD+6
>> ORMSG	IVX+8, IV1+8, CHANGED+16
>> ORNATR	RO1+7
>> ORNOW	RO+12, RO1+7
>> ORNP	RO+4, RO+12
ORP	RO+1~, RO2+8
ORP(1	RO2+8*
ORPKG	RO+1~, RO2+2
ORSIG	RO+1~, RO1+9*, RO1+10
>> ORSTOP	RO1+6
>> ORSTRT	RO1+6
>> ORSTS	RO1+3, RO1+5
>> ORWHO	RO+12, RO1+7
ORX	IVX+1~, RO+1~, RO1+1*, RO1+2, RO1+9, RO1+10
ORX(	IV1+9, IV1+14
ORX("A"	IV1+18, IV1+19, IV1+20, IV1+24!, IV1+30
ORX("ADDFREQ"	IV1+23
ORX("B"	IV1+25, IV1+26, IV1+28!, IV1+30
ORX("STRENGTH"	IV1+21
ORX("UNITS"	IV1+22
ORX("VOLUME"	IV1+27
>> PC	PCOMM+5, PCOMM+6, PCOMM+7
PI	CHANGED+1~, CHANGED+17, CHANGED+18, CHANGED+19, CHANGED+20, CHANGED+22
>> PKGIFN	RO2+6
PREV	RO+16~, RO+17*, RO+18
PSOI	IVX+1~, IVX+7, IVX+8, IV1+17, IV1+18, IV1+19, IV1+20, IV1+24, IV1+25, IV1+26 , IV1+28
RATE	IVX+1~, IV1, IV1+1, IV1+2*, IV1+3
RXC	IVX+1~, IVX+2, IVX+8, IV1+7, RO+1~, RO+6, RO+8
>> RXE	IV1, CHANGED+2, CHANGED+12, CHANGED+13, RO+5
RXO	CHANGED+1~, CHANGED+3, CHANGED+4, CHANGED+10, RO+1~, RO+6
RXR	IVX+1~, IV1+5*, IV1+6
SIG	CHANGED+1~, CHANGED+15*, CHANGED+16
SPINST	WPX+2~, WPX+3*, WPX+5
STR	IVX+1~, IV1+19*, IV1+21
STRING	UNESC~, UNESC+1
TYPE	FINISHED+1~, FINISHED+2, FINISHED+3, UNESCARR+3~, UNESCARR+4, UNESCARR+5
U	IVX+3, IVX+7, IVX+8, IVX+9, IV1, IV1+6, IV1+9, IV1+13, IV1+17, IV1+18 , IV1+19, IV1+20, IV1+25, IV1+26, CHANGED+2, CHANGED+10, RO+18, RO1+1, RO1+2, RO1+3 , RO1+9, RO2+2, RO2+3, RO2+6, CLNUPD+2, CLNUPD+4, CLNUPD+6, CLNUPD+7
UNT	IVX+1~, IV1, IV1+1, IV1+19, IV1+22
VOL	IVX+1~, IV1+26*, IV1+27
X	WPX+2~, WPX+4, WPX+5, IVX+1~, IV1+1, IV1+2, IV1+3, CHANGED+1~, CHANGED+7, CHANGED+8 , CHANGED+9*, PTR~, PTR+1
X1	IVX+9~, IVX+10, CHANGED+1~, CHANGED+8, CHANGED+10
X2	IVX+9~*, IVX+10
X3	IVX+9~, IVX+10*
XC	IVX+1~, IVX+8, IVX+9, IV1+8, IV1+9
Y	FINISHED+1~, FINISHED+3, FINISHED+4, WPX+2~, WPX+5, WQ, IVX+1~, IVX+2, IVX+4, IVX+5 , IVX+6, IVX+8, IVX+10, IV1+1, IV1+3, IV1+4, IV1+6, IV1+15, IV1+21, IV1+22 , IV1+23, IV1+27, IV1+29, IV1+30, IV1+31, CHANGED+1~, CHANGED+2, CHANGED+4, CHANGED+6, CHANGED+8* , CHANGED+11, CHANGED+12, CHANGED+13, CHANGED+14, CHANGED+16, CHANGED+22, CHQ, VALUE+1~, VALUE+3*, VALUE+4
>> ZRX	FINISHED+2, IVX+5, IV1+4, CHANGED+14, PCOMM+2
ZSC	RO+1~, RO2+9*

Customize PDF page

Package: Order Entry Results Reporting