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 |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  ^DIE  D^DIQ  
Nursing Service 3 ^NURAKILL  EN1^NURAMHU  EN6^NURSAUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Nursing Service 1 NURAMN-MANED  

Entry Points

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

External References

Name Field # of Occurrence
^%DT EN1+7, NXDT
^DIC EN1+5
^DIE MAIN+2, MAIN+3
D^DIQ EN1+7
^NURAKILL QUIT
EN1^NURAMHU MAIN+1
EN6^NURSAUTL EDIT+1

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
  • Prompt: "Select Shift(s) (Enter N - Night D - DAY E - Evening or A for All Shifts): "
  • Formatting: !!
  • Timeout: DTIME,!
  • Variable: NURSHFT
  • 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
Routine Call
  • DIE
  • Line Location:
    • MAIN+2
    • MAIN+3
Routine Call
  • DIC
  • Line Location:
    • EN1+5

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] EN1+1
^NURSA(213.4 - [#213.4] MAIN+1, MAIN+2, MAIN+3, MAIN+4
^VA(200 - [#200] MAIN+4

Label References

Name Line Occurrences
EDIT NXDT+2
MAIN EDIT+1
MSG SHIFT+3, SHIFT+4
NXDT NXDT+3
QUIT EN1+5, NXDT+1, NXDT+2
SHIFT NXDT+2, SHIFT+1, MSG

Naked Globals

Name Field # of Occurrence
^(0 MAIN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN1+7*, NXDT*!
%DT("A" NXDT*
%DT("B" EN1+7*
>> DA MAIN+1, MAIN+2, MAIN+3, MAIN+4
DIC EN1+2*, EN1+5!
DIC("A" EN1+2*
DIC("S" EN1+3*, EN1+4*
DIC(0 EN1+2*
>> DIE MAIN+2*
>> DR MAIN+2*, MAIN+3*
DTIME SHIFT
DUZ(0 EN1+3
>> I SHIFT+4*
>> NCWARD EN1+6*, EDIT+1, MAIN+1
>> NPWARD EDIT+1*
>> NURDA EDIT+1*, MAIN+1
>> NURDAY NXDT+2*, MAIN+1
>> NURNODE MAIN+3*
>> NUROUTSW EN1+7*, NXDT+2, EDIT+1, SHIFT*, MAIN+1*
>> NURSHFT SHIFT*, SHIFT+1, SHIFT+2*, SHIFT+3, SHIFT+4, SHIFT+5, SHIFT+6, MAIN+1*
>> NURX SHIFT+5*, SHIFT+6*
>> SAVENODE MAIN+1*, MAIN+3
SHIFT NXDT+3!
SHIFT( EDIT+1, SHIFT+5*, SHIFT+6*, MAIN+1
>> X EN1+5, EN1+7*, NXDT+1, NXDT+2, MAIN+1*
>> Y EN1+5, EN1+6, EN1+7, NXDT+1, NXDT+2
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 |  All