Routine: DVBAB1

Information

DVBAB1 ;ALB/SPH - CAPRI UTILITIES ; MAY 27, 2022@11:31am

Source file <DVBAB1.m>

Name	Comments	DBIA/ICR reference
VERSION(ZMSG,DVBGUIV)	; ; ; --rpc: DVBAB VERSION ; ; Must have a letter at the end of the Version for Delphi compatibility. ; 1st piece is version description ; 2nd piece can be YESOLD or NOOLD ; YESOLD --> Allow old GUI to run with new KID ; NOOLD --> Do not allow old GUI to run with newer version
REQUESTS(Y,TYPE)	; ; TYPE is the internal value of field 17 in file 396.3 ; This relates to which status of request should be returned
TEAMPTS(DVBORY,TEAM,TMPFLAG)	; RETURN LIST OF PATIENTS IN A TEAM ; If TMPFLAG passed and = TRUE, code expects a "^TMP(xxx" ; global root string passed in ORY, and builds the returned ; list in that global instead of to a memory array.
DIVISION(Y)	; Returns Name for an Institution
DT(Y,X1,X2)	; Returns date X1 minus X2 days ; change the '00:00' that could be passed so Fileman doesn't reject
DTTM(Y)	;
CHKCRED(Y)	;KLB
PTINQ(REF,DFN)	; Return formatted pt inquiry report
TEMPLATE(Y)	; Returns list of CAPRI exam templates
LABLIST(Y)	; Returns list of LAB TEST NAMES
INSTLIST(Y)	; Returns full list of Institutions
INCEXAM(ZMSG)	;Increased exam # in file and passes back the # to user
MSG(ERR,DUZ,XMSUB,XMTEXT,MGN,ID)	;Generate mail message;KLB ; --rpc: DVBAB SEND MSG
FINDEXAM(ZMSG,ZIEN)	;Returns list of exams in 396.4 that are linked to ZIEN in 396.3
SENDMSG	;SET UP TO SEND EMAIL/NOTIFICATION TO REQUESTOR OF 2507
CNCLMSG	;SEND CANCEL MESSAGE TO REQUESTOR OF THE 2507 EXAM
RDYMSG	;SEND EXAM COMPLETE MESSAGE TO REQUESTOR OF 2507