Routine: PXUTL1

Information

PXUTL1 ;ISL/dee - Utility routines used by PCE ;4/3/97

Source file <PXUTL1.m>

Package	Total	Call Graph
VA Fileman	1	EN^DIQ1

Package	Total	Caller Graph
PCE Patient Care Encounter	20	PXAICPT PXAIPOV PXAPI PXBAPI1 PXBGPOV PXBGVST PXBPPOV PXBSTOR PXCA0 PXCEHLOC PXCEINTR PXCEPAT PXCEPOV1 PXCEPRV PXCESDAM PXCEVFI5 PXCEVFIL PXCEVSIT PXQGVST PXUTLVST
Scheduling	3	SDSCAPI SDSCNSCP SDSCOMP
iCare	3	BQIUL1 BQIUL2 BQIULPT
Text Integration Utility	1	TIUPXAP2

Name	Comments	DBIA/ICR reference
PRIMSEC(PXUTVST,PXUTAUPN,PXUTNODE,PXUPIECE)	;Returns ien of the primary one ; if there is one for the passed visit otherwise returns 0. ; Parameters: ; PXUTVST Pointer to the visit ; PXUTAUPN V-File global e.g. "^AUPNVPRV" ; PXUTNODE The node that the Primary/Secondary field is on ; PXUPIECE The piece of the Primary/Secondary field
APPT2VST(PXUTLPAT,PXUTLDT,HLOC)	;Returns ien of visit that the related
PRIMVPOV(PXUTVST)	;Returns the primary diagnosis if there is one ; for the passed visit otherwise returns 0.
VST2APPT(VISIT)	;Is this visit related to an appointment
PRIMVPRV(PXUTVST)	;Returns the primary provider if there is one ; for the passed visit otherwise returns 0.	ICR #4991 Status: Active Usage: Private
APPOINT(PXUTLDFN,PXUTLDT,HLOC)	;Returns 1 if the patient has and appointment	ICR #3146 Status: Active Usage: Private
VSTAPPT(PXUTLPAT,PXUTLDT,PXUTLLOC,PXUTLVST)	;Returns 1 if the visit is being pointed to by an ; appointment otherwise 0.
EXTTEXT(IEN,REQUIRED,FILE,FIELD1,FIELD2)	;Returns the external form.
DISPOSIT(PXUTLDFN,PXUTLDT,PXUTVIEN)	;Checks to see if a visit is a dispoition

Name	Field # of Occurrence
EN^DIQ1	EXTTEXT+19

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV - [#9000010.07]	PRIMVPOV+4
^AUPNVPRV - [#9000010.06]	PRIMVPRV+4
^AUPNVSIT - [#9000010]	VST2APPT+7
^DPT - [#2]	DISPOSIT+1, APPOINT+2, VSTAPPT+2, APPT2VST+2
^SCE - [#409.68]	DISPOSIT+1, VSTAPPT+2, APPT2VST+2

Name	Line Occurrences
$$PRIMSEC	PRIMVPRV+3, PRIMVPOV+3
$$VSTAPPT	VST2APPT+9

Name	Field # of Occurrence
DA	EXTTEXT+11~, EXTTEXT+16*, EXTTEXT+20, EXTTEXT+21
DIC	EXTTEXT+11~, EXTTEXT+13*
DIQ	EXTTEXT+11~, EXTTEXT+17*
DIQ(0	EXTTEXT+18*
DR	EXTTEXT+11~, EXTTEXT+14, EXTTEXT+15
FIELD1	EXTTEXT~, EXTTEXT+12, EXTTEXT+14, EXTTEXT+20
FIELD2	EXTTEXT~, EXTTEXT+15, EXTTEXT+21
FILE	EXTTEXT~, EXTTEXT+12, EXTTEXT+13, EXTTEXT+20, EXTTEXT+21
HLOC	APPOINT~, APPOINT+2, APPT2VST~, APPT2VST+2
IEN	EXTTEXT~, EXTTEXT+16
PXCATEMP	PRIMVPRV+2~, PRIMVPRV+3, PRIMVPRV+4, PRIMVPOV+2~, PRIMVPOV+3, PRIMVPOV+4
PXTEXT	EXTTEXT+11~, EXTTEXT+20, EXTTEXT+21, EXTTEXT+22, EXTTEXT+23, EXTTEXT+24
PXUPIECE	PRIMSEC~, PRIMSEC+10
PXUTAUPN	PRIMSEC~, PRIMSEC+10
PXUTDIQ1	EXTTEXT+11~
PXUTDIQ1(	EXTTEXT+20, EXTTEXT+21
PXUTLDFN	DISPOSIT~, DISPOSIT+1, APPOINT~, APPOINT+2
PXUTLDT	DISPOSIT~, DISPOSIT+1, APPOINT~, APPOINT+2, VSTAPPT~, VSTAPPT+2, APPT2VST~, APPT2VST+2
PXUTLLOC	VSTAPPT~, VSTAPPT+2
PXUTLPAT	VSTAPPT~, VSTAPPT+2, APPT2VST~, APPT2VST+2
PXUTLVST	VSTAPPT~, VSTAPPT+2
PXUTNODE	PRIMSEC~
PXUTPRIM	PRIMSEC+8~, PRIMSEC+9, PRIMSEC+10, PRIMSEC+11
PXUTVIEN	DISPOSIT~, DISPOSIT+1
PXUTVST	PRIMVPRV~, PRIMVPRV+3, PRIMVPOV~, PRIMVPOV+3, PRIMSEC~
REQUIRED	EXTTEXT~, EXTTEXT+22, EXTTEXT+23
VISIT	VST2APPT~, VST2APPT+7, VST2APPT+9
VISIT0	VST2APPT+6~, VST2APPT+7*, VST2APPT+8, VST2APPT+9
X	EXTTEXT+11~
Y	EXTTEXT+11~