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: NURSAWCK

Package: Nursing Service

Routine: NURSAWCK


Information

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

Source Information

Source file <NURSAWCK.m>

Entry Points

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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls