Routine: SDPCE

Package	Total	Call Graph
PCE Patient Care Encounter	3	$$SWITCHCK^PXAPI ENCEVENT^PXKENC ($$HISTORIC,$$PKGON)^VSIT
Scheduling	3	$$EN^SDAPI (ELIG,TYPE)^SDM4 BULL^SDPCE2
Kernel	1	(T0,T1)^%ZOSV

Package	Total	Caller Graph
PCE Patient Care Encounter	6	PXBAPI1 PXBGVST PXCEHLOC PXCEPAT PXCEVSIT PXQGVST
Scheduling	3	SCENIA2 SDCO1 SDCO3
Clinical Reminders	1	PXRMVSIT
Clinical Scheduling for Windows	1	BSDX25A

Entry Points

Name	Comments	DBIA/ICR reference
STATUS(SDVSIT)	; Return status of an encounter ; Input: SDOE = Visit File IEN ; Output: Status of the encounter Internal IEN^External Value	ICR #2026 Status: Retired Usage: Private ICR #4850 Status: Active Usage: Controlled Subscription
PAT(SDVSIT0,DFN,SDT,SDCL)	; -- return patient/encounter data for visit
EN	; -- main entry pt for PCE event processing
CLASSAE(SDVSIT,SDEVENT)	; -- set-up classification data from visit data
STATQ
ADD(SDVSIT0,SDEVENT,SDERR)	; -- add/update encounter data
API(DFN,SDT,SDCL,SDEVENT,SDERR,SDVSIT,SDACT)	;
ELAP(DFN,SC)	; -- This function will return Elig and Appt Type data ; INPUT: DFN - Patient, SC - Clinic IEN ; OUTPUT: Elig ptr^ Elig text^ Appt Ptr^ Appt Text	ICR #2026 Status: Retired Usage: Private
CLASSVAL(Y)	; -- yes/no processing
CHANGE(SDVST)	; -- set flags for overall visit change
NEW(DATE)	;-- This function will return 1 if SD is turned on for ; Visit Tracking and optionally check if the date is past ; the cut over date for the new PCE interface. ; INPUT : DATE (Optional) Date to check for cut over. ; OUTPUT: 1 Yes, 0 No
DELAE()	; -- delete standalone encounter if no cpt, dx and providers
CLASS(SDVSIT,SDEVENT)	; -- set-up classification data from visit data
DEL(SDVSIT0,SDEVENT,SDERR)	; -- delete co info when visit delete

External References

Name	Field # of Occurrence
T0^%ZOSV	EN+3
T1^%ZOSV	EN+19
$$SWITCHCK^PXAPI	NEW+13
ENCEVENT^PXKENC	ADD+28
$$EN^SDAPI	API+2
ELIG^SDM4	ELAP+10
TYPE^SDM4	ELAP+7
BULL^SDPCE2	API+9
$$HISTORIC^VSIT	EN+9
$$PKGON^VSIT	NEW+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8 - [#8]	ELAP+13
^DPT - [#2]	ADD+20
^SCE - [#409.68]	ADD+6, ADD+7, STATUS+6
^SCE("AVSIT"	ADD+6, STATUS+5
^SD(409.1 - [#409.1]	ELAP+13
^SD(409.63 - [#409.63]	STATUS+7
^TMP("PXKCO"	EN+8, EN+10, ADD+13, API+5, API+6, CLASS+2, CHANGE+9, CHANGE+13, CHANGE+17
^TMP("PXKENC"	ADD+37!, DELAE+3, DELAE+7!, CLASSAE+2
^VA(200 - [#200]	ADD+31

Label References

Name	Line Occurrences
$$CHANGE	ADD+33
$$CLASSVAL	CLASS+7, CLASS+9, CLASSAE+7, CLASSAE+9
$$DELAE	ADD+26
ADD	EN+13
API	ADD+36, DEL+6, DELAE+6
CLASS	ADD+32
CLASSAE	ADD+34
DEL	EN+16
PAT	ADD+3, DEL+3

Naked Globals

Name	Field # of Occurrence
^("AFTER"	CHANGE+9, CHANGE+13, CHANGE+17
^("BEFORE"	EN+10, CLASS+2, CLASSAE+2
^("POV"	DELAE+3
^("PRV"	DELAE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLASS	CLASS+1~, CLASS+5, CLASS+7, CLASS+9, CLASS+11, CLASSAE+1~, CLASSAE+5, CLASSAE+7, CLASSAE+9, CLASSAE+11
DATE	NEW~, NEW+9*, NEW+13
DFN	ADD+1~, ADD+3, ADD+20, ADD+36, DEL+1~, DEL+3, DEL+6, DELAE+6, API~, API+2 , API+9, PAT~, PAT+1*, ELAP~
DT	NEW+9
DUZ	ADD+31
SC	ELAP~
SD800A	CLASS+1~, CLASS+2, CLASS+5, CLASSAE+1~, CLASSAE+2, CLASSAE+5
SD800B	CLASS+1~, CLASS+2, CLASS+5, CLASSAE+1~, CLASSAE+2, CLASSAE+5
SDA	CLASS+1~, CLASS+5, CLASS+7, CLASS+9, CLASS+11, CLASSAE+1~, CLASSAE+5, CLASSAE+7, CLASSAE+9, CLASSAE+11
SDACT	API~, API+9
SDAMBAE	ELAP+4~, ELAP+5*
SDAPTYP	ELAP+4~, ELAP+10, ELAP+13
SDATD	ELAP+4~
SDB	CLASS+1~, CLASS+5, CLASS+7, CLASS+9, CLASS+11, CLASSAE+1~, CLASSAE+5, CLASSAE+7, CLASSAE+9, CLASSAE+11
SDCL	ADD+1~, ADD+3, ADD+20, ADD+36, DEL+1~, DEL+3, DEL+6, DELAE+6, API~, API+2 , API+9, PAT~, PAT+1*
SDCLST	EN+5~
SDCS	EN+5~
SDDECOD	ELAP+4~, ELAP+10
SDDEL	DELAE+1~, DELAE+2, DELAE+8, DELAE+9
SDDIS	ADD+1~, ADD+6, ADD+7, ADD+23
SDEC	ELAP+4~
SDELAP	EN+5~, ADD+1~, ADD+13*, ADD+14
SDEMP	ELAP+4~, ELAP+8, ELAP+10, ELAP+11*, ELAP+13
SDERR	EN+5~, EN+13, EN+16, ADD~, ADD+36, DEL~, DEL+6, DELAE+6, API~, API+2 , API+9
SDEVENT	EN+5~, EN+6*, EN+13, EN+16, ADD~, ADD+10, ADD+14, ADD+17, ADD+21, ADD+24 , ADD+27, ADD+31, ADD+32, ADD+33, ADD+34, ADD+36, DEL~, DEL+4, DEL+5, DEL+6 , DELAE+4, DELAE+5, DELAE+6, API~, API+2, API+9, CLASS~, CLASS+7, CLASS+9, CLASS+11 , CLASSAE~, CLASSAE+7, CLASSAE+9, CLASSAE+11
SDEXT	STATUS+4~, STATUS+7*, STATQ
SDFLAGS	CHANGE+1~, CHANGE+5, CHANGE+9, CHANGE+13, CHANGE+17, CHANGE+19
SDI	CLASS+1~, CLASS+4, CLASS+5, CLASSAE+1~, CLASSAE+4, CLASSAE+5, CHANGE+1~, CHANGE+8, CHANGE+9, CHANGE+12* , CHANGE+13, CHANGE+16, CHANGE+17*
SDINT	STATUS+4~, STATUS+6*, STATUS+7, STATQ
SDOE	ADD+1~, ADD+6, STATUS+4~, STATUS+5, STATUS+6
>> SDOEP	ADD+7
SDPCNT	EN+5~
SDPVSIT	ADD+1~, ADD+28*, ADD+34
SDRES	NEW+8~, NEW+11, NEW+15, NEW+16
SDRESULT	ADD+1~
SDRET	API+1~, API+2*
SDSOR	API+1~, API+5*, API+6
SDT	ADD+1~, ADD+3, ADD+20, ADD+36, DEL+1~, DEL+3, DEL+6, DELAE+6, API~, API+2 , API+9, PAT~, PAT+1*
SDTYPE	ADD+1~
SDVDT	EN+5~
SDVSIT	EN+5~, ADD+4, ADD+6, ADD+28, ADD+32, ADD+36, DEL+2, DEL+6, DELAE+3, DELAE+6 , API~, API+2, API+5, API+6, API+9, CLASS~, CLASS+2, CLASSAE~, CLASSAE+2, STATUS~ , STATUS+5
SDVSIT("AFTER"	EN+10*, EN+13, EN+16, ADD+3, ADD+4, ADD+10, ADD+17, DEL+2
SDVSIT("BEFORE"	EN+10*, EN+13, EN+16, DEL+3, DEL+4, DELAE+4
SDVSIT0	EN+5~, EN+6, EN+8, EN+9, EN+10, EN+13, EN+16, ADD~, ADD+4, ADD+13 , ADD+33, DEL~, DEL+2, PAT~, PAT+1
SDVST	CHANGE~, CHANGE+9, CHANGE+13, CHANGE+17
SDX	NEW+8~, NEW+13*, NEW+15
SDY	NEW+8~, NEW+11*, NEW+15
U	ADD+4, ADD+6, ADD+7, ADD+10, ADD+14, ADD+17, DEL+2, DEL+4, DELAE+4, API+6 , PAT+1, CLASS+5, CLASSAE+5, ELAP+13, STATUS+6, STATUS+7, CHANGE+9, CHANGE+13, CHANGE+17
VADM	ELAP+4~
VAEL	ELAP+4~
VAEL(1	ELAP+10, ELAP+11
X	ELAP+4~
>> XRT0	EN+19
>> XRTL	EN+3
>> XRTN	EN+19*
Y	CLASSVAL~, CLASSVAL+1, ELAP+4~

Marked Items

Name	Field # of Occurrence
$T(	EN+19

Customize PDF page

Package: Scheduling

Routine: SDPCE

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items