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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.4 - [#211.4] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call