; CHECK FOR DUPLICATE ENTRY IN NURS CLASSIFICATION (#214.6)
; FILE. IF A DUPLICATE EXISTS A ONE IS RETURNED OTHERWISE
; A ZERO IS RETURNED
EN2
; LOOKUP OF THE LATEST PATIENT CLASSIFICATION FROM 214.6 FILE
; FLAG NURSCLAS("CL") = $S(1:CHECK CURR. LOC. = CLAS. LOC.,0:ELSE,
; 2:GET FIRST CLASS WHERE CURR.LOC=CLASS.LOC NURSCLASS("WARD")=CURR.LOC)
EN3
; MUMPS "AA" XREF FOR FILE 214.7
; THE NURSDFN, NURSA, AND NURSR VARIABLES ARE KILLED IN THE XREF
EN4
; SCREEN FOR CLASSIFICATION DATE FIELDS
EN5
; LOOKUP ON THE PATIENT FILE FOR PATIENT NAME
EN6
; FIND THE CURRENT ADMISSION FOR THE PATIENT (DFN IS PATIENT IEN)