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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: NURSALED

Package: Nursing Service

Routine: NURSALED


Information

NURSALED ;HIRMFO/RM,FT-LOCATION FILE EDIT ROUTINE ;6/11/89

Source Information

Source file <NURSALED.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Nursing Service 4 $$EN8^NURSAFU0  (ADDB,ADDM,ASKB,DELB,DELM,EDM)^NURSALE0  ^NURSBPO  ^NURSKILL  
Kernel 1 EN^XQH  
Registration 1 $$SITE^VASITE  
VA FileMan 1 ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Nursing Service 2 NURSAFUD  NURSAL0  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY TO EDIT LOCATION FILE ENTRY FROM NURSAFUD ROUTINE
NAME ;
MAS ;
OMAS ;
ASKM ;
ABED ;
OBED ;
ASKB ;
BYPB ;
Q1 ;
PMAS ;
LINCK ;
ASKM0 ;
A ;;ADD NEW ENTRIES
B ;;BYPASS PROMPT
D ;;DELETE EXISTING ENTRIES
E ;;EDIT RELATIONSHIP

External References

Name Field # of Occurrence
^DIE NAME+6, NAME+7, NAME+9, BYPB+1
$$EN8^NURSAFU0 NAME+5
ADDB^NURSALE0 ASKB+1
ADDM^NURSALE0 ASKM+1
ASKB^NURSALE0 ASKB+1
DELB^NURSALE0 ASKB+1
DELM^NURSALE0 ASKM+1
EDM^NURSALE0 ASKB+1
^NURSBPO BYPB+2
^NURSKILL Q1+1
$$SITE^VASITE NAME+5
EN^XQH NAME+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NAME+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: NAME+1
Function Call: WRITE
  • Prompt: $C(7),!?5,"Answer with Nursing Unit name. Answer must be 2-30 characters",!?5,"in length. You may put the letters 'NUR ' in front of the unit",!?5,"name, but if you do not the software will take care of it."
  • Line Location: NAME+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: NAME+3
Function Call: WRITE
  • Prompt: $C(7),!?5,"Answer must be between 2 and 30 characters in length."
  • Line Location: NAME+4
Function Call: WRITE
  • Prompt: !!,"Below is a listing of associated MAS wards"
  • Line Location: OMAS+2
Function Call: WRITE
  • Prompt: !?2,$J(X,2),". ",$S($D(^DIC(42,+$P(OMAS(X),"^",2),0)):$P(^(0),"^"),1:"")
  • Line Location: OMAS+3
Function Call: WRITE
  • Prompt: " ",$P($T(@NURSX),";;",2),!
  • Line Location: ASKM+1
Function Call: WRITE
  • Prompt: !!?7,"AMIS Bed section",?43,"Associated MAS ward"
  • Line Location: OBED+2
Function Call: WRITE
  • Prompt: !,$J(X,2),". ",$S($D(^NURSF(213.3,+$P(OBED(X),"^",2),0)):$P(^(0),"^"),1:"")
  • Line Location: OBED+3
Function Call: WRITE
  • Prompt: " ",$P($T(@NURSX),";;",2),!
  • Line Location: ASKB+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BYPB+1
Function Call: WRITE
  • Prompt: Z=Z+1
  • Condition for execution: A'=B ! S:A'=B
  • Line Location: PMAS+2
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: LINCK+1
Function Call: WRITE
  • Prompt: "this prompt (A"_$S(NURSOMAS:"/D",1:"")_"/B): "_$S(NURSOMAS:"B",NURSNEW:"A",1:"B")_"// "
  • Line Location: ASKM0+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKM0+3
Function Call: WRITE
  • Prompt: !?4,$C(7),"ANSWER WITH A IF YOU WOULD LIKE TO ADD MORE MAS WARDS FOR THIS UNIT"
  • Line Location: ASKM0+4
Function Call: WRITE
  • Prompt: ",",!?16,"D IF YOU WOULD LIKE TO DELETE MAS WARDS FROM THE ABOVE LISTING,"
  • Condition for execution: NURSOMAS
  • Line Location: ASKM0+4
Function Call: WRITE
  • Prompt: !?13,"OR B IF YOU WOULD LIKE TO DO NOTHING AND BYPASS THIS PROMPT."
  • Line Location: ASKM0+5
Function Call: WRITE
  • Prompt: !?4,$C(7),"INVALID ENTRY, TYPE ? TO GET MORE HELP"
  • Line Location: ASKM0+6
Routine Call
  • DIE
  • Line Location:
    • NAME+6
    • NAME+7
    • NAME+9
    • BYPB+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.4 - [#211.4] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] OMAS+3, PMAS+2
^NURSF(211.4 - [#211.4] NAME+7, NAME+11, MAS+1, OMAS+1, ABED+1, OBED+1, PMAS+1, PMAS+2
^NURSF(213.3 - [#213.3] OBED+3

Label References

Name Line Occurrences
ABED ASKM+1, ASKB+1
ASKB ABED+1
ASKM MAS+1
ASKM0 ASKM+1, ASKM0+5, ASKM0+6
BYPB ASKB+1
LINCK OMAS+3, OBED+3, PMAS+2
MAS ASKM+1
NAME NAME+1, NAME+2, NAME+3, NAME+4
PMAS OBED+3
Q1 NAME+1, NAME+6, NAME+8, NAME+10, NAME+11, ASKM+1, ASKB+1, BYPB+1

Naked Globals

Name Field # of Occurrence
^(0 OMAS+1, OMAS+3, OBED+1, OBED+3, PMAS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A PMAS+2*
>> B PMAS+1*, PMAS+2
>> C PMAS+2*
>> DA NAME+6*, NAME+7*, NAME+9*, NAME+11, BYPB+1*
>> DIE NAME+6*, NAME+7*, NAME+9*, BYPB+1*
>> DR NAME+6*, NAME+7*, NAME+9*, BYPB+1*
DTIME NAME+1, LINCK+1, ASKM0+3
IOSL LINCK+1
NURFACIL NAME+5*, NAME+6!
>> NURLOC NAME+6*
>> NURSNEW EN1+1*, ASKM0+2, ASKM0+3
>> NURSOBED ABED+1*, ASKB+1
>> NURSOMAS MAS+1*, ASKM+1, ASKM0+1, ASKM0+2, ASKM0+3, ASKM0+4
>> NURSREV BYPB+1
>> NURSWARD EN1+1*, NAME+7, NAME+9, MAS+1, OMAS+1, ABED+1, OBED+1, BYPB+1, PMAS+1, PMAS+2
>> NURSWARD(0 EN1+1*, NAME+1, NAME+6
>> NURSX ASKM+1, ASKB+1, ASKM0+3*, ASKM0+4
OBED OBED+1!, OBED+2*
OBED( OBED+1*, OBED+3, PMAS+1, PMAS+2
OMAS OMAS+1!, OMAS+2*
OMAS( OMAS+1*, OMAS+3
U NAME+7
>> X NAME+1*, NAME+2, NAME+3, NAME+4*, NAME+6, NAME+11, OMAS+1*, OMAS+3*, OBED+1*, OBED+3*
, PMAS+1, PMAS+2, ASKM0+3*
XQH NAME+1*!
>> Y EN1+1, NAME+6, NAME+8, NAME+10, OMAS+1*, OMAS+3, OBED+1*, OBED+3, PMAS+1*, PMAS+2
, LINCK+1*
>> Y(0 EN1+1
>> Z OMAS+1*, OMAS+2, OMAS+3*, OBED+1*, OBED+2, OBED+3*, PMAS+2*, LINCK+1*

Marked Items

Name Field # of Occurrence
$T(@NURSX ASKM+1, ASKB+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All