Routine: ORQ11

Information

ORQ11 ;SLC/DCM - Get patient orders in context ;May 13, 2020@10:30:45

Package	Total	Call Graph
Order Entry Results Reporting	4	($$LAPSED,$$TYPE)^OREVNTX IMOOD^ORIMO (EXPD,GET,GETEIE)^ORQ12 $$CHART^ORX1
VA FileMan	4	^%DT YMD^%DTC ^DIC $$GET1^DIQ
Kernel	1	($$FMADD,$$NOW)^XLFDT
Toolkit	1	$$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

Caller Graph Total: 2

Package	Total	Caller Graph
Order Entry Results Reporting	2	ORQ1 ORQ12

Entry Points

Name	Comments	DBIA/ICR reference
LOOP	; -- main loop through "ACT" x-ref
AWIN	;Jump in here to add active orders to AW context
AW	; -- loop through "AW" x-ref
LP1	; -- main secondary loop
ALL1	; 1 -- secondary pass for All, Recent Orders, Unsigned
CUR	; 2 -- Active/Current
CUR1	; 2 -- secondary pass for Active/Current
CURX
DC1	; 3 -- secondary pass for DC
COM1	; 4 -- secondary pass for Completed/Expired
EXG	; 5 -- Expiring
EXG1	; 5 -- secondary pass for Expiring
ACT	; 6 -- Recent Activity (Order Summary)
PEN1	; 7 -- secondary pass for Pending
UVR1	; 8 -- secondary pass for Unverified; 29 for Outpatient ; Include if: unverified, released, inpt, not repl/canc/lapsed
UVN1	; 9 -- secondary pass for Unverified/Nurse; 30 for Outpatient ; Include if: unverified, released, inpt, not repl/canc/lapsed
UVC1	; 10 -- secondary pass for Unverified/Clerk; 31 for Outpatient ; Include if: unverified, released, inpt, not repl/canc/lapsed
INPT()	; -- Returns 1 or 0, if inpt order using X0=^OR(100,IFN,0)
OUTPT()	; -- Returns 1 or 0, if outpt order using X0=^OR(100,IFN,0) ;P*515
CLNOR()	; -- Returns 1 or 0, if IMO clinic order ;P*515
SIG	; 11 -- Unsigned
FLG1	; 12 -- secondary pass for Flagged
VP1	; 13 -- secondary pass for Verbal/Phone
VPU1	; 14 -- secondary pass for Verbal/Phone Unsigned
HLD1	; 18 -- secondary pass for On Hold
NEW	; 19 -- New Orders, plus other unsigned orders by current provider
NW1
CHT1	; 20 -- secondary pass for Chart Review; 32 for Outpatient ; Include if: unverified, released, inpt, not repl/canc/lapsed
CHTSUM	; 21 -- secondary pass for Chart copy summary ; Included based on Nature of Order
LPS1	; 22 -- secondary pass for Lapsed
AVT1	; 23 -- secondary pass for Active/Pending sts only
QUIT	; -- stop
UAPM	;
DM	; DISCHARGE MEDS 9-2-03 ACTIVE, PENDING, DC < 7 DAYS AND EXPIRED LESS THAN 90 DAYS

External References

Name	Field # of Occurrence
^%DT	EXG+6, UAPM+4, DM+6, DM+7
YMD^%DTC	CUR+3
^DIC	EXG+5
$$GET1^DIQ	LP1+9, LP1+10, UAPM+2, UAPM+3, DM+4
$$LAPSED^OREVNTX	LP1+5
$$TYPE^OREVNTX	INPT+4
IMOOD^ORIMO	CLNOR+3
EXPD^ORQ12	LOOP+2
GET^ORQ12	ALL1+1, CURX, DC1+2, COM1+2, EXG1+2, PEN1+1, UVR1+2, UVN1+2, UVC1+2, FLG1+1 , VP1+2, VPU1+2, HLD1+1, NEW+5, CHT1+2, CHTSUM+7, CHTSUM+9, CHTSUM+10, LPS1+1, AVT1+7 , UAPM+7, UAPM+9, UAPM+11, UAPM+16, UAPM+18, DM+9, DM+11, DM+13, DM+15, DM+17
GETEIE^ORQ12	DC1+1
$$CHART^ORX1	CHTSUM+7
$$FMADD^XLFDT	EXG+3
$$NOW^XLFDT	AWIN+2, AW+3, EXG+7
$$GET^XPAR	AW+11, CUR+3, NEW+8, CHTSUM+3

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
100.008	GET1^DIQ
^ORD(100.98 - [#100.98]	GET1^DIQ
^HOLIDAY - [#40.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	AWIN+3, AWIN+4, AWIN+5, AW+4, AW+5, AW+8, AW+9, LP1+4, CUR+4, CUR+6 , CUR+7!, CUR+8!, CUR+9!, CUR1+2!, CUR1+6!, CUR1+7!, ACT+3, ACT+4, ACT+5, SIG+2 , SIG+3, SIG+4!, SIG+6, SIG+7!, FLG1+1, NEW+4, NEW+9, NEW+10, NEW+11, NEW+13 , CHTSUM+5, AVT1+5, AVT1+6
^ORD(100.02 - [#100.02]	VP1+2, VPU1+2
^ORD(100.98 - [#100.98]	CUR+2, INPT+3, OUTPT+1, OUTPT+2, OUTPT+3
^ORE(100.2 - [#100.2]	CUR1+4
^SC - [#44]	INPT+5
^TMP("ORGOTIT"	LOOP+3!, AWIN+4, AWIN+5, AW+1!, AW+5, AW+9, AW+12!, AVT1+3
^TMP("ORNEW"	NEW+2, NEW+3, NEW+12
^TMP("ORR"	AWIN+6, AW+10, CUR+14, ACT+6, SIG+9, NW1
^TMP("ORSORT"	AW+1!, AW+6*, AW+7, AW+8, AW+12!
^VA(200 - [#200]	NEW+7
^XUSEC("ORES"	NEW+6

Label References

Name	Line Occurrences
$$CLNOR	INPT+1, OUTPT+5
$$INPT	UVR1+2, UVN1+2, UVC1+2, CHT1+2
$$OUTPT	UVR1+2, UVN1+2, UVC1+2, CHT1+2
@(	LP1+14
AW	LOOP+1
AWIN	AW+11
CUR	EXG+8
CURX	CUR1+5
DM	LP1+9
LP1	AWIN+5, AW+9, CUR+13, ACT+5, SIG+8, NEW+14
NW1	NEW+6
UAPM	LP1+10

Naked Globals

Name	Field # of Occurrence
^(0	AWIN+4, AWIN+5, AW+8, AW+9, CUR+4, CUR+6, ACT+5
^(3	AWIN+4, AW+8, CUR+4, ACT+4, SIG+3, NEW+13
^(5	NEW+7
^(7	AWIN+5, AW+9
^(8	NEW+4, NEW+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CUR+1~, CUR+3
%DT	EXG+1~, EXG+6*, UAPM+4!, DM+6!, DM+7!
%H	CUR+1~, CUR+3*
ACTOR	AWIN+1~, AWIN+5, AW+2~, AW+9, ALL1+1, CUR+1~, CUR+5, CUR+6, CUR+7, CUR+8 , CUR+9, CURX, DC1+1, DC1+2, COM1+2, EXG1+2, ACT+2~, ACT+5, PEN1+1, UVR1+2 , UVN1+2, UVC1+2, SIG+1~, SIG+6, SIG+7, FLG1+1, VP1+2, VPU1+2, HLD1+1, NEW+1~ , NEW+3, NEW+4, NEW+5, NEW+11, NEW+12, NEW+13, CHT1+2, CHTSUM+7, CHTSUM+9, CHTSUM+10 , LPS1+1, AVT1+4, UAPM+2, UAPM+7, UAPM+9, UAPM+11, UAPM+16, UAPM+18, DM+9, DM+11 , DM+13, DM+15, DM+17
>> DETAIL	ALL1+1, CURX, DC1+1, DC1+2, COM1+2, EXG1+2, PEN1+1, UVR1+2, UVN1+2, UVC1+2 , FLG1+1, VP1+2, VPU1+2, HLD1+1, NEW+5, CHT1+2, CHTSUM+7, CHTSUM+9, CHTSUM+10, LPS1+1 , AVT1+7, UAPM+7, UAPM+9, UAPM+11, UAPM+16, UAPM+18, DM+9, DM+11, DM+13, DM+15 , DM+17
>> DGPMT	CUR+2
DIC	EXG+1~, EXG+4*
DT	EXG+3
DUZ	NEW+6, NEW+7, NEW+14
>> EDATE	AWIN+3, AW+3, AW+4, AW+11, CUR+4, ACT+3, SIG+2, NEW+9
EVNT	CUR1+3~*, CUR1+4
>> FLG	LOOP+2, AWIN+5, LP1+4, LP1+12, LP1+13, DC1+1, UVR1+2, UVN1+2, UVC1+2, CHT1+2
>> GETKID	LP1+4
>> GROUP	LP1+9, LP1+10, CUR+2
IFN	AWIN+1~, AWIN+4, AWIN+5, AW+2~, AW+5, AW+6, AW+8, AW+9, ALL1+1, CUR+1~ , CUR+4, CUR+6, CUR+7, CUR+8, CUR+9, CUR1+2, CUR1+6, CUR1+7, CURX, DC1+1 , DC1+2, COM1+2, EXG1+2, ACT+2~, ACT+4, ACT+5, PEN1+1, UVR1+2, UVN1+2, UVC1+2 , CLNOR+2, CLNOR+3, SIG+1~, SIG+2, SIG+3, SIG+4, SIG+6, SIG+7, FLG1+1, VP1+2 , VPU1+2, HLD1+1, NEW+1~, NEW+2, NEW+3, NEW+4, NEW+5, NEW+10, NEW+11, NEW+12 , NEW+13, CHT1+2, CHTSUM+5, CHTSUM+7, CHTSUM+9, CHTSUM+10, LPS1+1, AVT1+3, AVT1+5, AVT1+6 , AVT1+7, UAPM+2, UAPM+3, UAPM+7, UAPM+9, UAPM+11, UAPM+16, UAPM+18, DM+4, DM+9 , DM+11, DM+13, DM+15, DM+17
>> MULT	AWIN+4, AW+5
NAT	CHTSUM+2~, CHTSUM+5, CHTSUM+6, CHTSUM+7
NORX	CUR+1~, CUR+2*, CUR1+8
NOW	AWIN+1~, AWIN+2, AW+2~, AW+3, COM1+2, EXG+1~, EXG+7*, EXG1+2
OACT	CUR+1~
OIEN	CUR+1~
ORCACT	AVT1+5~*, AVT1+6
ORDC	DM+3~, DM+4*, DM+9
ORDCDT	DM+3~, DM+7*, DM+9
ORDT	EXG+1~, EXG+3*, EXG+4
ORDTE	UAPM+1~, UAPM+3*, UAPM+16
ORDW	EXG+1~, EXG+2, EXG+3*
OREDTE	UAPM+1~, UAPM+4*, UAPM+16
ORENT	NEW+1~, NEW+7*, NEW+8
OREXPDT	DM+3~, DM+6*, DM+17
>> ORGRP(	AWIN+3, AW+4, CUR+5, ACT+4, SIG+5
ORHOL	EXG+1~, EXG+2, EXG+5*
>> ORLIST	AWIN+6, AW+10, ALL1+1, CUR+14, CURX, DC1+1, DC1+2, COM1+2, EXG1+2, ACT+6 , PEN1+1, UVR1+2, UVN1+2, UVC1+2, SIG+9, FLG1+1, VP1+2, VPU1+2, HLD1+1, NEW+5 , NW1, CHT1+2, CHTSUM+7, CHTSUM+9, CHTSUM+10, LPS1+1, AVT1+7, UAPM+7, UAPM+9, UAPM+11 , UAPM+16, UAPM+18, DM+9, DM+11, DM+13, DM+15, DM+17
>> ORLST	AWIN+6, AW+10, CUR+14, ACT+6, SIG+9, NW1
ORNATR	VP1+1~, VP1+2, VPU1+1~, VPU1+2
ORNG	EXG+1~, EXG+2*, EXG+3, EXG+6
ORPAR	NEW+1~, NEW+8*, NEW+9, NEW+14
ORSTOP	DM+3~, DM+5*, DM+17
>> ORWARD	CUR+2
ORY	CLNOR+1~, CLNOR+3, CLNOR+4
>> PAT	AWIN+3, AWIN+4, AWIN+5, AW+4, AW+5, AW+9, CUR+4, CUR+6, CUR+7, CUR+8 , CUR+9, CUR1+2, CUR1+6, CUR1+7, ACT+3, ACT+4, ACT+5, SIG+2, SIG+4, SIG+6 , SIG+7, NEW+9, NEW+10, NEW+11
>> SDATE	AWIN+2, AW+3, AW+4, AW+11, CUR+4, ACT+3, SIG+1, NEW+9
STOP	CUR1+1~, CUR1+7, COM1+1~, COM1+2, EXG1+1~*, EXG1+2
STS	LP1+1~, LP1+3*, LP1+5, CUR1+2, CUR1+4, CUR1+6, CUR1+7, DC1+2, COM1+2, EXG1+2 , PEN1+1, UVR1+2, UVN1+2, UVC1+2, HLD1+1, CHT1+2, LPS1+1, AVT1+2, UAPM+7, UAPM+9 , UAPM+11, UAPM+16, UAPM+18, DM+9, DM+11, DM+13, DM+15, DM+17
TAG	LP1+2~, LP1+12, LP1+13, LP1+14
TM	AWIN+1~, AWIN+2, AWIN+3, AWIN+4, AWIN+5, AW+2~, AW+4, AW+5, AW+6, AW+7 , AW+8, CUR+1~, CUR+4, CUR+6, CUR+7, CUR+8, CUR+9, CUR1+2, CUR1+6, CUR1+7 , ACT+2~, ACT+3, ACT+4, ACT+5, SIG+1~, SIG+2, SIG+4, SIG+6, SIG+7, NEW+1~ , NEW+9*, NEW+10, NEW+11
TMPACT	AVT1+4~, AVT1+6, AVT1+7
TMPQT	AVT1+4~, AVT1+5, AVT1+6*
TMW	EXG+1~, EXG+7*, EXG1+2
TO	AWIN+1~, AWIN+3, AWIN+4, AWIN+5, AW+2~, AW+3, AW+4, AW+5, AW+6, AW+7 , AW+8, AW+9
U	AWIN+5, AW+9, LP1+3, LP1+4, LP1+5, CUR+2, CUR+5, CUR+7, CUR+8, CUR+9 , CUR1+1, CUR1+3, CUR1+5, CUR1+6, CUR1+7, CUR1+8, COM1+1, EXG1+1, ACT+4, ACT+5 , UVR1+2, UVN1+2, UVC1+2, INPT+2, INPT+3, INPT+4, INPT+5, OUTPT+1, OUTPT+2, OUTPT+3 , OUTPT+4, SIG+5, SIG+7, VP1+1, VP1+2, VPU1+1, VPU1+2, NEW+14, CHT1+2, CHTSUM+5 , CHTSUM+6, AVT1+6, DM+5
USTS	AWIN+1~, AW+2~
X	AWIN+1~, AW+2~, LP1+5, CUR+1~, CUR+3, EXG+1~, EXG+4, EXG+6, UAPM+1~, UAPM+4* , DM+3~, DM+6, DM+7
X0	AWIN+1~, AWIN+4, AW+2~, AW+8, AW+9, LP1+5, CUR+1~, CUR+4, CUR+5, CUR1+1 , CUR1+3, CUR1+8, COM1+1, EXG1+1, ACT+2~, ACT+4, INPT+2, INPT+3, INPT+4, INPT+5 , OUTPT+1, OUTPT+2, OUTPT+3, OUTPT+4, SIG+1~, SIG+3, SIG+4, SIG+5, NEW+1~, NEW+13 , DM+5
X1	CUR+1~, CUR+3*
X2	CUR+1~, CUR+3*
X3	AWIN+1~, AWIN+4, AW+2~, AW+8, LP1+3, LP1+4, CUR+1~, CUR+3, CUR+4, CUR+9 , ACT+2~, ACT+4, SIG+1~, SIG+3, NEW+1~, NEW+13*
X7	AWIN+1~, AWIN+5, AW+2~, AW+9, CHTSUM+9
X8	AWIN+1~, AWIN+5, AW+2~, AW+9, CUR+1~, CUR+6, CUR+7, CUR+8, CUR+9, CUR1+5 , ACT+2~, ACT+5, UVR1+2, UVN1+2, UVC1+2, VP1+1, VPU1+1, VPU1+2, NEW+1~, NEW+13* , NEW+14, CHT1+2, CHTSUM+6
XP	CHTSUM+2~, CHTSUM+3*, CHTSUM+4, CHTSUM+8
>> XREF	LOOP+1
Y	EXG+1~, EXG+5, EXG+7, UAPM+1~, UAPM+4, DM+3~, DM+6, DM+7
YD	CUR+1~, CUR+3*, CUR+8, CUR1+6, CUR1+7

Customize PDF page

Package: Order Entry Results Reporting