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
Print Page as PDF
Routine: NURACE0

Package: Nursing Service

Routine: NURACE0


Information

NURACE0 ;HIRMFO/RM-PATIENT CLASSIFICATION DRIVER ;4/15/88

Source Information

Source file <NURACE0.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY FROM ROUTINES NURACEW1 or NURACEW
EN2 ; ENTRY FROM OPTION NURAPC-REVIND OR ROUTINE NURACEW
SELT1 ; SET USER NAME
SELTLOP ;ENTER STAFF DATA
STAT
AROUND
STARTIT ;CONTINUE CLASSIFICATION
A
STARTREV ; SET VARIABLES IF REVIEWING PATIENT RECORD
CHKJOB ;
; if acuity job did not run print warning, but do not stop user from
; classifying patients
KILL ;KILL CLASSREV VARIABLE
QUIT ;KILL LOCAL VARIABLES

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELT1+1
Function Call: WRITE
  • Prompt: !!," THIS PATIENT IS ",$S(NURSX="LEAVE":"ON "_NURSX,NURSX="AWOL":NURSX,NURSX="OTH. FAC.":"IN ANOTHER FACILITY",1:""),", DO YOU STILL WISH TO CLASSIFY"
  • Line Location: STAT+0
Function Call: WRITE
  • Prompt: !!," ANSWER YES OR NO "
  • Line Location: STAT+3
Function Call: WRITE
  • Prompt: $C(7),!!," BAD LOCATION/BED SECTION DATA-CANNOT CLASSIFY "
  • Line Location: STARTIT+1
Function Call: WRITE
  • Prompt: !!,$C(7),"CANNOT CLASSIFY ",NURSBSF," PATIENTS "
  • Line Location: STARTIT+3
Function Call: WRITE
  • Prompt: $C(7),"****BAD PREVIOUS CLASSIFICATION DATA CANNOT PROCESS THIS PATIENT****"
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHKJOB+3
Info |  Source |  Entry Points |  Interaction Calls