Routine: ORMPS3

Information

ORMPS3 ;SLC/MKB - Process Pharmacy ORM msgs cont ;May 13, 2025@10:28:55

Package	Total	Call Graph
Order Entry Results Reporting	8	$$DOSES^ORCACT4 EN^ORCSAVE ORDTEXT^ORCSAVE1 (DATES,RELEASE,RESP,SIGSTS)^ORCSAVE2 $$UNESC^ORHLESC $$RXO^ORMPS $$UNESC^ORMPS2 GETHL7^ORSPECAUTH
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	ORMBLDPS ORMPS ORMPS1 ORMPS2

Entry Points

Name	Comments	DBIA/ICR reference
PTR(X)	; -- Return ptr to prompt OR GTX X
PARENT	; -- create parent order for backdoor complex renewals ; Expects ORIFN, ORIG, ORDIALOG()
P0	; -- just add conjunction, new dose if DAD already exists
P1	; -- set up links
NTE(ID)	; -- Return subscript of NTE\|ID segment
NTXT(NTE)	; -- Return string of text in ORMSG(NTE)
ZSC()	; -- Return subscript of ZSC segment
NUMADDS()	; -- count number of additives to determine type
DURATION(X)	; -- Returns "# units" from U# format
UPD	; -- Compare ORMSG to order, update responses [from SC^ORMPS] ; Also expects ORIFN,ORNP,ORCAT,OR3,RXE,ZRX,PKGIFN
CLNUPD	;-- Update, if Clinic order ;p413
VALUE(IFN,ID,INST)	; -- Returns value of prompt by identifier ID
VALTXT(IFN,ID)	; -- Return string of text for prompt ID [assumes single instance] ; ID may be identifier name or Response IEN

External References

Name	Field # of Occurrence
^DIE	CLNUPD+8
$$DOSES^ORCACT4	PARENT+4, P0+2
EN^ORCSAVE	PARENT+6
ORDTEXT^ORCSAVE1	P0+18
DATES^ORCSAVE2	PARENT+10
RELEASE^ORCSAVE2	PARENT+9
RESP^ORCSAVE2	UPD+8, UPD+11, UPD+16, UPD+19, UPD+21, UPD+24, UPD+25, UPD+26
SIGSTS^ORCSAVE2	PARENT+10
$$UNESC^ORHLESC	NTXT+2, NTXT+3
$$RXO^ORMPS	UPD+9
$$UNESC^ORMPS2	UPD+10, UPD+30, UPD+31, UPD+38, UPD+39
GETHL7^ORSPECAUTH	UPD+41

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]	PARENT+3, PARENT+5, PARENT+7, PARENT+8, PARENT+11!, P0+2, P0+4, P0+5, P0+9, P0+10 , P0+11, P0+12, P0+13, P0+14, P0+15, P0+17, P0+18!, P1+1, P1+2, UPD+5 , UPD+6, UPD+27, UPD+29!, UPD+30, UPD+31, UPD+32, UPD+35, UPD+37!, UPD+38, UPD+39* , UPD+40, CLNUPD+2, CLNUPD+6, CLNUPD+7, VALUE+1, VALUE+3, VALTXT+3, VALTXT+4, VALTXT+5
^ORD(101.41 - [#101.41]	PTR+1, P0+8
^TMP("ORWORD"	P0+14, P0+17!*

Label References

Name	Line Occurrences
$$NTE	UPD+27, UPD+35
$$NTXT	UPD+28, UPD+36
$$PTR	P0+3, P0+7, P0+12
$$VALTXT	UPD+28, UPD+36
$$VALUE	UPD+8, UPD+11, UPD+16, UPD+19, UPD+24, UPD+25, UPD+26
CLNUPD	UPD+13
P1	PARENT+5

Naked Globals

Name	Field # of Occurrence
^(	P0+13, P1+2*, VALTXT+4, VALTXT+5
^(0	PARENT+11, P0+13, P1+2, UPD+6
^(1	P0+4, P0+9, VALUE+3
^(3	PARENT+7*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	NUMADDS+1~, NUMADDS+2, NUMADDS+3, UPD+29~, UPD+30, UPD+31, UPD+32, UPD+37~, UPD+38, UPD+39 , UPD+40
DA	P0+1~, P0+2, P0+3, P0+4, P0+5, P0+8, P0+9, P0+10, P0+11, P0+12 , P0+13, P0+14, P0+15, P0+17, CLNUPD+1~, CLNUPD+5, VALTXT+2~, VALTXT+3, VALTXT+4, VALTXT+5
DIALOG	CLNUPD+1~, CLNUPD+3*, CLNUPD+4
DIE	CLNUPD+1~, CLNUPD+5*
DR	CLNUPD+1~, CLNUPD+5, CLNUPD+7, CLNUPD+8
DT	UPD+32, UPD+40
HDR	PARENT+3~, P1+2*
I	P0+1~, P0+13, P0+14, P0+15, NTE+1~, NTE+2, NTXT+1~, NTXT+3, ZSC+1~, ZSC+2* , NUMADDS+1~, NUMADDS+2, UPD+2~, UPD+3, UPD+4, UPD+5, UPD+6, UPD+10~, UPD+31, UPD+39* , VALUE+2~, VALUE+3, VALTXT+2~, VALTXT+4, VALTXT+5
ID	P0+1~, P0+3, P0+4, P0+8, P0+9, P0+10, NTE~, NTE+1, NTE+2, VALUE~ , VALUE+1, VALUE+3, VALTXT~, VALTXT+2, VALTXT+3
IFN	VALUE~, VALUE+1, VALUE+3, VALTXT~, VALTXT+2*, VALTXT+3, VALTXT+4, VALTXT+5
INST	P0+1~, P0+2, P0+4, P0+5, P0+9, VALUE~, VALUE+2*, VALUE+3
J	P0+1~, P0+14, UPD+10~, UPD+11
NTE	NTXT~, NTXT+1, NTXT+2, NTXT+3, UPD+2~, UPD+27, UPD+28, UPD+30, UPD+31, UPD+35* , UPD+36, UPD+38, UPD+39
>> OR3	UPD+4
>> ORAPPT	CLNUPD+7
>> ORCAT	UPD+14, UPD+41
ORDER	UPD+2~, UPD+3*, UPD+8, UPD+11, UPD+16, UPD+19, UPD+21, UPD+24, UPD+25, UPD+26 , UPD+27, UPD+28, UPD+29, UPD+30, UPD+31, UPD+32, UPD+35, UPD+36, UPD+37, UPD+38 , UPD+39, UPD+40
ORDIALOG	CLNUPD+1~, CLNUPD+2*, CLNUPD+3
ORDIALOG(	P0+7, P0+9
>> ORDUZ	PARENT+9
ORIFN	PARENT+6~, PARENT+7, PARENT+8, PARENT+9, PARENT+10, PARENT+11, P1+1, P1+2, UPD+3, UPD+5 , UPD+6, UPD+41, CLNUPD+2, CLNUPD+5, CLNUPD+6, CLNUPD+7
ORIFNDAD	PARENT+3~, PARENT+5, PARENT+8, P0+2, P0+4, P0+5, P0+9, P0+10, P0+11, P0+12 , P0+13, P0+14, P0+15, P0+17, P0+18, P1+1, P1+2
>> ORIG	PARENT+3
ORIGDAD	PARENT+3~*, PARENT+4, PARENT+5, PARENT+7, PARENT+8
>> ORL	CLNUPD+6
>> ORLOG	PARENT+9, PARENT+11
>> ORMSG	NTE+2, NTXT+2, NTXT+3, ZSC+2, NUMADDS+2, UPD+30, UPD+31, UPD+38, UPD+39, UPD+41
>> ORNATR	PARENT+9
>> ORNP	UPD+6
>> ORSTRT	PARENT+10
>> ORVP	PARENT+11
P	P0+1~, P0+6, P0+7, P0+12
PI	UPD+2~, UPD+27*, UPD+28, UPD+29, UPD+30, UPD+31, UPD+32
>> PKGIFN	UPD+22
PTR	P0+1~, P0+3, P0+4, P0+7, P0+8, P0+9, P0+14, P0+17
>> RXE	NTE+1, ZSC+1, NUMADDS+1, UPD+7, UPD+15, UPD+18, UPD+23
RXO	UPD+2~, UPD+9*, UPD+10
SEG	NTE+1~, NTE+2, ZSC+1~, ZSC+2
SIG	UPD+34~, UPD+35*, UPD+36, UPD+37, UPD+38, UPD+39, UPD+40
U	PARENT+3, PARENT+5, PARENT+7, PARENT+8, PARENT+11, P0+4, P0+8, P0+9, P0+11, P0+15 , P1+1, P1+2, ZSC+2, UPD+4, UPD+6, UPD+7, UPD+15, UPD+18, UPD+32, UPD+40 , CLNUPD+2, CLNUPD+4, CLNUPD+6, CLNUPD+7, VALUE+3
X	PTR~, PTR+1, P0+1~, P0+13, NUMADDS+1~, NUMADDS+2, DURATION~, DURATION+1, DURATION+2, UPD+2~ , UPD+6, UPD+7, UPD+8, UPD+15, UPD+16, UPD+18, UPD+19, UPD+20, UPD+23*, UPD+24
Y	NTE+1~, NTE+2, NTE+3, NTXT+1~, NTXT+2, NTXT+3, NTXT+4, ZSC+1~, ZSC+2, ZSC+3 , DURATION+1~, DURATION+3, DURATION+4, VALUE+2~, VALUE+3, VALUE+4, VALTXT+2~, VALTXT+4, VALTXT+5*, VALTXT+6
Y1	DURATION+1~, DURATION+2*, DURATION+3
Y2	DURATION+1~, DURATION+2*, DURATION+3
>> ZRX	UPD+25, UPD+26
ZSC	UPD+2~

Customize PDF page

Package: Order Entry Results Reporting