Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Nursing Service 4 EN1^NURACE7  EN3^NURACE8  ^NURSAPCH  (EN2,EN5,EN6)^NURSCUTL  
Kernel 1 ^%ZIS  
Registration 1 (1,KVAR)^VADPT  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Nursing Service 5 NURACEW  NURACEW1  NURAPC-INDPT  NURAPC-MENU  NURAPC-REVIND  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS SELT1+1
YN^DICN STAT+1
EN1^NURACE7 STARTREV+1
EN3^NURACE8 CHKJOB+3
^NURSAPCH SELTLOP+3
EN2^NURSCUTL STARTIT+4
EN5^NURSCUTL SELTLOP+3
EN6^NURSCUTL AROUND+5
1^VADPT AROUND
KVAR^VADPT QUIT+2

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
Routine Call
  • %ZIS
  • Line Location:
    • SELT1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] EN1+1, EN2+1, CHKJOB+3
^NURSA(214.6 - [#214.6] A+1
^NURSF(213.3 - [#213.3] STARTIT+2
^NURSF(214 - [#214] AROUND+2
^VA(200 - [#200] SELT1+2, A+6

Label References

Name Line Occurrences
AROUND SELTLOP+4, STAT+2
KILL SELTLOP+2, SELTLOP+3, STAT+2, STARTIT+1, STARTIT+3
QUIT SELT1+1
SELT1 EN1+2
SELTLOP STAT+2, STARTREV+2
STARTREV A, A+3
STAT STAT+3

Naked Globals

Name Field # of Occurrence
^("DATE" CHKJOB+3
^(0 STARTIT+2, A+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% STAT+1*, STAT+2, QUIT+3!
%DT QUIT+1!
ABORTSW QUIT+1!
CAT QUIT+1!
CHANGESW QUIT+1!
CHKVAR QUIT+1!
CK QUIT+1!
CLASSREV EN1+2*, EN2+2*, A+3*, KILL+1!
CLASSX A*, A+3*, A+4*, QUIT+1!
COMMENTX A*, A+3*, A+6*, QUIT+1!
CONFIGX A*, A+3*, A+4*, A+5*, QUIT+1!
DA QUIT+1!
DATEX A*, A+3*, A+4*, QUIT+1!
DFN SELTLOP+3, AROUND+2, QUIT+1!
DIC QUIT+1!
DIC(0 SELTLOP+3*
DT CHKJOB+3
DUZ SELT1+2
FACT QUIT+1!
FACT1 QUIT+2!
FACTORS A*, A+3*, A+6*, A+7, QUIT+1!
FACTX A*, A+3*, A+6*, A+7*, A+8*, QUIT+1!
FCK QUIT+1!
I A+7*, QUIT+1!
IOF SELT1+1
ION SELT1+1
IOP SELT1+1*!
J QUIT+1!
NACT SELTLOP+3*, QUIT+1!
NASK SELTLOP+1*, SELTLOP+2*, QUIT+2!
NAX AROUND+2*, AROUND+3, AROUND+4, QUIT+1!
NCX A+1*, A+4, A+6, QUIT+1!
NEWREV QUIT+1!
NOREVSW SELTLOP+1*, QUIT+1!
NPWARD QUIT+3!
NRX QUIT+1!
NS1 QUIT+2!
NURMDSW QUIT+3!
NURS10SW QUIT+3!
NURS11SW QUIT+1!
NURS13SW QUIT+3!
NURS1SW QUIT+3!
NURS3SW QUIT+3!
NURS4SW QUIT+1!
NURS5SW QUIT+1!
NURS6SW QUIT+3!
NURS7SW QUIT+3!
NURS8SW QUIT+1!
NURS9SW QUIT+3!
NURSA QUIT+2!
NURSADM QUIT+3!
NURSBS AROUND+4*, STARTIT+1, STARTIT+2, STARTIT+3, A+3, QUIT+3!
NURSBS1 A+1*, A+2, A+3, QUIT+1!
NURSBSF STARTIT+2*, STARTIT+3, QUIT+3!
NURSCKSW SELTLOP+1*, QUIT+3!
NURSCLAS A, A+1, QUIT+1!
NURSCLAS("CL" STARTIT+4*
NURSNAM AROUND*, QUIT+3!
>> NURSNSW SELTLOP+1*
NURSOLDC QUIT+2!
NURSREV QUIT+1!
NURSRMBD AROUND+1*, QUIT+3!
NURSRTSW SELTLOP+1*, QUIT+1!
NURSRVDT QUIT+1!
>> NURSTABL SELTLOP+2
>> NURSTABL( SELTLOP+2
NURSTCLS QUIT+3!
NURSTRAN QUIT+2!
NURSUSER SELT1+2*, QUIT+3!
NURSWARD AROUND+3*, STARTIT+1, QUIT+3!
NURSX SELTLOP+4, STAT, QUIT+1!
NWFCTSW QUIT+3!
NXT QUIT+3!
OUTSW QUIT+3!
PADMDT AROUND+5*, QUIT+3!
PREV QUIT+3!
REENTSW QUIT+1!
REVDATE QUIT+3!
REVIEWER QUIT+3!
REVNO QUIT+3!
SAVEX QUIT+3!
SSN AROUND*, QUIT+3!
>> TABLSW SELTLOP+2*
>> TCNT SELTLOP+2
TX QUIT+1!
U SELT1+1*, AROUND+3, AROUND+4, AROUND+5, STARTIT+2
USENO A*, A+3*, A+6*, QUIT+3!
USERX A*, A+3*, A+6*, QUIT+3!
VA QUIT+2!
VA("PID" AROUND
>> VADM(1 AROUND
>> VAIN(5 AROUND+1
>> VAIN(7 AROUND+5
VAROOT QUIT+1!
>> X SELTLOP+2*
XCLAS QUIT+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All