Routine: ORWLRAP1

Information

ORWLRAP1 ;DSS/TFF - LAB ANATOMIC PATHOLOGY CONFIGURATION SUPPORT ;Feb 16, 2024@14:39

Package	Total	Call Graph
VA FileMan	4	$$FIND1^DIC (,UPDATE)^DIE $$GET1^DIQ ^DIR
Lab Service	2	COLL^LR7OR3 $$OK4CPRS^LRAPDLG
Order Entry Results Reporting	2	WRAP^ORUTL $$CHKLABDIV^ORWDX2
Kernel	1	$$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: 8

Package	Total	Caller Graph
Order Entry Results Reporting	6	ITEMS ORACCES2 ORCM UPDATE AP DIALOGS ORWLRAP1 APORDITM ORWLRAP1 CONFIG ORWLRAP1 SPEC
Electronic Health Modernization	2	EHM-00174 EHM-00597

Entry Points

Name	Comments	DBIA/ICR reference
GETIEN(IDX)	; Get the 101.45 IEN from the orderable item IEN
CONFIG(RET,TYP,IEN)	; RPC: ORWLRAP1 CONFIG ; *This configures the Delphi forms for CPRS aside from the original elements found ; in the Lab order dialog.
DEFAULT(TYP)	; Set Default Configuration ; RET ; ** ORDER ELEMENTS ; O^ID^HIDE(1,0)^REQUIRED(1,0)^DEFAULT_VALUE
SPEC(RET,IEN)	; RPC: ORWLRAP1 SPEC ; *This returns the default specimen list.
SPEC1()	; Lab list of specimens for this test
NRQ(RQ,NM)	; Add * to name if required
VWL(ND0,ND1,IENS)	; Add value list as pipe delimited string
EXT(PC)	; Extend Value
END	; Clean Up
APOITEMS(Y,QOCALL,SHOWALL,CODE,NATFLAG,ACCESS)	; Subset of AP orderable items ; Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name ; QOCALL = Allow quick orders ; SHOWALL = Show inactive entries ; CODE: 0 = List only entries already in File 101.45 ; 1 = List only entries not already in File 101.45 ; NATFLAG = Add National Standard flag as piece 4 of the data ; ACCESS - List of allowed display groups
OK4CPRS(ORDITEM,QUICK)	; Determines if an orderable item is allowed for AP Dialogs ; Also used as a screen by the LR OTHER LAB AP TESTS order dialog
APORDITM(Y,QOCALL,ACCESS)	; Subset of AP orderable items
APDLGS	; Update AP Order Dialogs - Entry point for Option ORCM UPDATE AP DIALOGS
GETAPIENS()	;
ADDACTION(ACTION)	; Add Action Text to TEXT
ADD(TEXT,TEXT2,PREFIX)	; Add TEXT2 to TEXT, insert PREFIX between the two if TEXT '= ""
GETATXT(ACTION)	; Get Action Text
ADDQ(TEXT)	; Add TEXT to DIR("?",INDEX) or RESULT
ADDDESC(ACTION)	; Get action description

External References

Name	Field # of Occurrence
$$FIND1^DIC	DEFAULT+20
^DIE	APDLGS+31
UPDATE^DIE	APDLGS+21
$$GET1^DIQ	SPEC1+5
^DIR	GETAPIENS+27, GETAPIENS+39, GETAPIENS+52, GETAPIENS+70
COLL^LR7OR3	SPEC1+5
$$OK4CPRS^LRAPDLG	OK4CPRS+7
WRAP^ORUTL	GETAPIENS+68
$$CHKLABDIV^ORWDX2	APOITEMS+29
$$NOW^XLFDT	APOITEMS+13, OK4CPRS+14
$$GET^XPAR	APOITEMS+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Update Anatomic Pathology Order Dialogs",! Line Location: APDLGS+4
Function Call: WRITE	Prompt: !,"Orderable Item not found!",! Line Location: APDLGS+14
Function Call: WRITE	Prompt: !,"Error creating new entry. Please try again later." Line Location: APDLGS+22
Function Call: WRITE	Prompt: !,"Before you can copy existing anatomic pathology order dialogs," Line Location: GETAPIENS+9
Function Call: WRITE	Prompt: !,"or create new order dialogs, you must work with your laboratory" Line Location: GETAPIENS+10
Function Call: WRITE	Prompt: !,"application coordinator to create new, active anatomic pathology" Line Location: GETAPIENS+11
Function Call: WRITE	Prompt: !,"tests in the LABORATORY TEST File (#60) that are mapped to a" Line Location: GETAPIENS+12
Function Call: WRITE	Prompt: !,"CPRS SCREEN.",! Line Location: GETAPIENS+13
Function Call: WRITE	Prompt: !!,"Existing Anatomic Pathology Order Dialogs:",!! Line Location: GETAPIENS+31
Function Call: WRITE	Prompt: ?1,IDX,?5,FLAG_$P(ITEM,U,2),! Line Location: GETAPIENS+34
Function Call: WRITE	Prompt: !,"* Indicates a National Standard.",! Line Location: GETAPIENS+35
Function Call: WRITE	Prompt: !," ",$P($G(OILIST(+$G(Y))),U,2),! Line Location: GETAPIENS+40
Function Call: WRITE	Prompt: !!,"Anatomic Pathology Orderable Items not assigned to an Order Dialog:",!! Line Location: GETAPIENS+44
Function Call: WRITE	Prompt: ?1,IDX,?5,$P(UNASSIGNED(IDX),U,2),! Line Location: GETAPIENS+46
Function Call: WRITE	Prompt: !," ",$P($G(UNASSIGNED(+$G(Y))),U,2),! Line Location: GETAPIENS+53
Function Call: WRITE	Prompt: ! Line Location: GETAPIENS+61
Routine Call	DIC Line Location: DEFAULT+20
Routine Call	DIE Line Location: APDLGS+31
Routine Call	DIE Line Location: APDLGS+21
Routine Call	DIR Line Location: GETAPIENS+27 GETAPIENS+39 GETAPIENS+52 GETAPIENS+70

Used in RPC

RPC Name	Call Tags
ORWLRAP1 CONFIG	CONFIG
ORWLRAP1 SPEC	SPEC
ORWLRAP1 APORDITM	APORDITM

FileNo	Call Tags
^ORD(101.43 - [#101.43]	GET1^DIQ
^ORD(101.45 - [#101.45]	Classic Fileman Calls
^LAB(62 - [#62]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101.43 - [#101.43]	APOITEMS+15, APOITEMS+16, APOITEMS+24, APOITEMS+26, OK4CPRS+4, OK4CPRS+12, OK4CPRS+13, APDLGS+13
^ORD(101.45 - [#101.45]	GETIEN+1, CONFIG+13, CONFIG+17, CONFIG+18, CONFIG+20, CONFIG+24, CONFIG+26, CONFIG+33, CONFIG+34, CONFIG+35 , CONFIG+38, CONFIG+44, CONFIG+45, CONFIG+46, CONFIG+47, SPEC+9, SPEC+10, SPEC+11, SPEC+13, SPEC+14 , SPEC1+3, VWL+2, EXT+2, EXT+3, APOITEMS+18, APOITEMS+19, APOITEMS+33, OK4CPRS+10, OK4CPRS+11, APDLGS+18 , APDLGS+25*, GETAPIENS+56, GETAPIENS+72
^TMP($J	CONFIG+11, SPEC+8

Label References

Name	Line Occurrences
$$EXT	VWL+3
$$GETAPIENS	APDLGS+5
$$GETATXT	GETAPIENS+24, GETAPIENS+38, ADDACTION+1, ADDDESC+18
$$GETIEN	CONFIG+11, SPEC+8
$$NRQ	CONFIG+28, CONFIG+36
$$OK4CPRS	APOITEMS+17
$$VWL	CONFIG+37, CONFIG+49
ADD	GETAPIENS+24, ADDACTION+2
ADDACTION	GETAPIENS+15, GETAPIENS+16, GETAPIENS+17
ADDDESC	GETAPIENS+25
ADDQ	ADDDESC+2, ADDDESC+3, ADDDESC+4, ADDDESC+5, ADDDESC+7, ADDDESC+8, ADDDESC+9, ADDDESC+10, ADDDESC+15, ADDDESC+16 , ADDDESC+17, ADDDESC+18
APOITEMS	APORDITM+1, GETAPIENS+4, GETAPIENS+5
DEFAULT	CONFIG+13
END	CONFIG+16, CONFIG+23, CONFIG+43, DEFAULT+4, DEFAULT+10, DEFAULT+15, DEFAULT+19
SPEC1	SPEC+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACCESS	APOITEMS~, APOITEMS+12*, APOITEMS+23, APORDITM~, APORDITM+1
ACTCOUNT	GETAPIENS+3~, GETAPIENS+19*, GETAPIENS+20, GETAPIENS+23, GETAPIENS+24
ACTION	APDLGS+1~, APDLGS+3, APDLGS+6, APDLGS+9, APDLGS+10, APDLGS+12, APDLGS+14, APDLGS+17, APDLGS+22, APDLGS+24 , GETAPIENS+1~, GETAPIENS+6, GETAPIENS+20, GETAPIENS+23, GETAPIENS+24, GETAPIENS+25, GETAPIENS+27, GETAPIENS+28, GETAPIENS+30, GETAPIENS+38 , GETAPIENS+39, GETAPIENS+41, GETAPIENS+43, GETAPIENS+49, GETAPIENS+52, GETAPIENS+54, GETAPIENS+55, GETAPIENS+63, GETAPIENS+64, GETAPIENS+65 , GETAPIENS+70, GETAPIENS+71, GETAPIENS+72, GETAPIENS+73, ADDACTION~, ADDACTION+1, GETATXT~, GETATXT+1, GETATXT+2, GETATXT+3 , GETATXT+4, ADDDESC~, ADDDESC+1, ADDDESC+6, ADDDESC+11, ADDDESC+18
ACTIONS	GETAPIENS+1~, GETAPIENS+6*, GETAPIENS+18, GETAPIENS+19, GETAPIENS+20, GETAPIENS+22, GETAPIENS+23, ADDACTION+2
ATXT	ADDACTION+1~*, ADDACTION+2
BLK	CONFIG+10~, CONFIG+46*
C	SPEC+7~, SPEC+12, SPEC+14
CANCOPY	GETAPIENS+3~, GETAPIENS+4*, GETAPIENS+14
CANEDIT	GETAPIENS+1~, GETAPIENS+5*, GETAPIENS+17
CHKACCESS	APOITEMS+9~, APOITEMS+12*, APOITEMS+23
CODE	APOITEMS~, APOITEMS+11*, APOITEMS+20, APOITEMS+21
CT	CONFIG+10~, CONFIG+52, CONFIG+53, CONFIG+54, CONFIG+55, SPEC1+6, SPEC1+7
CURTM	APOITEMS+9~, APOITEMS+13*, APOITEMS+27
DA	APDLGS+27~, APDLGS+28*, GETAPIENS+3~, GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60!
DES	CONFIG+10~
DES(	CONFIG+51, CONFIG+54, CONFIG+55*
DES(""	CONFIG+54
DIE	APDLGS+27~, APDLGS+28*
DIR	GETAPIENS+3~, GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60!
DIR("?"	GETAPIENS+26, ADDQ+2
DIR("A"	GETAPIENS+26, GETAPIENS+38, GETAPIENS+51, GETAPIENS+69!
DIR("B"	GETAPIENS+62*
DIR(0	GETAPIENS+22, GETAPIENS+37, GETAPIENS+48, GETAPIENS+62
DIROUT	GETAPIENS+3~, GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60!
DIRUT	GETAPIENS+3~, GETAPIENS+27, GETAPIENS+36!, GETAPIENS+39, GETAPIENS+47!, GETAPIENS+52, GETAPIENS+60!, GETAPIENS+70
DLGIEN	APDLGS+1~, APDLGS+7*, APDLGS+9, APDLGS+18, APDLGS+25
DONE	GETAPIENS+3~
DR	APDLGS+27~, APDLGS+29, APDLGS+30
DTOUT	GETAPIENS+3~, GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60!
DUOUT	GETAPIENS+3~, GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60!
EDITIDX	GETAPIENS+2~, GETAPIENS+6, GETAPIENS+41, GETAPIENS+56, GETAPIENS+57
EDITIEN	APDLGS+1~, APDLGS+8, APDLGS+9, APDLGS+23, APDLGS+25, APDLGS+26, APDLGS+28, GETAPIENS+2~, GETAPIENS+56, GETAPIENS+72 , GETAPIENS+73
EDITNAME	GETAPIENS+2~, GETAPIENS+57*, GETAPIENS+64, GETAPIENS+65
ETXT	ADDDESC+12~, ADDDESC+13, ADDDESC+14, ADDDESC+15
FDA	APDLGS+11~
FDA(	APDLGS+15, APDLGS+16, APDLGS+19, APDLGS+20
FLAG	GETAPIENS+1~, GETAPIENS+33*, GETAPIENS+34
FROM	APOITEMS+9~, APOITEMS+13, APOITEMS+15, APOITEMS+16, APOITEMS+26
HASFLAGS	GETAPIENS+1~, GETAPIENS+6, GETAPIENS+7, GETAPIENS+8, GETAPIENS+35, ADDDESC+14, ADDDESC+16
I	APOITEMS+9~, APOITEMS+13, APOITEMS+30, APOITEMS+31, APOITEMS+32, APOITEMS+33, APOITEMS+34, APDLGS+1~, APDLGS+25*
IDX	GETIEN~, GETIEN+1, SPEC1+1~, SPEC1+3, SPEC1+4, SPEC1+5, GETAPIENS+1~, GETAPIENS+7, GETAPIENS+8, GETAPIENS+23* , GETAPIENS+24, GETAPIENS+32, GETAPIENS+33, GETAPIENS+34, GETAPIENS+45, GETAPIENS+46, GETAPIENS+69*
IEN	CONFIG~, CONFIG+11, CONFIG+12, CONFIG+13, CONFIG+17, CONFIG+18, CONFIG+20, CONFIG+24, CONFIG+26, CONFIG+33 , CONFIG+34, CONFIG+35, CONFIG+38, CONFIG+44, CONFIG+45, CONFIG+46, CONFIG+47, SPEC~, SPEC+8, SPEC+9 , SPEC+10, SPEC+11, SPEC+13, SPEC+14, SPEC1+2, SPEC1+3, VWL+2, EXT+2, EXT+3, APOITEMS+9~ , APOITEMS+16*, APOITEMS+17, APOITEMS+18, APOITEMS+24, APOITEMS+26, APOITEMS+29, APOITEMS+31, APOITEMS+32, APDLGS+11~
IEN(1	APDLGS+22, APDLGS+23
IENS	VWL~, VWL+2, EXT+2, EXT+3
INACTIVE	APOITEMS+9~, APOITEMS+19*, APOITEMS+22, APOITEMS+34
INDEX	GETAPIENS+1~, GETAPIENS+22, ADDQ+1, ADDQ+2
ITEM	GETAPIENS+1~, GETAPIENS+33*, GETAPIENS+34
L	CONFIG+10~, CONFIG+26*, CONFIG+27, CONFIG+28
LABIEN	APOITEMS+9~, APOITEMS+18, APOITEMS+19, APOITEMS+20, APOITEMS+21, APOITEMS+33, OK4CPRS+2~, OK4CPRS+10, OK4CPRS+11
LABTEST	OK4CPRS+2~, OK4CPRS+4, OK4CPRS+5, OK4CPRS+6, OK4CPRS+7
LRCODE	APOITEMS+9~, APOITEMS+23, APOITEMS+24, APOITEMS+25
MAX	GETAPIENS+1~, GETAPIENS+5*, GETAPIENS+16, GETAPIENS+37, GETAPIENS+38
MSG	APDLGS+11~, APDLGS+22, GETAPIENS+2~
NAME	OK4CPRS+2~, OK4CPRS+12, OK4CPRS+13, APDLGS+1~, APDLGS+13, APDLGS+14, APDLGS+15
NATFLAG	APOITEMS~, APOITEMS+11, APOITEMS+33, GETAPIENS+2~, GETAPIENS+72, GETAPIENS+73
NATSTAND	APDLGS+1~, APDLGS+7*, APDLGS+29
ND0	VWL~, VWL+2, VWL+3, EXT+2, EXT+3
ND1	VWL~, VWL+2, EXT+2, EXT+3
NEWIDX	GETAPIENS+2~, GETAPIENS+6, GETAPIENS+54, GETAPIENS+58, GETAPIENS+59
NEWIEN	GETAPIENS+2~, GETAPIENS+58*, GETAPIENS+73
NEWNAME	GETAPIENS+2~, GETAPIENS+59*, GETAPIENS+63, GETAPIENS+64
NM	NRQ~, NRQ+1, NRQ+2
OD	CONFIG+10~, CONFIG+17*, CONFIG+18
OIIEN	APDLGS+1~, APDLGS+7*, APDLGS+12, APDLGS+13, APDLGS+15
OILIST	GETAPIENS+1~, GETAPIENS+5
OILIST(	GETAPIENS+7, GETAPIENS+8, GETAPIENS+32, GETAPIENS+33, GETAPIENS+40, GETAPIENS+56, GETAPIENS+57
OILIST(9999999	GETAPIENS+5
OK	OK4CPRS+2~, OK4CPRS+3, OK4CPRS+7, OK4CPRS+8, OK4CPRS+9, OK4CPRS+15, OK4CPRS+16
ORAPDLGEDIT	APDLGS+1~, APDLGS+2*
ORDITEM	OK4CPRS~, OK4CPRS+4, OK4CPRS+10, OK4CPRS+12, OK4CPRS+13
ORLABOK	APOITEMS+9~
ORLRFILTER	APOITEMS+10~, APOITEMS+14*, APOITEMS+29
OROUT	SPEC1+1~, SPEC1+5
OROUT("Specimens"	SPEC1+5, SPEC1+6, SPEC1+7
ORTESTIEN	APOITEMS+9~
PC	EXT~, EXT+1, EXT+3
PG	CONFIG+10~, CONFIG+24*, CONFIG+25, CONFIG+26, CONFIG+28, CONFIG+33, CONFIG+34, CONFIG+35, CONFIG+36, CONFIG+37 , CONFIG+38
POS	CONFIG+10~
POS(	CONFIG+48*, CONFIG+52, CONFIG+53
PREFIX	ADD~, ADD+3
QOCALL	APOITEMS~, APOITEMS+11*, APOITEMS+28, APORDITM~, APORDITM+1
QUICK	OK4CPRS~, OK4CPRS+8
RESPONSE	APDLGS+1~, APDLGS+5*, APDLGS+6, APDLGS+7
RESULT	ADD+1~, ADD+2, ADD+3, ADD+4*, ADD+5
RET	CONFIG~, CONFIG+11, CONFIG+18, CONFIG+20, CONFIG+28, CONFIG+36, CONFIG+37, CONFIG+38, CONFIG+44, CONFIG+47 , CONFIG+48, CONFIG+49, CONFIG+51, CONFIG+54, DEFAULT+5, DEFAULT+6, DEFAULT+7, DEFAULT+11, DEFAULT+12, DEFAULT+13 , DEFAULT+14, DEFAULT+16, DEFAULT+20, SPEC~, SPEC+8*, SPEC+10, SPEC+12, SPEC+14, SPEC1+7, END+1 , END+2
RQ	NRQ~, NRQ+1
SHOWALL	APOITEMS~, APOITEMS+11*, APOITEMS+22, APOITEMS+34
SP	CONFIG+10~, CONFIG+43, CONFIG+44, CONFIG+45, CONFIG+46, CONFIG+47, CONFIG+49, SPEC+7~, SPEC+13, SPEC+14
SPB	CONFIG+10~, CONFIG+46, CONFIG+47, CONFIG+48, CONFIG+49, CONFIG+53, CONFIG+54
STR	VWL+1~, VWL+3*, VWL+4
TEXT	ADD~, ADD+2, ADD+3, ADD+5*, ADDQ~, ADDQ+2
TEXT2	ADD~, ADD+4
TXT	GETAPIENS+2~, GETAPIENS+22, GETAPIENS+24, GETAPIENS+26, GETAPIENS+49, GETAPIENS+50, GETAPIENS+51, GETAPIENS+62, GETAPIENS+63, GETAPIENS+64 , GETAPIENS+65, GETAPIENS+66, GETAPIENS+67, GETAPIENS+68
TYP	CONFIG~, CONFIG+12, CONFIG+13, CONFIG+16, CONFIG+20, CONFIG+23, CONFIG+25, CONFIG+28, CONFIG+43, DEFAULT~ , DEFAULT+4, DEFAULT+10, DEFAULT+15, DEFAULT+16, DEFAULT+19, DEFAULT+20
U	CONFIG+27, CONFIG+28, CONFIG+33, CONFIG+36, CONFIG+37, CONFIG+38, CONFIG+44, CONFIG+47, CONFIG+48, CONFIG+49 , CONFIG+51, CONFIG+54, SPEC+10, SPEC+11, SPEC+14, SPEC1+3, EXT+3, APOITEMS+19, APOITEMS+23, APOITEMS+24 , APOITEMS+27, APOITEMS+28, APOITEMS+31, APOITEMS+32, APOITEMS+33, APOITEMS+34, OK4CPRS+4, OK4CPRS+11, OK4CPRS+12, OK4CPRS+14 , APDLGS+6, APDLGS+7, APDLGS+10, APDLGS+13, APDLGS+19, APDLGS+20, GETAPIENS+8, GETAPIENS+30, GETAPIENS+33, GETAPIENS+34 , GETAPIENS+40, GETAPIENS+43, GETAPIENS+46, GETAPIENS+53, GETAPIENS+56, GETAPIENS+57, GETAPIENS+58, GETAPIENS+59, GETAPIENS+72, GETAPIENS+73
UMAX	GETAPIENS+1~, GETAPIENS+4*, GETAPIENS+48, GETAPIENS+51
UNASSIGNED	GETAPIENS+3~, GETAPIENS+4
UNASSIGNED(	GETAPIENS+45, GETAPIENS+46, GETAPIENS+53, GETAPIENS+58, GETAPIENS+59
UNASSIGNED(9999999	GETAPIENS+4
V	VWL+1~, VWL+2*, EXT+2
VI	EXT+2~*, EXT+3
W	CONFIG+10~, CONFIG+34*, CONFIG+35, CONFIG+36, CONFIG+37
WL	CONFIG+10~, CONFIG+35*, CONFIG+36
X	APOITEMS+9~, APOITEMS+26, APOITEMS+27, APOITEMS+28, APOITEMS+31, APOITEMS+32, OK4CPRS+2~, OK4CPRS+13, OK4CPRS+14, GETAPIENS+3~ , GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60!
X0	APDLGS+1~, APDLGS+18*, APDLGS+19, APDLGS+20
XREF	APOITEMS+9~, APOITEMS+13*, APOITEMS+15, APOITEMS+16, APOITEMS+26, APOITEMS+29
Y	APOITEMS~, APORDITM~, APORDITM+1, GETAPIENS+3~, GETAPIENS+27, GETAPIENS+36!, GETAPIENS+40, GETAPIENS+41, GETAPIENS+47!, GETAPIENS+53 , GETAPIENS+54, GETAPIENS+60!, GETAPIENS+71
Y(	APOITEMS+31, APOITEMS+32, APOITEMS+33, APOITEMS+34

Customize PDF page

Package: Order Entry Results Reporting