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

Package: Nursing Service

Routine: NURARPC1


Information

NURARPC1 ;HIRMFO/RM/MD-PRINT AMIS 1106 ACUITY REPORTS (cont.) ;2/27/98 14:38

Source Information

Source file <NURARPC1.m>

Entry Points

Name Comments DBIA/ICR reference
SETDAY ; SET DAY IF DAILY REPORT
SETMON ; SET MONTH IF MONTHLY REPORT
SETQUART ; SET QUARTER IF QUARTERLY REPORT
SETQUAR1 ;
NOVALU(NDA) ;
; This function checks inactive units to see if they have acuity
; data for the requested reporting period. If a unit has acuity
; data a one (1) is returned otherwise a zero (0) is returned,

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter MONTH and CALENDER YEAR: "
  • Line Location: SETMON+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Only enter a MONTH and YEAR eg. '3/1998 or MAR, 1998' "
  • Line Location: SETMON+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SETQUART+1
Function Call: WRITE
  • Prompt: *7,!!,"Only enter a YEAR"
  • Line Location: SETQUART+5
Function Call: WRITE
  • Prompt: !!,"Enter QUARTER (Choose a number 1-4): "
  • Line Location: SETQUAR1+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SETQUAR1+4
Function Call: WRITE
  • Prompt: *7,!!!,"INVALID ENTRY, TRY AGAIN"
  • Line Location: SETQUAR1+6
Info |  Source |  Entry Points |  Interaction Calls