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

Package: Nursing Service

Routine: NURAED01


Information

NURAED01 ;HIRMFO/RM-Cont. of NURAED0 routine ;2/26/92

Source Information

Source file <NURAED01.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIE  
Nursing Service 1 EN5^NURAED3  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Nursing Service 1 NURAED0  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Continuation of EN14^NURAED0
ADD
SEL ;
Q14
YNOK ;

External References

Name Field # of Occurrence
^DIC SEL+2, SEL+3, YNOK+2
YN^DICN YNOK+1, ADD+1
^DIE ADD+3
EN5^NURAED3 ADD+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Select Nursing Service Staff Name: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!?1,"YOU MAY ALSO ADD A NEW NURS STAFF IF YOU WISH.",!
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !?7,Y(0,0)
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!,$C(7),"** STAFF RECORD DATA MISSING **"
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !?9,"...OK"
  • Line Location: YNOK+1
Function Call: WRITE
  • Prompt: !?13,"ANSWER YES OR NO."
  • Line Location: YNOK+1
Function Call: WRITE
  • Prompt: ?15,Y(0,0)
  • Line Location: YNOK+3
Function Call: WRITE
  • Prompt: "??"
  • Line Location: YNOK+5
Function Call: WRITE
  • Prompt: $C(7),!?3,"ARE YOU ADDING '",Y(0,0),"' AS A NEW NURS STAFF (THE ",NURCNT,$S(NURCNT#10=1&(NURCNT#100-11):"ST",NURCNT#10=2&(NURCNT#100-12):"ND",NURCNT#10=3&(NURCNT#100-13):"RD",1:"TH"),")"
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: $C(7),!?4,"ANSWER 'YES' OR 'NO'"
  • Line Location: ADD+2
Routine Call
  • DIE
  • Line Location:
    • ADD+3
Routine Call
  • DIC
  • Line Location:
    • SEL+2
    • SEL+3
    • YNOK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] EN1+1
^NURSF(210 - [#210] YNOK+3, YNOK+4!, YNOK+6, ADD, ADD+3*

Label References

Name Line Occurrences
ADD ADD, ADD+2
Q14 SEL+1, SEL+5, YNOK+1, YNOK+2, ADD+2
SEL SEL+2, YNOK+1, YNOK+5, ADD+2
YNOK YNOK+1, YNOK+3

Naked Globals

Name Field # of Occurrence
^(0 EN1+1, YNOK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% YNOK+1*, ADD+1*, ADD+2, Q14!
DA YNOK+2*, ADD+3*, Q14!
DIC SEL+2*, SEL+3*, SEL+5!, YNOK+2*!, Q14!
DIC("DR" YNOK+2*
DIC("S" YNOK+2*
DIC("W" SEL+2*, SEL+3*, YNOK+2*
DIC(0 SEL+2*, SEL+3*, YNOK+2*
DIE ADD+3*!
DLAYGO YNOK+2*!, Q14!
DR ADD+3*, Q14!
DR(1 YNOK+2*
DTIME SEL+1
DTOUT SEL+5, YNOK+2, Q14!
DUOUT SEL+5, YNOK+2, Q14!
NI Q14!
NUR200 YNOK+2*, Q14!
NUR200SC EN1+1*, SEL+2, YNOK+2, YNOK+5, Q14!
NURANM Q14!
NURCNT YNOK+6*, ADD+1, ADD+3, Q14!
NURCNT(0 YNOK+6*, ADD*, ADD+3
NURDA ADD+3*, Q14!
NURIDSP Q14!
NURIDSP( SEL+2, SEL+3, YNOK+2
NURIDSP(200 EN1+3*
NURIDSP(210 EN1+2*, SEL+3
NUROUT Q14!
>> NURSADD ADD
NURSASS Q14!
>> NURSDBA YNOK+1*, ADD+3*
NURSNP Q14!
NURSNPOS Q14!
NURSOPOS Q14!
NURSPOS Q14!
NURSTAT Q14!
NURSX Q14!
NURSY Q14!
NURX YNOK+3*, YNOK+4, Q14!
>> X SEL+1*, SEL+2*
>> XQUIT SEL+1*, SEL+5*, YNOK+1*, YNOK+2*, ADD+2*
>> Y SEL+3, YNOK+1*, YNOK+2, YNOK+3*, YNOK+4, YNOK+5, ADD+2*, ADD+3
>> Y(0 SEL+3, YNOK+3, ADD+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All