Routine: XPAREDIT

Package	Total	Call Graph
Toolkit	5	(DEL,REP)^XPAR $$EXTPTR^XPARDD (BLDLST,GETCLS)^XPAREDT1 ($$ERR,EDIT1,EDITVAL,SELINST)^XPAREDT2 (TED,TEDH)^XPAREDT3
VA Fileman	1	^DIC

Package

Total

Call Graph

Toolkit

(DEL,REP)^XPAR $$EXTPTR^XPARDD (BLDLST,GETCLS)^XPAREDT1 ($$ERR,EDIT1,EDITVAL,SELINST)^XPAREDT2 (TED,TEDH)^XPAREDT3

VA Fileman

^DIC

Package	Total	Caller Graph
Order Entry Results Reporting	37	OR GN SET LOCATIONS OR INPT CLOZAPINE MESSAGE OR PARAM ADD MENU OR PARAM CHART COPY OR PARAM ORDER MISC OR PARAM PRINTS (HOSP) OR PARAM PRINTS (LOC) OR PARAM REQ/LABEL OR PARAM SERVICE COPY OR PARAM SUMMARY REPORTS OR PARAM UNSIGNED ORDERS VIEW OR PARAM WORK COPY ORB3MGR1 ORB3REC ORCMEDT5 OREV3 ORKMGR ORKREC ORLP3MGR ORLP3USR ORQ SEARCH RANGE A USER PARAM ORQ SEARCH RANGE DIVISION PAR ORQ SEARCH RANGE LOCATION PAR ORQ SEARCH RANGE SERVICE PARAM ORQ SEARCH RANGE SYSTEM PARAM ORQ SEARCH RANGE USER PARAM ORQP REPORT SYSTEM PARAM ORQP REPORT USER PARAM ORW ALLERGY EIE ORW HEALTH SUMMARY TYPES ORW NONVA REASON ORW PARAM GENERAL ALL ORW PARAM GENERAL USER ORW TOOL MENU ITEMS ORWOR EXPIRED ORDERS ORWORB REMOVE ORWORB REMOVE NON-OR
Clinical Reminders	10	PXRM CPRS COVER SHEET LIST PXRM CPRS LOOKUP CATEGORIES PXRM GEC STATUS CHECK PXRM GUI REMINDERS ACTIVE PXRM MENTAL HEALTH ACTIVE PXRM PROGRESS NOTE HEADERS PXRM REPORT TEMPLATE (USER) PXRM TIU DIALOG TEMPLATE PXRM WH PRINT NOW PXRMRPCD
PCE Patient Care Encounter	9	PXRM CPRS COVER SHEET LIST PXRM CPRS LOOKUP CATEGORIES PXRM GEC STATUS CHECK PXRM GUI REMINDERS ACTIVE PXRM MENTAL HEALTH ACTIVE PXRM PROGRESS NOTE HEADERS PXRM REPORT TEMPLATE (USER) PXRM TIU DIALOG TEMPLATE PXRM WH PRINT NOW
Lab Service	4	LR USER PARAM LR7O PAR DOMAIN LR7O PAR LOC LR7O PAR PKG
Toolkit	4	XPAREDT1 XPAREDT2 XPAREDT3 XPARLIST
Barcode Medication Administration	2	PSB TOOL MENU ITEMS PSBPAR
IHS Electronic Health Record	2	BEHORXEI BEHUTIL
Registration	2	DGLP3USR VAFCHFS
Consult Request Tracking	1	GMRC IFC PARAMETER EDIT
Electronic Dental Record	1	BADEVNT1
Health Summary	1	GMTSXA
IHS Changes To Pharmacy	1	APSPUTIL
Kernel	1	XUP522
MSC RPC Broker	1	CIANBINI
Mental Health Social Services	1	AMHUTIL1
RPC Broker	1	XWBTCP
Scheduling	1	SDSCPRM
Text Integration Utility	1	TIUSRVT4
VueCentric Framework	1	CIAVINIT

Package

Total

Caller Graph

Order Entry Results Reporting

OR GN SET LOCATIONS  OR INPT CLOZAPINE MESSAGE  OR PARAM ADD MENU  OR PARAM CHART COPY  OR PARAM ORDER MISC  OR PARAM PRINTS (HOSP)  OR PARAM PRINTS (LOC)  OR PARAM REQ/LABEL
OR PARAM SERVICE COPY  OR PARAM SUMMARY REPORTS  OR PARAM UNSIGNED ORDERS VIEW  OR PARAM WORK COPY  ORB3MGR1  ORB3REC  ORCMEDT5  OREV3
ORKMGR  ORKREC  ORLP3MGR  ORLP3USR  ORQ SEARCH RANGE A USER PARAM  ORQ SEARCH RANGE DIVISION PAR  ORQ SEARCH RANGE LOCATION PAR  ORQ SEARCH RANGE SERVICE PARAM
ORQ SEARCH RANGE SYSTEM PARAM  ORQ SEARCH RANGE USER PARAM  ORQP REPORT SYSTEM PARAM  ORQP REPORT USER PARAM  ORW ALLERGY EIE  ORW HEALTH SUMMARY TYPES  ORW NONVA REASON  ORW PARAM GENERAL ALL
ORW PARAM GENERAL USER  ORW TOOL MENU ITEMS  ORWOR EXPIRED ORDERS  ORWORB REMOVE  ORWORB REMOVE NON-OR

Clinical Reminders

PXRM CPRS COVER SHEET LIST PXRM CPRS LOOKUP CATEGORIES PXRM GEC STATUS CHECK PXRM GUI REMINDERS ACTIVE PXRM MENTAL HEALTH ACTIVE PXRM PROGRESS NOTE HEADERS PXRM REPORT TEMPLATE (USER) PXRM TIU DIALOG TEMPLATE
PXRM WH PRINT NOW PXRMRPCD

PCE Patient Care Encounter

Lab Service

LR USER PARAM LR7O PAR DOMAIN LR7O PAR LOC LR7O PAR PKG

Toolkit

XPAREDT1 XPAREDT2 XPAREDT3 XPARLIST

Barcode Medication Administration

PSB TOOL MENU ITEMS PSBPAR

IHS Electronic Health Record

BEHORXEI BEHUTIL

Registration

DGLP3USR VAFCHFS

Consult Request Tracking

GMRC IFC PARAMETER EDIT

Electronic Dental Record

BADEVNT1

Health Summary

GMTSXA

IHS Changes To Pharmacy

APSPUTIL

Kernel

XUP522

MSC RPC Broker

CIANBINI

Mental Health Social Services

AMHUTIL1

RPC Broker

XWBTCP

Scheduling

SDSCPRM

Text Integration Utility

TIUSRVT4

VueCentric Framework

CIAVINIT

Entry Points

Name	Comments	DBIA/ICR reference
EDITA	; come here from TEDIT
ENTDISP(ENT)	; function - returns text descriptor of an entity
GETENT(ENT,PAR,JUST1)	; Select entity to edit for a given parameter ; .ENT=entity, returned as variable pointer ; PAR=ien^name	ICR #2336 Status: Active Usage: Supported
EN	; Enter here to select parameter, then entity ; ENT: variable pointer to the entity selected ; PAR: IEN^NAME of the selected parameter	ICR #2336 Status: Active Usage: Supported
EDIT(ENT,PAR)	; Edit value(s) for entity/parameter	ICR #2336 Status: Active Usage: Supported
GETCLS(X,PAR,LST)	; Choose the class of entity
EDITPAR(PAR)	; Edit a single parameter ; add second parameter to limit entity type? ENTTYP ; LOC,CLS,TEA,USR,DIV,SVC call LOOKUP with appropriate FN ; PKG,SYS figure out appropriate defaults (param nmsp, domain)	ICR #2336 Status: Active Usage: Supported
DASH(N)	; function - returns N dashes
CENTER(X)	; function - writes a centered title with dashes on either side
LOOKUP(X,FN)	; Lookup entry in a file and return selection as varptr ; if X has data, pass that into lookup silently
TEDH(TLT,SHWFLG,ALLENT)	; Edit parameters using a template, show dash headers	ICR #2336 Status: Active Usage: Supported
BLDLST(LST,PAR)	; Build list of entities allowed for this parameter	ICR #2336 Status: Active Usage: Supported
GETPAR(Y)	; Select parameter to edit	ICR #2336 Status: Active Usage: Supported
TEDIT(ENT,PAR,INST,USRX)	; Edit an instance of a parameter
TED(TLT,SHWFLG,ALLENT)	; Edit parameters using a template	ICR #2336 Status: Active Usage: Supported

External References

Name	Field # of Occurrence
^DIC	GETPAR+4, LOOKUP+5
DEL^XPAR	EDITA+8
REP^XPAR	EDITA+12
$$EXTPTR^XPARDD	ENTDISP+4
BLDLST^XPAREDT1	BLDLST+1
GETCLS^XPAREDT1	GETCLS+1
$$ERR^XPAREDT2	EDITA+9, EDITA+11
EDIT1^XPAREDT2	TEDIT+3, EDITA+13, EDITA+14
EDITVAL^XPAREDT2	EDITA+7
SELINST^XPAREDT2	EDITA+6
TED^XPAREDT3	TED+1
TEDH^XPAREDT3	TEDH+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?25,"--- Edit Parameter Values ---" Line Location: EN+3
Function Call: WRITE	Prompt: !,$$DASH($S($D(IOM):IOM-1,1:78)) Line Location: EN+5
Function Call: WRITE	Prompt: $P(PAR,U,2) Line Location: EDITPAR+7
Function Call: WRITE	Prompt: !!,$$CENTER("Setting "_$P(PAR,U,2)_" "_$$ENTDISP(ENT)) Line Location: EDITA+2
Function Call: WRITE	Prompt: !!,"For "_$P(PAR,U,2)_" -" Line Location: EDITA+4
Function Call: WRITE	Prompt: ! Line Location: EDITA+7
Function Call: WRITE	Prompt: $$ERR^XPAREDT2 Line Location: EDITA+9
Function Call: WRITE	Prompt: " ...deleted" Line Location: EDITA+10
Function Call: WRITE	Prompt: $$ERR^XPAREDT2 Line Location: EDITA+11
Function Call: WRITE	Prompt: " ",$P(INST,U,2) Line Location: EDITA+13
Routine Call	DIC Line Location: GETPAR+4 LOOKUP+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	LOOKUP+6
^TMP($J	EDITA+15!
^XTV(8989.51 - [#8989.51]	EDITPAR+5, EDITPAR+6, EDITA+3
^XTV(8989.518 - [#8989.518]	ENTDISP+3

Name	Line Occurrences
$$CENTER	EDITA+2
$$DASH	EN+5, CENTER+3
$$ENTDISP	EDITA+2
BLDLST	EN+6, GETENT+5
EDIT	EN+7, EDITPAR+9
EDITA	TEDIT+2
GETCLS	GETENT+11
GETENT	EN+7, EDITPAR+8
GETPAR	EN+5
LOOKUP	GETENT+9, GETENT+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALLENT	TED~, TEDH~
DIC	GETPAR+1~, GETPAR+2, LOOKUP+2~, LOOKUP+3
DIC("W"	GETPAR+3*
DIC(0	GETPAR+2, LOOKUP+4
DIRUT	EN+4~, TEDIT+4!, EDITA+3
DTOUT	EN+4~, TEDIT+4!, GETPAR+1~, LOOKUP+2~, LOOKUP+5
DUOUT	EN+4~, TEDIT+4!, GETPAR+1~, LOOKUP+2~, LOOKUP+5
ENT	EN+4~, EN+7, TEDIT~, EDITPAR+4~, EDITPAR+8, EDITPAR+9, GETENT~, GETENT+5, GETENT+7, GETENT+8 , GETENT+9, GETENT+12, GETENT+13, GETENT+14, GETENT+15, EDIT~, EDITA+2, EDITA+6, EDITA+8, EDITA+12 , ENTDISP~, ENTDISP+1, ENTDISP+3, ENTDISP+4
ERR	EDITA+1~, EDITA+8, EDITA+9, EDITA+11, EDITA+12
FN	LOOKUP~, LOOKUP+3, LOOKUP+6, ENTDISP+2~, ENTDISP+3*, ENTDISP+4
I	GETENT+3~, CENTER+1~, DASH+1~, DASH+2*
INST	TEDIT~, TEDIT+2, EDIT+1~, EDITA+3, EDITA+6, EDITA+7, EDITA+8, EDITA+11, EDITA+12, EDITA+13 , EDITA+14
INSTLST	EDITA+1~
IOM	EN+5, CENTER+2
JUST1	EN+4~, EN+7, GETENT~, GETENT+4, GETENT+8
LST	EN+4~, EN+6, GETENT+3~, GETENT+5, GETENT+6, GETENT+11, BLDLST~, GETCLS~
LST(	GETENT+7, GETENT+14, GETENT+15
LST(0	GETENT+7
MAR	CENTER+1~, CENTER+2*, CENTER+3
N	DASH~, DASH+2
>> NOHDR	EDITA+2, EDITA+4
PAR	EN+4~, EN+5, EN+6, EN+7, TEDIT~, EDITPAR~, EDITPAR+5, EDITPAR+6, EDITPAR+8, EDITPAR+9 , GETENT~, GETENT+5, GETENT+11, EDIT~, EDITA+2, EDITA+3, EDITA+4, EDITA+6, EDITA+7, EDITA+8 , EDITA+12, BLDLST~, GETCLS~
SHWFLG	TED~, TEDH~
TLT	TED~, TEDH~
U	TEDIT+4, EDITPAR+6, GETENT+7, GETENT+14, EDITA+2, EDITA+3, EDITA+4, EDITA+7, EDITA+8, EDITA+11 , EDITA+12, EDITA+13, ENTDISP+3
USRX	TEDIT~, TEDIT+2, TEDIT+3, TEDIT+4
X	GETPAR+1~, GETENT+3~, GETENT+7, GETENT+9, GETENT+11, GETENT+12, GETENT+13, GETENT+14, GETENT+15, EDIT+1~ , GETCLS~, LOOKUP~, LOOKUP+4, LOOKUP+5, LOOKUP+6, ENTDISP+2~, ENTDISP+3, ENTDISP+4, ENTDISP+5, CENTER~ , CENTER+2, CENTER+3, DASH+1~, DASH+2, DASH+3
Y	TEDIT+1!, GETPAR~, GETPAR+4, EDIT+1~, EDITA+6, EDITA+7*, EDITA+8, EDITA+11, EDITA+12, LOOKUP+5 , LOOKUP+6
Y("X"	TEDIT+2, TEDIT+3

Customize PDF page

Package: Toolkit

Routine: XPAREDIT

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 81

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: