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

Package: Nursing Service

Routine: NURAED7


Information

NURAED7 ;HIRMFO/MD-DATA STOREGE TMP FOR THE POSITION EDIT CONTINUED ;1/15/96

Source Information

Source file <NURAED7.m>

Entry Points

Name Comments DBIA/ICR reference
EDVD ; EDIT VACANCY DATE
DVD
EDVR ; EDIT VACANCY REASON
DVR
EDTT ; EDIT TRANSFER TO
DTT
QE

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDVD+2
Function Call: WRITE
  • Prompt: !,"VACANCY DATE: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T
  • Line Location: EDVD+2
Function Call: WRITE
  • Prompt: !!,?3,$C(7),"PAST ASSIGNMENTS CANNOT BE RE-ACTIVATED FROM THIS SCREEN A NEW ASSIGNMENT",!,?3,"MUST BE ADDED FROM THE CURRENT SCREEN."
  • Line Location: DVD+0
Function Call: WRITE
  • Prompt: !?3,$C(7),"SURE YOU WANT TO DELETE"
  • Line Location: DVD+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Condition for execution: %=2
  • Line Location: DVD+1
Function Call: WRITE
  • Prompt: !?5,$C(7),"ANSWER YES OR NO"
  • Line Location: DVD+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: DVD+2
Function Call: WRITE
  • Prompt: !?5,$C(7),"Vacancy date for this position.",!
  • Line Location: DVD+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDVR+3
Function Call: WRITE
  • Prompt: !,"VACANCY REASON: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T
  • Line Location: EDVR+3
Function Call: WRITE
  • Prompt: !?3,$C(7),"SURE YOU WANT TO DELETE"
  • Line Location: DVR+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Condition for execution: %=2
  • Line Location: DVR+0
Function Call: WRITE
  • Prompt: !?5,$C(7),"ANSWER YES OR NO"
  • Line Location: DVR+0
Function Call: WRITE
  • Prompt: !?5,$C(7),"Reason why position is vacant or why employee transferred.",!
  • Line Location: DVR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDTT+3
Function Call: WRITE
  • Prompt: !,"TRANSFER TO: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T
  • Line Location: EDTT+3
Function Call: WRITE
  • Prompt: !?3,$C(7),"SURE YOU WANT TO DELETE"
  • Line Location: DTT+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Condition for execution: %=2
  • Line Location: DTT+0
Function Call: WRITE
  • Prompt: !?5,$C(7),"ANSWER YES OR NO"
  • Line Location: DTT+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: DTT+1
Function Call: WRITE
  • Prompt: !?5,$C(7),"The name of the location/service (if not nursing) where this employee was",!?5,"temporarily transferred.",!!?5,"Answer must be 3-30 characters in length."
  • Line Location: DTT+2

FileMan Files Accessed Via FileMan Db Call

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