Routine: BSDAPI3

Information

BSDAPI3 ; IHS/ITSC/LJF - ATTACH ANCILLARY ITEM TO APPT/VISIT;

Source file <BSDAPI3.m>

Name	Comments	DBIA/ICR reference
EN(DFN,BSDCLD,BSDREAS,BSDITEM)	;PEP; ; CALLED BY ANICLLARY PACKAGES (LAB, RAD, PHR) ; Used in INTERACTIVE MODE to select an appt to attach ordered items ; If appt is already checked in, returns visit IEN ; If not, proceeds to check patient in and create visit ; If patient has more than one appt, list is displayed ; There will always be a final choice of adding an walkin appt/visit ; to the ancillary service
CHECKIN(CLN,APPT,OI)	; checkin appt OR create walkin for default clinic
CHOOSE	; Otherwise, display list of appts so user can select one
STATUS(D0,D1)	; return appt's current status ; Call to SDAMU requries D0 and D1 set, returns X

Name	Field # of Occurrence
$$READ^BDGF	CHOOSE+9
GETVISIT^BSDAPI4	CHECKIN+16
$$GETVST^BSDU2	CHOOSE+17
$$GET1^DIQ	EN+24, EN+29, CHOOSE+5, CHOOSE+21, CHECKIN+8, CHECKIN+12, CHECKIN+14
CURRENT^SDAMU	STATUS+2
$$FMADD^XLFDT	EN+30
$$FMTE^XLFDT	CHOOSE+4
$$NOW^XLFDT	EN+41, CHOOSE+13, CHECKIN+7

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Attaching "_BSDITEM_" to an Appointment and PCC Visit . . ." Line Location: EN+27
Function Call: WRITE	Prompt: !!,"No Appts Today for Patient; Adding Walk-in Appt to "_BSDCLDN Line Location: EN+40
Function Call: WRITE	Prompt: ! Line Location: CHOOSE+1
Function Call: WRITE	Prompt: !,$J(COUNT,3),?5,$$FMTE^XLFDT(+APPT) Line Location: CHOOSE+4
Function Call: WRITE	Prompt: ?20,$E($$GET1^DIQ(44,$P(APPT,U,2),.01),1,25),?50,$P(APPT,U,3) Line Location: CHOOSE+5
Function Call: WRITE	Prompt: !,$J(COUNT+1,3),?5,"Add walk-in appointment to "_BSDCLDN Line Location: CHOOSE+8
Function Call: WRITE	Prompt: !!,"You MUST select one from the list!" Line Location: CHOOSE+10
Function Call: WRITE	Prompt: !!,"Adding Walk-in Appt and Visit to "_BSDCLDN Line Location: CHOOSE+13
Function Call: WRITE	Prompt: !!,"PCC Visit found for checked in appointment." Line Location: CHOOSE+18
Function Call: WRITE	Prompt: !!,"Checking in patient to appointment in "_$$GET1^DIQ(44,$P(APPT,U,2),.01) Line Location: CHOOSE+21

Name	Field # of Occurrence
APPT	EN+28~, EN+33, EN+35, CHOOSE+1~, CHOOSE+3, CHOOSE+4, CHOOSE+5, CHOOSE+16*, CHOOSE+17, CHOOSE+21 , CHOOSE+22, CHECKIN~, CHECKIN+3
BSDAR	CHECKIN+1~, CHECKIN+16
BSDAR("APPT D	ATE" , CHECKIN+3*
BSDAR("FORCE	ADD" , CHECKIN+10*
BSDAR("HOS LO	C" , CHECKIN+2*
BSDAR("LEN"	CHECKIN+8*
BSDAR("OI"	CHECKIN+4*
BSDAR("OPT"	CHECKIN+11*
BSDAR("PAT"	CHECKIN+6*
BSDAR("SITE"	CHECKIN+12*
BSDAR("SRV CA	T" , CHECKIN+13*
BSDAR("USR"	CHECKIN+9*
BSDAR("VISIT	DATE" , CHECKIN+7, TYPE" , CHECKIN+14
BSDARR	EN+28~
BSDARR(	EN+35*, CHOOSE+2, CHOOSE+3, CHOOSE+16
BSDARR(99	CHOOSE+7
BSDCLD	EN~, EN+23, EN+24, EN+29, EN+41, CHOOSE+13
BSDCLDN	EN+28~, EN+29*, EN+40, CHOOSE+8, CHOOSE+13
BSDCNT	EN+28~, EN+34*, EN+35, EN+39
BSDDT	EN+28~, EN+30, EN+32, EN+33, EN+35
BSDEND	EN+28~, EN+31*, EN+32
BSDITEM	EN~, EN+27
BSDREAS	EN~, EN+41, CHOOSE+13
BSDVST	EN+28~, EN+39, EN+41, CHOOSE+17, CHOOSE+18, CHECKIN+1~, CHECKIN+16
BSDVST(0	CHECKIN+18, CHECKIN+20
>> CLINIC	CHECKIN+12
CLN	CHECKIN~, CHECKIN+2, CHECKIN+8, CHECKIN+14
COUNT	CHOOSE+1~, CHOOSE+2, CHOOSE+3, CHOOSE+4, CHOOSE+7, CHOOSE+8, CHOOSE+9, CHOOSE+13
D0	STATUS~
D1	STATUS~
DFN	EN~, EN+23, EN+32, EN+33, EN+35, CHOOSE+17, CHECKIN+6
DT	EN+30, EN+31
DUZ	CHECKIN+9
OI	CHECKIN~, CHECKIN+4
U	EN+23, EN+24, EN+35, CHOOSE+5, CHOOSE+21, CHOOSE+22
X	STATUS+2~, STATUS+3
Y	CHOOSE+1~, CHOOSE+9*, CHOOSE+10, CHOOSE+13, CHOOSE+16