Routine: DVBCUTL6

Information

DVBCUTL6 ;ALB/GTS-AMIE C&P APPT LINK DISPLAY SUBRTNS ; 10/20/94 1:45 PM

Name	Comments	DBIA/ICR reference
LKHDOUT	;** Link MGNT screen hdr
EXMOUT(LPDA)	;** Output exam
EXMDISP(REQDA)	;** Output Open/Completed exams
EXMHD	;** Exam header
APPTSEL(DVBADFN,APPTTYPE,REQDA,STRTDT,ENDDT)	;Select appt
ARYDISP	;** Display appts for selection
SELAPT	;** Select Appt
LINKINF(REQDA,CURRAPT)	;** Display Link info

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: LKHDOUT+1
Function Call: WRITE	Prompt: "AMIE/C&P Appointment Link Management",!!,"Current appointment links" Line Location: LKHDOUT+2
Function Call: WRITE	Prompt: !,"Clinic",?32,"Date/Time",?51,"Status",! Line Location: LKHDOUT+3
Function Call: WRITE	Prompt: !!,"Exam: ",$P(^DVB(396.6,$P(^DVB(396.4,LPDA,0),U,3),0),U,2) Line Location: EXMOUT+1
Function Call: WRITE	Prompt: !,"Clinic",?32,"Date/Time",?49,"Status" Line Location: EXMOUT+2
Function Call: WRITE	Prompt: @IOF Line Location: EXMHD+1
Function Call: WRITE	Prompt: !!,"AMIE exams on 2507 request for: ",$P(^DPT($P(^DVB(396.3,REQDA,0),U,1),0),U,1) Line Location: EXMHD+5
Function Call: WRITE	Prompt: !,"2507 Request Date Reported to MAS: ",Y Line Location: EXMHD+6
Function Call: WRITE	Prompt: !,DVBALN Line Location: EXMHD+8
Function Call: WRITE	Prompt: !!,"Exam:",?40,"Status:" Line Location: EXMHD+9
Function Call: WRITE	Prompt: @IOF Line Location: APPTSEL+6
Function Call: WRITE	Prompt: !!!,"Select an appointment to link to the 2507 request",! Line Location: ARYDISP+8
Function Call: WRITE	Prompt: !,?1,"1",?4,"Display Current C&P Appointment Links" Line Location: ARYDISP+9
Function Call: WRITE	Prompt: ! Line Location: SELAPT+1
Function Call: WRITE	Prompt: !,"Current Appt: ",?36,Y Line Location: LINKINF+26