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

Package: Nursing Service

Routine: NURAED01


Information

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

Source Information

Source file <NURAED01.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Nursing Service Staff Name: "
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls