Routine: VIABRPC4

Information

VIABRPC4 ;AAC/JMC - VIA RPCs ;10/11/2016

Name	Comments	DBIA/ICR reference
RPTLIST(RESULT,VIADFN)	;Return list of surgery reports for reports tab; ICR-10141,#10112,#6730,#3533,#3969,#1995,#4872
DATE(X)	;convert fm date to readable format with 4 digits in year.
REGDTM4(X)	;Receives X in internal date.time, and returns X in MM/DD/YYYY TT:TT ; DBIA 10103 call $$FMTE^XLFDT
ON(RESULT)	; returns E if order checking enabled, otherwise D;ICR-#2263
SIGINFO(RESULT,VIADFN,VIAPROV)	;returns the provider/patient info that must be displayed when signing controlled substance orders
SCHALL(RESULT,LOCIEN)
WARDIEN(LOCIEN)	;
VALSCH(RESULT,X,PSTYPE)
IMOLOC(RESULT,VIALOC,VIADFN)	;RESULT>=0: VIALOC is an IMO authorized location; ICR-#4133,10040,6347,4422
ALLSAMP(RESULT)	; procedure;ICR-2389,10055
NXT()	; increments ILST
MAXDAYS(RESULT,LOC,SCHED)	; Return max number of days for a continuing order;ICR -#4546,2263
INPLOC(RESULT,FROM,DIR)	;Return a set of wards from HOSPITAL LOCATION
ACTLOC(LOC)	; Function: returns TRUE if active hospital location-ICR-#10040,1246 ; IA# 10040.