Routine: ORRHCO

Information

ORRHCO ; SLC/KCM - CPRS Query Tools - Orders ; [4/4/02 2:07pm]

Source file <ORRHCO.m>

Package	Total	Call Graph
Toolkit	2	$$GET^XPAR $$SCREEN^XTID
Kernel	1	$$UP^XLFSTR

Name	Comments	DBIA/ICR reference
SIGNSTS(LST)
ABSTRT(Y,NIL)	;Return abnormal result start date
NXT()	; Increment ILST
ORDITM(Y,FROM,DIR,XREF)	; Return a subset of orderable items ; .Return Array, Starting Text, Direction, Cross Reference (B or S.x) ; ^ORD(101.43,"S.xxx",UpperCase,DA)=Mne^MixedCase^InactvDt^.01IfMne ; Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name ; similar to ORDITM^ORWDX but does not screen inactives
CGRP(ORY)	;Return Consult Display Group
OISETS(LST)
ORDSTS(LST)

Name	Line Occurrences (* Changed, ! Killed)
^ORD(100.01 - [#100.01]	ORDSTS+2, ORDSTS+3
^ORD(100.98 - [#100.98]	CGRP+1, OISETS+3, OISETS+4, OISETS+5, OISETS+6
^ORD(101.43 - [#101.43]	ORDITM+6, ORDITM+7, ORDITM+9, ORDITM+10, ORDITM+13, OISETS+7

Name	Line Occurrences
$$NXT	ORDSTS+5

Name	Field # of Occurrence
CNT	ORDITM+5~*, ORDITM+6
DGNM	OISETS+1~, OISETS+3*, OISETS+4, OISETS+5, OISETS+7
DIR	ORDITM~, ORDITM+6, ORDITM+7
FROM	ORDITM~, ORDITM+6*, ORDITM+7, ORDITM+9, ORDITM+10, ORDITM+13
I	ORDITM+5~, ORDITM+6, ORDITM+11, ORDITM+17*
IDX	OISETS+1~, OISETS+2, OISETS+7
IEN	ORDITM+5~, ORDITM+7, ORDITM+9, ORDITM+10, ORDITM+11, ORDITM+13, ORDITM+17, OISETS+1~, OISETS+4, OISETS+5 , OISETS+6, ORDSTS+1~, ORDSTS+3*, ORDSTS+4, ORDSTS+5
ILST	NXT+1, NXT+2, ORDSTS+1~
LST	OISETS~, ORDSTS~, SIGNSTS~
LST(	OISETS+7, ORDSTS+5
LST(1	OISETS+2, SIGNSTS+1
LST(2	SIGNSTS+2*
LST(3	SIGNSTS+3*
LST(4	SIGNSTS+4*
LST(5	SIGNSTS+5*
LST(6	SIGNSTS+6*
LST(7	SIGNSTS+7*
LST(8	SIGNSTS+8*
NIL	ABSTRT~
ORY	CGRP~, CGRP+1*
SHORT	OISETS+1~, OISETS+6*, OISETS+7
SKIP	ORDITM+5~*
U	ORDITM+10, ORDITM+11, ORDITM+14, ORDITM+15, ORDITM+17, CGRP+1, OISETS+6, OISETS+7, ORDSTS+5
X	ORDITM+5~, ORDITM+9, ORDITM+10, ORDITM+11, ORDITM+13, ORDITM+14, ORDITM+15, ORDITM+16, ORDITM+17, ORDSTS+1~ , ORDSTS+2, ORDSTS+3, ORDSTS+5
XREF	ORDITM~, ORDITM+6, ORDITM+7, ORDITM+8, ORDITM+9, ORDITM+13, ORDITM+16
Y	ORDITM~, ABSTRT~, ABSTRT+1*
Y(	ORDITM+11, ORDITM+17