Routine: ORCFLAG

Package	Total	Call Graph
Order Entry Results Reporting	5	EN^OCXOERR $$VALID^ORCACT0 ($$HL7DATE,$$MSH,$$PID,$$PV1)^ORMBLD TEXT^ORQ12 ($$LOCK1,UNLK1)^ORX2
VA FileMan	3	^DIC $$GET1^DIQ ^DIR
Kernel	2	$$NOW^XLFDT MSG^XQOR
MailMan	2	KILL^XM EN^XMB
Inpatient Medications	1	OBR^PSJHL4
Registration	1	DEM^VADPT
Toolkit	1	$$GET^XPAR

Package

Total

Call Graph

Order Entry Results Reporting

EN^OCXOERR $$VALID^ORCACT0 ($$HL7DATE,$$MSH,$$PID,$$PV1)^ORMBLD TEXT^ORQ12 ($$LOCK1,UNLK1)^ORX2

VA FileMan

^DIC $$GET1^DIQ ^DIR

Kernel

$$NOW^XLFDT MSG^XQOR

MailMan

KILL^XM EN^XMB

Inpatient Medications

OBR^PSJHL4

Registration

DEM^VADPT

Toolkit

$$GET^XPAR

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

Package	Total	Caller Graph
Inpatient Medications	5	PSGOE1 PSIVORC2 PSJI LM PENDING ACTION PSJLIORD PSJOE
Outpatient Pharmacy	4	PSOORFI2 PSOORFL PSOORNE4 PSOORNEW
Order Entry Results Reporting	3	ORCACT1 ORCB ORWDXA
Kernel	1	^ORD(101

Package

Total

Caller Graph

Inpatient Medications

PSGOE1 PSIVORC2 PSJI LM PENDING ACTION PSJLIORD PSJOE

Outpatient Pharmacy

PSOORFI2 PSOORFL PSOORNE4 PSOORNEW

Order Entry Results Reporting

ORCACT1 ORCB ORWDXA

Kernel

^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN1(ORIFN)	; -- standalone entry point to un/flag order ORIFN
EN	; -- Flag order ORIFN
UN	; -- Unflag order ORIFN
SHOWFLAG	; -- Display [last] flag for order ORIFN
REASON()	; -- Reason for flag
COMMENT()	; -- Comments on unflag
PROV(ORDR)	; -- Get provider to alert
BULLETIN	; -- Send bulletin re: flag
LTIM(X)	; -- format FM date/time into MM/DD HH:MM
MSG(ORDER)

Name	Field # of Occurrence
^DIC	PROV+5
$$GET1^DIQ	MSG+5
^DIR	REASON+4, COMMENT+4
EN^OCXOERR	EN+8, UN+6
$$VALID^ORCACT0	EN1+6
$$HL7DATE^ORMBLD	MSG+10
$$MSH^ORMBLD	MSG+6
$$PID^ORMBLD	MSG+7
$$PV1^ORMBLD	MSG+8
TEXT^ORQ12	BULLETIN+11
$$LOCK1^ORX2	EN1+7
UNLK1^ORX2	EN1+9
OBR^PSJHL4	MSG+1
DEM^VADPT	EN1+4
$$NOW^XLFDT	EN+1, EN+7, UN+1, UN+7
KILL^XM	EN+9
EN^XMB	BULLETIN+15
$$GET^XPAR	BULLETIN+5
MSG^XQOR	MSG+13

Name

Field # of Occurrence

^DIC

PROV+5

$$GET1^DIQ

MSG+5

^DIR

REASON+4, COMMENT+4

EN+8, UN+6

EN1+6

MSG+10

MSG+6

MSG+7

MSG+8

BULLETIN+11

EN1+7

EN1+9

MSG+1

EN1+4

EN+1, EN+7, UN+1, UN+7

EN+9

BULLETIN+15

MSG+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Missing or invalid order!" Line Location: EN1+3
Function Call: WRITE	Prompt: !,ORERR Line Location: EN1+6
Function Call: WRITE	Prompt: !,$P(ORLK,U,2) Line Location: EN1+7
Function Call: WRITE	Prompt: !,"Unable to flag!" Line Location: EN+2
Function Call: WRITE	Prompt: !?10,"... order flagged." Line Location: EN+9
Function Call: WRITE	Prompt: !,"Unable to unflag order!" Line Location: UN+2
Function Call: WRITE	Prompt: !?10,"... order unflagged." Line Location: UN+8
Function Call: WRITE	Prompt: !," FLAGGED: "_$$LTIM($P(FLAG,U,3))_" by "_$P($G(^VA(200,+$P(FLAG,U,4),0)),U) Line Location: SHOWFLAG+3
Function Call: WRITE	Prompt: !?10,$P(FLAG,U,5) Line Location: SHOWFLAG+4
Function Call: WRITE	Prompt: !,"Sending bulletin to "_$P($G(^VA(200,ORUSR,0)),U)_"..." Line Location: BULLETIN+8
Routine Call	DIC Line Location: PROV+5
Routine Call	DIR Line Location: REASON+4 COMMENT+4

FileNo	Call Tags
^DIC(9.4 - [#9.4]	GET1^DIQ

FileNo

Call Tags

^DIC(9.4 - [#9.4]

GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	EN1+3, EN1+5, EN+4, EN+6!, EN+7, UN+4, UN+5, UN+7*, SHOWFLAG+2, BULLETIN+2 , MSG+2, MSG+4, MSG+12
^ORD(100.01 - [#100.01]	BULLETIN+14
^VA(200 - [#200]	SHOWFLAG+3, PROV+3, BULLETIN+3, BULLETIN+8

Name

Line Occurrences (* Changed, ! Killed)

^OR(100 - [#100]

EN1+3, EN1+5, EN+4, EN+6!, EN+7*, UN+4*, UN+5, UN+7*, SHOWFLAG+2, BULLETIN+2
, MSG+2, MSG+4, MSG+12

^ORD(100.01 - [#100.01]

BULLETIN+14

^VA(200 - [#200]

SHOWFLAG+3, PROV+3, BULLETIN+3, BULLETIN+8

Name	Line Occurrences
$$COMMENT	UN+3
$$LTIM	SHOWFLAG+3, BULLETIN+10, BULLETIN+13
$$PROV	EN+4
$$REASON	EN+3
@(	EN1+9
BULLETIN	EN+5
MSG	EN+9, UN+8
SHOWFLAG	UN+3

Name

Line Occurrences

$$COMMENT

UN+3

$$LTIM

SHOWFLAG+3, BULLETIN+10, BULLETIN+13

$$PROV

EN+4

$$REASON

EN+3

EN1+9

BULLETIN

EN+5

MSG

EN+9, UN+8

SHOWFLAG

UN+3

Name	Field # of Occurrence
^(0	UN+5
^(3	EN+6, UN+4, BULLETIN+2
^(8	EN1+3, MSG+4

Name

Field # of Occurrence

^(0

UN+5

^(3

EN+6*, UN+4*, BULLETIN+2

^(8

EN1+3, MSG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BULL	BULLETIN+1~, BULLETIN+5*, BULLETIN+6
DA	EN+1~, EN+2, EN+4, EN+6, UN+1~, UN+2, UN+4, UN+5, SHOWFLAG+2
DFN	EN1+1~, EN1+3*
DIC	PROV+1~, PROV+2*
DIC("A"	PROV+2*
DIC("B"	PROV+3*
DIC("S"	PROV+4*
DIC(0	PROV+2*
DIR	REASON+1~, COMMENT+1~
DIR("?"	REASON+3, COMMENT+3
DIR("A"	REASON+2, COMMENT+2
DIR(0	REASON+2, COMMENT+2
>> DTOUT	COMMENT+4
DUZ	EN+6, UN+4, BULLETIN+9
FLAG	SHOWFLAG+1~, SHOWFLAG+2*, SHOWFLAG+3, SHOWFLAG+4
OR0	BULLETIN+1~, BULLETIN+2, BULLETIN+10, BULLETIN+13, MSG+3~, MSG+4, MSG+5, MSG+7, MSG+8
OR3	BULLETIN+1~, BULLETIN+2, BULLETIN+14, MSG+3~, MSG+4, MSG+9, MSG+10
ORACTN	EN1+1~, EN1+5, EN1+6, EN1+8, EN1+9
ORAGE	EN1+1~, EN1+4*, BULLETIN+10
ORB	EN+1~, EN+8, UN+1~, UN+6
ORDER	MSG~, MSG+2, MSG+4, MSG+12
ORDR	PROV~, PROV+3*
ORDTXT	BULLETIN+1~, BULLETIN+11
ORDTXT(1	BULLETIN+12
ORDTXT(2	BULLETIN+12
ORDTXT(3	BULLETIN+12
OREASON	EN+1~, EN+3, EN+6, UN+1~, UN+3, UN+4, BULLETIN+13
>> OREBUILD	EN+7, UN+7
ORENT	BULLETIN+1~, BULLETIN+4*, BULLETIN+5
ORERR	EN1+1~, EN1+6
ORFLAG	MSG+3~, MSG+10, MSG+11, MSG+12
ORIFN	EN1~, EN1+2*, EN1+3, EN1+5, EN1+6, EN1+7, EN1+9, EN+2, EN+4, EN+6 , EN+7, EN+8, EN+9, UN+2, UN+4, UN+5, UN+6, UN+7, UN+8, SHOWFLAG+2 , BULLETIN+2, BULLETIN+11
ORLK	EN1+1~, EN1+7*
ORMSG	MSG+3~, MSG+13
ORMSG(1	MSG+6*
ORMSG(2	MSG+7*
ORMSG(3	MSG+8*
ORMSG(4	MSG+12*
ORNOW	EN+1~, EN+6, UN+1~, UN+4
ORNP	EN+1~, EN+4, EN+6, EN+8, UN+1~, UN+5, UN+6, BULLETIN+3
ORPNM	EN1+1~, EN1+4*, BULLETIN+10
ORPS	EN1+1~, EN1+8*, MSG+11
ORSRV	BULLETIN+1~, BULLETIN+3*, BULLETIN+4
ORSSN	EN1+1~, EN1+4*, BULLETIN+10
ORUSR	BULLETIN+1~, BULLETIN+3*, BULLETIN+4, BULLETIN+8, BULLETIN+9
ORVP	EN1+1~, EN1+3, EN+8, UN+6, MSG+3~, MSG+7, MSG+8
ORX	MSG+3~, MSG+9*, MSG+10
U	EN1+3, EN1+4, EN1+7, EN+4, EN+6, EN+7, EN+8, UN+4, UN+5, UN+6 , UN+7, SHOWFLAG+3, SHOWFLAG+4, PROV+3, BULLETIN+3, BULLETIN+8, BULLETIN+10, BULLETIN+13, BULLETIN+14, MSG+5 , MSG+7, MSG+8, MSG+9, MSG+10
VA	EN1+1~
VADM	EN1+1~
VADM(1	EN1+4
VADM(2	EN1+4
VADM(4	EN1+4
VAERR	EN1+1~
X	REASON+1~, COMMENT+1~, PROV+1~, LTIM~, LTIM+2, LTIM+3
XMB	BULLETIN+1~, BULLETIN+9*
XMB(1	BULLETIN+10*
XMB(10	BULLETIN+13*
XMB(11	BULLETIN+14*
XMB(2	BULLETIN+10*
XMB(3	BULLETIN+10*
XMB(4	BULLETIN+10*
XMB(5	BULLETIN+12*
XMB(6	BULLETIN+12*
XMB(7	BULLETIN+12*
XMB(8	BULLETIN+13*
XMB(9	BULLETIN+13*
XMDUZ	BULLETIN+1~, BULLETIN+9*
XMY	BULLETIN+1~
XMY(	BULLETIN+9*
>> XMZ	EN+6
Y	REASON+1~, REASON+5, COMMENT+1~, COMMENT+4, COMMENT+5, PROV+1~, PROV+5, PROV+6, LTIM+1~, LTIM+2 , LTIM+3*, LTIM+4

Name	Field # of Occurrence
$T(OBR^PSJHL4	MSG+1

Name

Field # of Occurrence

$T(OBR^PSJHL4

MSG+1

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCFLAG

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items