Routine: NURSAWCK

Information

NURSAWCK ;HIRMFO/RM-CHECK SO EVERY MAS WARD HAS A NURSING LOCATION ;AUGUST 1986

Source file <NURSAWCK.m>

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Nursing Service	2	NURSCPL NURSCPLU

Name	Comments	DBIA/ICR reference
EN1	; CALLED BY ROUTINE NURSCPL & NURSCPLU, RETURNS NURSBAD (1 if MAS Ward has no ; Nursing equivalent, 0 if it does.), and BADWARD("MAS Ward") for ; the ward in question.
BADWARD	; ERROR MESSAGE IF THERE IS AN INVALID WARD

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!!,"The following MAS Wards do not have corresponding NURSING Locations: " Line Location: BADWARD+1
Function Call: WRITE	Prompt: !,?20,NURSWR42 Line Location: BADWARD+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	EN1+3
^NURSF(211.4 - [#211.4]	EN1+3

Name	Field # of Occurrence
^("I"	EN1+3