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

Package: Nursing Service

Routine: NURSALE0


Information

NURSALE0 ;HIRMFO/RM-LOCATION FILE EDIT ROUTINE ;11/4/89

Source Information

Source file <NURSALE0.m>

Entry Points

Name Comments DBIA/ICR reference
ASKB ;
ADDM ;
DELM ;
EDM ;
ADDB ;
DELB ;
DIC
ADD ;
VERIFY ;
DMAS ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Would you like to (A)dd new AMIS bed sections"
  • Line Location: ASKB+2
Function Call: WRITE
  • Prompt: ", (D)elete existing AMIS",!,"bed sections from the above listing, (E)dit the associated MAS ward",!,"relationship,"
  • Condition for execution: NURSOBED
  • Line Location: ASKB+2
Function Call: WRITE
  • Prompt: "this prompt (A"_$S(NURSOBED:"/D/E",1:"")_"/B): "_$S(NURSOBED:"B",NURSNEW:"A",1:"B")_"// "
  • Line Location: ASKB+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKB+4
Function Call: WRITE
  • Prompt: !?4,$C(7),"ANSWER WITH A IF YOU WOULD LIKE TO ADD MORE AMIS BED SECTIONS FOR",!?18,"THIS UNIT"
  • Line Location: ASKB+5
Function Call: WRITE
  • Prompt: !?13,"OR B IF YOU WOULD LIKE TO DO NOTHING AND BYPASS THIS PROMPT."
  • Line Location: ASKB+7
Function Call: WRITE
  • Prompt: !?4,$C(7),"INVALID ENTRY, TYPE ? TO GET MORE HELP"
  • Line Location: ASKB+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDM+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DELM+1
Function Call: WRITE
  • Prompt: !,"Select the number",$S(OMAS>1:"(s)",1:"")," of the entries you wish to delete (1",$S(OMAS>1:"-"_OMAS,1:""),"): "
  • Line Location: DELM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDB+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DELB+1
Function Call: WRITE
  • Prompt: !,"Select the number",$S(OBED>1:"(s)",1:"")," of the entries you wish to delete (1",$S(OBED>1:"-"_OBED,1:""),"): "
  • Line Location: DELB+1
Function Call: WRITE
  • Prompt: !?5,$C(7),"ANSWER WITH A NUMBER"_$S(NURSW=1:" ",1:", OR RANGE OF NUMBERS, ")_" WITHIN THE RANGE (1"_$S(NURSW=1:"",1:"-"_NURSW)_")"
  • Line Location: VERIFY+3

FileMan Files Accessed Via FileMan Db Call

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