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

Package: Nursing Service

Routine: NURAMHE


Information

NURAMHE ;HIRMFO/MD,FT-NURSING MANHOURS ENTER/EDIT FUNCTION ;8/14/96 09:45

Source Information

Source file <NURAMHE.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;PATIENT CARE ENTRY POINT FROM OPTION NURAMN-MANED
NXDT
EDIT ; PROCESS SELECTED SHIFT(S)
SHIFT
QUIT
MAIN ;LOOP PROCESS
MSG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: NXDT+0
Function Call: WRITE
  • Prompt: !!,"...Editing "_$S(SHIFT(NURDA)="E":"EVENING",SHIFT(NURDA)="D":"DAY",SHIFT(NURDA)="N":"NIGHT",1:"")_" SHIFT for ward "_NPWARD_"...",!
  • Line Location: EDIT+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Shift(s) (Enter N - Night D - DAY E - Evening or A for All Shifts): "
  • Variable: NURSHFT
  • Timeout: DTIME,!
  • Line Location: SHIFT+0
Function Call: WRITE
  • Prompt: !,"Enter shift selection(s) (i.e., N,D,E - ND - DE etc)."
  • Line Location: SHIFT+1
Function Call: WRITE
  • Prompt: !!,"ANOTHER PROCESS IS WORKING ON THIS ENTRY",$C(7)
  • Line Location: MAIN+1
Function Call: WRITE
  • Prompt: !!,"ENTERED BY: ",$P(^VA(200,$P(^NURSA(213.4,DA,0),"^",8),0),"^")
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !,$C(7)," ** IMPROPER SHIFT SELECTION **"
  • Line Location: MSG+0

FileMan Files Accessed Via FileMan Db Call

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