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 |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 ^%DT  H^%DTC  
Nursing Service 1 EN7^NURSAGP1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Nursing Service 2 NURARPC3  NURARPC4  

Entry Points

Name Comments DBIA/ICR reference
SETDAY ; SET DAY IF DAILY REPORT
SETMON ; SET MONTH IF MONTHLY REPORT
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,
SETQUAR1 ;
SETQUART ; SET QUARTER IF QUARTERLY REPORT

External References

Name Field # of Occurrence
^%DT SETMON+4, SETQUART+2
H^%DTC SETMON+6, SETQUART+5
EN7^NURSAGP1 SETDAY+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^NURSA(213.4 - [#213.4] NOVALU+4, NOVALU+6, NOVALU+7
^NURSF(211.4 - [#211.4] NOVALU+5

Label References

Name Line Occurrences
SETMON SETMON+5, SETMON+6
SETQUAR1 SETQUAR1+4
SETQUART SETQUART+4, SETQUART+5, SETQUAR1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SETMON+4*!, SETQUART+1*, SETQUART+2!
%DT("A" SETQUART+1*
%Y SETMON+6, SETQUART+5, SETQUART+6!
>> D1 NOVALU+6*, NOVALU+7
DTIME SETMON+2, SETQUAR1+2
NDA NOVALU~, NOVALU+4, NOVALU+6, NOVALU+7
>> NDATED SETMON+7*, SETMON+8, SETQUART+6*, SETQUART+7, SETQUAR1+5*, SETQUAR1+6, SETQUAR1+7
NUNIT NOVALU+4*, NOVALU+5, NOVALU+10!
>> NUROUT SETDAY+1, SETMON+3*, SETQUART+3*, SETQUAR1+3*
>> NURSHDR SETMON+8*, SETQUART+7*, SETQUAR1+7*
>> NURSWHEN SETQUART+7
>> NURTYPE SETMON+8*, SETQUART+6*, SETQUART+7, SETQUAR1+7*
NURX NOVALU+4~*, NOVALU+7*, NOVALU+11
U NOVALU+4, NOVALU+7
>> X SETMON+2*, SETMON+3, SETMON+5, SETMON+6*, SETQUART+3, SETQUART+4, SETQUART+5*, SETQUAR1+2*, SETQUAR1+3, SETQUAR1+4
, SETQUAR1+5
>> Y SETMON+6, SETMON+7, SETQUART+4, SETQUART+5, SETQUART+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All