Routine: PXCESDAM

Information

PXCESDAM ;ISL/dee,ALB/Zoltan - PCE List Manager display of appointments ;11/20/98

Package	Total	Call Graph
PCE Patient Care Encounter	9	EN^PXCEAE (EN,SEC)^PXCEEXP WAIT^PXCEHELP MAKELIST^PXCENEW (PATINFO,PATKILL)^PXCEPAT INTSDAM1^PXCESDA1 INTSDAM3^PXCESDA3 EN^PXCEVFIL $$APPT2VST^PXUTL1
List Manager	3	EN^VALM FULL^VALM1 CLEAN^VALM10
Registration	1	SDA^VADPT
VA FileMan	1	^DIR

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: 9

Package	Total	Caller Graph
PCE Patient Care Encounter	8	PXCE PXCE SDAM LIST MENU PXCE SDAM MENU PXCE SDAM UPDATE ENCOUNTER PXCE SDAM VIEW ONLY PXCEAE PXCEEXP PXCEINTR
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
SDAM	;MJK/ALB - Appt Mgt ; 12/1/91
EN	; -- main entry point
INIT	; -- set up appt man vars
FNL	; -- what to do after action
EXIT	; -- exit action for protocol
EXPND	; -- expand code
SEL	;
SELQ
SELAPPM()	;
SELSDAM	; -- select processing
APPCHECK(PXCEVIEN,PXCEHLOC,PXCEAPDT,PXCEPAT)	; Pass in PXCEVIEN and kills it if should not be selected.
CANCEL(PXHL,PXDT,PXDFN)	; True if the appointment is cancelled or no-showed.

External References

Name	Field # of Occurrence
^DIR	SELSDAM+8, APPCHECK+23, APPCHECK+46
EN^PXCEAE	SEL+15
EN^PXCEEXP	EXPND+1
SEC^PXCEEXP	SEL+9
WAIT^PXCEHELP	SELAPPM+6, SELSDAM+6, SELSDAM+15, APPCHECK+14, APPCHECK+31
MAKELIST^PXCENEW	EN+3
PATINFO^PXCEPAT	SELAPPM+13
PATKILL^PXCEPAT	EXIT+1
INTSDAM1^PXCESDA1	INIT+3
INTSDAM3^PXCESDA3	INIT+4
EN^PXCEVFIL	SEL+14
$$APPT2VST^PXUTL1	SELAPPM+17
SDA^VADPT	APPCHECK+8
EN^VALM	EN+2
FULL^VALM1	EN+1, SELAPPM+7
CLEAN^VALM10	FNL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Security regulations prohibit computer access to your own medical record." Line Location: SEL+10
Function Call: WRITE	Prompt: !!,$C(7),"Can not update future encounters." Line Location: SELAPPM+5
Function Call: WRITE	Prompt: !!,$C(7),"There are no '",VALM("ENTITY"),"s' to select.",! Line Location: SELSDAM+6
Function Call: WRITE	Prompt: !,$C(7),"PCE has no data related to this appointment." Line Location: APPCHECK+11
Function Call: WRITE	Prompt: !,"You cannot add data for an appointment that has a status of ",$P(^UTILITY("VASD",$J,1,"E"),"^",3) Line Location: APPCHECK+12
Function Call: WRITE	Prompt: !,$C(7),"Appointment has a status of ",$P(^UTILITY("VASD",$J,1,"E"),"^",3) Line Location: APPCHECK+17
Function Call: WRITE	Prompt: !,$C(7),"Appointment has a status of ",$P(^UTILITY("VASD",$J,1,"E"),"^",3) Line Location: APPCHECK+26
Function Call: WRITE	Prompt: !,"WARNING: Data stored in PCE related to this appointment" Line Location: APPCHECK+27
Function Call: WRITE	Prompt: !," will NOT be used for Workload or Billing. This is a bad encounter" Line Location: APPCHECK+28
Function Call: WRITE	Prompt: !,"You must use a PCE Superviser option to access the encounter." Line Location: APPCHECK+29
Function Call: WRITE	Prompt: $C(7) Line Location: APPCHECK+39
Routine Call	DIR Line Location: SELSDAM+8 APPCHECK+23 APPCHECK+46
Routine Call	VALM Line Location: EN+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	APPCHECK+5, APPCHECK+7, APPCHECK+37
^DPT - [#2]	CANCEL+3, CANCEL+4
^TMP("SDAM"	FNL+2!
^TMP("SDAMIDX"	FNL+2!, SELAPPM+4, SELAPPM+12, SELAPPM+13, SELAPPM+14
^TMP("VALMIDX"	FNL+2!
^UTILITY("VASD"	SELQ!, APPCHECK+9, APPCHECK+12, APPCHECK+17, APPCHECK+26

Label References

Name	Line Occurrences
$$CANCEL	APPCHECK+2
$$SELAPPM	SEL+5
APPCHECK	SEL+12
SELQ	SEL+6, SEL+10, SEL+13
SELSDAM	SELAPPM+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%B	INIT+1!
BG	SELSDAM+1~, SELSDAM+3*, SELSDAM+5, SELSDAM+8, SELSDAM+12
CANC	CANCEL+1~, CANCEL+2, CANCEL+5, CANCEL+6
DA	INIT+1!, SELSDAM+2~, APPCHECK+16~, APPCHECK+38~
DIE	INIT+1!
DIR	SELSDAM+2~, APPCHECK+16~, APPCHECK+38~
DIR("A"	SELSDAM+8, APPCHECK+18, APPCHECK+19, APPCHECK+20, APPCHECK+40, APPCHECK+41, APPCHECK+42, APPCHECK+43
DIR("B"	APPCHECK+21, APPCHECK+44
DIR(0	SELSDAM+8, APPCHECK+22, APPCHECK+45*
DIROUT	SELSDAM+2~
DIRUT	SELAPPM+13, SELSDAM+2~, SELSDAM+8
DNM	INIT+1!
DQ	INIT+1!
DR	INIT+1!
DT	SELAPPM+4
DTOUT	SELSDAM+2~
DUOUT	SELSDAM+2~
DUZ	SEL+8
I	INIT+1!
LST	SELSDAM+1~, SELSDAM+4*, SELSDAM+5, SELSDAM+6, SELSDAM+8, SELSDAM+12
PXCEAPDT	SEL+2~, SEL+12, SELAPPM+9~, SELAPPM+12, SELAPPM+17, APPCHECK~, APPCHECK+2
PXCEHLOC	SEL+4~, SEL+12, SELAPPM+11~, SELAPPM+14, SELAPPM+17, APPCHECK~, APPCHECK+2
PXCEINDX	SELAPPM+8~
>> PXCEKEYS	APPCHECK+15, APPCHECK+37
PXCEPAT	SEL+3~, SEL+12, SELAPPM+10~, SELAPPM+13, SELAPPM+17, APPCHECK~, APPCHECK+2
PXCEPAT("SSN"	SEL+8
PXCEVIEN	SEL+1~, SEL+5, SEL+6, SEL+12, SEL+13, SEL+14, SEL+15, SELAPPM+8~, SELAPPM+17, SELAPPM+18 , APPCHECK~, APPCHECK+1, APPCHECK+2!, APPCHECK+5, APPCHECK+7, APPCHECK+10, APPCHECK+13!, APPCHECK+24!, APPCHECK+30!, APPCHECK+34 , APPCHECK+37, APPCHECK+47!
>> PXCEVIEW	INIT+2*, INIT+3, INIT+4, EXIT+1
PXDFN	CANCEL~, CANCEL+3, CANCEL+4
PXDT	CANCEL~, CANCEL+3, CANCEL+4
PXDUZ	SEL+8~*, SEL+9
PXHL	CANCEL~, CANCEL+3
PXPTSSN	SEL+8~*, SEL+9
PXREC	SEL+8~, SEL+9, SEL+10
SDACNT	FNL+3!
SDAMCNT	FNL+3!
SDAMLIST	FNL+3!
SDATA	FNL+3!
SDB	INIT+1!
SDCL	FNL+3!
SDCLN	INIT+1!, FNL+3!
SDDA	FNL+3!
SDERR	SELAPPM+1~, SELAPPM+3, SELSDAM+5, SELSDAM+6, SELSDAM+8, SELSDAM+11, SELSDAM+14*
SDFLDD	FNL+3!
SDFN	INIT+1!, FNL+3!
SDPRD	FNL+3!
SDT	FNL+3!
SDW	SELAPPM+1~, SELAPPM+2, SELAPPM+3!, SELAPPM+4, SELAPPM+12, SELAPPM+13, SELAPPM+14, SELSDAM+5, SELSDAM+11*, SELSDAM+12 , SELSDAM+13
SDY	FNL+3!
STATUS	CANCEL+1~, CANCEL+4*, CANCEL+5
U	SELSDAM+7, CANCEL+4
VAERR	APPCHECK+3~
>> VALM("ENTITY"	SELSDAM+6, SELSDAM+8
>> VALMAR	SELSDAM+4
>> VALMCNT	SELSDAM+4
VALMHCNT	FNL+3!
VALMY	FNL+3!
VASD	APPCHECK+3~
VASD("C"	APPCHECK+7*
VASD("F"	APPCHECK+5*, APPCHECK+6
VASD("T"	APPCHECK+6*
VASD("W"	APPCHECK+4*
X	INIT+1!, FNL+3!
XQORNOD	INIT+1!
XQORNOD(0	SELAPPM+2, SELSDAM+7
Y	FNL+3!, SELSDAM+1~, SELSDAM+7*, SELSDAM+8, SELSDAM+11, APPCHECK+24, APPCHECK+47

Customize PDF page

Package: PCE Patient Care Encounter