Routine: ORMPS3

Information

ORMPS3 ;SLC/MKB - Process Pharmacy ORM msgs cont ;03-Jun-2014 11:20;PLS

Source Information

Source file <ORMPS3.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Order Entry Results Reporting	7	$$DOSES^ORCACT4 EN^ORCSAVE ORDTEXT^ORCSAVE1 (DATES,RELEASE,RESP,SIGSTS)^ORCSAVE2 $$UNESC^ORHLESC $$FIND^ORM $$UNESC^ORMPS2
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Order Entry Results Reporting	3	ORMPS ORMPS1 ORMPS2

Entry Points

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

External References

Name	Field # of Occurrence
$$GET1^DIQ	UPD+23, UPD+24, UPD+25
$$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+14, UPD+16, UPD+19, UPD+23, UPD+24, UPD+25, UPD+27
SIGSTS^ORCSAVE2	PARENT+10
$$UNESC^ORHLESC	NTXT+2, NTXT+3
$$FIND^ORM	UPD+21
$$UNESC^ORMPS2	UPD+31, UPD+32

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ

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+28, UPD+30!, UPD+31, UPD+32, UPD+33, UPD+34, 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+28
$$NTXT	UPD+29
$$PTR	P0+3, P0+7, P0+12
$$VALTXT	UPD+29
$$VALUE	UPD+8, UPD+11, UPD+14, UPD+19, UPD+27
$$ZSC	UPD+34
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+30~, UPD+31, UPD+32, UPD+33
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, VALTXT+2~, VALTXT+3*, VALTXT+4, VALTXT+5
DT	UPD+33
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+32, 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*
NTE	NTXT~, NTXT+1, NTXT+2, NTXT+3, UPD+2~, UPD+28, UPD+29, UPD+31, UPD+32
>> OR3	UPD+4
>> ORC	UPD+21
>> ORCAT	UPD+9
ORDER	UPD+2~, UPD+3*, UPD+8, UPD+11, UPD+14, UPD+16, UPD+19, UPD+23, UPD+24, UPD+25 , UPD+27, UPD+28, UPD+29, UPD+30, UPD+31, UPD+32, UPD+33, UPD+34
>> 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
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
>> ORLOG	PARENT+9, PARENT+11
>> ORMSG	NTE+2, NTXT+2, NTXT+3, ZSC+2, NUMADDS+2, UPD+31, UPD+32
>> 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+28*, UPD+29, UPD+30, UPD+31, UPD+32, UPD+33
>> PKGIFN	UPD+17
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+10, UPD+13, UPD+18
SEG	NTE+1~, NTE+2, ZSC+1~, ZSC+2
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+10, UPD+13, UPD+22, UPD+33 , 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+10, UPD+11, UPD+13, UPD+14, UPD+15, UPD+18, UPD+19 , UPD+21, UPD+22, UPD+23, UPD+24, UPD+25
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+27
ZSC	UPD+2~, UPD+34*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORMPS3

Call Graph Total: 8

Caller Graph Total: 3