NURSCUTL ;HIRMFO/MD-RM-UTILITY ROUTINE FOR NURSING CLINICAL ;6/6/96
Source file <NURSCUTL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
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) |
|
GC | ||
Q2 | ||
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
|
|
A5 | ||
EN6 | ; FIND THE CURRENT ADMISSION FOR THE PATIENT (DFN IS PATIENT IEN)
|
|
SETXREF | ; SET UP ADT INTERFACE IN PATIENT FILE
|
|
KILLXREF | ; DELETE ADT INTERFACE IN PATIENT FILE
|
|
EN7 | ; POC ENTRY POINT FOR PATIENT LOOK-UP
|
|
DUPCLAS(DATEX,DFN) | ; CHECK FOR DUPLICATE ENTRY IN NURS CLASSIFICATION (#214.6)
; FILE. IF A DUPLICATE EXISTS A ONE IS RETURNED OTHERWISE ; A ZERO IS RETURNED |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |