Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: NURSCUTL

Package: Nursing Service

Routine: NURSCUTL


Information

NURSCUTL ;HIRMFO/MD-RM-UTILITY ROUTINE FOR NURSING CLINICAL ;6/6/96

Source Information

Source file <NURSCUTL.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Select PATIENT NAME: "
  • Line Location: EN5+1
Function Call: WRITE
  • Prompt: !
  • Line Location: A5+2
Function Call: WRITE
  • Prompt: !!,"Set up 'trigger' in Patient File to create Nursing Patient entries"
  • Line Location: SETXREF+1
Function Call: WRITE
  • Prompt: !!,"Kill 'triggers' in Patient File that creates Nursing entries."
  • Line Location: KILLXREF+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call