;Update background process file
; Input:
; INBPN-Background process ien
; MESS-Text
; SRVR-Server #
; LAST- 1 Update 3rd piece to $H, 0 leave 3rd piece
END
HALT
;Halt process
TYPE(DA)
;Return type of transaction
; Input: DA - ien of transaction
NEXTDA(PRIO,DTTM,NO)
;Get next transaction off queue
; Output: PRIO
; DTTM - Date,Time of transaction
; opt NO - Node to $Q
; Returns: DA - next transaction
QS(GLB,SUB)
; return subscript
; input: GLB = global reference returned from $Query
; SUB = numeric position of subscript to return
; output: returns value of subscript denoted by SUB
; mimics $QS except instead of error on bad data, just returns NULL
ERROR
;Error module for server
SETENV
;Set up environment
KILL
;Kill entry from INLHSCH
SRVR(INBPN,INHSRVR)
;Output controller background processor - server
SVLOOP
;Loop through transactions in the server queue
WAIT()
;max wait time before shutting down
; Return 0 to shut down 1 to not shut down
RUN()
;Function to decide if routine should continue to run