Routine: PXCESDAM

Information

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

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.

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