Routine: PXBAPI2

Information

PXBAPI2 ;ISL/DCM - API for check-out d/t ;7/10/96

Source file <PXBAPI2.m>

Package	Total	Call Graph
VA Fileman	2	YN^DICN ^DIR
PCE Patient Care Encounter	1	PAUSE^PXCEHELP

Package	Total	Caller Graph
PCE Patient Care Encounter	2	PXBAPI1 PXCEVSIT

Name	Comments	DBIA/ICR reference
TEST	;Test call to CHIKOUT
ON	;
READ(TYPE,PROMPT,DEFAULT,HELP)	; Calls reader, returns response
CHIKOUT(ENCOWNTR,DFN,LOC,APTDT)	;Edit check-out date/time ; Input - ENCOWNTR - ien of ^SCE(DA,0) ; ENCOWNTR optional if DFN,LOC,APTDT params used ; DFN - ien of ^DPT(DFN, (only used if no ENCOWNTR) ; LOC - ien of ^SC(LOC, (only used if no ENCOWNTR) ; APTDT - Appointment Date/time (only used if no ENCOWNTR) ; Output - PXCHKOUT = Check out Date/time (-1 if not found or allowed) ; External References: ^SCE(DA,0) ; ^SC(DA(2),"S",DA(1),1,DA,"C") ; ^SC(DA,0)
AGN

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),">>> Only appointments have a check out date to edit." Line Location: CHIKOUT+13
Function Call: WRITE	Prompt: !!,$C(7),">>> No check out date for this appointment." Line Location: CHIKOUT+14
Function Call: WRITE	Prompt: !!,"Check out dates for future appointments not allowed.",!,$C(7) Line Location: ON+1
Function Call: WRITE	Prompt: !!,"Check out date cannot be in the future.",!,$C(7) Line Location: AGN+2
Function Call: WRITE	Prompt: !!,"Check in date must be before Check out date.",!,$C(7) Line Location: AGN+3
Routine Call	DIR Line Location: READ+4

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ON+4
^DPT - [#2]	TEST+2
^SC - [#44]	CHIKOUT+14, CHIKOUT+15, CHIKOUT+16, ON+2
^SCE - [#409.68]	CHIKOUT+11, TEST+2

Name	Field # of Occurrence
^(	CHIKOUT+16, TEST+2
^(0	CHIKOUT+11

Name	Field # of Occurrence
>> %	TEST+2*
APTDT	CHIKOUT~, CHIKOUT+11~, CHIKOUT+12*, CHIKOUT+14, CHIKOUT+15, CHIKOUT+16, ON+1, ON+2
DA	CHIKOUT+10~, CHIKOUT+12, CHIKOUT+14, CHIKOUT+16, CHIKOUT+17, ON+2, READ+1~
DEF	CHIKOUT+10~, ON+2, ON+4, ON+5*, AGN
DEFAULT	READ~, READ+2
DEFX	CHIKOUT+10~, ON+2*
DFN	CHIKOUT~, CHIKOUT+11~, CHIKOUT+12, CHIKOUT+15, CHIKOUT+16, TEST+2
DIR	READ+1~
DIR("?"	READ+3*
DIR("A"	READ+2*
DIR("B"	READ+2*
DIR(0	READ+2*
DIROUT	CHIKOUT+10~
DIRUT	CHIKOUT+10~
DT	ON+1, AGN+2
DTOUT	CHIKOUT+10~
DUOUT	CHIKOUT+10~
ENCOWNTR	CHIKOUT~, CHIKOUT+11
END	CHIKOUT+11~, CHIKOUT+13, CHIKOUT+14*
HELP	READ~, READ+3
I	CHIKOUT+10~, CHIKOUT+16*
>> IDT	ON+2*
LOC	CHIKOUT~, CHIKOUT+11~, CHIKOUT+12*, CHIKOUT+14, CHIKOUT+15, CHIKOUT+16, ON+2
ORG	CHIKOUT+10~, CHIKOUT+12*, CHIKOUT+13
PROMPT	READ~, READ+2
PXCHKOUT	CHIKOUT+10, AGN, AGN+1*, AGN+2, AGN+3, TEST+2!
PXIFN	TEST+1~, TEST+2
TYPE	READ~, READ+2
X	READ+1~
X0	CHIKOUT+10~, CHIKOUT+11*, CHIKOUT+12
XC	CHIKOUT+10~, ON+2*, AGN+3
Y	ON+4*, READ+1~, READ+5